作图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 发表 3 q+ u5 j" g6 c5 `% J
直线分段方式，a=a=2b
. q/ z& u# F4 Y8 G1 O: y! Q
4 w1 N) ?& l, Z! i7 C: _: o

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
6 E4 `0 h- j3 ]' d7 f1 I8 F6 V; s; R, W% _3 z8 L) B
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

- S! ~9 R6 E2 i! ~0 N+ |
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)8 J+ X9 u+ w5 y& C( h3 a5 V
;;设置栏杆高度和方钢宽度默认值
. I$ y5 c; C/ `
(if (not lg_high)- j$ L7 P/ k4 h: A# `
(setq lg_high 500
" i$ c7 ~5 ]- h' e
lg_width 14! H; M9 \5 v: v
)
( Q* Y7 B4 L9 m9 k6 }
)* O4 b+ z7 \1 b4 M
;;指定图形插入点+ G! |/ W/ V. c( _" K
;;不接受空回车
1 n+ E& S* C' r: u9 `) \- B
(initget 1)2 P e( |' P. M$ R% c- K' X" u
(setq basepoint (getpoint "\n指定插入点:"))! l3 H& j* y' `" |. w" [1 x$ q1 @# z; }
;;指定栏杆长度和栏杆高度和(或)方钢宽度8 @ R; O6 G/ b: ?/ K) K
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
4 \) { Y' J* D$ }- j9 k* q2 o
;;用关键字指定栏杆高度和(或)方钢宽度后. o+ A H, [% X; U: N7 {
;;需要重复运行指定栏杆长度的代码段
* a$ K1 |! J& G3 l
(while (not len)5 {- N1 b1 z( I
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值 }" y+ m6 F' c" L( I) q$ _
(if lg_length
3 a1 \1 _1 R o. S& X* I8 z
;;存在默认值8 D( p) e( \! t3 q# l# D0 s7 N/ V
(progn
9 j4 `" U# q1 g: @) ~
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"" e# i2 g1 N% w( ? Q& r
(initget 6 "h w")1 u8 t& f2 p4 w& N' i0 {' I
(setq len (getdist basepoint& A, l6 f/ ~0 o) |
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
3 E: h8 U! R5 P3 \1 X6 t
(rtos lg_length 2)( k, j" M7 X$ Y5 q" k
">:"
, L! \8 n! M4 t9 ]$ |. L4 N2 {6 W) ]
)& ^, c' ~$ s* Y* K% E; F: h
)3 K, a! b: [/ ` o X' y' P
), S R7 R) W+ A! y" n9 O7 C
;;空回车时栏杆长度使用默认值
2 M& v& }1 h f4 }: i1 `
(if (not len)
# Z" I, K1 c# n8 J# S# ?7 m6 n
(setq len lg_length)2 E" O: @2 l% }7 `
)" f# r" M' s# s9 Z, S$ E+ b: R
). j/ y a1 s! Y! ]+ b
;;不存在默认值& d4 |) L H5 `) U0 F) N
(progn8 ~# y# g! {% l/ q5 ~1 H! Q. o
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
9 I0 K3 K/ \5 O' `. ?' T
(initget 7 "h w") Z; e: f4 j' e$ w \: l0 Y+ t
(setq
% C- r& \3 w ^
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
; N; Q1 k, I1 R: Z( }9 C }, T
)1 t$ ~' H) C7 a; i1 @0 ~# H
)
# @6 w6 D/ c3 Q6 t% u
)
$ m* Y; o7 x/ M5 @5 t+ A, j* S. i
;;检查用户输入的是长度值还是关键字, b$ q9 B/ u5 D( p* Y
(if (numberp len)
8 p2 v/ L$ f4 J3 F* s( f Y- M/ S% s
;;输入的是长度值
- g: g& F `) G- A/ E% J
(if (< len lg_width)) J9 k# _- H3 n3 Z
;;当长度值小于方钢宽度时清空输入值重新指定
! k+ {9 f* `- {9 E
(progn
% [! T5 b5 a- ?0 _2 I# {% C
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
; P/ Y/ p& @2 f1 \+ p
(setq len nil)/ U! n' A: }# O6 }) l7 X! N
)$ P \0 R7 k0 x. b* ]
)
+ Z2 _7 S% \% {+ b$ K
;;输入的是关键字
: d! V$ e; o; t. u" |7 [- W6 X
(progn0 u( J. l/ ~1 C! i
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值: o" Q& }$ @' [9 @2 E5 M3 O
;;用户输入时接受空回车,不接受0和负数
$ H7 D- S( b$ O% c$ @* Q9 \
(initget 6)
. W( d- A0 Q- P' o9 e
;;检查用户输入的关键字是"H"还是"W"' k4 \ G- F" \* u1 V' ~- p
(if (= len "h")
1 ~8 X9 k; h" x7 w- Y, E2 _
;;用户输入的关键字是"H",指定高度" q, k) ], Y7 ~1 T, I; L) Q
(progn( r: d( Y& O$ N
(setq high
( u/ c. i3 W8 X- Q0 z5 g
(getdist basepoint
0 I: a+ S, A+ v- N5 l$ D
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
5 [2 x; u3 Z( W7 ?0 X
)
. B% d( h3 _8 R6 a& Z0 b
)
1 v' s9 A- e8 [9 R) o' \
;;用户输入新的高度时修改默认值
/ _6 M( X% c; a* {" J8 q# z1 W
(if high/ C$ c/ h6 |7 c8 i8 `" L
(setq lg_high high)# k+ [1 {+ @% ]- ]/ ?
)
. k9 k; K( z. _
)# C e* A* u: S& Y. `5 x
;;用户输入的关键字是"W",指定方钢宽度
+ u) J2 V ?0 H p% |
(progn
6 {4 [: e' f5 J7 l7 ~1 D
(setq width1 b9 K+ j& E$ ~, b2 c; \, Q
(getdist
0 }) W0 ?; w$ O& B" _
basepoint
" g5 q! _. Y& P( }# h" C; x3 E
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
4 y+ F6 S/ l1 T* _ a, }) M
)
4 Q7 ~4 ^1 \2 D) d! r7 O; _
)
/ i- w ?9 n; G. {) v- l7 o [. p
;;用户输入新的方钢宽度时修改默认值7 ~8 C& q: v( e, k' H) E( R
(if width2 L, f! s9 L& x5 C+ @! Q; E
(setq lg_width width)
+ n _# V0 v8 L, ]
)
( M Z4 C, b. l8 ]. v: b
)
) w: T# V# ]7 u# ?
)
4 ^4 s ~5 ]; x* b
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度$ z5 w/ L* g; v4 E2 q
(setq len nil)& J/ b; D) F% u' {1 H
)
0 r( M m: C$ C1 }7 S" a
)( Y; w3 ?4 r& \3 L; v2 }
)$ i0 Y& t) R+ Q2 P4 E
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
1 z8 s) i/ {' ^( t, j
;;计算用户可以指定的花形数量的上限
/ }) d; l* \' Z3 n; B! ?0 Y1 P( D
;;用于下一步检查用户指定的花形数量是否合理
$ d( ^' i s( k0 @" O( Q0 g
(setq lg_length len" q9 J" f8 B4 e# q
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
% b% [2 r" c0 B3 F' U" U
)6 ^6 }' C- e$ e9 j$ d2 R, R5 q) q
;;指定花形数量或A段最大长度
, q9 b. j* l; n" G
;;如用户指定的是花形数量,则按用户指定的花形数量画图! h+ `0 u# k# L7 ~0 R' V) X1 w
;;如用户指定的是A段最大长度0 d/ W2 v& S6 x( b% A
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
3 i6 s( l, J' D2 c7 r$ a
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
' m- p% ^" A+ D/ @3 I
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解2 \' x9 r, N6 I! S8 [9 K
(while (not n)
Q4 C `) H% K; C
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
9 O" K4 c& w q3 ] s
(if lg_n
+ ^2 ~# p; J2 M, O) r- \* z# H
;;存在默认值+ ~- v1 X9 S! Q" M# V. P2 Q
(progn* R% M9 B* U$ E2 g0 p7 ]
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"$ u- _7 U) d7 t( @) S3 |7 k
(initget 6 "l")
$ ~8 c$ W; j7 A9 e5 M! n( J& e
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
% h, k1 i7 I7 W- m0 f7 k
(rtos lg_n 2)
9 w/ |& C6 k' @( h& K# t6 R: h
">:", m. Z" u: A# `6 P3 U+ R" ~
)# C M) s4 w7 y5 R, O1 w0 A. }
)
! O8 r) R7 `: n/ B8 q
)
7 \8 I8 O. U) F' C0 B/ p% K
;;空回车时花形数量使用默认值: w6 Y" |: @/ {
(if (not n)
3 w0 e$ h% i4 }+ \3 E+ L9 r
(setq n lg_n)) e' t7 E% _$ G2 }/ Z- H4 x
)
( h7 i( B( x7 g0 D( K: ~
)
2 j2 C' F( r0 D2 b) }
;;不存在默认值. j$ m# l4 P# M. x: f7 d
(progn
5 W5 |" U1 A) P n. T' c" s0 ^6 z
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"2 |. P5 r* p/ G$ v
(initget 7 "l")
Q0 [# ?" K$ o2 Y$ |6 \* A1 v5 ~
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
)4 y6 q9 x' }6 X$ Z' P, c
)
o. t1 O8 L' x1 p8 a. b- I
;;检查用户输入的是花形数量值还是关键字
. ]! N/ d3 q# D( F* b
(if (numberp n)
4 {# G5 Q0 ^7 i3 `4 q) B9 _5 t
;;输入的是花形数量值; T; T: z& r+ ^9 w9 D$ V
(if (> n nmax), X N5 e* g( p1 x6 q& ^5 P# U
;;当花形数量值大于上限时清空输入值重新指定: `8 R( D$ o1 ^/ I9 _( h
(progn7 _( W V3 t! N$ S) v V, f
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
# R4 V+ Z8 Z, `8 z
(setq n nil)
( |* h! a2 p7 c$ H v
)
' a7 D* Z2 Q& L/ T5 c5 p; \
;;当用户指定的花形数量合理时存入全局变量
) C! D- e$ ?" T, [, n# e/ m/ j. @- L
;;以便用做下次输入的默认值1 v* Z4 Q( C0 G0 U0 z; Q7 {# y" ~ b' C
(setq lg_n n)
, P( y. `& H3 f6 }
)8 D' W" B% m9 P' W! C' p1 }$ U
;;用户输入的是关键字
1 l' _- z* ]( Z/ V2 | g: t
;;指定A段最大长度0 V% Z* N4 d3 G7 ]1 p {
(progn( H) J) o) g. o& t5 A. Y
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
3 M# s Q; ]; S4 C% |
;;否则可能导致无解
* q, d- G+ |+ ^% Y4 i
(while (not amax)1 O6 P/ g# _) Q/ F, ~% u
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值* i3 D! h1 E- T+ C( z
(if lg_amax& {7 [9 \& i) m1 v& T
;;存在默认值
(progn
' K7 i4 R4 ~& {6 U$ |
;;用户输入时接受空回车,不接受0和负数
$ D! a2 O7 a+ \6 a* G# {. x
(initget 6)
6 O! Y P7 C# Y
(setq amax (getdist basepoint
. i, ^2 s/ A5 [ C' T" r
(strcat "\n指定A段最大长度<"
! o6 w$ I5 t. {! V
(rtos lg_amax 2)
2 v @9 i! r9 G o- }+ z
">:"
! T& c/ u( p; z/ U
)
* b$ d0 I% F: q
)
' {) n& a$ d8 D5 b( H: X$ r) O
)
/ r4 Z5 p$ S' l
;;空回车时A段最大长度使用默认值$ Q6 o: q( U. F
(if (not amax)
! S3 y. z1 W6 N q: _; _
(setq amax lg_amax)4 Z& ]1 k0 w* {9 S# [2 b8 y+ v
)
1 m& P i) z4 @5 \, z, J% C# T& F
)
2 P9 S R1 {5 y" |7 ]
;;不存在默认值
6 j. Q3 u" O, S( e, k0 ?9 R/ R- t1 G; r
(progn3 K5 L; L3 h% A- o5 u5 ]% e0 R
;;用户输入时不接受空回车,0和负数
7 ~* i- y# V& l" z/ ]
(initget 7)
Y% ^1 K+ U. P5 c/ X" Y
(setq
3 D, h2 v9 C' W6 c2 ~
amax (getdist basepoint (strcat "\n指定A段最大长度:"))! n$ n a! S* S& o$ C
), [3 j& C6 X" u, J4 d4 ?
)
* d8 h# }/ R3 x# K
)) E4 h# \2 H: I D
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定6 P6 R+ ~9 V# L: k9 A! \
(if (< amax (* lg_width 1.5))
* F( ]; j3 k# l2 f" Y
(progn
: o; z: s; D% n/ l+ I5 Z# Q
(prompt (strcat "\n指定的A段最大长度不能小于"
! V4 p* }5 w' b# n4 I. S" @" Q
(rtos (* lg_width 1.5) 2)
U: F4 W' k6 n' R$ \# j/ ~
)3 x1 c- `6 N5 r$ X
)8 D5 D. J3 q- r/ x& x
(setq amax nil)5 n) j: y* T6 t `2 l
)4 K S$ S$ t5 m# t
)
, S: a. O: ?0 o% f( J# l
)) N% A5 [, o5 b1 y! {+ @
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值1 N, s4 U: F1 k2 U
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
" H6 G/ j" d/ ~# W" G N
(setq6 P' ~) @5 N" g/ y, V/ l
lg_amax amax" |1 @$ E, q) R& W" n
n (1+ (/ (- len (* amax 2) lg_width)8 c0 s) e0 o2 _3 K5 c& q
(+ (* amax 2.5) (* lg_width 3))
2 m, v& z: b! ]3 ?$ \2 G5 J3 I
)0 E* w! n& C0 Y, p5 h* A6 J/ p
)5 E$ E9 L% N5 A! [6 R4 X( N+ Q* E d
)
9 v$ p6 f1 x- N3 a
(if (> n (fix n))* K5 [/ i* F4 s# g: Q, ^* `% `
(setq n (1+ (fix n))): Q* W% I8 q8 q& P9 C+ J
)8 g, u, z+ R7 O8 ^" H
(if (< n 1). G' p0 h% a, I1 f3 |& X
(setq n 1)
# @6 ^& p+ D5 u H2 P- Y7 i" H; M
)7 o% t3 [4 R$ _0 J. ^8 u& S5 u
)
3 t1 X. Z J/ j: J3 x0 W
)
3 n" E6 w/ i1 [8 Y, Z+ X- q. w
)
& G; p1 _) ^( S0 E3 u ~. F- y
;;画图
, |- ~, U* Q6 m+ i: ~' P
;;记住原来的对象捕捉设置, }# ], B* L5 K) Y0 u
;;按花形数量计算A值
6 Y* a6 M/ E! x1 _, n8 O/ [& _
(setq) a6 Y5 H* d. M/ S8 q$ n
oldosmode (getvar "osmode")
9 l' H+ T' V: {. y) c* j
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))6 T9 h* j) J& m+ {4 b, T! d
(+ (* (1- n) 2.5) 2)& L+ c3 t# h( i6 ]2 m! _& Q
)
% T9 b9 e* v# n* w6 M; \$ j% x+ L
)8 X4 w4 p8 E# O, h) l4 f
;;暂时关闭对象捕捉
6 R) Y: w' l; S( P/ X6 B1 q H
(setvar "osmode" 0)0 W! F- |/ n1 |( A0 e6 I) x
;;屏蔽命令回显
& A2 A6 K- ^% @3 I) J
(setvar "CMDECHO" 0)
* d# I" o. b9 Y) F5 b+ t
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
$ D E' y3 g& N7 K) M- p7 h9 ^
(command "rectang"
. K, R( T# [* k5 X3 @ h
basepoint( ]; Z' E$ C) {6 X8 o
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
6 ^; d1 l8 w9 C! W% y, d
)
+ f" D, M, Y) X: l' ~
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
3 _' j6 l6 n( t+ q7 k9 C
(command "rectang"2 O F% {0 [2 }! B8 r
(list (- (car basepoint) lg_width)- @& V o6 h1 O
(- (cadr basepoint) lg_width)
& o T: D9 B* o$ I2 a" x) l
)
3 o v! ?; B4 E+ m. S
(list (+ (car basepoint) len lg_width)
7 B: s# }! g/ Q' H' C+ |% u
(+ (cadr basepoint) lg_high lg_width)$ i* \$ q. s* Q4 Y
)0 k6 y* u2 I( r3 V' Y- k0 x
)5 i* n) S, D% }2 U- }0 p
;;将指定点移到其右侧A距离处
: \2 i/ i; v% D, D
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))/ W1 n" @5 V+ j, K4 W
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
8 e E0 e; B( G3 t$ J
(command "rectang"; k6 n: U9 ]5 J& E5 P) J( a
basepoint
( G; a' Y2 A! y6 l, e7 J, t9 {
(list (+ (car basepoint) lg_width)
5 M3 O, q# `% F/ E; }; n9 z8 H
(+ (cadr basepoint) lg_high)
' P, S2 s0 x1 D% p. _ l
)
+ o) G9 ]) v9 w
)
5 Z% ?* ^: E r# I }
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
; o. z! L$ L$ h. g
(repeat (1- n)
* z% j$ R5 k. v* m+ z
(setq: k Y1 R" {" F& f
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))0 t- r# F) \1 u* A1 s' {' L
)% O0 `# r/ a: J3 I
(command "rectang"; ^/ @( Z7 J/ n/ a% {" K
basepoint/ h. {1 R! A8 r
(list (+ (car basepoint) lg_width)
# a$ h% o% F, Q$ A
(+ (cadr basepoint) lg_high)
5 q! K8 j3 O8 {* v4 e% u+ @
)% w, J$ v7 D, V
)
( m3 k8 Q9 H+ ~; x5 t: n
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
7 o' w9 s# @9 S4 D7 P3 p: V* m9 M6 L
(cadr basepoint)3 t3 O- m* i" K% I
): e ]* [4 U$ A6 c' v8 R2 A
)* f. }! ~+ g7 E* w5 M
(command "rectang"
; W% Z* i, W `1 t/ K6 U" r4 N8 e
basepoint
e' \4 n! M1 b7 q9 G& O: E( O
(list (+ (car basepoint) lg_width)" x0 n5 Z- ?3 D0 i+ E3 K$ ?
(+ (cadr basepoint) lg_high)$ P, J) C& M, l8 d: m( `8 w
). z0 F4 O% V% q
)
# Z. {* E v7 B8 r* b
(setq
. t- Z5 s$ c4 ?4 q2 u, h+ P
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)) r# a# F" ^7 @4 A4 d2 o3 R5 n
)
0 D9 G% j/ G; x7 u2 M, n
(command "rectang"
8 W5 o0 r; c% i( u! T
basepoint9 p! w8 B) C, [3 B. b
(list (+ (car basepoint) lg_width)
* q* m6 D: Z0 f8 `5 p
(+ (cadr basepoint) lg_high)
6 s- F% `+ q& U" k1 l% `
)
0 d5 N1 b. G6 l$ H! f3 r
)
) x1 \' y8 D, T; m
)
& Z" @3 i8 A N# n3 i k5 M! u4 d
;;恢复对象捕捉设置8 ^- N* ~; X8 s/ A( ~
(setvar "osmode" oldosmode)' ~. n2 k" \' o4 {; t
;;打开命令回显" d" e$ J6 @# p/ ?/ w2 K' C
(setvar "CMDECHO" 1)1 B6 G* }2 K+ X" _
(princ)
! W9 r' V" ]# i
)
2 t3 V$ u( r5 j& _7 B

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源