作图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 发表 - [( B# Q" ?8 J8 O
直线分段方式，a=a=2b
% m, A. z4 ^* Z3 x% m8 V4 ~' M
9 ~# R1 y5 G" m5 R

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 6 [$ M% X) f3 D
4 j" F8 I% G, P5 K% I4 E& i8 c
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

& g6 r0 g; x Y6 m2 c2 W5 S* S
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)! U; T6 b: W/ x- f* _' M5 p) N; b
;;设置栏杆高度和方钢宽度默认值 m& J( l1 ]! i9 E' r+ ` w" i
(if (not lg_high)) W% R1 ?; ?/ s; ^2 S" P' z2 Q0 m
(setq lg_high 500 [2 N' n1 b3 ~% ~# `/ {% R
lg_width 14
. `- V# [+ }+ h6 |4 j
)
' ?$ y7 C, U" z5 G) J: i
)
. D' p4 v2 m& Q8 v) B% ^5 A+ V
;;指定图形插入点2 a! m& O) B, O; `2 X: R. @7 P
;;不接受空回车
8 P1 C. @, F- z( `: K0 B9 D9 x2 I1 O( Q
(initget 1)
5 k& I" }; N N+ ]3 A# d9 e2 U6 x
(setq basepoint (getpoint "\n指定插入点:"))
# E: T; X5 m0 p$ V/ l$ y$ s1 y; u" H
;;指定栏杆长度和栏杆高度和(或)方钢宽度
' d8 R! N' l0 F* m
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定6 \( ]0 R4 u' \/ a. b \
;;用关键字指定栏杆高度和(或)方钢宽度后
, ?" i. O1 B: o2 O- }
;;需要重复运行指定栏杆长度的代码段& W# h G% u; p# o* b# E1 K# {) I$ P
(while (not len)# g8 h$ |$ |. Z3 x/ k- P
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值- Z: q, p3 F4 V* y0 r8 T% I4 e6 n
(if lg_length
& @* z; N/ _ Y2 j0 m% r2 `# {
;;存在默认值
" _" B* p. ]. O5 d, q7 d
(progn7 A4 \) }' f3 A
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
" E( ]8 H" t T1 s
(initget 6 "h w")9 p8 E, _8 |8 }8 b
(setq len (getdist basepoint
' ]- @, ?/ F, k1 K9 B$ y6 B
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
$ _ |; C# h. h4 z4 v
(rtos lg_length 2)
; W7 U$ M8 u- e
">:"5 s% i$ ]9 l& x" [% K
)
8 \, h8 c3 }7 k' t
)
7 r) L }% i7 t! _' E
)
# m5 t! i: D: F4 g. v3 f" G
;;空回车时栏杆长度使用默认值
8 P# x- o @- t7 h
(if (not len)
" I# l P3 d5 R, E0 D: ]5 J! n
(setq len lg_length) {( i2 @" A4 O/ D) H
)
. F: M4 E; H4 A8 J: Y) y0 u
)
+ g) c0 I; ^3 O: o( c% z; m0 I
;;不存在默认值
/ `& a; [+ B h' U
(progn% }( f6 Q2 ^) o1 _# v0 y
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
, G w& R! d1 ?1 p
(initget 7 "h w")' j+ K" T% j1 q' x7 E
(setq/ v) L' i( ]7 Y* [2 i3 i% ]
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")2 j: Y: E! [, `7 u
)
3 ]6 J0 p! C% B( [2 N- a8 b6 z
)
) p7 I; g$ x9 `2 |
)
& B$ C$ b. T0 ^9 m& x2 f
;;检查用户输入的是长度值还是关键字$ u0 Y) i$ Z- l. h
(if (numberp len)
1 Z* e. D7 v8 E d- x
;;输入的是长度值
9 |. _- n! D* Q5 U1 Q3 K' P* Q
(if (< len lg_width)* b; O' W( w. I) }1 H
;;当长度值小于方钢宽度时清空输入值重新指定
3 K8 q/ j6 y7 g
(progn
' K3 O% Q" T: f+ k/ [
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
7 ^/ [1 \) Q! W( |2 w3 V) D
(setq len nil)" I; w+ | f j+ Y
)& k/ Z$ h8 U* c! \' U9 D
)4 R& x$ V5 y9 I: R. U* @
;;输入的是关键字% r3 L! K( o% q4 H5 `1 t" {
(progn1 G3 c2 b2 O4 H8 B
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值8 M; G7 Z8 T- ?8 F& ?
;;用户输入时接受空回车,不接受0和负数
! K# g* ?# l+ d) r) [8 i
(initget 6)
9 z8 D m: g3 k3 D4 S
;;检查用户输入的关键字是"H"还是"W". j: A' w8 B$ t1 V
(if (= len "h"); n. c2 p9 d4 ]" m
;;用户输入的关键字是"H",指定高度, f0 }% F+ _0 x* {7 e3 s S
(progn
& j1 n2 q; x$ S! O
(setq high: c8 M5 ?- k1 K3 Y; _) c
(getdist basepoint4 K4 @# v+ i0 W I/ R' Y7 P
(strcat "\n指定高度<" (rtos lg_high 2) ">:")' C f' u5 {# Z9 [4 }1 @0 N) @
); _7 |9 \* F" U" G+ W
)
, u' H8 G# i! d2 C
;;用户输入新的高度时修改默认值
1 P! C; T" b9 p$ ^' E7 A& Y3 [" [
(if high: u7 B) B7 d) e/ y/ w! r
(setq lg_high high)* W, |# x3 W! S0 f% f+ ?
)* \- r; k* j5 @0 y" P+ g5 f1 H
)6 j1 C! b3 y( O- Z* l# t; l& h
;;用户输入的关键字是"W",指定方钢宽度
. |9 j9 z# Z R0 f' g$ I
(progn8 w5 s' u/ ?& m
(setq width
5 p- s5 c; w4 y' F" a D" l1 z) h4 n
(getdist
' n3 X& ~# O; ]( |6 O. {
basepoint
! O1 l( u( N% Q o
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")( O) J. ]1 G9 Y- W% F C% [* G
)
+ U! H7 X* [8 q6 {7 b: X
): q" D1 T' z! Y
;;用户输入新的方钢宽度时修改默认值" E6 x+ j3 l# q& b: o% _
(if width
$ t3 A" _! J* {& ?) _
(setq lg_width width)
" d5 \6 U4 y- P% F9 B2 J& m
)2 o, f3 o: F9 {7 c! @8 n
)
' n) i1 H1 @, a2 G1 Y
)
$ K* ]! Q5 Y. e& `; a/ Z$ W
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度. ^; |/ U! f5 l9 M5 }, Q& s
(setq len nil)' T9 T: `1 S1 M1 y
)8 `5 E: s8 c4 q0 y3 F
), M$ [" F) y7 m
)
9 a, m+ e8 _5 ^' _7 B' V6 W m
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值' a: A) j2 g- f& b6 J3 ]3 L' X
;;计算用户可以指定的花形数量的上限
% T! [% Q" K+ L; h& P
;;用于下一步检查用户指定的花形数量是否合理
! i: ?7 M8 m! @0 O7 {7 P6 d+ R
(setq lg_length len
% k! @& \5 S/ a3 @. L4 K \4 p3 e4 J
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3)))) J6 I6 v. i& \# Y, e2 C4 M
)0 M4 @$ w( r. [" j( F- m1 b1 D/ H
;;指定花形数量或A段最大长度
* o; M) l% |9 s" `
;;如用户指定的是花形数量,则按用户指定的花形数量画图
7 O+ _3 x J+ j
;;如用户指定的是A段最大长度
: y8 G: T# |* V" s* d! }
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图- i! N* g8 e% Q# y- ?6 d: S
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
6 {% Y& t H2 `$ Q3 Z
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解% f; p- e& I6 c3 B+ _, I( m
(while (not n)0 {* M: F6 F( h/ h% b8 Q& K" B
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
7 Z& R* O/ [& s$ Z0 B$ Y
(if lg_n
3 G5 l" H+ y' x9 \; n& Q
;;存在默认值
0 y% C" D5 F7 H" o k/ v% y
(progn$ @6 G" ^; w- x0 g
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
% L' \4 d& R6 R. F
(initget 6 "l")
1 r! \0 R! ~/ Z" }; A* X% V
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
0 j* {- m1 Z8 l( [, g' [- {
(rtos lg_n 2)
! _6 |2 Q6 K. E7 L, v. }1 Y6 I
">:"0 d! L4 Z+ g- s! F7 i: d5 t* q# `
). v: S) _8 S: _
)
; G D% c" y! D" t
)
+ h( @- u4 a% O* y
;;空回车时花形数量使用默认值
+ d, I' c' J: e( W
(if (not n)6 z4 o( @9 m; D# k* j9 M
(setq n lg_n)
5 ~6 L, q0 T/ f7 G
)
9 j3 `0 ^2 b8 [- ]9 o) L
)! D- i6 D# [) M, ?7 ]" ^
;;不存在默认值
p: I5 {/ B' I" r; y0 r
(progn$ @1 X2 r! M2 Z0 ]
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
* N+ O% ~9 c8 I3 E7 M8 S
(initget 7 "l")
+ _- V! D- s( D7 K/ s
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))6 W5 d2 b" f4 P2 Z. A) `
)
4 Y' M. Y& u9 i7 t# c9 p' z4 ]
) s3 Y/ h1 b9 z5 X2 G/ R8 R
;;检查用户输入的是花形数量值还是关键字
) G k1 `5 b" l1 K8 F: I( T" E
(if (numberp n)* ~* g/ {' ], A
;;输入的是花形数量值
6 ?: K" M$ \! j, f; c, H
(if (> n nmax)$ }+ h. f7 W+ ?5 y- k# O
;;当花形数量值大于上限时清空输入值重新指定* t1 m( R6 i3 C _/ I3 Q2 u
(progn$ e. E- K/ c' F. \" s: @6 X6 D
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))3 m. ~* R3 r- |* w4 V1 F* q
(setq n nil)3 @7 k0 R3 _! ~4 d& W4 w
)$ b) C1 c$ f8 a/ U- u; ~+ H; q
;;当用户指定的花形数量合理时存入全局变量* g( |; t) u' T- J
;;以便用做下次输入的默认值
/ T0 K3 i! @+ P6 j9 d) d/ {5 W
(setq lg_n n)! Z8 S2 {' z; ^7 `4 B g
)2 m* ]1 ~( x' U, [' W' G" Q% {7 }
;;用户输入的是关键字
. g! n- Q2 s7 Z0 l
;;指定A段最大长度
& _. e6 B% q& x" m# [8 R: l
(progn
- p3 L0 _: ]" u6 s! s
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
( Q/ X" D0 \- y8 ]+ m% f
;;否则可能导致无解; S. d" I# H+ p$ b
(while (not amax)& ?" F2 t D/ g! j
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值* }0 W7 T; t+ c
(if lg_amax9 N# J/ }( \5 n( y! W4 l W
;;存在默认值: J" K, Y: Q6 g5 d) k
(progn
( } p* D @. R3 Z( Q
;;用户输入时接受空回车,不接受0和负数2 @% _: z" |# c+ q
(initget 6)
/ |) O. ~7 G, }& k
(setq amax (getdist basepoint
! |/ Y+ Q5 P' Q4 K
(strcat "\n指定A段最大长度<"
$ _) M" A! Y' r; p% [7 C' d
(rtos lg_amax 2)
$ }9 p- ]% C8 O
">:". R6 }6 w+ B9 t8 k# m
)
0 J1 N2 Y* U2 i. Y8 F
)
! t8 g4 G( v j2 A
)1 d/ h' L! z0 f" x$ e
;;空回车时A段最大长度使用默认值
. Y2 N$ }1 _& i3 C) j: ~
(if (not amax)" y1 S/ L k; k' h8 b4 B0 `
(setq amax lg_amax)
% }1 o4 p. n* D' j+ {# W
)2 O" C* w( e- D6 _
)( q; t0 X' v) v5 l3 G$ h
;;不存在默认值
. _1 @% v; E1 G4 G9 J
(progn
* \ |$ W- q- v6 b3 W g
;;用户输入时不接受空回车,0和负数
; m& Q+ x# ? J! A8 U1 q6 M
(initget 7)
4 @4 e' ?- x1 U. [' N
(setq
1 J6 k' ^5 @$ B9 _; n
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
3 [6 z- r `% f3 [
)% n3 W, y% V. t- x! w, |
)% e; p2 p/ i- |; v4 c. c7 R+ Y* k
)7 \9 @- A' X* u' C$ z) r# N
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定3 I# C4 d% I" m' z4 J
(if (< amax (* lg_width 1.5)). k/ H* b% B! E9 e# E+ @
(progn3 `7 }7 o# c y$ q7 {) ? Q# Q: [
(prompt (strcat "\n指定的A段最大长度不能小于"# f5 a8 G) A3 {) O7 ~4 S( e- G
(rtos (* lg_width 1.5) 2)2 ?4 h( A( }! ?& z- x
)) @& K3 n. [' _4 y7 ~' ]0 L
)
* f' y5 D1 ]5 [$ W+ J
(setq amax nil)2 e& o: z9 u1 v
)
+ p7 s2 D1 H \. j+ R5 y4 B2 ]
)& `% f1 j7 V1 t' O$ t
)- M6 `! q- G9 l' _
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值/ g# t! ]0 i- c
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
' L q0 E* ?: L$ T
(setq6 R+ V G- ^- h1 _" Q4 e N
lg_amax amax
' k4 ~+ ]+ E9 I6 j9 Z# y p( G: @
n (1+ (/ (- len (* amax 2) lg_width)
+ [0 M9 V7 Q; n" w+ a
(+ (* amax 2.5) (* lg_width 3)); \& L- f2 Z5 _7 y" Z
)8 F6 m4 z) ]* s0 C
)
% N: W- f5 N- w" f
)
$ K5 \* s0 y, N% f
(if (> n (fix n))
9 l) w# C/ B# s3 |" Z$ h
(setq n (1+ (fix n)))& j C# T1 V" j! Y" l+ g; m- W! z- k
)
2 k7 v; j2 S! S& J2 U
(if (< n 1) S& {9 C7 i' c d: W
(setq n 1)
, Z8 F1 F' A' Y& U/ v
)
+ q3 i" o1 w8 A; p+ K) O/ f
)
" ^$ D- G) h! R2 d
)
. ?% }, |; }: c. c# l" w% D
)
2 `& B s) u: R) G; {% _( n# l* d
;;画图% v( t+ `6 V. ~5 F4 c
;;记住原来的对象捕捉设置. b& I! Y# D+ r% f- ^; T1 e A
;;按花形数量计算A值
" C& f) Q+ K; I; z, J/ W8 T
(setq `- p" O3 U/ b8 H7 z7 l
oldosmode (getvar "osmode")
6 T0 {9 k1 W7 ~
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))9 R! T2 I$ h' ~7 e8 i- j
(+ (* (1- n) 2.5) 2)
0 M7 y' d g6 p% g D
) g, v" b1 u: F9 B$ n( C4 M3 M
)
0 y5 E/ M, I" [) y
;;暂时关闭对象捕捉0 ^/ [! @: g. b! K
(setvar "osmode" 0)
( q9 W# L. ?4 y
;;屏蔽命令回显
- F6 v( J6 ^/ g% C9 w
(setvar "CMDECHO" 0)/ B/ G( _8 N+ k
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形) o2 N- \. g- k2 a# g& O6 }
(command "rectang"
; V. e+ [3 b. Y" ]7 X/ i# t8 t
basepoint. ]0 F3 j5 {$ B
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
; X0 d* L3 j( `9 ~' s
)
( f3 C. A, e% x# S
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
0 j0 [5 E: s5 j# w/ e0 P
(command "rectang"! k/ I, c( N+ G: g9 }
(list (- (car basepoint) lg_width)
) r; F- l5 w2 \/ o( _
(- (cadr basepoint) lg_width)
% Z4 O# _) e* H) _# L; ~
)8 o6 y+ C( K$ G
(list (+ (car basepoint) len lg_width)
8 F5 P" @3 E( G1 a
(+ (cadr basepoint) lg_high lg_width)
/ Q, \* U3 G+ C" B9 T" N& Y
)
7 c" q4 k5 Y5 O' F
)" L" X4 M2 U$ T/ e* y
;;将指定点移到其右侧A距离处; ^: J) Z( M8 b3 G$ m/ }- E
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))$ C3 O. |; Q# _; M% ^
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
0 Z& B7 {7 G5 v* Q0 _# f
(command "rectang"
h7 ~' Q0 l; s7 y/ I) V
basepoint
' }" \/ C- y+ y+ w
(list (+ (car basepoint) lg_width)% J) E; s5 r; W0 [ @9 _
(+ (cadr basepoint) lg_high)
3 ^! C; z# W1 ^: b0 K
)
. ]+ U) j; O9 G9 K4 r5 [ T
)" p9 I6 N7 H8 _. ?
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)4 ^. l8 ~. _0 z. e' Y/ X( N
(repeat (1- n)
+ l2 z6 s' a" \
(setq
% r+ ~( K2 Z# a1 o' ^4 {/ S
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
, b5 k2 Z8 {8 o0 a$ C
)3 Q6 ?; c2 n6 R. T
(command "rectang"
g, J" D9 L: u# G
basepoint
; ~7 u5 i0 D, Y2 ]3 h
(list (+ (car basepoint) lg_width)
3 j j$ p7 \. ]9 a. T
(+ (cadr basepoint) lg_high)6 `4 d3 b8 t- Y5 H C
)6 i! c( V" A6 F& m3 w6 x2 y" ~" u6 b
)+ e) R; x# G0 y% I' E0 `2 C$ A
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
: x3 A9 S' z) d
(cadr basepoint)/ w% ]6 j# O8 T; e8 k- H- C9 {
)
! V6 R- S% b2 n
)
7 ]3 K) o" z% h& V& ]( @
(command "rectang"2 k# H& g' R5 w2 {9 q) |: {
basepoint$ ]' D# _- H9 ]: X: Q
(list (+ (car basepoint) lg_width)
4 q* F' z" a& @9 M9 C' C) U1 C" ]
(+ (cadr basepoint) lg_high)
7 `( p2 n6 e6 d6 o7 |
)
+ y" q+ n/ w6 i# R0 B! D
)
6 Z2 s/ H; j8 }4 T+ C# r
(setq# k) O. a. _: f" n4 `- e" {
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
7 T$ L: D, m7 r5 |6 S
)
0 n( t, f- U2 c3 {0 Y T+ Q
(command "rectang"# |) C% `3 ]: n) o! _
basepoint5 ?4 V* \% J) @* t% F
(list (+ (car basepoint) lg_width)# z6 O+ {6 q' h+ ?
(+ (cadr basepoint) lg_high)
* K b2 {: j5 c! {
)
2 c' n# `0 v3 a% u2 u$ s4 @
)5 H& E% v9 A) h% W+ l, s
)
, [2 \% \2 h+ i+ C: J8 w. P' s |
;;恢复对象捕捉设置0 O$ o; e: c4 h
(setvar "osmode" oldosmode): l, m) A7 u* l4 h1 M, c
;;打开命令回显! Q) O3 D( O1 S% O5 U- f
(setvar "CMDECHO" 1): \- \+ k1 [, _4 t$ N0 w' Y
(princ)
4 m( S, \4 Z r
)/ y5 D6 K k. z. d: Y2 Q# q

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源