作图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" q1 P* q$ ~6 }" a直线分段方式，a=a=2b
3 c! m$ o s6 }' W3 U5 l+ m1 q0 G

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
( @1 D# _: M/ c; P8 s. ~6 u% u9 }4 v; Q& Y: p9 T7 K; r# a; e
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

9 X) t+ q8 M+ n0 w& m6 ^/ }
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode). ^5 }* o/ f3 T9 v% R. B
;;设置栏杆高度和方钢宽度默认值
! L2 Y' S; H1 L$ K; z9 U. h7 D, |
(if (not lg_high), ]0 ?1 A. l" I5 B! l# a& t
(setq lg_high 5005 B6 w8 B9 g' }! \9 l6 u! L
lg_width 14
' t0 ?, {3 q/ h; F( @
)- F+ s& I+ h! {. S
)
4 T1 M3 A. }3 E5 c- U
;;指定图形插入点3 i; h. v4 P0 c. d0 Q3 Y
;;不接受空回车
/ U+ _: V0 b4 r7 j* s
(initget 1)' i$ i9 p9 |8 X# R% z" t
(setq basepoint (getpoint "\n指定插入点:"))
6 I# S0 N8 f0 K! t a; o0 b# U, O
;;指定栏杆长度和栏杆高度和(或)方钢宽度
6 |' r! x# X/ D+ [
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
; z" {7 D4 L8 e: R2 Z& x
;;用关键字指定栏杆高度和(或)方钢宽度后2 w. G, F: ~+ B& s
;;需要重复运行指定栏杆长度的代码段8 B1 b- G. t. G' R$ z: f
(while (not len)
) N& h0 e5 b( e0 ^, p g8 ~
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
, m. C# Q( {* b6 p& b1 @: E
(if lg_length
0 \9 s4 d! G" f# y3 ~
;;存在默认值 n/ {3 e/ h6 C1 g% j
(progn+ k Y7 A' m2 _, E; [
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
+ `- q0 v- q; F% u* h5 V7 L7 r; G
(initget 6 "h w")
+ ~0 P- }8 P% z: S9 G' I2 u3 q
(setq len (getdist basepoint9 U- i' T( u6 z# u" m9 ?
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
3 g" }9 U' z$ f6 M0 o
(rtos lg_length 2)4 C3 f% v# m; F
">:"* p' A' e0 E5 U( b& b; g1 M
)+ J6 Y/ J' i( R
)
5 b. p# ]0 t& P4 @; W) T
)! _8 C3 y& i' Y' S+ M$ Q
;;空回车时栏杆长度使用默认值1 N4 h& ~* U5 q/ C3 y
(if (not len)& W4 w$ k4 p9 \7 L4 j* J
(setq len lg_length)8 m: }$ S* D1 @% N, m- z
)& l2 O: L8 N3 `& }4 @5 L
)2 e; T$ t4 ~ ?4 q* \; G& x5 T
;;不存在默认值6 @" m: U1 E$ h+ x. f# W
(progn3 U/ B. s& n9 J" y: Z, E; u
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"1 ~4 H% ]. }- R t' _% ^! f
(initget 7 "h w")
+ q" `# L/ n c0 b. g6 V
(setq
9 V q1 a* N2 w
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")4 Y% w; q" I( l+ I4 Q
). ^" j' Y, b0 u" z" M
); G% {; x4 L/ Z1 ~
)9 t1 [- I5 P& o# N
;;检查用户输入的是长度值还是关键字
2 f; i) G% h8 {6 D( s5 f9 u: r
(if (numberp len); U9 ^! `& ^) [4 a7 _3 p( Z
;;输入的是长度值
6 J8 o( c/ z1 j1 U6 Z
(if (< len lg_width)
* I( b4 m0 x% k& t* [1 L* q7 r7 C
;;当长度值小于方钢宽度时清空输入值重新指定
4 J2 X$ [0 ~% s' O
(progn
% i% k. T+ A" c0 p" _/ h) \* E3 d! M* W
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
$ C* m' u5 n+ S+ G0 b ^. ?. R9 A
(setq len nil)
& E; l* L6 \% t% ^' i. P
)
. W6 \; y0 J; ]
)! w+ \# Y9 j3 [" q6 r- Q
;;输入的是关键字; J" O+ j# Q4 R& J6 T1 n
(progn2 h9 j/ S7 `" t# _/ u% w2 _9 W
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值2 S. V. q, o: a" K
;;用户输入时接受空回车,不接受0和负数4 ~& m2 j. s$ X
(initget 6)4 U" J* ?& h4 Z3 p; {7 H/ o
;;检查用户输入的关键字是"H"还是"W") h6 S1 }& v9 ]) O* v# i
(if (= len "h")
' [' H8 i }# k" U, P* y
;;用户输入的关键字是"H",指定高度
5 K/ {9 f1 |" i: I& o8 b
(progn! s0 H7 u3 d2 _' H
(setq high; w* G. r/ G1 Z# ^
(getdist basepoint: r- O4 C6 }* Q
(strcat "\n指定高度<" (rtos lg_high 2) ">:"). @" s: `: `0 D9 m+ B E* L
)' y ?$ K, S; K% a! D( V% w
)
& W1 s; u1 I5 y2 }2 X
;;用户输入新的高度时修改默认值* \5 i2 v8 x; q7 C3 r
(if high
- B `, X& `& s+ L
(setq lg_high high)# D X5 F% v5 a
)
1 v9 S# C ~ R; @
)
x1 D& c5 o |# A
;;用户输入的关键字是"W",指定方钢宽度
" l& e/ E( I6 \$ A( o
(progn3 M9 J0 I! K' ?0 H& L
(setq width6 f9 X/ k8 o4 q
(getdist% D7 z; f- b5 J6 U l T' d, g5 Z
basepoint
; @8 e# t7 _7 f& L% V' C6 C; l) N, u
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
7 N. O9 ~: V" G! u. u/ `
)" u# i/ T6 e5 B8 t, [0 v
)
: G' M0 Z: D& w* c/ l! d) r
;;用户输入新的方钢宽度时修改默认值
& `; O& N" c+ N2 Y4 E1 ?1 q( ~$ X
(if width
3 ~ n7 D/ b9 q$ a% O
(setq lg_width width)
- m8 M) f, ]3 j
)
, F& u s; A( @9 @' @$ _ v
)9 ^. f6 A" A4 n H# J: }1 u
)
0 h7 P; \9 U* N0 b' x& M. A
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度) W+ { ~! D9 M9 `. T. d; B
(setq len nil)& d7 Z/ F$ ~ h7 ?3 l) T8 W6 c) Q" ]
)
k; H7 O. ?2 a. y' L; @4 C
)# |5 ^" D$ y4 ~( @+ z7 I, ]
)
& b4 p! y3 G# `' f( g" \# Y
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
% e, | g- h$ _* t8 x
;;计算用户可以指定的花形数量的上限
0 O. B- B% Y0 {& z+ k9 K! f
;;用于下一步检查用户指定的花形数量是否合理; c6 E- U+ m- O2 A9 P) e
(setq lg_length len
0 n9 @9 N) }# j
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
, n* o# V) g1 z( x; I
)/ v. e5 U" c% m4 P8 a( t6 ^: f
;;指定花形数量或A段最大长度
]9 A( U* k" T5 x& _0 v
;;如用户指定的是花形数量,则按用户指定的花形数量画图( y/ i! }* W {# H! n, @
;;如用户指定的是A段最大长度
# W$ v0 ?6 G: L& e: M, q5 m
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图2 }5 N4 K& t L F( I
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
, f6 d2 Y. d1 u) r" f% |
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解5 i/ |# ^. x' @% u0 I
(while (not n)" y( p) E D9 I( C+ d
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
6 G7 }+ f! E* e8 k( w) K% `
(if lg_n
7 F% o* p& |! j. e/ p
;;存在默认值
' |: n% V' m n A- {
(progn2 P* a; j% l, s( h. s* D# @5 c
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L". j l. h6 u4 N+ Y! f0 J* J+ x3 z
(initget 6 "l") {4 Q+ H# c/ I/ b
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"4 W' h+ J# T# \# \1 e7 o4 C
(rtos lg_n 2)
4 P g# c+ T- V) J2 g; F" z
">:"- i u; E$ e. M$ n- z
)1 M' @+ X4 z7 Z
)
# P. @! a. d! r4 j
)
( N. k% Z" ?4 C a, x5 V
;;空回车时花形数量使用默认值7 X: p; \0 z; @9 L& _
(if (not n)0 c, `% e& @# j6 a6 ^/ ]
(setq n lg_n)9 _" y% e! W# C
)0 `. h- T3 ~0 y; }; X
)
& U9 k1 J) O) a4 N
;;不存在默认值, a9 b# f( K. Y V+ [+ J0 ]
(progn
, Q- P; k9 a3 `& ` f. G9 k
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"5 O0 \4 F$ w1 w: t1 y9 d
(initget 7 "l")
- H a$ w6 b2 y# B* U
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))' t7 k7 o) a2 n, k
)# ]6 q- T4 Q8 e& J
)3 u, }5 r( s7 m& Y
;;检查用户输入的是花形数量值还是关键字; g9 s3 f v" S# G. `
(if (numberp n)0 U9 U* P! F) H% P; ^# d
;;输入的是花形数量值# z! A$ n% z. x- }
(if (> n nmax)
, e" d/ p( ]4 N& g
;;当花形数量值大于上限时清空输入值重新指定 }6 L _4 z' v! _) a
(progn9 Q7 L/ Z! r$ \+ Y0 \: I1 F
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))0 u! f- i" L, l1 m+ u, Z
(setq n nil), R: \2 i9 |; J* r" `
)
3 G+ b6 }- K; `$ m) M8 j
;;当用户指定的花形数量合理时存入全局变量
- Y5 u: m8 e7 }( O" x5 ]8 Y/ G
;;以便用做下次输入的默认值6 F5 p: q# |* j( ]* S# K; u
(setq lg_n n)& Z+ }: p3 ]# _7 Z& f0 m
)
" t, @2 g8 ?6 n' q1 ^! b: }
;;用户输入的是关键字6 ^4 k6 N% [6 k+ w2 Y
;;指定A段最大长度
+ E! K1 [/ S- A7 h+ z: z3 l! {) O
(progn
0 M2 b$ H. A) J6 i; z
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍 }7 ~ @# j7 W' r, o L6 C7 h1 Y
;;否则可能导致无解
. {' B- z ^% @0 O3 M u$ N. t
(while (not amax): K3 ~, |( x2 Z" X. f1 K& f; E7 t
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值7 R9 t p6 C0 E; ]' r7 r6 x
(if lg_amax' D a" K; q; T2 e/ W( X
;;存在默认值 g- Q ^9 [: I& N+ E" K
(progn
! z/ y* S) X- T7 g
;;用户输入时接受空回车,不接受0和负数) s) v) T0 M9 T! `; I! @3 Q
(initget 6)+ p0 j6 w0 @1 _- M1 Q. Y! s0 ]$ n
(setq amax (getdist basepoint
! x j7 w K* U7 Q& C
(strcat "\n指定A段最大长度<"3 {8 n% E8 }# Y- J
(rtos lg_amax 2), ?" v) \6 K! M4 A5 v$ h
">:"5 V" d* o& ?$ G {$ o
); h' X- h' @1 H# n
)
: d, h5 p( @( s, d! a" v1 a5 B8 S
)
% ~% C* l! ]- g" |! H, [0 e
;;空回车时A段最大长度使用默认值$ ~% a* d8 y& e9 l7 ]4 u
(if (not amax)
7 g, v5 R2 e2 g% g/ _5 v7 [ ]" }
(setq amax lg_amax). e1 G4 x6 g, M# p! C1 p
)% I! H) x* Y& ?4 O$ n$ b
)$ i8 e0 u- T3 w- N
;;不存在默认值
6 h3 o1 A' G2 w+ c1 r( c2 y& ?
(progn/ Y* T9 g8 h! X; w- \# Z
;;用户输入时不接受空回车,0和负数
% W" b; V! b, o7 ]2 o% \: q& @
(initget 7)
6 G! Y. _9 P$ |. _0 f8 O/ d
(setq
: A0 ?7 {7 Y, D
amax (getdist basepoint (strcat "\n指定A段最大长度:"))# [7 ~$ L% ~$ y. |) h4 I+ z
)8 i$ d3 R4 _7 T5 e! f/ m
)
0 ]! C- w0 S4 h( H1 h% Q; H W* B
)3 K% i7 E8 `1 H; C0 V
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定, {) O8 O( ]7 x
(if (< amax (* lg_width 1.5))2 g) f# K+ \% C, @7 _! O& w
(progn) F# o2 U8 z. w; r" M% y
(prompt (strcat "\n指定的A段最大长度不能小于"
1 U; O- z' T+ L# c) y2 b9 V( N
(rtos (* lg_width 1.5) 2)
2 Z0 b% J. w8 [: y$ }* Q2 A
)
d1 A! S5 F/ Y0 ]: p; \2 [4 ?
)6 P, C/ c4 j8 Y4 t" o) a6 K9 [" v/ Y
(setq amax nil); W, i. A# t; S4 z4 g' ^
)" \# N3 \6 e. Q7 {4 u; m
)
; _7 K- C P. w( x$ N: _8 g
)
& P) u+ v# \2 M& A: ]( x4 w! C, H# C5 f
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值% i) Z; @0 n: ~- z8 \
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
. P6 h, _6 W u7 p8 b7 ~
(setq5 z3 I9 u; U5 v, m
lg_amax amax
; h- I- O) L& X6 Z2 V. o
n (1+ (/ (- len (* amax 2) lg_width)
d9 j8 z% ?( f/ M
(+ (* amax 2.5) (* lg_width 3))
* j5 f$ p+ P; Z( q" l5 |- ]" L8 \
)) R; |3 e/ k0 e/ d: e6 p
)- k3 o3 v" J! ^7 @
)) N7 D9 C% X4 B6 A4 k( F
(if (> n (fix n))
: l0 m& P; X. A9 r' J
(setq n (1+ (fix n)))
v/ ]: g g9 L* X. l- J" u
)
7 H5 ?9 c" ?$ r1 @1 b
(if (< n 1)
* R" l( u" i/ X1 K. w
(setq n 1): k9 Q7 q. f$ }5 D* V0 \% Z
)0 U4 N' E# [9 b: t* |
)0 O0 ?' z6 o0 U; F/ S& s
)
( M) @5 M! n/ Z9 I, d
) o6 M0 q9 \# x: J9 T
;;画图
$ h5 |* K8 p+ Y8 g
;;记住原来的对象捕捉设置
) [5 ]% J7 h. E, L) M
;;按花形数量计算A值
' O: P7 N; w$ F; P) i+ {
(setq
! S. Z: B" `6 Q' z4 z1 S
oldosmode (getvar "osmode")
* n D/ h0 U7 u9 V1 b0 u& U
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
, I, h2 O% r+ H6 l
(+ (* (1- n) 2.5) 2)7 D M+ a1 ^5 {; s( @4 A, a
)
% f9 Q, ?8 p4 k0 Y5 J& J
)$ Q! D9 W0 T2 S; l6 D- _" K
;;暂时关闭对象捕捉
: I8 h h# p/ `0 G8 q( L5 w
(setvar "osmode" 0)& q) Q6 ~, }& ?5 v' t# w7 o( _
;;屏蔽命令回显
; _1 }7 c {# y8 n
(setvar "CMDECHO" 0)5 C. t8 b5 h, k- I& B1 A
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
1 I) J/ X; [4 V# S5 P) i$ g6 s
(command "rectang"+ D2 {! A9 o; j
basepoint
# I6 D$ S& q6 p5 E3 Q! G z% n
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
6 O4 A( T" ?: q0 a
)
- L& y" h5 u. D/ N5 A; Y; q$ d
;;在第一个矩形外侧一个方钢宽度处画第二个矩形% n6 F- K J1 K ]5 {: ^1 y5 q0 k0 _% F
(command "rectang"4 P7 V7 C4 L* Z5 }& v
(list (- (car basepoint) lg_width)
# p& L* _9 ~. y: j
(- (cadr basepoint) lg_width)
8 I2 d e# |1 [" R3 @
)! q9 {: P0 V) V- Q' a9 P; u& k
(list (+ (car basepoint) len lg_width)0 l: X# J7 O4 y+ c/ j
(+ (cadr basepoint) lg_high lg_width)
# a+ J Z: |' F; n
)
# x$ C" r' ^1 w, }* v
)
6 C4 }1 g+ s3 S, ?
;;将指定点移到其右侧A距离处
$ l' @0 \* N8 Y6 v
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))2 ]; l) z1 @3 |$ F0 Z
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
5 H6 |! J+ H8 f$ C' ~: w1 P
(command "rectang"' x1 H* g5 r7 `6 u* h* b0 w
basepoint; J1 E# p$ q% ~$ ~
(list (+ (car basepoint) lg_width)
$ A; Q2 y0 [4 B
(+ (cadr basepoint) lg_high)
D8 `4 z K6 {9 J
)/ j. }( s J/ n% p0 J8 w
)
8 J0 b3 \# d1 b
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
: A" B6 }5 R8 T6 G8 ]# S4 Q+ K
(repeat (1- n)1 |9 l* F! O" q% }+ m
(setq z6 m8 K9 N, `9 f
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
) b4 N3 q. ?& {# t0 f( w/ d5 W3 y5 g
)
) h" {2 s/ l# ?1 G+ k# ~
(command "rectang"
; z; M2 q, ?4 H/ S
basepoint
; p' M) `0 t6 k+ ?% R
(list (+ (car basepoint) lg_width)
4 H% Q+ N) {% Q W) U# Y
(+ (cadr basepoint) lg_high)
) E! Z( L9 B1 S( M q$ i
)
8 `9 n: M/ _+ t2 R0 p
)
( v0 H( k1 \) a' o2 U8 g6 h0 {6 N
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
: {# D6 e3 I$ }! T. Z
(cadr basepoint)+ B$ [: X& Z- o0 C
)- }3 y0 I% D; O
)! C& R. [" H2 B" j* C0 q
(command "rectang"& x9 _8 L+ t1 p* L: J! P
basepoint4 r( J0 k/ j i, [3 D0 L k
(list (+ (car basepoint) lg_width)" K+ e- }) E2 }7 s
(+ (cadr basepoint) lg_high). t4 e+ h" e( B! p
)7 }! h, Q" P0 {, [
)
1 U5 D# Z9 j+ O- L2 u1 x
(setq* N0 E6 z2 k1 h& Q8 t0 P% N5 ^
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
- S* X* m+ f `5 b) f2 N2 ~
)
/ T$ S3 ]' {2 z: o) P ~
(command "rectang"# o, L" `6 }+ Z6 D. W# C0 E
basepoint
. Y) m4 e% ^* F, T! d+ Q
(list (+ (car basepoint) lg_width)
) E. @4 |# O6 X( P3 v9 S
(+ (cadr basepoint) lg_high)2 M1 s. m% E' }) J! g
)
) m2 j9 F/ T6 S) Q$ v
)
) B1 V2 J$ F" W# U
)
" ?! D7 U& i4 ^; _0 F
;;恢复对象捕捉设置
+ K8 T9 J' w/ p
(setvar "osmode" oldosmode)$ x0 v+ q8 l5 ~
;;打开命令回显
9 D( B5 n% e: ~
(setvar "CMDECHO" 1). ~# U4 G, k" q+ W; w% E
(princ)
! {3 v& D( l# b x) T! [. j5 i
)* O- S6 ], D& {2 w

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源