作图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 发表 & c T7 r9 J! h& E* h8 Z4 a$ f) _
直线分段方式，a=a=2b
' y2 s Y' I2 {; V) @ a2 G# n( U& k) l% ^6 j: a

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
% Y8 I7 o4 n3 |' N, F
8 y& Q6 c, B" m距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

; e7 m# n3 v. q+ d
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
6 L+ g9 P: [# y$ h- M
;;设置栏杆高度和方钢宽度默认值) b v7 q6 V3 w4 ?* ^. i2 Q
(if (not lg_high)
) @! R6 d) G5 C" b4 L- F" z
(setq lg_high 5005 Y/ D5 h$ F& y( J. p
lg_width 14) O2 U" U1 R. G8 m+ r' |7 i
)6 w3 d( ` y2 A
), u0 l! I" ?- r. M
;;指定图形插入点
# F" C- N/ c/ b& B) E. f
;;不接受空回车$ l0 o K: X( F7 X2 G
(initget 1)
9 n. { S4 ?( ^) d0 _) \/ }
(setq basepoint (getpoint "\n指定插入点:"))' J; M. c4 T2 n; w# d; e
;;指定栏杆长度和栏杆高度和(或)方钢宽度' G6 l$ }! X: S- x3 }) ]
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定, m- x i) }9 o
;;用关键字指定栏杆高度和(或)方钢宽度后' Y" L: w/ Y' g
;;需要重复运行指定栏杆长度的代码段
' f7 L. U# r, D* B# y4 W
(while (not len); e7 X, `3 f% s7 P
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
# [0 v" h4 Y9 G1 |
(if lg_length% s& ], e4 s& f" t9 Q
;;存在默认值
- X% B& S' r* m( D/ s) T& K
(progn+ H# @' l# K# L+ s3 R2 n
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"( ~6 F# Y, p8 G2 R
(initget 6 "h w")
- F! j. y$ d1 N) J
(setq len (getdist basepoint9 m3 G0 D5 A9 R
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
# ^. y& i. A0 `) {5 x7 n
(rtos lg_length 2)
3 G" p/ U& h5 A
">:". B! S0 g5 F; Z9 z8 Q6 t) E6 E' G
)
% ^. z$ _/ v, E
)5 z" R) @4 }0 m' n1 D5 K" n0 T s# q
)
# g/ {% ], i1 W/ l
;;空回车时栏杆长度使用默认值
& b' L" g5 c" w0 _" J" W+ R
(if (not len)1 w& Z! x. t- J/ x! f K. d5 x9 F
(setq len lg_length). Q3 N9 b7 _ Z0 y0 e. c
); H9 ^3 U) W. b3 n' ~( Y& s9 u8 W! ~
)% k6 k% ~! Z: ~. c, [- V
;;不存在默认值
; V) h) @8 z% ^, c, N
(progn# F- t' p+ }* ?3 t# B; m5 v. E
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
6 N! L" b* T" r. e
(initget 7 "h w")
" L. G# i- j5 h6 M
(setq. m, h& ]1 \" s3 | d
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")6 K( y8 S+ W) [) i
)( S- ^2 e6 q5 Y( g/ C, l6 v5 J
)/ a. P! W% m5 ~" ?( f
)* o& x8 ~& B6 H5 d
;;检查用户输入的是长度值还是关键字 g) h. V1 W9 L- b/ q4 U
(if (numberp len)7 R m( j. x( B$ P' S9 ?5 m
;;输入的是长度值
) C* j, J a# y1 \: C7 p
(if (< len lg_width)
% |% F. s) j. m; L+ ?2 E0 U/ R# P# X: ^
;;当长度值小于方钢宽度时清空输入值重新指定& r& `6 [" r2 a Z5 b
(progn8 z' [9 S: J' k( I
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))' W# n9 v2 l& W
(setq len nil)7 U2 [( _" e. o
)3 `( P* d, g8 [* v, Z9 i
)
# g4 K& z9 \4 _1 ^- n+ M2 b; L
;;输入的是关键字
9 F# w6 M* [* o$ y" z: B6 ~
(progn( R6 t N) q$ ]5 G
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值1 {/ R' M# V! G* V8 g- f1 Y# \0 m
;;用户输入时接受空回车,不接受0和负数
" ]! S& h9 ?/ y
(initget 6)
4 m% D2 C$ m- B! t: H
;;检查用户输入的关键字是"H"还是"W"5 a* @+ Y6 ^! ~+ K2 {0 a
(if (= len "h")
7 d- i- q2 C( Q# G3 Y6 C
;;用户输入的关键字是"H",指定高度$ K9 x$ k9 r+ j# |' @
(progn
. o! X( _ Z% v* ?
(setq high9 Y1 x# Q" T1 S# o
(getdist basepoint
" \- S. `& o! Q# t( Y" q
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
) n* U! A) f4 b w c
), ] a& Q) g/ q" w4 z' y# d
)
# R) {/ i* ~, ~' n( _
;;用户输入新的高度时修改默认值 U* x; d5 M$ e: C/ ~
(if high
/ ~ U8 [6 X2 p- R/ N2 [- V* ^
(setq lg_high high)! B1 d+ w2 i! M6 U' K3 B
)% J. f' b; y4 L
); ~7 \* I6 F9 B
;;用户输入的关键字是"W",指定方钢宽度2 x; |* p; t0 Q* A* X4 Z
(progn
+ q! L$ A* b! W8 T% Q3 @
(setq width
. M* C' Q) b7 { F
(getdist$ D* U- n7 _2 S% b7 t
basepoint
) h2 \1 C% S/ W, l+ F
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
& T: D7 I& O9 D8 U( B
)
- s' x1 p9 i$ m+ T6 i
)
; b+ r* D: z% G" B
;;用户输入新的方钢宽度时修改默认值2 E4 H+ s, p5 s
(if width3 S Q# V' d Q' C
(setq lg_width width)
! M. C/ P4 Z8 g) Y7 c% n5 s- y
) O" o! v0 ^4 |* r! E a
)8 a( B p% r* ] p& D9 Z3 B
)8 }( Z. l2 U/ a1 i
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度) L5 C8 e% s2 n5 ~9 a2 q
(setq len nil), `+ @- o; o0 ?6 m, Q
)
# g5 j5 o4 [: |+ C
)5 r* m: k) j; F2 r1 @
)
5 S9 m( _1 M8 R0 w
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
$ {9 V+ J# j3 l- G* l
;;计算用户可以指定的花形数量的上限4 y; d" K, O T
;;用于下一步检查用户指定的花形数量是否合理
) R4 g/ p8 O! s5 [) I1 n
(setq lg_length len# j9 I* d& i' L2 }% a. P! j
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
" Z+ k, X0 C9 |& B: s
)( |# R r+ V0 l3 q
;;指定花形数量或A段最大长度
; b: [ {9 d5 ?& }* s/ ~" K/ m
;;如用户指定的是花形数量,则按用户指定的花形数量画图# f$ M/ U5 k9 Z+ Y+ K1 ?
;;如用户指定的是A段最大长度1 x# W( ^; w T9 m8 J' I1 j1 z* k
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
) {; ?5 i# p$ ~
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解+ x( L4 ?" \6 k
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
2 @9 D( q+ D/ D @
(while (not n)0 D$ O5 l+ b8 f. j+ _% b$ K. H4 j( P
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值8 d; K- I/ ]& A& s' ^3 a
(if lg_n: U* m+ U& a1 s& D) `' g
;;存在默认值
$ s6 j9 c6 X3 a) j( N
(progn
2 W X! ]: b& V; H& i! o
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"6 {/ {, D0 P# r w6 b2 q
(initget 6 "l")
& T6 x7 d% u; k w& M
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
" m, P9 r, V6 v0 k% [6 d' }
(rtos lg_n 2)7 W! k! X5 p# Y8 m' `7 C
">:"6 t g* l1 O3 a; \! l
)
( n$ |8 b" T3 S9 U* N) i9 w8 P
)
& M- ?' m$ K8 I6 X
)
$ T1 W9 Z* _4 A# O
;;空回车时花形数量使用默认值
' x. d, w+ Z: e: o
(if (not n)
; v }6 L& L; i/ |
(setq n lg_n)
* G) d( O7 v1 D/ }) P
)
& r3 g4 J% K1 S P
)
) L8 i1 Z* b) q3 S; B
;;不存在默认值
(progn8 z# B/ l$ M, j( n
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
1 P1 M# Z# I- {
(initget 7 "l")
2 F6 ] ]8 J. x B
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
" ^8 p' }5 O" x
)
( C" J3 U% `1 H. o2 K9 f) y& \
)
. p, Q$ N5 {8 G: j
;;检查用户输入的是花形数量值还是关键字& m- I' u9 M: g1 [8 d
(if (numberp n)5 m* N" G c$ c# e% Z1 {
;;输入的是花形数量值" B3 O7 f: B. ^. X9 ^
(if (> n nmax)
4 u5 |1 T3 E& T$ V$ }' `) s! j
;;当花形数量值大于上限时清空输入值重新指定# d- S+ q7 b& m& L
(progn7 F9 K4 `/ y& |) p+ Y2 |
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
0 b1 \8 e0 S: S
(setq n nil)/ s/ ] s% O5 o5 Q8 L, {3 W8 O1 N
)2 R/ o3 A8 k& f
;;当用户指定的花形数量合理时存入全局变量
/ \& I/ o5 c: k$ ?: j; A
;;以便用做下次输入的默认值
8 a" i; |: c1 _. u4 h
(setq lg_n n)! F/ {' m0 P ^
)
0 F8 x& I, c7 d1 }3 I7 n
;;用户输入的是关键字9 O z3 ^/ K, j$ Y
;;指定A段最大长度
) w e. P- e% T0 ^% W( S% G( q' j0 \
(progn
0 m% a0 h( D* k! T0 j% ~
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍) A: E/ m1 {* m3 M0 n J1 X
;;否则可能导致无解$ d. Z4 r, t. X |+ \6 E! a2 R
(while (not amax)( i( {4 [( }/ u5 a1 I2 `1 E# ]
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
& |5 Y" x' y2 p
(if lg_amax
3 s7 D6 [/ _: B2 i
;;存在默认值/ C( e8 b. D4 B! v$ S0 @
(progn; }, j3 t( h: A+ V" m( o/ V
;;用户输入时接受空回车,不接受0和负数
$ e' d1 l& p8 ~9 |
(initget 6)
. w. T+ v$ ]4 D$ W4 y$ u, l& e
(setq amax (getdist basepoint
) C! R0 K. t6 H) H$ U( a
(strcat "\n指定A段最大长度<"
0 O+ e* n9 U, g: ~# ^
(rtos lg_amax 2)
5 E6 w3 z+ g; f9 u5 n
">:"
0 k' I3 w( C# f
)# i7 f$ Y0 p: v- G( i
)
0 L) X4 [3 U+ Z0 F5 }
)- M& d( s% S' j* R
;;空回车时A段最大长度使用默认值 w6 w2 x& E+ v, a! T. J& j/ ]
(if (not amax)
# r p, B0 P7 a; N; d3 f) @
(setq amax lg_amax)
6 W/ j( o$ f; K8 [0 u5 S
)
5 o& m4 o, s) |
)
0 \% X$ S. ^6 p2 e' x3 i& c
;;不存在默认值
4 _$ e H9 r2 m# I
(progn: A* r( o/ U0 u4 e3 x
;;用户输入时不接受空回车,0和负数. a$ }2 u4 m) @; D# `5 K2 A
(initget 7): O; K3 P* Q# x, @% C5 g, I
(setq
+ `+ E9 k' d* G
amax (getdist basepoint (strcat "\n指定A段最大长度:"))* Z. p. y' X8 a" J$ ]
)) M' b7 N! J+ ]! N8 a8 ]
), v8 D4 Q7 U5 `2 N3 D5 _ o
)+ y# K0 E! c3 \8 X: b
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定5 X8 e. }% z* t6 F; P1 F2 k8 c
(if (< amax (* lg_width 1.5))
$ U" D+ Q( V" s
(progn
7 E" t# ^$ x* x: R
(prompt (strcat "\n指定的A段最大长度不能小于"
7 Y. ?- B2 L' F9 {3 |( {
(rtos (* lg_width 1.5) 2)
' ~ K, f7 S. ^
)
' `0 J8 O/ }$ E( I) S: t* `5 k
)
, T0 o8 @# f6 r( b: ?
(setq amax nil)- i: Y, Y! ^6 r
)2 C. S5 w3 \7 F/ t
)
8 |% T, }5 @1 \0 I
)$ T5 J6 W/ L$ x L( l' [1 {" [! |- e
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值. _ e `# i5 d1 o/ W
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1! G: w, U- \0 k1 k& F1 L; p
(setq
+ f3 z! `+ } b+ \: D3 Q
lg_amax amax6 ?9 W3 i/ ~+ M: H
n (1+ (/ (- len (* amax 2) lg_width)
' U1 [( I- t0 F( W# H9 W
(+ (* amax 2.5) (* lg_width 3)). L) G' @* F4 q2 |
)5 _/ \3 s6 |7 X& v% j- L
)2 v( T+ P" L: [9 X& q/ r
)
9 T" h" N+ x6 T5 e3 F& w% f- B" [
(if (> n (fix n))% Q: ]- P" Q* p6 x* E
(setq n (1+ (fix n)))
+ Q- P" q+ o& ~. Q' o1 w. Z4 J4 y
)
2 V" f" c( b- v( N9 N0 {- w
(if (< n 1)( a7 l) d1 `% z* N" P* Y. m1 h
(setq n 1)
$ |1 a; Z9 j2 x% ~3 y' ]/ z
)7 N: F4 {% P g8 h$ q
)8 w9 q4 i7 _0 d3 `0 u
)
( F }' Z! \0 v; C9 O
)0 a3 j3 ?8 S, ?. B ^
;;画图
$ h& |' c+ d6 |, R6 ~0 ]+ j' j
;;记住原来的对象捕捉设置
: i7 u! ]; p; I
;;按花形数量计算A值% ^) e5 O4 y- \* w
(setq2 t3 n- O0 [. O: |5 c- ?
oldosmode (getvar "osmode")
( J% B# _. j- p, J6 X
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
( ?' l. Z8 t$ K2 ]
(+ (* (1- n) 2.5) 2) J, @0 _& ~0 l7 u0 @0 s
)# x- Q: r1 o% h: f2 X
)/ z1 e+ H( X: C0 d
;;暂时关闭对象捕捉
6 w/ D, L; v% n- _: J& o$ O2 v: u4 v
(setvar "osmode" 0)
/ [! Y9 r1 C2 E( |7 r) {, _ u
;;屏蔽命令回显8 @) c6 I5 D$ C- E. B
(setvar "CMDECHO" 0), ]( t/ n, I& l8 ^5 t& ^7 t) {7 R# \
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
6 I% n8 ^! a8 g8 |# i
(command "rectang"$ m0 t3 B+ p3 y4 s; T( w
basepoint
1 a& p% x4 E; C- h, g" ]: U% ^9 Q
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high)); P6 a9 O( M1 ^
)
! \. m1 G/ a1 x5 z% W
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
5 ?& Y* o2 \% x6 b; z1 R
(command "rectang"/ d# H7 s6 C% ]2 p0 [! }- i1 [
(list (- (car basepoint) lg_width)
4 @, ^5 `( ]5 q4 R* k
(- (cadr basepoint) lg_width)! f2 n- R) i# P7 a( B# }) z- |( O
), E5 G9 a& S. l4 |" l
(list (+ (car basepoint) len lg_width)
& t+ q0 M2 y4 u+ ?/ e
(+ (cadr basepoint) lg_high lg_width)4 W2 l* x0 S% [6 d) P) q0 {
)
. A' e. z; M! Q
)# Z0 w! B. x' V- h& G5 Q
;;将指定点移到其右侧A距离处; ]' M* ]. d; ?( R0 {" Y9 \
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))- Y8 m j$ u) }, I
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
: H; D9 E* W5 a
(command "rectang"
+ g% Z6 M. n3 r5 D5 R
basepoint9 |& C9 ?3 t! f9 ~1 r6 a
(list (+ (car basepoint) lg_width)1 E2 N& o v7 Z
(+ (cadr basepoint) lg_high)$ x. K' A8 a: V2 ?3 t3 c% X0 d
)
: l9 \6 n2 q0 t9 O
)
' T9 M" x- j: H4 K% c" B- r: d# W
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
1 w6 ?! r8 W- l
(repeat (1- n)4 N1 ?- \! H l$ m2 w" n5 f: J
(setq
' J! g! x0 S w- P) Z: Z' ]( C
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
d& A1 e4 K' F- e6 P! N: p
)
% f# a5 f# R0 ]9 P7 ~" y0 m: }
(command "rectang"( x5 a: L( m+ Z
basepoint, n/ s& x6 K3 Z9 Y( L$ ^
(list (+ (car basepoint) lg_width)/ C& q; H' @" Q; z
(+ (cadr basepoint) lg_high). g0 [% I! ] f4 K4 r! w6 |6 }
): R o$ d, ?* \5 ^8 F
): k2 Q2 g5 y6 |
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)' C; l4 f& W+ U& O- S# ]5 d( M
(cadr basepoint)
4 Q5 g0 h+ V+ I j6 f0 k
)( }! w2 k! j9 M4 B" x! o& `# s9 Y
)
, w8 x0 W5 H: n7 }. G6 p2 s9 ]
(command "rectang": @* ~# x1 [( s9 i8 T
basepoint5 K7 s- I7 t2 q. s. D% p# ^
(list (+ (car basepoint) lg_width), Z8 ~* A: s6 b+ P- g u4 H9 T; k( [
(+ (cadr basepoint) lg_high)8 k% V" g2 V D/ `* H; G3 X# G
)
9 w7 I0 {5 m) x! L' ]/ h* X
)
" e8 P1 [) C* s& x8 o
(setq
0 q0 o4 `: A) L# E& ~% V2 H" d7 y
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))" w- N" Q' V% Z. J; ^
)
6 ^8 {$ D, T# \% z8 |
(command "rectang"
/ |$ O# [& Z0 r9 E/ m; k
basepoint
. |8 q h4 X/ Z$ p* ?
(list (+ (car basepoint) lg_width)8 c9 B4 z; A- @9 s, @
(+ (cadr basepoint) lg_high)0 d" m: W P4 g c
)% K ?/ m2 F) Y1 s) F
)/ H- J8 F* x4 [8 e0 e# n& b
)% a- G/ s! I9 {# V6 p1 t$ J; e
;;恢复对象捕捉设置
4 M) V1 j/ o. T. j. A
(setvar "osmode" oldosmode)' ^) ~& e4 o8 Q* H+ K, l) e
;;打开命令回显
% F( j8 N; t7 W" m% B
(setvar "CMDECHO" 1)
% S; ]6 k1 z. o6 K t* T
(princ)9 x# V* i* b$ U" Q
)' k; d. d5 f: g& O

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源