作图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 发表 5 Q# y9 s% v* f, \* g0 ]( U8 s
直线分段方式，a=a=2b1 u1 ?* {, ~* f5 ]- v6 a! X

; [! y" U1 `, V1 s

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
5 q1 n z( l0 {$ q, [, Z+ \
4 t9 f: G5 C% d8 t. f, h距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

; U( T8 P$ S9 y+ t# _1 X0 b) L
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode). w1 m# @, F6 b+ Z4 p1 W6 D! [
;;设置栏杆高度和方钢宽度默认值4 N) R% u: J. A
(if (not lg_high)# ?9 F6 i4 n/ C3 F$ o
(setq lg_high 5005 F4 F, {7 w$ J# R
lg_width 14
# i8 e; J! Y9 m! @* S5 M7 J
)9 ^4 h2 Q7 K. C% h5 ?
)+ F+ h% [6 W7 G
;;指定图形插入点
: W9 T) G: {* l
;;不接受空回车; K/ _' V P. W! ~$ j# z" L
(initget 1)8 K8 s3 W) A% i+ I
(setq basepoint (getpoint "\n指定插入点:"))( H5 w: I6 X) N( R* _+ j4 ]
;;指定栏杆长度和栏杆高度和(或)方钢宽度! _0 J; Q' |% A3 [- z7 U2 u: u
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定9 l- N" l( x2 U7 U* e2 c
;;用关键字指定栏杆高度和(或)方钢宽度后
4 | h+ l/ G$ ~, S& b4 e
;;需要重复运行指定栏杆长度的代码段
! z9 n0 G! B6 f- \5 G) l- |0 H
(while (not len)
+ u; \. S( W0 c9 v$ T9 Q
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值. z$ r) u5 T/ i& N. T) `- }8 Q5 Q
(if lg_length( c. Q* @( N( ] |% w! Q+ `/ b- M
;;存在默认值
& ]6 U; V& l0 x% z
(progn2 m3 \" k* B- z! }9 q
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"/ Z7 z! E7 q7 }& G+ X1 Y% @
(initget 6 "h w")
+ R, \3 v C% H$ i
(setq len (getdist basepoint
# `; T! }" e; Q- s! f
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"& |( b- A$ F! I1 g3 p. q+ P
(rtos lg_length 2): j) [* ?2 r" f3 {9 W. a2 M9 @+ S
">:"& p, k- L7 b0 `# t
)0 I3 w6 i9 }* j. N y! ?
), |% O1 [0 v: ?' S. }) _+ s
)3 @% C) B2 a, N" m3 G
;;空回车时栏杆长度使用默认值
3 S* q! q- d G" n" G3 U
(if (not len)
, q2 F! k* M7 `: V& u! [4 L( i
(setq len lg_length)- s3 w0 n( W$ H$ ?* t' z
)8 ]+ i9 w4 H# J. m- O1 i. X9 t- L7 }
)" { @- ?6 g& m3 ]1 L( z
;;不存在默认值5 t5 h( _. j1 @0 F
(progn
* n0 l/ n% s2 D( t" a( }
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"5 X1 a* @. a; n: X' C
(initget 7 "h w"), j( ?; r+ t5 K* U8 [6 M4 Z
(setq
8 B, N8 e, t- e( o; F* o6 Z
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")0 g+ v' O3 s0 D
)
5 c+ Q9 [$ b' S) k$ L
)" K; G+ r( b* E+ ^' X4 o
)* {% b2 B+ g8 F9 j$ e. ?0 S7 j
;;检查用户输入的是长度值还是关键字6 C7 w2 x' j$ \4 s9 O
(if (numberp len)/ V- D9 ~0 U" H& B: |
;;输入的是长度值6 k& S! U4 X" X- u, a
(if (< len lg_width): e2 f! b& x, l9 c* k6 f0 U& G
;;当长度值小于方钢宽度时清空输入值重新指定; ] u6 J* C3 J' h2 I4 m1 q
(progn
4 G0 ~6 B4 X& w2 s! ?* c9 h) `
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))6 q; X$ X |+ T P0 ?
(setq len nil)! O0 ?, x( t- P6 L1 n( t
): l+ ?3 N6 G m6 W
). `( m) P( T) Q7 I \
;;输入的是关键字+ i9 ^- [9 b( B9 V6 S
(progn& y, k8 A; H& [' F; S; I9 G* Y1 x
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值0 g9 N/ i& ~5 a. t
;;用户输入时接受空回车,不接受0和负数1 S$ n( R% ~* R# ~7 |: C# H
(initget 6)" F! X& V* g+ i3 ]
;;检查用户输入的关键字是"H"还是"W"* ~1 r* S% a2 W4 Z6 I
(if (= len "h")
" \! k# h& D" S$ E) p# B2 M
;;用户输入的关键字是"H",指定高度
* b& w( Z0 e# s/ F
(progn
9 ?' h! ?* R+ |# x, e- V' o# Y8 V
(setq high6 Q+ }) J$ c& N2 L/ V$ L7 p; R
(getdist basepoint+ R( z5 \, a6 P% g/ }! _2 Y6 T
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
, h \, u* ]. K Z" N/ s- i6 `8 c
)
2 f9 e7 z1 D& D9 Q K3 `; N1 B
)1 r: d* k6 U8 { ?
;;用户输入新的高度时修改默认值3 m: q) \4 P g5 ^ w
(if high
+ Z. e3 l) N- G* x9 u3 A
(setq lg_high high)7 p2 c- R/ K5 |! m" K* e4 T3 e! a7 G
)( {: A- D, ~* A2 q5 ?4 {
)
* G* w/ w6 ]. o8 c* ]$ p9 s
;;用户输入的关键字是"W",指定方钢宽度4 L4 f( \5 l" d( X/ l
(progn+ W- w! k+ i8 I3 `, }1 O
(setq width
) l' ?2 q9 b2 w# m- q0 u$ o
(getdist
$ r( ~' z8 H7 [, u9 }) a( |
basepoint
& I5 L2 \+ C6 B2 v. C
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
+ B( `1 z; i, W4 f5 W% L% b
)
+ j Q* k% b' q
)) q6 T; Q) C& q& O6 g0 s; K
;;用户输入新的方钢宽度时修改默认值
8 m% c# Q, J$ q X( l
(if width) z. t: d u+ L& A9 }
(setq lg_width width)9 z- C1 E* ~! X( H* }8 q/ m, j1 M
)6 S7 I; {$ W, F; r+ D: w( h
)) L( i, Y: S' W2 _* g( A. J- p
)
& M8 h$ G2 x6 l5 [% ] P
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
% M3 `9 @9 a- M, h" s
(setq len nil)1 r) |* H: o4 X; ?: S
)
& ], j6 L' Z5 Q6 y
)
4 {( \8 {& F& U
)
4 v7 L" m$ v* [5 `! Z% {, m
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
( e5 ?; d, u& l" d. @2 C- h' r
;;计算用户可以指定的花形数量的上限
: O+ x# {. p# E) s( r
;;用于下一步检查用户指定的花形数量是否合理
5 z- \, h1 ^& R- F! b5 u0 y
(setq lg_length len0 i( w: M% Y/ H% Y1 w+ Y+ |. e
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
& Q9 b$ n* U) t1 m( j) f+ D0 u& ]
)
7 I9 D% C3 ~/ J- |$ h, r) K
;;指定花形数量或A段最大长度. M3 ~" f7 {# a( f# W, R
;;如用户指定的是花形数量,则按用户指定的花形数量画图$ V2 P, c" o) f) g' ]3 a# Y: F
;;如用户指定的是A段最大长度0 R1 |* H/ o# }- |: k5 L
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图/ p J9 u% @! B* Q
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解0 R4 Z8 U3 u6 ]
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
+ n# a* y" [; K- p+ {: t8 s* b0 w# m' R
(while (not n)
( f1 {) R: Q9 A" ^- _5 {
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值 }; l' q; g/ L% A
(if lg_n3 ~+ e s: ]) ~+ o
;;存在默认值, d) e! @9 w% n( K9 s
(progn
5 C; Y' }7 V" e
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
0 \% ]& P4 G. W' ]1 b. o x
(initget 6 "l")
5 w2 n! M5 P: J2 U
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"8 [0 s. m5 o `# n. p0 l$ ~3 f
(rtos lg_n 2)
% I: D5 P- _( M/ }, F
">:"$ g9 b- s9 S, m* _ b( W
)0 x* V: ]8 t, V" R
)9 }& S+ Q1 B! `8 w
)3 G8 j6 l- P2 w+ W. M$ L
;;空回车时花形数量使用默认值4 m" N0 q9 V6 n2 v$ e O
(if (not n)
' T/ Z1 N q. F2 m7 t+ z, \) |
(setq n lg_n)
% a& G% G. ?% [4 u+ r9 g# x. c, `
)
, ~! {6 T3 @6 H- A
)" {8 _3 X0 z: T8 X+ m* A/ O
;;不存在默认值" E6 R' l& M( \" N' {
(progn
% ^# t3 A8 D- F& d- O
;;指定花形数量不接受空回车,0和负数;可输入关键字"L", b6 p. ?7 ~% ^- @6 J6 c3 x5 a
(initget 7 "l")7 |5 s6 f$ {4 S
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))0 C4 N( H9 e3 z& b: _
)# s5 X7 L8 \3 D, A2 V7 w
)
5 b! ]. W2 y) K7 h+ i8 z" o
;;检查用户输入的是花形数量值还是关键字
+ a% t3 H; W4 ^+ t0 o
(if (numberp n)6 l+ M0 Y3 d. G; C$ K8 T
;;输入的是花形数量值
' T* C0 |. P! b9 z; @, ?' @
(if (> n nmax)
, Y2 D9 C. [- V. h
;;当花形数量值大于上限时清空输入值重新指定5 D0 x9 Q# D# Z
(progn
! S) {7 ^/ C/ o( ^" W. h& u
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
1 w; D r' o! W' I
(setq n nil)
0 w8 K6 u) a; M4 {4 Z1 Q
)
; p5 m$ P8 C( L
;;当用户指定的花形数量合理时存入全局变量
( w! g/ n/ _: p. T! q
;;以便用做下次输入的默认值
, h0 U$ s1 }+ e0 @& k0 ?9 u
(setq lg_n n)9 N' Q) b3 p: r" E$ N3 o
)- C# v* d* S0 _6 t0 s! }9 C
;;用户输入的是关键字. T( ?8 n2 S7 ]4 Z5 `0 r
;;指定A段最大长度
" A% u( N$ K; K i! l0 {
(progn
2 k- l: U6 g0 Y0 x2 l* M( `+ K
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍 ]% Q) _! H8 F, h5 ?6 U, J
;;否则可能导致无解
& Q/ L8 e0 @* M: e$ t3 _
(while (not amax)2 w( y$ l% ^9 f1 d$ s/ [7 ?
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
2 H4 F- [* c+ D2 P |
(if lg_amax2 B8 H+ [% s8 r' J% Z: B
;;存在默认值
% K- j# m2 g$ _
(progn
( V V1 p! f% ?& K
;;用户输入时接受空回车,不接受0和负数
" S" A t! j0 h9 v/ `. F7 @+ }
(initget 6)# O: `2 f8 P$ R" n* |
(setq amax (getdist basepoint B1 ^4 ?# \7 k7 e' B v3 E- @
(strcat "\n指定A段最大长度<"
' i& _: M1 Q5 h' h9 P# _' f. H
(rtos lg_amax 2)8 s7 R9 |4 g4 q: G
">:"* p* x$ H. l( {
)
2 o3 [2 D; _6 g/ W) O( u
)5 N6 s" D0 G" t1 r3 d8 s
)7 f- T. _" d& r: ?( H
;;空回车时A段最大长度使用默认值+ ?2 j# g4 k& K! p0 `1 u3 ^% n
(if (not amax), H o) A1 Z5 p' H$ W: U
(setq amax lg_amax) o; ~2 u+ v& F" I: R$ d+ h4 H
)
0 c1 R3 b5 q+ s, x
)
7 W- q* T" c. G: ~: m, J; i
;;不存在默认值
$ T; b" V5 R6 P! a
(progn
5 n1 X; D4 X' [9 E
;;用户输入时不接受空回车,0和负数4 M/ J+ {0 A6 t+ t, F0 ^
(initget 7)
8 F9 P7 z1 Q: N
(setq2 v5 I$ p Q6 j9 B' g
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
! x a% |/ A @' d9 X( ~- V8 f
)
! D; B E, x' r0 I
)
# V. y t( e4 E2 v
)
$ k# f! }5 n7 n' M3 l9 B
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
8 U2 a, l# {7 p/ ~3 x
(if (< amax (* lg_width 1.5))
D8 O6 E. Y+ \: W7 B- ]
(progn
9 s: d6 W6 d4 ~+ ^. ]5 S7 Q5 [/ ?
(prompt (strcat "\n指定的A段最大长度不能小于"& Z7 {5 s1 O8 g# Y
(rtos (* lg_width 1.5) 2)" }5 k; [) }+ E& M. g) e
), C, F2 [# k9 J' l) R0 w1 X
)9 ], n% n. }/ M+ I# T& ? w
(setq amax nil)
% v( {8 x9 c9 \2 i
)
/ O' q- \0 w" h8 p5 Q: o. d) i
)
* y5 a0 \/ X1 \7 |) A
)
/ y( q! y/ Z! v: [" Z# a$ L; p
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值5 p" _6 b3 K. b
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1) w, h. b7 c5 ]
(setq5 _. o, U' ^% h$ b
lg_amax amax- P5 h. d$ {, ^4 C1 g- b
n (1+ (/ (- len (* amax 2) lg_width)
4 c+ D- s i: E! V
(+ (* amax 2.5) (* lg_width 3)). K, q* a9 s, F* G' j$ {
)1 X% {3 `; }4 Y7 `' y8 Z
)0 m, F E K$ d- e8 o7 z2 H
)
- B& X7 M2 E: V1 t2 Z
(if (> n (fix n))- |* G, l; ^) n3 X) y
(setq n (1+ (fix n)))0 C3 p# G$ M! ^( V9 Y5 v
)
; |( n5 a# I2 ~8 F
(if (< n 1)
( y/ v' O5 m0 B( w( J
(setq n 1)
* N( D6 q; y0 |) x! s, s) W
)
( ~- x( L3 x5 N/ B; M# N1 u' Y
)8 @4 w0 Z+ U7 K! w
); W, S" e& \5 C& w9 h1 d
)
1 |# m. ^ @: X2 M8 L
;;画图' v+ N9 z$ c9 R3 v2 o6 P, M/ J
;;记住原来的对象捕捉设置
: A4 r1 L* h3 S5 _$ z' ^
;;按花形数量计算A值
" n' ^* A, N7 \- m5 C
(setq% o0 @! l6 [# b
oldosmode (getvar "osmode")
2 ]9 `# m( }% z$ e4 ?: ~
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))+ g9 ^! P$ E( n
(+ (* (1- n) 2.5) 2)
6 U: x2 F: l( C7 f
), R, w$ W, V6 z, Z9 a: O
)
9 @2 R; {: |7 L2 F2 m$ T0 m
;;暂时关闭对象捕捉) y, q4 V0 Z: k9 K/ P9 z# s# w
(setvar "osmode" 0)
! B. Q4 W! m i. b
;;屏蔽命令回显
0 o: ] I# V2 Z* ?( f, }& V5 y2 C5 H
(setvar "CMDECHO" 0)) x& v; K( F' F, \9 b
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
( z0 L5 Y0 L9 w4 r$ G
(command "rectang", c& `$ g- c* R1 d# Q
basepoint6 ] I2 r' z2 f+ l- G
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high)), q U, n* h( S/ J- s/ p
)
1 V* R; }. w" P4 n& ^7 `
;;在第一个矩形外侧一个方钢宽度处画第二个矩形 r9 g6 d" O& c( M4 g- ~
(command "rectang"
* C% w* p6 @0 E4 {# \) B9 V
(list (- (car basepoint) lg_width)5 j2 G3 I+ z3 R* v+ M: q
(- (cadr basepoint) lg_width)
* r; i8 }+ {. D; r
)
s9 y* b% B2 m9 m( _
(list (+ (car basepoint) len lg_width)
1 {) e2 x# d7 q, p( ^; S9 X6 U
(+ (cadr basepoint) lg_high lg_width)
5 R+ F, d2 a. E1 {/ j. R
)
Q) K7 C2 a9 m" Q
)- \8 ~/ M% M8 C
;;将指定点移到其右侧A距离处
y; G, K5 V1 Y" }4 l0 q4 G! o, e
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))6 D# ?( |: X7 I$ r+ g7 Q6 H2 m% q
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆4 \' _7 M& \" F5 [
(command "rectang"( x6 a) G$ o& F2 r; o+ J) |$ ?* {
basepoint3 f2 w* o8 X( R) I
(list (+ (car basepoint) lg_width)
5 V: T' T. A- U9 q7 |0 T
(+ (cadr basepoint) lg_high); T. n1 G# Q7 x- ?) C W9 }
)2 P4 j2 {8 r; m% t/ B' O
)
$ f" S' m, {7 l C! K/ t
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)8 Q5 C5 O* x9 T3 v9 x
(repeat (1- n)
2 A' K: X! D2 W( ]" m& p9 l1 l
(setq
- e3 P8 ^ K0 g, f
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
8 Z) S7 x$ W5 ]8 v5 _% h
)
% ~2 l3 d1 z, o, V) N
(command "rectang"$ e1 I6 @3 J& V: w& h* i
basepoint& r7 p& v6 n0 U/ F
(list (+ (car basepoint) lg_width)9 }7 G$ n- V2 L8 \
(+ (cadr basepoint) lg_high)2 g% p( f0 {: M" d. f# [ \
)4 h' K% o& E0 I5 D* h0 J
)2 m- X! v5 B6 s# b
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)* m' m. d7 P0 V- F& o, V6 D
(cadr basepoint)
# I! N' N" s: V9 c; y& ?
)# D' |. A1 n f' @# ^3 ], Y4 N6 A
)
0 O% r' S: p9 G) ]8 b9 p
(command "rectang"
# d0 t5 ] ~, Y. u) I; b
basepoint
" U3 Y6 k( ?* E, W
(list (+ (car basepoint) lg_width)/ p& w# S' K/ Q
(+ (cadr basepoint) lg_high)/ E- s) ?; E+ j8 X
)
$ [% d5 b+ n* Y7 t
)
: m$ ~" x3 }, c* }' ]4 J/ I
(setq
, P- X2 B- Q' q& E' w
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
|0 i0 n. h" x- C' }: l
)
3 |8 v9 ]6 Q# Q
(command "rectang"
9 J8 I7 c" Q4 |- S T1 g0 N
basepoint' p8 u. `0 F- H4 F9 _0 c+ O$ t
(list (+ (car basepoint) lg_width)' Y9 o8 f$ `5 P" Q( {
(+ (cadr basepoint) lg_high)
# d; L: }6 b. U5 n( T a
)% n( y4 c1 ^+ }, d7 E( E& t
); g# h* c |( T/ \4 C/ ^! N
)' v; R$ i) N! C% `1 @2 s3 U
;;恢复对象捕捉设置4 C: D t2 [6 n) Y$ b
(setvar "osmode" oldosmode)
# u3 T1 Q/ x1 M! A9 J
;;打开命令回显
% l+ @+ c5 g% v8 I+ y
(setvar "CMDECHO" 1)! V( t# i) F' H& B% M( I
(princ)
6 ~. S; I( [) q, ^1 l5 ], Z: \
)
% H( M5 {' Q( U4 s0 ^, B, m C8 O- r

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源