作图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 发表 + _0 B2 M; z0 V$ X- K8 O
直线分段方式，a=a=2b4 e" Q+ n9 D* S
$ B- s# N6 X/ u/ b0 O+ U

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
7 J7 G+ f! l- w5 m: }( t `* P( k+ o# Y6 o, w- v P( }
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

# _: O+ x, E* C
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
5 I5 X0 V5 j/ ^' a* @+ V
;;设置栏杆高度和方钢宽度默认值$ f- [& h3 z9 T% n4 Z9 t
(if (not lg_high)' ^% S; m4 x" H, U- c
(setq lg_high 5001 @7 |% i4 Z5 M0 p3 k- U
lg_width 140 j0 t; x5 U6 }7 t
)5 ]0 ^* H; b6 l( R! U$ f! }- Y: Q
)
: Z2 g% n, f1 M, G; A6 Y3 \9 w p2 w
;;指定图形插入点
' N; r7 p- k+ k& w
;;不接受空回车6 H# ^3 z6 i: Q$ X
(initget 1)2 Z% u r% P. z+ n0 U% s' W
(setq basepoint (getpoint "\n指定插入点:"))
5 u' q( }( L& ^+ v
;;指定栏杆长度和栏杆高度和(或)方钢宽度
' q8 a8 J1 b# \* t7 N
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定; |% j2 l1 J& h: Z- l5 Z& l5 T: k
;;用关键字指定栏杆高度和(或)方钢宽度后! ~0 C6 L& r; M( l; i8 ^
;;需要重复运行指定栏杆长度的代码段
. p* m U' Z s! Y1 p0 F, e
(while (not len)% H2 z/ u: `( k5 r* Y/ M z
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
% T% X& R4 T/ c% w; p
(if lg_length
- x2 g# U* i. l9 S! j0 M& ~
;;存在默认值
) s& _: p8 G* ~8 p6 `
(progn7 P2 a8 [- X; H# x+ i
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"- j/ {7 t2 ?3 _9 o% S7 W: P
(initget 6 "h w")
(setq len (getdist basepoint
6 B! A+ t7 G) }) I
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
4 E( V+ g* ?7 b! N; J5 c
(rtos lg_length 2)
) f, ?( O3 a) y! }. `$ X
">:"2 [+ l/ V8 D* M2 m2 Y
)$ Y( `0 n' X& ^0 m0 s
)' N/ `* R# I, l4 k
)
% b1 x! K3 Z7 g9 V. X4 y6 ^8 |
;;空回车时栏杆长度使用默认值4 y, Y9 r) L- q- x9 H" u6 r) b
(if (not len)9 N, P/ g/ ~/ V( e
(setq len lg_length). k& d! T/ H0 L! s+ u7 K
)4 O; d( K- F$ i+ Q- z
)7 Q1 O, n7 q: R h2 Q! d% U
;;不存在默认值
* c( L* Q3 o" L3 D5 Y7 N/ v! T- `
(progn2 L8 j: z+ j7 {
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"1 k0 s5 O5 N( e, y9 O! x
(initget 7 "h w")
; R( W x3 g; ?' }* a% j
(setq
) V$ N9 u8 R$ n0 w+ ^" S
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:") ~% s4 k: N- Q0 S7 [, \ t5 z
)
' p; l" D, K: _. Z+ r% Z) f7 X, u Y
)
' W- Y& j( }+ R+ I" E
)
" O% v% b* A/ q0 C
;;检查用户输入的是长度值还是关键字6 z2 f5 p8 v* t7 L( I
(if (numberp len)
2 J0 m# {9 l. n5 @8 Q3 @
;;输入的是长度值: ~6 Q" n3 ^( S' r+ j; @% y, A
(if (< len lg_width)
9 k6 a4 S7 s; h7 ~
;;当长度值小于方钢宽度时清空输入值重新指定
6 Q" [3 w& q* u& V9 _4 z& y3 p+ Q4 Q% L
(progn+ k/ O0 w3 y8 A! x
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
4 U7 K8 r' `8 g" j
(setq len nil)" K0 n7 F7 c8 u
)$ Z5 ]7 P3 w& I; R+ [
)) q3 Q" f& K/ K9 W D3 f o- G
;;输入的是关键字
* F2 B; t6 ]+ W! s2 J" `
(progn
% X9 U. A) }3 B& R. \5 ]7 s
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值0 [0 S1 o; M0 p3 o( U% P( R2 D
;;用户输入时接受空回车,不接受0和负数
0 O8 S1 P- P/ `- m% Z
(initget 6)0 H/ c. N; w4 ~
;;检查用户输入的关键字是"H"还是"W"7 m4 {+ N" j( g, [! O% I
(if (= len "h")
/ t$ k1 G3 @0 G5 x8 I
;;用户输入的关键字是"H",指定高度 [" U, C5 L, l
(progn* \7 M' J, ]: q* k$ B' J4 a
(setq high
$ ~6 t& E8 V% L3 H
(getdist basepoint; ^4 X* y( @2 @# s1 c4 _7 F3 h4 S
(strcat "\n指定高度<" (rtos lg_high 2) ">:")( y; c8 [$ s6 r1 V7 k4 j
)( Y7 Z [& S& F1 V) Y1 h
)! e9 b9 H: ?2 l9 c6 t2 B
;;用户输入新的高度时修改默认值+ [4 G2 Y P2 o6 F" `
(if high
; p I9 O: o3 y4 H6 ~. e; u
(setq lg_high high)
8 Z# H: Q0 m x6 I1 l$ `1 [ G
): _3 b! K9 ]$ ^0 w, H9 l
)% J. W* y+ H5 Z: H" d
;;用户输入的关键字是"W",指定方钢宽度
- ]# R" F( A) O! d$ x
(progn
' j* [( y- G A8 ?4 C& y
(setq width U& L7 G+ j) N6 ]+ u8 H
(getdist6 l* U @+ Y- |) ` R
basepoint
7 j. S3 t4 k- Y; Y6 y6 f
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
9 q& t; j: R: `3 \* m$ D" P$ d: X, z
)
2 c3 U* K% j F
)3 o2 n4 a5 E8 |6 i
;;用户输入新的方钢宽度时修改默认值
6 l8 l6 f- t& ^8 [, E* p, b
(if width- O3 y- c# d7 p* b
(setq lg_width width)$ G# s7 K# y* b+ W; D
)
9 ?7 U: ?7 D" }; Y2 I4 `4 Z
)
2 C; o! Z' N- d
). i3 e& ]# f$ X c
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
' z# b4 S$ [- S* @; q }' C; }
(setq len nil)
7 B, {5 K& i0 n) m7 ]1 i
), M# q, H& }4 x. ]: Q" m W
)
2 V' |( m! |0 T. ~+ ~2 F
), z+ M% K9 y3 y* R
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
% q; |: ~- D+ {4 D% I4 F, v3 w
;;计算用户可以指定的花形数量的上限) @$ _$ L, @" s: F7 g9 Z) d5 Q
;;用于下一步检查用户指定的花形数量是否合理7 I" b5 M* p7 Q: E* g) I2 E
(setq lg_length len
, Y0 C4 E7 G9 @2 O" v
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
7 N! c/ X6 A0 r7 k$ s' D. a5 z
)
3 R6 @) |; ?. I- u4 H7 U: g/ d
;;指定花形数量或A段最大长度) P& i) k. ?0 Q- a4 ]
;;如用户指定的是花形数量,则按用户指定的花形数量画图4 e3 n0 G; X% E
;;如用户指定的是A段最大长度 G- C0 a1 q1 v+ p H
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图/ ?3 }- P# D* c5 \1 }3 J% \
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
5 |8 ~+ g( I0 F; }5 \/ w
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
- s- @+ B/ W8 W' C m% X. x, E
(while (not n)
/ e! h: y" `; {, P
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值! r7 s, ? t ]& K- A4 A- r
(if lg_n
+ v' S9 H% m8 B3 O# r, n0 l
;;存在默认值" y! T- w. _" Q/ S. ^0 h* M' O
(progn
; b5 f$ J( L& W/ ^/ B* h9 G8 Y
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"1 E* O2 a# y$ X% A7 }- c: X( ]$ r
(initget 6 "l")
, n1 Y) x+ K: M5 ^8 E7 ?$ o
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"% Y7 P$ Y* i2 s: X, k" }
(rtos lg_n 2)
7 {* Y: {, P" t* M5 x. g- I
">:". D7 B! L' v3 W% Q- M( K- ~7 E
)& _+ P. h* L7 R ]
)
0 ^8 L6 a( Q+ s8 J
)
9 x9 g n4 H2 Y9 a2 c2 j4 e; o
;;空回车时花形数量使用默认值$ y2 g% t8 x, q8 b L
(if (not n)
/ }9 A. v$ ~& u! Y$ Q+ y v, o& k
(setq n lg_n)
/ {! o: H5 Y7 M8 Y* [
)
* p! N1 G. }. Y a5 E
)
8 b0 R0 q- B2 t+ |
;;不存在默认值4 O) ^6 L1 A- p+ I x. M
(progn$ X9 n% |9 A& B& H
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"' f, V; Z3 q/ U* k. R7 ?# t
(initget 7 "l")6 q! H: g* m! F/ F0 D
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
9 d; \. `. W d( J2 L
)
$ v2 F# T5 I+ P* _$ L
)" M8 ]8 N4 H7 a7 e6 I
;;检查用户输入的是花形数量值还是关键字) T6 |' D! D# m0 O1 G
(if (numberp n)
* y. b8 O' u m L. K; s
;;输入的是花形数量值7 C' K- n2 l5 w( a; [% B' g/ p
(if (> n nmax)& ?( T, S. v `4 L9 Q! {" l. H4 t
;;当花形数量值大于上限时清空输入值重新指定 U8 h5 J% C4 K3 y% d2 R5 \
(progn
8 ]6 J8 J( M5 x" O |; A
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
7 |" p# ?9 O7 n, Y) S
(setq n nil)
) ?8 Q) j4 f# ~1 E+ J
)4 f* J7 [2 Z7 I
;;当用户指定的花形数量合理时存入全局变量
6 t" @& n0 y7 R
;;以便用做下次输入的默认值
+ T9 I, z) {. ^/ H
(setq lg_n n)8 I+ `4 K- o9 O2 |4 H; E
)# I5 _% V8 A, A" F8 r
;;用户输入的是关键字% f1 k" D' E& q# L$ q0 |) Q6 Y
;;指定A段最大长度5 U; r+ G3 t* P- @
(progn
7 {' I" q( s( \/ M7 _1 u
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
7 g; W$ g* ^, w( @
;;否则可能导致无解
3 b. y% c' N5 C
(while (not amax)
$ r' k- l! I9 T1 v" F0 o
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值9 \/ P/ k$ k) L* a
(if lg_amax
7 M: B0 |$ A: x
;;存在默认值) c% z1 c6 W6 R( K
(progn2 q7 m$ B% P) \- q
;;用户输入时接受空回车,不接受0和负数
( H8 E8 ]* W* \- {+ c( b$ U
(initget 6)
& q( e U9 ^+ I$ Q4 D3 H0 Z
(setq amax (getdist basepoint
4 d: Z5 L7 g: P* ~1 i n
(strcat "\n指定A段最大长度<"( E0 t/ L; g2 [# [8 G
(rtos lg_amax 2)
9 \* x; N. J2 F. [: H
">:"
" G7 D$ s% F7 w
)
, J. }) E( U; c: V1 Z4 o9 B0 [$ D
)
- M& ^4 [8 f8 [/ c
)
3 m8 r5 Q1 g+ g8 g( }. [
;;空回车时A段最大长度使用默认值- v8 H8 U# y- ? s% H
(if (not amax)
' M, t4 g0 I5 y! i# e+ L5 ^
(setq amax lg_amax)
( J9 S# u' K! m1 _ A3 o1 V! a
)
7 `) E% A# j, U9 J5 I2 W9 r7 n
)+ H. I5 z8 @5 H: ~1 x
;;不存在默认值
6 M$ |9 a- @' J ~! F9 V
(progn
4 F' p# s. @* N3 j2 W
;;用户输入时不接受空回车,0和负数
. A' D0 t5 C8 X$ d
(initget 7)9 v# J% r1 K8 ^ j( A9 a
(setq# G3 | @! ~9 o y. f
amax (getdist basepoint (strcat "\n指定A段最大长度:"))7 l- k, U7 @2 @5 r
)
& b. G1 B, C+ W ]+ O q
); M) ^9 [0 j" ]. i( m, z
)# c* d- @# m% w' Y* }+ V2 g1 g
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定& P- t; F. t* c% z# j, |: [8 E
(if (< amax (* lg_width 1.5))
, ^% M2 R7 i( c" `1 `
(progn7 }9 z( ~' \# d
(prompt (strcat "\n指定的A段最大长度不能小于"
b) q3 J2 z2 M3 n) {6 L, w
(rtos (* lg_width 1.5) 2)
- Y# ?/ n: j2 x9 c8 [
); I8 @; }1 u4 n1 L5 C) f, n" ]
)9 k* B8 R; m& E
(setq amax nil)4 q/ c; ^& s: q0 V
)
, L. n; @- _+ K) D" v0 b
)
9 B: x" E6 {3 w: b \) i# h
)6 Y1 }) p; o8 R1 x9 f( j
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值; }8 C. {! @# h: p/ K, b- T* L' q
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
+ u/ j# Y' ^4 o& X
(setq, _* D q" r! D6 u5 h3 `* \& W
lg_amax amax
1 M: b7 l. D! V4 Y
n (1+ (/ (- len (* amax 2) lg_width)
6 v! i% A+ K* @* k! {2 U" h" n4 b
(+ (* amax 2.5) (* lg_width 3))
$ S- s3 T% B ~! O" G
)6 k7 L" r9 y0 e
); V! q6 r- H- u; w
)
4 j+ T+ p+ R2 |" L
(if (> n (fix n)) p* [- o2 c7 V+ R7 m* ^1 B3 q
(setq n (1+ (fix n)))' F5 v* R# J1 P- [! ^: ?( ]
)
' P2 N P6 g- C! Z# s' L: e
(if (< n 1)
( Y B5 U7 G, c X
(setq n 1)! \$ k* \7 ^ Q' k
)
2 W) Z7 p, P' b/ t! u$ w# [
)
; u& {. }5 X- z" o+ ^
)- v* C8 L7 A8 z9 j7 h2 Z9 a
)
S+ Q) i( E5 n% P+ x8 s' ~9 B
;;画图
1 z: E0 c1 r# ^/ F$ {% \& y2 J, G# w
;;记住原来的对象捕捉设置2 ~/ k) {- S$ |8 b. g2 `
;;按花形数量计算A值0 X: I& h# A: A' z$ V7 n
(setq
: j; P/ f/ N% H, h8 ]
oldosmode (getvar "osmode")/ C4 f' l& n8 `6 l" f7 r
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))% a6 Q$ A; i# U2 m. T4 w
(+ (* (1- n) 2.5) 2)
( {. K8 a2 Z7 c+ d
)
; T3 ]' Y/ k- C6 N( B4 [; q9 W
)
' a( p6 O9 j& V* ?, S3 U6 E) I
;;暂时关闭对象捕捉
( k4 ^5 C+ @; |/ V# }* R( k
(setvar "osmode" 0)' ^" u! j* w. r3 s0 }
;;屏蔽命令回显* X. a& R$ V5 J7 \, ^
(setvar "CMDECHO" 0)3 Y) G% M% J0 N4 P
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形4 p3 \+ u. w2 ^1 l$ X0 b1 w0 Y" m
(command "rectang"% `0 h. K/ v% o. |- e g
basepoint& v R6 r0 r; o! @1 G5 l+ l& U
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
# o' j# B) s0 d, t
)
& B; V) I2 b6 p. `3 m
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
" F4 i% H$ _. V) l9 N$ d/ j1 D
(command "rectang"
8 S" E" V$ j, Z- w. w6 Z
(list (- (car basepoint) lg_width)* z# w* I9 H2 V: s$ t
(- (cadr basepoint) lg_width)3 `1 `1 r2 f& P
), ?! H, E0 t. P4 U P5 |
(list (+ (car basepoint) len lg_width)
; |9 b" d9 B( y$ `4 m
(+ (cadr basepoint) lg_high lg_width)
1 j, h8 v) b7 |, k
)
5 _% G8 I$ V: v
): D; x6 P) i& U
;;将指定点移到其右侧A距离处* V0 X+ Z4 p9 u3 ~ ~$ z- j% Q: E
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))5 l: h* I) G# P$ q: J v, |
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆! z. ^- R' d. r* n7 e* L- n) K
(command "rectang"( y Y/ c. i; o; ^8 i- L3 C; A1 R
basepoint
& A7 q. y* d+ f1 }
(list (+ (car basepoint) lg_width)
" }! ?) @+ @6 k+ t4 b2 d o0 S
(+ (cadr basepoint) lg_high)
: o7 Z' i6 _, H+ ]$ K
)
' M8 w6 s/ `5 k7 u+ [/ T+ x
)
3 Q$ Q# O1 k/ o7 j2 G: M
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
% A9 [! f3 o, N& Z/ h
(repeat (1- n)% U6 k% e0 V' g* N( X A6 B5 p; _
(setq
' P( y2 |3 S1 Z4 S
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
) s, ~+ z: i h* F5 m8 ?
)0 k6 \9 U# [3 U1 c* Q
(command "rectang"
u+ f; X7 A$ ?0 b
basepoint
8 {! k4 X& t+ j2 H. p+ }2 S
(list (+ (car basepoint) lg_width)6 Y: D l" P1 B0 V6 I! N. B
(+ (cadr basepoint) lg_high)& E$ u8 X( E9 P% S
)
3 a1 q& @. I! S5 G% R
)0 y3 D: S+ s, R6 Z
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)7 U! j9 k! I* e4 |: e0 J. J
(cadr basepoint)
& y# e9 `0 B/ O1 \1 |+ o
)
% p! P! ]3 i8 d
)3 k# d. c5 J1 G" _
(command "rectang"' `8 H7 C( V' L% s, u
basepoint) |3 m/ Z9 ^0 w1 g9 R
(list (+ (car basepoint) lg_width)8 O! V, \" q, A- Z6 ]
(+ (cadr basepoint) lg_high)% ^) \& f2 i2 k8 l$ g
)' P$ a; N: o* i/ O
)
% w8 Q$ c8 c# Y. I1 l0 n+ |
(setq
( m) f- Q# G' J( f" q
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
" d/ L) L$ W3 ?8 ^. C7 t) k; S' f
)
. J1 C( L6 w c) q: ^# d
(command "rectang"3 ^& { C7 g7 c2 x
basepoint2 T, Z. y, N- w( P$ n* z+ G$ p
(list (+ (car basepoint) lg_width). A& U8 i) B! h& v f7 B
(+ (cadr basepoint) lg_high)/ M# ]) x% J! w. ^+ M
)
3 \5 T1 ?7 t) \, o% P4 ~# ?
)
6 w4 ?3 N; S/ G A2 ~! H2 S. l
)
, t6 o! a6 G! `/ j$ O" ^) t
;;恢复对象捕捉设置# l! Q2 u7 Q, N( w& E
(setvar "osmode" oldosmode)
& O+ [) f+ P# `0 A
;;打开命令回显
5 S: L- T; g$ I3 N; }1 ?, f2 s
(setvar "CMDECHO" 1)
7 `( k. b3 o$ C
(princ)
, @7 x) t; i) n9 w! n9 q; d- C: ?
)' b' [" T2 C4 s& {

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源

浏览过的版块