作图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 发表 , _3 `% W g) u
直线分段方式，a=a=2b1 A( d% I- |( f0 Q9 o

- F$ p8 m0 R2 j: o) T

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 1 y; G1 H9 L$ N! R/ S9 a

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

头尾是A距离，

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

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

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

+ ~# l, P. _* v Z7 u
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)+ B0 E7 G _. s. {( Z5 T4 b
;;设置栏杆高度和方钢宽度默认值
* d9 f! t9 v0 `) V' f4 ]
(if (not lg_high)
5 k" t5 ?9 A2 Y9 X' L$ f
(setq lg_high 5005 u' B* ~ ` d+ x
lg_width 14
3 q2 f4 _- x- v' N
)1 u" D$ `4 Y4 `2 @9 a
)
4 Q3 e0 t& f4 {" Q1 C% }
;;指定图形插入点6 F8 v7 X+ ~/ F6 W/ z
;;不接受空回车5 ?$ w* c1 _6 F# [% G: |: E5 E$ M
(initget 1)
4 W. Y& [+ f) _ ~; g6 c0 G. \
(setq basepoint (getpoint "\n指定插入点:"))1 V P; v" A$ r8 W
;;指定栏杆长度和栏杆高度和(或)方钢宽度4 \! ] Q- Y6 R9 X2 o- D6 c
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定4 f) x/ M U9 ~7 L
;;用关键字指定栏杆高度和(或)方钢宽度后: P4 \' _- M; N. A! i Q% W0 ?7 T
;;需要重复运行指定栏杆长度的代码段
3 S; Z0 a7 A! ^# G& N0 X
(while (not len)
. q) l6 b; d# v6 f- O! z% w
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值* b" Q2 [; Y3 n$ I, J
(if lg_length+ b0 j+ m8 W% \) ]: o
;;存在默认值
( I: r- j3 I. a* l+ p3 @, C
(progn
* [ z( p8 m6 F
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"% n8 [% I9 y r; x! V" V9 @# e
(initget 6 "h w")
- U6 y, Z9 g/ D% ~, z V0 w- N
(setq len (getdist basepoint
+ v+ o2 n) V6 P' a- p q J
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
; r4 D4 D: s( R5 D
(rtos lg_length 2)
$ x% m* Z7 x# K' g: W/ p& k
">:"$ Q& z' y. s# D" S. F9 R' a
)
6 `: U# q, Q* s! \3 [
)4 U. {( j% ^9 r5 ~6 {; Z
)9 S: ]4 f$ C4 E- F5 U
;;空回车时栏杆长度使用默认值: \- A7 D( b0 ]% `
(if (not len)
U. g/ `1 b0 R9 O
(setq len lg_length)4 [4 q) I8 S. k
), z% N- Z$ e7 i0 K; u
)8 v# r o* q: }' _0 R
;;不存在默认值
( @) S# x$ l! p: i0 @
(progn6 h7 w# K- b+ t9 i) J$ C
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"$ E: W7 z" U7 B8 R$ d' d8 X$ q
(initget 7 "h w")
* `2 E( T9 {9 w L/ x
(setq
f# O/ s; H r! q
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")4 [3 H S' m9 s) W5 R
)# \. r$ t: c+ Q8 \9 a
)
1 M* t# j; s7 v/ g% _9 \" g; S4 _: k
)
- @( Z7 C) j4 ~: n2 W
;;检查用户输入的是长度值还是关键字
0 i8 y- h; b+ w. W
(if (numberp len)
1 ~, R: W( J8 m4 O; h3 E6 l! R8 @
;;输入的是长度值
w; R4 v' t8 a) u. l$ T
(if (< len lg_width)
7 j: M7 r( t" H3 ?) ^
;;当长度值小于方钢宽度时清空输入值重新指定) w3 N4 [ e' f/ h9 A1 p$ Z9 h7 ]
(progn
6 ]8 R4 Y; n' A
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))) j. v2 {3 m6 J; j% n# N( |
(setq len nil)
/ j5 k% `. |! W8 O1 S7 S! t, B
)1 r2 y; S. b- {- ~4 R& o0 O: r' e
)" j8 _9 R, t* i) f/ U
;;输入的是关键字
- ]$ E" e- l3 p: v: p
(progn
/ |1 _/ @- o) Y6 D
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
& V. R& H* G$ j8 h1 L3 k2 H
;;用户输入时接受空回车,不接受0和负数
5 T! E4 Q Y) ~2 h7 D, T
(initget 6)" F5 {8 X2 p5 t- `
;;检查用户输入的关键字是"H"还是"W"8 f3 G. o5 I+ @6 S" S
(if (= len "h") v B) Z! }3 g
;;用户输入的关键字是"H",指定高度
: M Y( b4 ~ y2 l7 W
(progn7 A6 J3 L' z; R1 k( b8 h
(setq high
1 B9 Z0 |- ]- F9 n2 Z1 C- G
(getdist basepoint- e* u, ~: A& D9 T
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
! B6 |" P* h8 Q% Y2 `
)
; E8 t! s& C ~4 ^) ^, a
)
! a; H9 C* A, G, u& z) p$ P ]1 h& G
;;用户输入新的高度时修改默认值
' n/ g2 @/ O P i2 a6 j3 p
(if high: w- [7 ~( D. Q5 l6 q0 X
(setq lg_high high)- H) Q: I! w) |9 {) m, H& O0 E7 i
)$ {# ?* v+ W9 o; g& y7 g4 d! @
)
' N/ H* d2 U' q; o, n8 B
;;用户输入的关键字是"W",指定方钢宽度. P* O8 D) P S; j
(progn( [0 G h7 h0 f
(setq width
1 X8 b( J7 ]" ]
(getdist# g- w8 }; q/ I% s% K
basepoint
, q: ]. a; @8 y
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
/ W1 {2 n6 v8 f) a; n% i1 l& f- E
)
. E: E2 T7 k, y9 B) |% @
)
9 d- I! t( [4 Q3 k @- P
;;用户输入新的方钢宽度时修改默认值
: h; Q' X9 X$ @4 y& |
(if width
; P8 F S' f: |4 a& V+ B6 o4 \
(setq lg_width width)
' H2 g+ P' d j
)8 ~- ^3 h) d" A) w8 D
)
7 ?+ w. T8 o N, u& ~
)' ^- |8 s7 o( T
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度/ M- D6 T! X4 H, \. J7 E! \
(setq len nil)
3 Q1 y( c( ] e4 W; \, U* r. P' t
)4 n- A* @2 U( F( P& Z6 t& b( Z
)
. |* l& h: E# @# O5 q$ ^
)
) o5 Q( `- v- [
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
1 l, G5 }! Q8 m. s& S t* q2 o
;;计算用户可以指定的花形数量的上限
! }9 s3 u9 A- J: P& Q' e
;;用于下一步检查用户指定的花形数量是否合理
- `/ o/ g. v2 L B" d. o5 z. _1 _
(setq lg_length len
0 c) g$ j: ?7 h7 V! @- _# c
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))7 U# e+ s! t( G* z/ R
)
3 J0 k6 h: t2 x7 w" P
;;指定花形数量或A段最大长度
0 k0 _/ r# h( o' Q" L; x
;;如用户指定的是花形数量,则按用户指定的花形数量画图* y) X0 G! s. X* e, m
;;如用户指定的是A段最大长度
8 H% e8 O9 i# v6 ]
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
& n6 o7 r3 E5 \" q4 g# s
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解& s9 N6 c4 C/ x
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解( _ e$ g" z8 d
(while (not n)! G3 C. d& t) U8 C% d$ }0 y
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
% k, H' a6 j/ i% z- `
(if lg_n3 S) D$ G0 s# p h/ C
;;存在默认值
( t7 q( S5 E% M ^4 D$ s5 [# J
(progn8 O( V; e( X" }8 d" p- e7 z
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
3 M& `9 k& x# T+ L0 ]- Y
(initget 6 "l")) Q9 z6 K2 {3 ]& [8 V
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
4 @) |3 a7 `$ P- v+ y" k& _
(rtos lg_n 2). {5 E' G6 A4 a2 H
">:"/ Y. [7 ~5 k! ?4 i$ H
)4 x6 [6 b# y8 {; s+ ~/ T: u! d" ?
)$ s- f' Z' U1 i" v8 _# L
), W. _3 f( G& p" u
;;空回车时花形数量使用默认值6 T3 `- P2 m4 B, O/ C
(if (not n)' s: F8 F/ l) a
(setq n lg_n)$ Q/ P7 {0 w* k. u/ T! ?8 K
)
% ?$ Q9 V" x6 R0 x- Z# |, e
)& b* Q- |; V* H' J
;;不存在默认值% {2 l7 ~# H$ K5 @+ X& M
(progn
* E$ K1 k5 ^3 }7 W, `5 w
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"2 v, q. p- w& [
(initget 7 "l")$ ~3 p' A# i0 Q1 a1 a
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
5 T9 z. B9 y$ U" a& L6 }. x
)+ m# l; M0 _' A: e% c, z; I
)
# A) Z6 l# m7 S) v% m
;;检查用户输入的是花形数量值还是关键字. h- E: K8 L0 _
(if (numberp n)+ O& P. y. B; z1 h# n: h; B8 |" b
;;输入的是花形数量值6 d% p4 J1 N* Q( T2 l: ]" t
(if (> n nmax)
& d/ L- ?4 z/ T2 J- ?& ~
;;当花形数量值大于上限时清空输入值重新指定
% Z' L9 R" y2 J+ a
(progn1 t+ g% }2 R' d5 o
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
/ e& \1 e* ?( G
(setq n nil): I. g' s3 s- C( d0 K, }7 e$ K) I
)
0 F: c0 m3 J' E
;;当用户指定的花形数量合理时存入全局变量
* i3 K& K, ~7 W# @8 |* e$ N
;;以便用做下次输入的默认值
- u0 p1 x4 ~; j6 y% ?6 R" M
(setq lg_n n)
3 K, e" f3 \' }/ t: C
)- O# E1 M* ?7 U7 @% G
;;用户输入的是关键字
. B% Y* P( o) V
;;指定A段最大长度
' R- K4 c4 O) {1 k( ~
(progn
/ v/ Q3 @! x" F- D6 l) a8 j
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍8 Q& g! Q- \1 |( b. v& ?0 {
;;否则可能导致无解9 A' t4 v, p7 r
(while (not amax)1 T0 v& M: ?0 _9 S1 A# {- a, E/ `
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值) H" S+ A4 c: M0 Q8 M9 o# K0 B! }
(if lg_amax
# I# h9 k1 v# T' d/ _5 b
;;存在默认值
% @% V3 l6 P5 Y/ u. H3 c5 y0 \
(progn' i9 H4 A) `- p
;;用户输入时接受空回车,不接受0和负数' X2 X, z5 z. G a8 R
(initget 6)
3 |: ]' l8 R) X' a, d* @
(setq amax (getdist basepoint/ w4 t6 g4 u, d6 O
(strcat "\n指定A段最大长度<"
! V0 l9 W( X, g( q* u' S
(rtos lg_amax 2): C# r3 R9 Z' f v& U, u
">:"
+ v' y: u& _9 C6 X
)
- i- h1 F6 {8 K1 G4 b) ^+ r% ^
)
, P5 `1 m2 Q) G. j& m) l5 ?6 g
)
% [& r( r+ T, t
;;空回车时A段最大长度使用默认值+ X5 n2 _7 W' L& J9 a3 Q- _: z
(if (not amax)5 F8 X2 ]7 E+ I+ ?
(setq amax lg_amax)( s# X1 d7 j8 B9 p& I" ]; X. P
)
b% R+ W$ Y* N3 S6 o
)
) k+ O5 \# V" L2 U4 P
;;不存在默认值! V v/ j+ n% R
(progn* V. j- r4 B. M& v
;;用户输入时不接受空回车,0和负数
9 @6 p# ]' V1 O, w
(initget 7)
- J1 _% J% T$ t7 X# W2 l- `1 R% O
(setq
) w* _$ e, H: `- F8 R9 j4 ?
amax (getdist basepoint (strcat "\n指定A段最大长度:")). B" ?! v2 m. h/ N. O$ R
)8 ~; m0 D( ?; X- s
)1 R( S5 N: e8 ?- i6 A% y
)
- {' \: }+ _5 H4 q9 `
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定# R f6 G4 s C3 @$ `* F
(if (< amax (* lg_width 1.5))0 W( o6 `" M/ v! k3 _
(progn: w! |% K% P$ Z! F) C
(prompt (strcat "\n指定的A段最大长度不能小于"
9 M1 { o; e7 Q+ p' ^
(rtos (* lg_width 1.5) 2)" q8 D2 p% @: z* e4 s
). R5 y: R4 K* C- @) A1 S. ]
)
D- Y2 q% h4 m& y3 f& |
(setq amax nil)$ _1 ?5 y `4 }+ W/ \9 L+ Q
)
: d' _! e7 q- G7 m) i
)9 w# L9 f' i3 d! I& V! f H
); A9 M) c! |3 w, l
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
( V8 M1 T- [, H; V- [: l
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为10 w& k0 B* O3 n( C8 K5 a
(setq
3 @) Q+ g- ^7 c! C% f
lg_amax amax
+ \5 L6 ~' i- X9 x6 I/ L
n (1+ (/ (- len (* amax 2) lg_width)3 v! {' h+ {% A* s/ ~
(+ (* amax 2.5) (* lg_width 3)); r* m, [; u/ n' S \4 G
)# N2 Q6 M m3 a5 p) T7 f! e( B
)5 W( s5 n5 f9 T6 r& S
)
6 ]! j% q& P/ e5 y4 @
(if (> n (fix n))
' \$ B+ ~; n% R! L# a# @( m3 M
(setq n (1+ (fix n)))
* p0 w3 {- K5 F% W- c2 j# G
)( G8 s7 n; h! m- V
(if (< n 1)
1 T& ]$ J8 M& s0 E
(setq n 1); K& Z* H/ R- P U
)' r- E/ Z+ f4 q3 m, o h. T0 z
)6 _6 s6 t3 O, K9 {3 b- M+ T
)8 j8 o/ @- Y# ?
)& H2 u% f0 l3 h$ d3 ^7 T, Q
;;画图' A" G4 t+ c$ o' q6 M0 Q
;;记住原来的对象捕捉设置/ R" i) X4 D& \ \8 V
;;按花形数量计算A值
0 i3 l% V, i' q2 d6 X
(setq
4 f0 Y; Z* z6 W$ x, a
oldosmode (getvar "osmode")
2 Z/ K+ |. @: I' N0 B
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))( E) K" \8 r) t* l0 L4 T
(+ (* (1- n) 2.5) 2)
4 n! B7 e" n: k. {( T [
)- n ^% e* ?. |
)( t R/ F$ J' n
;;暂时关闭对象捕捉
# [: J u) I& E, C( a+ ~& J# q
(setvar "osmode" 0)
4 i2 l5 @* @+ U5 o" ^7 t3 T: t
;;屏蔽命令回显" J& Y8 r: | @, u
(setvar "CMDECHO" 0): B5 u U( A# {. ` R
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
- D- `/ F( f! L) y) J6 j* |
(command "rectang"& t7 m" [( Z/ R: G
basepoint- d& i% X6 M$ O9 e6 r
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
6 |# D$ P/ @, O$ B( ^" I
)6 w3 T5 O* E* C+ d7 j: i' A( I
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
1 \2 Q4 J- n; s
(command "rectang"8 I' | e7 p0 Y6 ?+ P# g
(list (- (car basepoint) lg_width)
* U& N' p! O! _( ~& k
(- (cadr basepoint) lg_width). i( d! G, y$ r! g4 P
), ]+ g2 N+ x. Z
(list (+ (car basepoint) len lg_width), |' M; I2 \2 t
(+ (cadr basepoint) lg_high lg_width)
$ i8 X# O0 |0 F# I. ~9 ^4 C
), ? y0 O9 R" B# j
)
( w, {4 g8 a: O5 U1 Q3 r/ P
;;将指定点移到其右侧A距离处
$ ?' ~! m+ t U: y2 {0 r
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint))), z2 _( [3 N, S; D
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆- V8 |, l& ~$ L
(command "rectang"( y. e6 f$ t7 l# F
basepoint% n! A. Y5 W4 g9 |, E
(list (+ (car basepoint) lg_width)! `, \9 N# X8 D6 F9 ]
(+ (cadr basepoint) lg_high)
. F2 S( Z# }* ^2 J+ q$ {
)
$ I2 E# y) Y6 c1 l* r2 _; M
)$ y: n) X, N' t% L$ Z5 B; p# S7 A
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)/ {8 C# M( V, Q$ J w& W
(repeat (1- n)5 I' L5 T2 a1 _7 k% `( U, {
(setq1 F+ R6 j, c( G+ l6 S1 N# k% i
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)), R3 D& ^( I8 r# j3 i
)1 y/ z( Y0 s* x4 {4 W# N$ @
(command "rectang"
( r. q4 U3 {% G* }8 v9 G+ a
basepoint
3 j( S' r$ I* @7 k" q
(list (+ (car basepoint) lg_width)
3 J: V1 d9 C* D4 b0 h
(+ (cadr basepoint) lg_high)/ T- h( |9 q! A& [/ F! p! }8 B* V6 o: t
)8 T7 G* _, y& J4 O0 J
)
* b* Q" `; R( O& P) r4 o
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)1 N6 X* ?. R6 k% z: b. |, I( x
(cadr basepoint)/ ~9 l+ I; q' C$ h/ ~, Z( L2 k6 H
)" @4 E1 t$ Q# ?+ A$ Q- X; r: u
). p* K4 w3 ?3 r' w% m( v* o
(command "rectang"
4 Q k( A! L8 z2 M# U
basepoint0 R) c, L. V: R
(list (+ (car basepoint) lg_width)7 _; A+ U0 n+ x4 S9 Y( x/ i; ~
(+ (cadr basepoint) lg_high)) _/ X8 P7 U/ _3 ^, D6 M9 A
)
- K* k: a. k' O- E/ k
)2 t# R' w% y" Y- o
(setq
+ X" W4 r; i6 {; t
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))% O4 w) A$ `' Y8 m% V
)( D0 I) o; F. K, C
(command "rectang"7 g# g# P& ]. f. ]. X
basepoint+ N8 q5 ^5 I5 _; h9 K- {' ? j% i
(list (+ (car basepoint) lg_width)
4 v; Y b! l( \6 H
(+ (cadr basepoint) lg_high)3 i' v' r& Z; e( W
), _" F4 s- q6 o- j3 F0 a4 V T" v* I
)5 i+ w' N* ~0 K( y
)
3 W7 F: |% ^. l! `
;;恢复对象捕捉设置( Z+ k+ O( d0 N8 A1 r% P
(setvar "osmode" oldosmode)
9 o& G' s8 T& ]' ~
;;打开命令回显& L- o* v& H- x" v1 r# t/ B4 ?
(setvar "CMDECHO" 1)
[' z5 r' w9 }" D
(princ), h" X6 S+ I) Y4 q
)/ X! I& r- J/ @3 p1 D

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源