作图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 发表 $ ]* t& Y* U) m
直线分段方式，a=a=2b
7 _/ F4 U. w( Z8 Q) n
+ R8 n4 P0 d- b1 y, z# M; q

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 ( l- K0 n. m; R* E4 g

" w+ i s4 m) g1 |距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

9 Y: z/ Y" F7 Q2 V" W
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
& b6 v9 {" Q8 Z
;;设置栏杆高度和方钢宽度默认值# M3 w2 t+ v5 W5 W) m5 i
(if (not lg_high)$ o; @7 {* P8 x' R5 ?
(setq lg_high 5008 C+ g" c J. E. r. p; q
lg_width 14
% P ]6 a0 G6 \0 `& q/ z9 M
)9 B$ l7 x/ J/ Y; B: x z& N$ N
)
w% {' X% g% D- b
;;指定图形插入点
+ x( ?1 V) g' N5 p& O
;;不接受空回车
; E. n- ^! N& d" i( ~
(initget 1)- `6 Y v4 l3 L
(setq basepoint (getpoint "\n指定插入点:")); w2 R! |9 { E
;;指定栏杆长度和栏杆高度和(或)方钢宽度
+ H7 f+ y% n9 |/ d
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定, o/ ^8 ^6 r8 z1 O f% b
;;用关键字指定栏杆高度和(或)方钢宽度后
4 P4 o9 K" n* `# v
;;需要重复运行指定栏杆长度的代码段* f$ \) b8 e7 d! a* ^- \
(while (not len)
9 w) X0 ~$ a4 f. @5 F: n
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值) ^# l$ O+ ^7 r( N% B7 O, Q8 C5 X
(if lg_length- a, n2 Q5 F5 }6 R9 T/ i
;;存在默认值1 t; E( B4 ]3 J7 p6 ?9 ^
(progn
# R L0 G! Y+ T8 m
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"7 y0 z) V0 {8 r% o
(initget 6 "h w"); A/ R+ r" ~3 g
(setq len (getdist basepoint
5 W4 x- |# X# I: M
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"; x6 `3 }, a0 E; U" p
(rtos lg_length 2)# N+ \- B& U0 M$ I) R# T
">:"
9 A* n+ B+ v: K3 z# @* a
)
# _, ^7 B, ^8 Z9 m
) J" Y, ]" }' |8 T" M# C
)0 G6 n% w/ z; w6 i+ r4 n
;;空回车时栏杆长度使用默认值# e1 {0 I# d! n) |/ x' ^$ z1 s" F
(if (not len)
* \) I& X I$ `0 {6 T& l/ e5 v1 K
(setq len lg_length)
d9 C; G# X0 }$ _4 X! k- w
)
. X0 {) o. H8 P$ x
)& b$ y! Q0 n+ I- |
;;不存在默认值
! }- m3 a# X4 e. g5 A
(progn+ J9 y! Z: [: R
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
$ [9 @' A$ ^% \9 s$ Y9 a
(initget 7 "h w")- u# A% Y9 r$ q& `$ o8 Y: F
(setq, `7 a& P( ^5 b5 ~& [0 e- k
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
9 w/ ^3 P8 R! C3 B$ d% E
)
$ _( }& u3 J, i) q8 e4 z
)( [% U( m7 _, D9 A
)
' t& c9 ]$ L9 u, F" \& n& `; Q2 L
;;检查用户输入的是长度值还是关键字5 b3 L0 _- r j2 s
(if (numberp len)
;;输入的是长度值
0 V8 B) d% @9 {6 I5 X
(if (< len lg_width)
: [1 u0 o n8 H0 v
;;当长度值小于方钢宽度时清空输入值重新指定
_: C8 \. F% p0 P: c
(progn
; w4 f2 A- a+ |. h; m9 {
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2))), I' W6 e6 z* K6 ?! h1 i3 q
(setq len nil)3 q! J" g! H1 V7 q' Q! _2 p+ Z: T
)
4 S3 |( H( i! _! N
)
) u" y7 q0 z# ~
;;输入的是关键字
4 ~! J. J5 N* P# x5 B! r
(progn
: q) K" e; q" r* ~
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
& J0 Y, ~8 N; c0 F
;;用户输入时接受空回车,不接受0和负数" @8 R1 G2 q5 `7 F5 G+ V. j
(initget 6)
g- _2 n& w8 D
;;检查用户输入的关键字是"H"还是"W"5 D9 [. b' E; b- D& S5 @1 h# m* j) }
(if (= len "h")% ]3 k7 z3 i1 u1 F! @' w
;;用户输入的关键字是"H",指定高度
; A9 X/ I0 V) ?: K: Q6 ~- \! t
(progn4 j$ H/ x; K2 {0 H5 T6 y a. p
(setq high
$ F' G( {7 [$ F
(getdist basepoint
* b1 Q7 S$ {. V
(strcat "\n指定高度<" (rtos lg_high 2) ">:")* e* N& J8 }1 U7 {$ C2 _" C t
)
/ I5 j. h) \3 ^6 ~2 s
)9 G% V% F/ z% ?0 z q
;;用户输入新的高度时修改默认值
" x2 B* R/ C) k) s9 w
(if high$ R t9 X2 N4 b9 y7 r
(setq lg_high high)
6 T/ D! q1 O8 |
)
, F- C) Z. Y* ~7 P: Y7 y
)5 `) j2 @, l; q$ A6 |) l* {, W
;;用户输入的关键字是"W",指定方钢宽度
. R9 y2 Q( v; Q! n& @
(progn0 Y& ^" G, _8 N |7 v: t3 ~
(setq width+ h* i0 Z+ M, D1 A8 W6 \/ h
(getdist0 v& Q! x( W) C7 `+ a6 J
basepoint* Z# @& _" g8 F4 |. o3 E
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
& {& d/ I" Y% V' _5 k
)
f! J' @* o6 L( S
)6 D. {* V3 {+ C8 |+ z! M; A+ n
;;用户输入新的方钢宽度时修改默认值
7 W- @0 t8 ]6 F. x% I
(if width# {0 r7 x+ |/ Y; I! F5 X
(setq lg_width width)0 f) \+ d9 O( y8 J
)1 l ]7 k% j9 O+ X, r7 ^5 l( r
): D+ @. H% N2 }' o" r
): W6 H/ }. V/ l: w; ~9 e: ?- y5 K
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
- U4 Z J' N/ Y% k4 Z1 E f
(setq len nil)$ ^0 H1 m8 B0 L u
)
)
; b& |* b# E2 \% L- c2 C& ~
)
5 w6 T0 T6 z: G
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
/ I' G/ z1 J. p! G' f! h
;;计算用户可以指定的花形数量的上限
5 ~5 p4 f) O- k8 q9 v- O
;;用于下一步检查用户指定的花形数量是否合理
' m5 F5 s0 |) @' q
(setq lg_length len% j1 b" X# t) X1 W
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
3 E8 q, v6 Y4 i. ~
)
+ M: R8 Z2 i% _
;;指定花形数量或A段最大长度, ?6 j0 u4 A; J
;;如用户指定的是花形数量,则按用户指定的花形数量画图% K0 o6 w X; \* i# {9 R/ S
;;如用户指定的是A段最大长度
( J0 |# Z8 [1 U+ b+ x
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
7 l: Z$ K6 X$ l% ?
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
- e6 L& c% y, S" Z8 o
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解5 Y1 u7 X- T* v* h' l( s
(while (not n)+ E! }, Y9 A& `3 w6 {) l9 [
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值4 M0 @$ c8 |& \6 ^5 ]- A
(if lg_n
0 F" S# `' o* o( ?
;;存在默认值. `+ N1 `0 d0 ~" f: F
(progn5 L8 C; d0 k4 }5 q
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"" m6 s: f, i* L! N+ W# i
(initget 6 "l")
. g% K4 U* p7 O- e
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<". A5 y) I: S7 x# T: T
(rtos lg_n 2): W$ J% x, Y3 |$ F# S
">:"
/ q0 b: B" B/ N" u) l/ P0 A! y
)
5 x1 O h! z) p C
)
% C8 S" Z, R& {2 L: J
)
& K0 k+ g5 D D# g- o# V9 p
;;空回车时花形数量使用默认值
9 ~: |, o/ J; k+ u. s
(if (not n)
2 ^' x; [) P- P( G# X; o) T
(setq n lg_n)
* C% g" s2 U7 v9 P
)
# p" q4 g# T0 M2 P
)6 _1 r C; }/ c1 F5 p' S; P. ?
;;不存在默认值8 c9 q7 r8 L" ~) q, N
(progn
5 a3 _; U4 I. S9 A) F2 r0 C% L# l
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"0 ^9 m H; r& A$ P: i
(initget 7 "l")
+ C% ~8 Y9 u3 M) X W/ } \
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))4 `+ R1 Q* C }5 w2 ~* I
), [2 y2 |' [4 b- z' q
)
6 x0 P7 I' q# V4 l% [; M9 I# J
;;检查用户输入的是花形数量值还是关键字/ }5 A" s. [3 |2 }4 S- t
(if (numberp n): [( O% {6 t% t2 _
;;输入的是花形数量值
% ~! V7 f. c3 s; C9 }' |
(if (> n nmax)
3 u" E1 Z+ w0 C
;;当花形数量值大于上限时清空输入值重新指定+ b/ L6 l5 H Q! V$ X; B6 Y: J
(progn* |( k' W2 o4 R+ _6 l
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
; Q. y+ S3 o! d+ c' O2 `
(setq n nil)! _* p$ L; S b
)
2 e- K3 w# Y! }2 V1 ^+ f8 y
;;当用户指定的花形数量合理时存入全局变量
5 W6 ^6 x$ h1 E: ^+ m
;;以便用做下次输入的默认值
3 g+ O+ n' M0 ^; _' U/ l6 U( X; x
(setq lg_n n)
; _) C* v' V& r
)
^6 `, D6 r* S2 p A/ T% O: O
;;用户输入的是关键字( D2 e+ P$ n/ B9 ^7 F, u4 U
;;指定A段最大长度. j6 ?! I0 @: ]
(progn
+ A I2 j4 [; ?2 Z
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
! _, \+ ?3 Q: m; Q
;;否则可能导致无解
; Q2 h, r8 \. C, ]0 S s
(while (not amax)3 T# d7 m( {0 k0 b9 r
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
: J* ?, l" I r* x. f( n4 E1 T
(if lg_amax% Z' S9 I: h, w
;;存在默认值. y9 ?7 o6 @" L6 I4 s5 v. V& K
(progn
+ g' g! p4 i; W
;;用户输入时接受空回车,不接受0和负数! N3 M- E7 j' _9 F
(initget 6)% d# i; P! J2 [$ d' |5 m; M
(setq amax (getdist basepoint
# o0 ?( T2 j/ U+ q [ T
(strcat "\n指定A段最大长度<"; E( b. ]9 E2 Z7 t+ b6 [! \
(rtos lg_amax 2)
, I9 `$ @ K, W9 p
">:"
0 h, t$ [3 D! G3 F& a3 A2 Q+ D: R
)
8 n: Q" [2 B+ v- q! m$ K+ P
)
e. T' y3 F1 }
)5 p6 X7 R* ]* {) G! ]; v
;;空回车时A段最大长度使用默认值% H6 A6 }6 x& _3 ^2 h0 I+ @/ V
(if (not amax)
9 q1 g1 H+ ]) j' i5 R
(setq amax lg_amax)! |3 h- H% J1 l( t9 t- J
)
9 B6 J1 l8 A) b" ]: h+ w0 ?
)
$ h6 I% U3 N4 k; [/ u) m% \
;;不存在默认值1 |( T g% X8 s D" T
(progn
/ J5 W, k$ T+ M. }
;;用户输入时不接受空回车,0和负数
( M$ S: N5 l( E# m
(initget 7)
, R! ~$ D/ e2 T7 C$ L
(setq3 N/ Z: T2 s7 d. d& M9 E
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
+ F& h9 C: c1 A, d5 I- P4 t
)
3 q3 d, [0 O/ y g( z
)9 j( h m+ p# _+ A
)) h$ J8 ]- g% D9 Y4 W
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
3 A5 ^1 `2 Y Y2 K4 b4 b% e9 T
(if (< amax (* lg_width 1.5))8 d$ b. I9 ]/ E* }6 W4 Q
(progn! N1 H- l" p/ X' J3 d
(prompt (strcat "\n指定的A段最大长度不能小于"
7 r* p7 V, N- E
(rtos (* lg_width 1.5) 2)
+ K" W0 Y) @2 \' A. b* T
)
' B2 f0 \. e5 ]' H0 J* ]
)7 H+ c# A$ ]* w6 ^
(setq amax nil). Q5 C# K$ `2 {2 `% G
)
0 z3 F' F; n" Y" c
)
[' ~: j1 ~, T' N1 Z# {/ j; `
)
% C D* a- k! _% k) I# w* v
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值2 `5 y) w! z7 L9 M3 s; U
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1. X) u' h0 w- E- v8 Z- {
(setq
Q; s( Q5 ~9 l p. ? n: n
lg_amax amax
/ N, ^9 j! H+ `9 K
n (1+ (/ (- len (* amax 2) lg_width)
7 B2 n- D4 l9 k' a2 K% i: h# a3 X
(+ (* amax 2.5) (* lg_width 3))
: |, `1 h6 P3 [/ Q U
). W; C( c0 m" q
)$ k+ n* o* |- m+ |
)3 W# x$ m% {/ r6 J8 P
(if (> n (fix n))
(setq n (1+ (fix n)))7 T, q7 M( V( V
)
& B! D3 i1 t! F d/ f% V8 o! x
(if (< n 1)4 `3 M; |* w9 \8 u. {
(setq n 1)- j/ S1 K0 l: [ }; S
)
O) j6 O3 B+ @' E. W3 n3 \
)
8 \& U: W2 ?4 T! ~7 w
)
9 g, T1 N1 l( d5 Q# Y3 J! {. M
)
- t4 F+ S9 X) J
;;画图
! c9 D/ a* e) H
;;记住原来的对象捕捉设置
+ ]& H) Y, n! o) @4 _" l N
;;按花形数量计算A值
: M! [0 I8 B G) |
(setq
/ i8 `1 O" r# ^7 |
oldosmode (getvar "osmode")
9 z4 j' }9 F8 Y0 q" z6 k P
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
r" K5 y6 s+ J& j6 [, O
(+ (* (1- n) 2.5) 2)
# |" {4 A# Y0 l: m1 m8 R
)
4 _* _5 M5 D4 ~) x
)$ V. m+ H/ v9 W
;;暂时关闭对象捕捉: W& e( K2 G; {/ K6 X+ D
(setvar "osmode" 0)
( S6 b4 e3 A( Y/ R4 h# |
;;屏蔽命令回显' c- i: Y- q9 c3 o# p0 @
(setvar "CMDECHO" 0), s) a0 E( @. b! ^7 O. i0 N' d
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形$ m$ d+ x. k" W+ p; s+ x* J' Y0 E
(command "rectang"- v) {8 S0 I* a0 k6 l! O
basepoint
~# E" F5 v/ }7 z% i H. i' t
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
7 {! ]( ^- C' T) [0 m9 W5 s
)
, R' v( {' m/ ^& T
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
( e$ ` ^% {: i- I8 I
(command "rectang"$ e5 ?* q8 b: m: x* P3 r+ h# u
(list (- (car basepoint) lg_width)# c. z9 O+ g% J. s) o. |+ z# ~8 d
(- (cadr basepoint) lg_width)! B2 a4 a- R$ r! z1 R
)
) ]8 Q1 S0 i$ ~
(list (+ (car basepoint) len lg_width)2 B, x% Q" f0 r! [+ z
(+ (cadr basepoint) lg_high lg_width)6 B0 W2 ?0 \: M
)' K, X, p( s9 ~: F" P: N% n
)* _4 N+ u. k( K$ s* X1 w
;;将指定点移到其右侧A距离处
$ z# P" }* {) H" t) n
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
( Y8 T; S& k; r% R6 H0 H6 I
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆$ X' b3 k9 v8 N3 I+ d9 F# m8 K) Y
(command "rectang" M5 {4 p; c0 ?8 @/ l& _+ ?
basepoint
! K& k! {5 Y3 q0 m7 T! t# j
(list (+ (car basepoint) lg_width), B) }# Z {. z/ q4 I _
(+ (cadr basepoint) lg_high); b. A5 ~: R9 z
) {$ n9 X! G1 C2 P& @! f& ~' t
)# T S6 K8 v8 v$ S
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)$ M3 A* _7 Z' J, q2 e8 _
(repeat (1- n)% }( o7 q# h% B
(setq c; m) _0 a0 C3 H4 a: X, X
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
+ Q& n W# ~: R$ }5 w% S
)
& d% p b2 ^8 X, w; g7 h
(command "rectang"
7 a: p% B" R8 \5 }
basepoint
3 m8 C p* h8 T7 \, n; ^' H E# ~
(list (+ (car basepoint) lg_width)# S0 w5 Y; ~: H$ F7 u1 n3 x4 A
(+ (cadr basepoint) lg_high) l: ~2 A! Z# }6 a
)
+ v9 T& U* j) R6 V
)
& F- s, o: J l8 o- [* @- j
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)* f) Z; ~ |* r! Y
(cadr basepoint)
3 O& e* K& z6 p) l% w
)9 e4 h! [; S7 z3 A/ H" Z
): V8 u7 T. x6 q/ w9 r) {
(command "rectang"! c. j. H: W" D9 d: u. U9 A' o
basepoint
& d7 w3 k* {. I7 V
(list (+ (car basepoint) lg_width)1 D! x& s T" `7 c0 a
(+ (cadr basepoint) lg_high)
- m( l% Q& N9 p: _9 F3 H
)1 T( x) P+ q7 v. g- M! o$ x4 I8 G
)0 v& O0 c. k. z
(setq7 o; x9 h1 H8 p0 t
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
8 i: w( e5 D6 R# ?5 Y
)4 Z: q1 N: R3 Y# f7 a
(command "rectang"6 V' Y7 k: i: ^+ Y Y! D0 T3 Y
basepoint
; C, v1 w2 c- o; A1 K- v) t/ ^
(list (+ (car basepoint) lg_width)
" D1 y6 R2 ~, U# a
(+ (cadr basepoint) lg_high)/ D2 o$ K D1 y9 L! x
)8 } }5 a+ \# V: H+ N; }
)
( Y) _' x0 w9 g% N! Z
)- S9 R/ ~3 E6 R. L5 _
;;恢复对象捕捉设置
1 r; {9 K# Z; B0 ~
(setvar "osmode" oldosmode)
8 J. L/ Z: T3 M
;;打开命令回显+ A; ^+ [" x3 G; O# c8 D- v/ ^0 {) N
(setvar "CMDECHO" 1)
9 e! T0 Q! j' N4 i4 F9 ^& d/ Y5 M
(princ)( [ j4 M) y! c, e
)( J% X0 c- C4 X- A

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源