作图03，求a=2b

mice · 发表于 2010-6-24 14:37

直线分段方式，a=a=2b

wangjial · 发表于 2010-6-24 14:41

呵呵，小学生的计算题也来了。

hutb2008 · 发表于 2010-6-26 09:00

眼睛数花了。。。

晨怊 · 发表于 2010-6-26 17:58

不是很明白楼主的意思，如果是要画出那个图的话，先画出一个其它的用阵列就可以啦。

xyzyshl · 发表于 2010-6-27 17:14

按要求做出，然后缩放到3500即可吧，那个花纹倒是个难题。

mice · 发表于 2010-6-27 17:32

主要是求画栏杆的间距，间距是A、B两种，A＝2B，由14*14的方钢分隔，A+A+B相接，A一般不超过130,长度不一定是3500,可以是任何长度，到最后能尽分（即是没有余数），这是在设计围栏工作中经常遇到的,花形不用理会

mice · 发表于 2010-6-27 17:36

不论总长度如何，分出多小间隔，A的距离＝B的距离*2,14*14的方钢尺寸是不能改变的

manbuzhe · 发表于 2010-6-28 08:26

原帖由 mice 于 2010-6-24 14:37 发表 ! P% Q* W4 [6 C F( E
直线分段方式，a=a=2b
" X# k& e* M, C* Q
4 `: T0 i8 _2 g/ B/ _4 T$ Y

距离长度+14（方钢尺寸），54等份（A距离）即可。

mice · 发表于 2010-6-30 11:31

原帖由 manbuzhe 于 2010-6-28 08:26 发表
9 T6 }& b% s0 m& y$ Y3 H& ^8 |& Z
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

线角圆 · 发表于 2010-6-30 21:57

如果只满足a=2b的话，这题多解。

woaishuijia · 发表于 2010-7-1 08:49

% q2 q2 O' g: o- j
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode); R8 Z3 q( ?3 }0 A! }7 x, E9 _% i
;;设置栏杆高度和方钢宽度默认值6 W7 S5 E [$ N% ]5 ~
(if (not lg_high)& T. W2 C/ s( h; M2 z7 ?) t
(setq lg_high 500
3 F, g/ C; ~: J3 y
lg_width 148 X$ d0 b3 e5 V0 D
)% @ @- r3 {3 I
)
0 p" v- k. s: [! |$ U
;;指定图形插入点
* |1 p- ~6 \& c- ~8 D* L
;;不接受空回车
" M; P" ]5 s# w
(initget 1): C" L- Z2 a; L# D
(setq basepoint (getpoint "\n指定插入点:")). m# r% h) N3 m+ M+ U; }: J! v
;;指定栏杆长度和栏杆高度和(或)方钢宽度
5 @! h" M5 Q* y
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
- M, c3 O9 j+ F, y& C& X
;;用关键字指定栏杆高度和(或)方钢宽度后
9 M) C3 T) P- u6 |. w
;;需要重复运行指定栏杆长度的代码段
& N' f% H& S. E2 Z! \ s0 N5 e
(while (not len)
/ D; {5 s" Y4 B% P
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
+ T2 V# X! c. G* Z4 r
(if lg_length6 ?( L! B& d% [& p' O( ]% [
;;存在默认值3 x0 `/ t4 g9 A/ t3 w! F: q
(progn* x) }" M. u. y
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"" ^- E& K* C) s" k: l1 [
(initget 6 "h w")0 S1 E1 i9 `- e7 r* J3 h3 ]
(setq len (getdist basepoint- @5 e Y8 t2 Z) x
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"/ B7 P9 P8 r6 _6 S& R5 V s
(rtos lg_length 2); S7 U% h' @$ l" R8 E2 v: K1 X, X# y
">:"8 u9 C0 r3 u: e. G) ]& d
)
) f4 x: N2 S# E$ E
)4 F3 g6 z! `: f* V9 P( \2 [7 o
)0 a$ V k- \' y: t0 c
;;空回车时栏杆长度使用默认值" E6 U o- ^5 o- _5 H/ B! Q
(if (not len)5 L. L7 t" G# A4 h' f3 E
(setq len lg_length)2 W4 y4 P O" h2 c! b$ D; y, t' J
)
# q$ s C' r# [$ E. ~$ p
)
' W& D i9 ]4 `# ~2 ?( `/ V9 R5 Q
;;不存在默认值4 ^& U' j3 T. {- K8 y2 a4 T% }
(progn
# u0 X- k6 `: Z
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"' N. B3 v {6 M& {1 q' y- c
(initget 7 "h w")
1 q+ W% @2 w4 x. X
(setq! I$ K/ }6 n( L. k$ e
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
9 f3 Z+ X% S9 g1 d; |6 O! X
)
: v4 l* _& r" U( d+ w' X* `
)
1 C( w, y0 m/ m% t: U7 Q
)1 ~9 f6 ~7 u' G' [6 n' e
;;检查用户输入的是长度值还是关键字
( s- h7 H4 G2 C0 ~; ^: B
(if (numberp len). x/ }% B* f' r, R" t- j% r% _
;;输入的是长度值
0 `5 x, B0 ~! p$ b& _) E
(if (< len lg_width)0 R. o7 z9 R* y% S r ^; B
;;当长度值小于方钢宽度时清空输入值重新指定
/ w/ V) b) c- `. {* { Y! K
(progn
v7 P4 U" E4 [& a% u1 K/ R
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))) C& n1 `+ ^7 a
(setq len nil)& a" n {+ I! [, z7 n& ], A
)) p6 K* C8 H9 }& X& E, @
)
|$ q8 h' Q. m% q
;;输入的是关键字
! ?8 M, ~' B* K2 X
(progn
+ _- u6 w. F, V
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值* X9 H; c0 a" K7 W7 t
;;用户输入时接受空回车,不接受0和负数
( l0 O0 [# T3 o$ A$ j2 m1 B
(initget 6)
' m* M# U+ D6 v0 k
;;检查用户输入的关键字是"H"还是"W"
( Y0 i; w' o" j$ m
(if (= len "h")
3 o7 J' b4 S, s& P
;;用户输入的关键字是"H",指定高度% Z8 x5 M M" t( c6 O- j% I( r9 Q
(progn& [! k2 U C2 G8 c
(setq high, Z% P+ R7 M& T
(getdist basepoint5 Q3 l' K/ w" }
(strcat "\n指定高度<" (rtos lg_high 2) ">:")) E5 o l8 I* b
)& o0 h5 x; `( L# V/ ?( ? o
); J# Y1 y, H9 @
;;用户输入新的高度时修改默认值
( ]% h: e# R. M2 c' E- I1 e
(if high4 k/ g$ U3 P$ h
(setq lg_high high)# z# f, Q* m; @
)* v& o9 v9 ^" ~7 t
)1 O% v* ]1 y$ A
;;用户输入的关键字是"W",指定方钢宽度
: b# @- ]- `4 z' V3 P$ J
(progn
, q1 s! ^# B5 A/ B/ u9 O
(setq width S! q. B) ? i/ D: k. Z! [! m+ Y' r
(getdist r1 R, q8 D5 z- h' N5 F- M" K$ K% c
basepoint6 J5 t- { V3 L. i$ g! o
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:") _0 I0 C e/ d; H
)
* `% x1 i- N* v) C; F9 A& _
)
$ f0 ]7 G2 w- b3 W( }
;;用户输入新的方钢宽度时修改默认值
1 [# {; E) ?0 Z
(if width
/ N" s: o+ v8 ]
(setq lg_width width): f% H; z6 E# N5 y0 K; U. U# v
)+ Y) C m" _. n" ~, ]
)
3 n. z# N3 L) G
)
( Y3 z8 W! T$ v5 W% }
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
4 Z/ P/ t D& D' N" P8 C+ W5 s
(setq len nil)
# A+ g" `; @/ z7 H8 F. X; I, M# C9 t
)8 ?3 s6 V& G g8 c, s! x2 h
)+ _ j& x+ p+ P: [
)+ y h% t' r3 m5 f
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
% h Z( U* [% T) z
;;计算用户可以指定的花形数量的上限/ d8 k% H; A' P8 W: s) m" T
;;用于下一步检查用户指定的花形数量是否合理
* y8 m0 M5 y% K$ f
(setq lg_length len* D# P/ y" J& D% v) l
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3)))): Y" i9 ]/ j2 q
)
, t) ^# o4 }# M( ^' t& [, Y
;;指定花形数量或A段最大长度
3 M. N7 O8 C4 q I
;;如用户指定的是花形数量,则按用户指定的花形数量画图7 A6 i6 d" M' U# W/ W
;;如用户指定的是A段最大长度
& B3 c4 i+ n% x5 c; e
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
! A4 U7 k/ @& B5 O2 @. d
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解# b# x9 u, ^$ L8 b4 k
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
" w5 h) Y+ s% e4 @
(while (not n)( I2 d7 k- F! |; O2 k* ]7 q9 |; }4 ~
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
n2 h' h# m: w# J0 w
(if lg_n
% L2 O, D: b$ V$ _; {+ ^
;;存在默认值- ^. X6 y( a" f" `
(progn
0 L) I {) y( l- d
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L", F. h6 u5 K: {7 a* v
(initget 6 "l")0 S$ `# y$ C4 T% Y) z
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
7 X- j* C& F0 `% ~1 v3 L
(rtos lg_n 2)& y2 y+ O! r' L9 a8 m" @. \; y; ]
">:"
+ d' L) [4 S T% V* [8 R- M
)
2 A6 S' s. z7 `7 Z0 D3 G( A
)$ j2 R8 ]' W: q& a3 o
)( p8 H6 ^- N2 z: P5 f$ Z
;;空回车时花形数量使用默认值
# ~& R I; @( z
(if (not n)
2 n6 g/ ~$ j: l9 {% t1 j
(setq n lg_n)7 _% _0 ^7 }, h/ ^
)
7 g- I# [+ l" T2 f5 K: S% u: U% Y
)3 \! a% {$ S& B' v0 }0 Z! U
;;不存在默认值
6 y$ o3 `2 u; s. i& y* [
(progn
- e' i x2 t4 X
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"! v G$ H; r; S& \/ S* Q7 y7 q' @
(initget 7 "l")
* Y7 X$ j5 U5 h! Y: k
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))% p4 o; w: e3 @( y0 V
)" `7 n) J. M/ s9 ?/ S v/ o
)/ C- M+ o6 G; d z$ z p
;;检查用户输入的是花形数量值还是关键字2 v9 c; {) G8 {7 K" s- p( g8 C
(if (numberp n)
; }% D* x6 H. q9 G. |9 b1 x# C
;;输入的是花形数量值* \1 Y' @) T0 A' v2 E
(if (> n nmax)
8 I( ^' Q" T* E6 P6 E4 j4 h
;;当花形数量值大于上限时清空输入值重新指定
8 r/ d. p& l3 c M6 [
(progn6 H7 Z; v8 z# {2 G
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))+ r7 x- {. e5 j
(setq n nil)
& k4 z- @4 J" r# \( Y
)
. ~3 K1 f! x9 s4 L' R: X$ Z
;;当用户指定的花形数量合理时存入全局变量2 K5 e2 m4 C% o) p) r0 j
;;以便用做下次输入的默认值
* {; b+ T4 g/ X/ A& l4 J8 E9 }
(setq lg_n n)
$ e2 ~' c1 T* C" S* S C
)
6 h! m% B! g) C/ S
;;用户输入的是关键字
/ k3 R4 p( t( y7 F3 K: O9 A
;;指定A段最大长度9 j3 i9 m8 p1 G' ~; V
(progn& S6 a4 k' F$ d8 q1 U
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
. n R$ K, F' P
;;否则可能导致无解
8 t5 A8 p+ i$ l4 P5 V0 B
(while (not amax) g5 j1 q! b$ s( d J% V, R
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
# x5 c7 B, J5 e s& m! w
(if lg_amax
# E5 m! N0 S. N1 N3 {9 Y
;;存在默认值! y& W$ D9 U5 E Z3 ]1 E
(progn
0 p$ t2 b& h# q
;;用户输入时接受空回车,不接受0和负数. |* {& l1 |7 g
(initget 6)
% \8 S$ W; o2 v# J3 C8 f7 x/ s
(setq amax (getdist basepoint2 S8 b# Y' P* c. i# [
(strcat "\n指定A段最大长度<"
+ r3 t) c$ T* p1 C
(rtos lg_amax 2)( w& l% g. k+ A b1 a2 U+ M
">:" u9 p2 d q( J$ x$ \
): e5 V9 _* m/ ~( T
)7 N! n0 P( Y$ y" J. o) N6 I
)
& y/ N2 o/ i3 [
;;空回车时A段最大长度使用默认值
) [7 [# x, O9 @; L+ h
(if (not amax)% F+ p# E3 \% u; r2 Z& O
(setq amax lg_amax)1 Q% S4 J( l+ y9 h# j. t3 f- j
). k( k; x2 v# Q4 N5 i
)
" S* Q: N) A% _3 s( w
;;不存在默认值
$ x. a4 g: p" b X
(progn/ t2 z. w1 Q% _/ b, A. j! n
;;用户输入时不接受空回车,0和负数0 |2 V3 V2 K% v8 i
(initget 7)8 k+ Q) H/ S" Z* v
(setq
$ O5 R2 x7 }( V3 d7 [ T
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
$ q) S/ X- s T& d! X2 V9 s/ @8 h
): \6 `9 f3 u) [' h
)7 j. \6 k# u( n3 g e
), C! ?* c% v3 ~1 O2 j- n
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定! A \: v' L, c1 o5 t6 L
(if (< amax (* lg_width 1.5))+ Z/ k. V( g" B- W
(progn7 e/ \0 W5 c, H1 e
(prompt (strcat "\n指定的A段最大长度不能小于"
' v- W) L1 n J% a% i ^/ D
(rtos (* lg_width 1.5) 2)6 t d, g* [1 a) V
)! W Q# O B0 h, u, ?8 r
)
& Z; u- n1 |8 u+ x, v# x+ b0 T3 B
(setq amax nil)
* H2 G. o6 F) Z
)
5 m5 v7 a: c% R8 D# Z2 x3 {" j
)
% n' o+ A% G! }! L8 u
)
0 [2 ]& Z6 E6 ~6 y* y' h0 z
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
3 o1 c# [' E. F! ?* s- m: G: c
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为14 t; O9 P! Z7 Q
(setq4 k6 C9 U% V7 }; g) _3 u, ~- y7 H
lg_amax amax
, g$ o! N2 t4 U6 o
n (1+ (/ (- len (* amax 2) lg_width)4 }* @3 N7 z. Z" V0 R# J
(+ (* amax 2.5) (* lg_width 3))6 j0 v# U; L$ i: k" u3 ~1 I
)
5 P3 I$ T* Q$ ]$ {) ~! d! S5 G
)
+ Z, k3 `6 O5 ]2 ?) O. G! k) c$ T
)% _2 B% d% u' u! Q
(if (> n (fix n))
6 t1 x# z. F# j5 d
(setq n (1+ (fix n)))( ]( g& W2 i3 A: s, Z- M
)
4 @+ X; k! B3 o
(if (< n 1)
7 E1 w/ `5 B# K' X( ~' Y
(setq n 1)
" {8 Z9 }" ~8 T4 Z* Q9 g5 `% Z
)
6 \4 Z9 s C2 f4 k
)
5 I% ?4 y+ M% U9 [5 U
)# m" i- d5 y. l% m7 [$ z! P
)% ] h+ m6 d! C, l! k3 w j
;;画图; z/ J: e: N1 b
;;记住原来的对象捕捉设置7 S4 r4 ?. f$ n# w* J7 H
;;按花形数量计算A值
, b7 {$ x( S4 U# H7 ]2 Q
(setq: r6 D2 Q$ W8 A' a P( x5 M, ^+ X
oldosmode (getvar "osmode")0 ~9 k- L, |; a: A% G0 T
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
7 p4 k2 W) o! ~2 E0 b! S. z
(+ (* (1- n) 2.5) 2)( R. }2 r4 B, k. |/ p/ s/ l
)
# F2 O3 p! P$ K7 f" x% z1 [
)
0 x2 c w1 |3 x( m# s- \4 m
;;暂时关闭对象捕捉
2 ]; I; D4 t- p, G
(setvar "osmode" 0)
' j5 `/ P( a8 L4 b
;;屏蔽命令回显- g! u: V3 g8 @/ P0 c
(setvar "CMDECHO" 0)% z5 E f- r. B7 E6 Z
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形% h, n/ \& }+ Z& A1 G/ K* z
(command "rectang"
% m: ?! c+ }6 d" H7 s
basepoint, m2 r* l: O0 M6 a9 F2 n4 v
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))3 I7 i: P$ J6 d2 |6 S
)
- v, l9 t2 c% d {* f- ^& ] C
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
& Y8 ~; r4 N/ X0 ]6 L
(command "rectang"% K% j* g- ]9 c: `1 x5 T
(list (- (car basepoint) lg_width)
& V% W0 G2 o- V7 [8 w
(- (cadr basepoint) lg_width)- g+ ^4 @! {; O" r8 l' d# s# { R
)' c. E! p( b$ P, i3 b) m
(list (+ (car basepoint) len lg_width)
0 {0 Y9 [ V2 H( P- y+ n
(+ (cadr basepoint) lg_high lg_width)9 U! D" s; w- i/ _1 N5 t0 F
)
6 U% p, {. C2 `1 c0 m+ K
)
- E" b! f0 T- B
;;将指定点移到其右侧A距离处1 }( {: @* F' ]! g) F
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint))) I6 p$ m% f* f8 Y9 O. \1 a
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆9 C/ ]7 G: F5 ^( [
(command "rectang"
* `* e( r0 W$ @5 E
basepoint# Y: a- e$ n; H3 o
(list (+ (car basepoint) lg_width)
2 t/ C/ M5 F' o1 V; D
(+ (cadr basepoint) lg_high)
1 V* O* S7 [/ ]9 R
) @4 x2 }% ~$ j5 |8 Z0 v
)
; h. K- T1 t* g0 r, m
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
, {5 K m: F& F9 p) R' G8 q
(repeat (1- n)4 J1 i J3 E: E$ _
(setq
$ V- N# ~, R$ L+ L7 y- W5 C
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
; W% |$ L! U( z5 J0 ]( q
)
5 H; Z2 {6 U2 d8 E8 Q
(command "rectang"
1 h: @* ^4 K8 z2 Y3 B! S
basepoint
! {' i& e8 r* T. K( b% @! M
(list (+ (car basepoint) lg_width)
5 d3 y, K/ e1 f: c# u5 x* z z
(+ (cadr basepoint) lg_high)
5 k1 m6 n. Y7 n- D3 x7 i
)
2 n" R$ P" H9 G: f5 {3 B
)# S' B+ c. g6 G# l3 D
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
: z& F$ D( E2 w. c1 y9 S- Z% [4 s* B. _
(cadr basepoint)
) Z; _# ?5 |9 P' `
)3 Y0 {$ ~+ Z9 o: y: e
)
/ \7 C4 G$ O1 X V, l6 e" [: ?0 N3 _
(command "rectang"8 T+ ^0 T0 c' O3 @
basepoint
) P9 t% b: A8 m
(list (+ (car basepoint) lg_width): _- g; [4 p, H" x% B2 Q' E
(+ (cadr basepoint) lg_high); L+ ~! Y% u+ n3 V6 W
). K, ?1 s& A0 E, ~- n; Z
)0 p$ M. p* e$ \( B* ]) N
(setq
6 | e. H9 Z5 Z! C; M& Q. @
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))( \, X! f% ~- B5 A. d# H" E
)$ v( l5 S4 y5 U0 h4 W
(command "rectang"& l8 Y% [3 l/ t! N* d
basepoint' ^; L8 n% V4 o ?' B
(list (+ (car basepoint) lg_width)% D; o- Q' |- O, F
(+ (cadr basepoint) lg_high)
- y8 X/ L! M# p [/ M. f
)
$ U& N# h j9 W4 v" Q/ A4 U% Z
)
' _6 ~* [, Y% {1 h! v; j) c) q e
)
4 P7 S3 H9 v" J
;;恢复对象捕捉设置% B5 s3 |; f) e" `) f/ `
(setvar "osmode" oldosmode); A& f/ }* H. v2 I
;;打开命令回显$ ~' r0 ]. X1 ^3 t: S* R" y
(setvar "CMDECHO" 1)
) o$ B" l4 ?6 Z5 a
(princ)
2 K: q' H% x, l% `1 Q" f; \
)3 ~/ a, L& O* H

复制代码

PGF000 · 发表于 2010-7-1 09:40

楼上的太深渊了。

xyzyshl · 发表于 2010-7-1 22:15

太深渊了？晕倒

		自动登录	找回密码
密码			立即注册

[练习] 作图03，求a=2b

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源

浏览过的版块