作图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, t8 K6 x1 S' J: ~" m0 ~7 J
直线分段方式，a=a=2b
- q/ G: F) J( |+ W N {! J o7 i! Q

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 % n1 Y" |9 T- X0 J1 E
& o6 u( ^8 ]( ?1 z
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

8 @' ~9 ]! {7 O- r/ V5 i( _! R
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
4 ]& Q9 i Z, m5 _
;;设置栏杆高度和方钢宽度默认值7 @6 e$ C7 R+ a
(if (not lg_high)
M7 z4 L8 _) D6 i9 X
(setq lg_high 5001 i' [* k3 t- R
lg_width 14
( N/ b5 G, Z- M# B+ ~/ r: s
)( R- D7 h- U% ?4 e$ I0 }- S& E7 T
)5 I) B2 A0 g# n: ` f
;;指定图形插入点
/ j8 y" |3 J. }7 V# h
;;不接受空回车0 [# m. L4 c+ o5 p& C, ~
(initget 1)1 E: o! e/ P% Y+ p7 y: M2 M
(setq basepoint (getpoint "\n指定插入点:"))# f; V1 C- w1 s6 U1 Q
;;指定栏杆长度和栏杆高度和(或)方钢宽度
" i7 h- {/ t3 k; M$ n( S! f& g
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
& R9 I+ F1 h( p. x
;;用关键字指定栏杆高度和(或)方钢宽度后
) y) E& A7 N5 }% |
;;需要重复运行指定栏杆长度的代码段
9 P% M* [% d# S4 ?. A( {
(while (not len)
( l4 O3 h3 b+ l3 @) Q1 q; Z/ j% b7 F
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
9 ~& |. @2 @0 D- ^3 u* ]0 N. U& K
(if lg_length
& F I/ V. n7 }5 }. F: e9 h8 i
;;存在默认值. h& F5 A; z! P3 b
(progn6 p8 @% R1 D* X; Y; G
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
1 s4 t+ S. m' ^2 c2 Y
(initget 6 "h w")
+ i" W: ]. D7 r5 U6 e: \, Q4 @ ~
(setq len (getdist basepoint8 Y5 A0 o2 P& {: r& L8 e% E
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
! L- k: b& o+ _' I Y
(rtos lg_length 2)
, W' s! x' b: W: `# l& E) y7 f
">:"
1 C. k6 j7 o0 d+ q$ o/ l
)
)* }5 B' k# @' Z6 V
)
; M& v& W( s! O; v r! K
;;空回车时栏杆长度使用默认值
" x4 O" K- {4 x. L, [% x
(if (not len)6 x Y4 `* I7 o/ `- [+ _2 J
(setq len lg_length)
, |# N ]. M! Y+ ?3 W# z8 b6 s
)
$ W- F h# o! v/ M1 y0 J p
)
3 K" _9 {9 I& P K- d# X& U
;;不存在默认值- ?4 _7 g" @) w! K. O
(progn- b0 X2 h3 ?- O, Q: ]6 s% T1 {
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
6 {8 I+ a' I! X! y
(initget 7 "h w")
" M! C! g. t1 p+ Y! T' Y7 J+ D
(setq
" `( |& O0 M7 Q' S* T
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
0 r. h, U0 L, L; T9 v" g7 K5 {. K
)! H9 N! d. c: V8 f1 n! r0 J/ Q* i
)
4 E9 n+ E3 r+ b1 q
)
! v# O8 p/ R# p8 E
;;检查用户输入的是长度值还是关键字
: w: `" x: x0 z' T m8 |
(if (numberp len)
/ n5 O# q8 }* x: \
;;输入的是长度值
5 y4 I+ i/ T) q ^$ B$ f
(if (< len lg_width)
5 T3 s3 `7 E* N$ w* Z3 p0 L
;;当长度值小于方钢宽度时清空输入值重新指定3 q l: H7 {- T) }- v( N+ j
(progn
7 B, p# c3 e2 V6 x
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))' s; P0 w6 E/ b% \7 q* Y1 z
(setq len nil)
- D4 z% u ^6 Y5 f h+ v- o+ ]
)
: q, Q8 T% V+ x _8 M. N+ \7 r* G
)4 C4 u( J8 q# [, Z# c9 ^; ^
;;输入的是关键字
- u5 U+ [# `0 f( L
(progn
9 J6 c, z6 @& O9 c; h
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
+ D0 f, m! L# Q# B3 V
;;用户输入时接受空回车,不接受0和负数' X, D2 W u, z: U
(initget 6)
0 X. y% J6 h$ w/ F& R: S
;;检查用户输入的关键字是"H"还是"W"
4 E" P1 a0 R$ E/ S* g
(if (= len "h")6 l" a" n7 J; ^5 j8 r0 N6 ^9 ^
;;用户输入的关键字是"H",指定高度1 }6 W, Z$ \ j0 ]2 I/ Y
(progn( E: d: q" l3 H6 P# z
(setq high( R3 I0 z! W0 M5 W
(getdist basepoint
5 ^! v0 U( K: [4 Y; M% F7 L
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
) p+ \1 A/ ^: g6 }" t
)
1 m& f* x8 z* e7 C; ?
)
: C% S3 X" Z' K- [* x, h3 m
;;用户输入新的高度时修改默认值4 X& }# ?& [: |) b3 _
(if high% m$ [5 G) }" z
(setq lg_high high)" v5 D' O4 M" ~
)) y* @0 [7 p5 d+ f( `
)0 a: e+ r. O8 w; r' ]
;;用户输入的关键字是"W",指定方钢宽度2 j" T$ z8 X3 A0 y8 Q8 T
(progn
" i4 t C# A7 Y; Q
(setq width% n6 |) H- t# X# u
(getdist
! @* k& _$ R6 f3 R1 X$ E2 H
basepoint
+ }# b. V4 N6 J$ M+ t; e1 s' |
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
1 L, w9 x' x: @
)
( F" Q8 A' e K+ b* w6 K
)/ m% s$ u/ C) t8 T
;;用户输入新的方钢宽度时修改默认值0 {+ j9 V( l. K+ Q6 p
(if width
+ t6 s) a) F/ S+ r
(setq lg_width width) G8 }# C5 k) G6 o3 U
)
" J4 c2 t. \7 g1 N9 c
)
+ |) ]" ^6 L. g+ R4 o6 J
)
0 P! \- `( I X9 L0 P, ^
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
# H# i! y0 v! J* e) C
(setq len nil)! G1 P) J6 b- O5 r
)* x- ` B$ z1 `4 d+ Z
)( Y; C, r2 N6 r1 J
)
, Z3 S3 a+ C+ `/ j9 ~
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
/ h6 m7 m. S0 h! R8 o) ?+ j
;;计算用户可以指定的花形数量的上限, E# {8 ?! N! ?/ m" y$ Z8 U) T
;;用于下一步检查用户指定的花形数量是否合理3 u. } w/ |+ Q9 t" |8 z }' r5 D+ e2 U
(setq lg_length len4 o) U; M$ v |9 S. d. T6 [) ]
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
0 f% }0 U% p' A" W2 w) A- w7 j' E
)
- `" g% P, N- J/ N# N) y, w
;;指定花形数量或A段最大长度3 @7 p0 X1 n: A' ^# b. }; r
;;如用户指定的是花形数量,则按用户指定的花形数量画图
, m! d" h4 s# w, W+ m
;;如用户指定的是A段最大长度) K; E3 ~* {: L$ h9 q6 ?
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
. m; c( @, G1 T9 N. @7 i1 H
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
% v+ s0 \0 m) B/ `: x& T& x3 \
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解% V( D) L; b8 C6 v- Y! Q
(while (not n)
" d- N: a* G' h3 X. x' S0 C( m
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
* u- m4 g' X1 A0 c1 B1 i" B
(if lg_n( L( p2 v7 o9 q) S- p/ F! n
;;存在默认值
4 v, W. H6 t I$ V3 p1 E0 B# N
(progn3 V( J. d4 c L( W% b# c1 M
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
0 l$ ^5 E2 r* k( d1 n
(initget 6 "l")
+ q, |8 o& W: }! k3 A9 d/ C
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
- [9 e: ]2 b# l4 V5 \/ ?
(rtos lg_n 2)' f7 A8 y8 r A$ J% z3 z+ Z
">:"
+ B- E6 S9 W& r7 W2 }" n M% n1 s) x
)
; W" _4 A! p1 v1 J S
)
+ }- D6 r: J0 c; u ]
)
/ _% e2 R+ u" |9 W9 K
;;空回车时花形数量使用默认值
$ D. X/ p$ s k% n5 }, g I
(if (not n)
3 R3 E' y& Q, y! H+ n1 z+ x. v
(setq n lg_n)$ }& M% w @' F
)6 L; D, [5 l9 e
); i( ]. J. A3 O0 Z1 j z
;;不存在默认值! \# l1 r d; d' h( V
(progn8 {% ^: A- R/ A
;;指定花形数量不接受空回车,0和负数;可输入关键字"L". Z) H+ \+ ?! R1 }9 E2 |
(initget 7 "l")
8 t4 e) _' @3 t9 k+ J' ?
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
' `$ W' u+ j( g* s5 t* B7 ~
)
4 B: y2 R* T1 ?6 Z! t4 ]
)% g. O" u& T" {; B6 \( m; s+ l, P
;;检查用户输入的是花形数量值还是关键字
9 R- T2 r" _( f, J8 X# m0 f
(if (numberp n)# q1 o( G4 j( d( b9 B
;;输入的是花形数量值' R9 h6 p. W7 X6 b3 K! e
(if (> n nmax)
* b0 @0 `8 O6 G4 N- q! E
;;当花形数量值大于上限时清空输入值重新指定% }) R' R- L9 R
(progn7 F9 V5 g5 L5 h' Q
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
; u5 h: X( M& c. F
(setq n nil)
" N+ h9 ]: t% l# x' K
)
* W2 k- J$ o8 o. g* N& W/ D/ }2 {
;;当用户指定的花形数量合理时存入全局变量
# t2 X7 _' U9 ]
;;以便用做下次输入的默认值& O' s, S# I$ b
(setq lg_n n)7 s8 @% S% J+ @ H* u
)! T( y3 s f9 h1 V' R# Q0 z
;;用户输入的是关键字
* s; w# i {8 w
;;指定A段最大长度
1 p: ~+ i1 p3 S' |
(progn
, b7 X6 ?& x$ B$ G& H4 l1 }) e+ n, F
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍* y" `) L, \5 T5 |3 c
;;否则可能导致无解
2 E6 R* U. x1 U
(while (not amax)
# C4 D8 I% n6 w8 {1 d
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
c$ c) ~ l- M2 l q. O
(if lg_amax, P+ k* P* s- o+ z
;;存在默认值8 ?3 j8 i% \, U; y @
(progn
; V2 F0 I" o ^9 m+ { S
;;用户输入时接受空回车,不接受0和负数
5 H" P. {) V3 f
(initget 6)" e2 w# K8 Y+ O2 n2 ]/ w V
(setq amax (getdist basepoint
0 f7 a8 k/ m, |' [
(strcat "\n指定A段最大长度<"# P- _% u- [, n, J; c8 x# \
(rtos lg_amax 2)7 H9 q7 I8 w4 n- n
">:"
3 Q* O6 B: v# c, G2 N9 _
), Q5 x) C2 L1 ^, x
)+ f" p; b" @; L3 o/ V8 U
)1 i; w# s1 f3 x3 x5 U- d& I. {8 f
;;空回车时A段最大长度使用默认值6 O- s- u! J2 a% z
(if (not amax)
6 E! j: W' u" C/ M8 C6 e
(setq amax lg_amax)
9 l3 }$ Z1 T P7 y' B
)4 E9 G4 Z! H4 H! _8 Q2 W7 J X
)
5 s3 g& R5 ^& i. Q3 C# l
;;不存在默认值4 U# [% i+ c! u9 `' N' c
(progn
4 p* }& I" J5 d+ }
;;用户输入时不接受空回车,0和负数
3 x. t* E6 R4 j: @. d U
(initget 7)/ ^6 P" F+ T7 i. T7 Y1 Q. t' V
(setq& d$ @& X2 U* I7 Z
amax (getdist basepoint (strcat "\n指定A段最大长度:"))& L* V1 J8 S+ c" [4 }
)
- I2 ^3 ~, K2 A+ k' l1 a
)
6 V8 W; m% T4 {/ H `2 S) L( X+ K
), ?/ ^; N& F$ N/ Z9 R$ I8 s# B7 }9 k
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定/ U. m! P& g) E: y
(if (< amax (* lg_width 1.5))
8 w) ~! U7 \: g
(progn
6 c1 A/ [# ]! d4 ~) P+ }
(prompt (strcat "\n指定的A段最大长度不能小于"0 H1 W9 D1 ^/ V# y0 T8 d/ M
(rtos (* lg_width 1.5) 2)1 ~; X6 |% @7 i; q
)
$ K( y$ { S% Y8 W; w' s
)- v) K/ I: k# w0 J
(setq amax nil)& A$ T f# P' G! q. `
)7 z: R4 P1 Y: F+ z# O0 D
)
6 X9 a) Z* M& ~
)
" h* V8 {! [1 v6 u* u
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值1 S: I, a/ Z# R! Q
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为14 S4 Q: v4 g: m/ c" O0 p9 V
(setq
3 |' ]4 c$ H5 S/ C$ Q. A
lg_amax amax/ V$ g+ c7 @- ]+ J. Z
n (1+ (/ (- len (* amax 2) lg_width)& B w+ O C/ N' [) \9 M; K1 a$ P6 ~
(+ (* amax 2.5) (* lg_width 3))/ W- d) Y h; | P
)
1 w: V( }) @$ m7 B6 ]
)
7 G- `7 a! J- `8 p* ~4 i* [: M$ k
)
. ]: Y! c" Y- N1 z* K! ^6 q- H
(if (> n (fix n))) q# d; Z; i, }
(setq n (1+ (fix n)))6 x" f+ ~, m" t; s) O
)
! v* Y# v# T: B2 ?" f0 Y
(if (< n 1)
: ]% z X, i' {* _! G5 K- F J' r
(setq n 1)0 L3 F( t2 w* W* \
)
7 B. s% y6 M! d! {5 b1 u. P! N
)( `0 m+ o5 j, b1 |8 l
)9 O4 s% s3 Q: X3 `# i
)
5 U* d% k6 Y0 I. L4 ]* t5 r' s
;;画图
: R1 l' R9 h" ]7 `4 t3 H$ F
;;记住原来的对象捕捉设置
- R, ]8 A* L" _: c$ \. k2 u$ K2 C$ o
;;按花形数量计算A值6 K& L4 L* c: B: ^0 N
(setq
! L# d+ X `/ ^; n0 c1 ]. k7 U
oldosmode (getvar "osmode")
' s2 t5 w. H. b0 y/ m- N3 }
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))* v# F+ @/ j0 {5 g6 c9 f$ x8 e' E) n
(+ (* (1- n) 2.5) 2)
" y( I9 Q) p, Z5 ]5 a# O
)
/ C+ ~( _% `5 }- {! a
)3 B0 Z7 B/ x% c) j5 X
;;暂时关闭对象捕捉. s g6 u# U( U3 S4 E* [
(setvar "osmode" 0): M1 A# Z$ w6 ^5 b* r: J0 r. y% X
;;屏蔽命令回显
_9 K3 Z! F. ^4 R* f3 u, K
(setvar "CMDECHO" 0)
* ?" @5 O6 u n R3 W6 U/ t
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形2 A4 L" u, X3 P% Z, R; x/ q$ p& ]
(command "rectang"2 M- _- H; b: U, J) I
basepoint
- ~- D' Q/ J B
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
: Y, h5 d g1 n
) b$ \- J! A( d- l# @
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
5 }( H& \# B; L2 ?0 }$ l
(command "rectang"" P8 c4 |( n% t8 e. @& D! Q
(list (- (car basepoint) lg_width)& S5 _8 ^+ [" Q6 A
(- (cadr basepoint) lg_width)1 R% m6 `6 W. K/ M
)
6 g8 E' m' D. c
(list (+ (car basepoint) len lg_width). G `3 ]9 Q, W; t
(+ (cadr basepoint) lg_high lg_width)8 Z5 Y( m: g% ~$ H" r# L! L0 ]6 ^
)
4 u/ @+ z: ]. M3 J) L
)
% J9 i6 ]) @! k1 `
;;将指定点移到其右侧A距离处+ |) U$ v& G& l4 _1 Q) ^; V* E
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))2 N' J" K& A% Z& L" ^
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
4 {% K+ p: p8 k V# S0 j3 |
(command "rectang"
7 S9 J7 R# W3 L2 d3 S" l
basepoint6 C- w9 t* j, O4 g) b
(list (+ (car basepoint) lg_width)1 s5 B8 i- g; {& G( @/ F; X
(+ (cadr basepoint) lg_high)
# d1 R2 j# t" e0 w9 I
). c$ v8 _& s( H7 H# o! M# }' G
). Y( N- e2 ?$ ~4 O( r6 F
;;用循环语句,依次移动指定点并画出其余矩形(栏杆). z$ [& v( E& ~* {# b
(repeat (1- n)
) t: N; z8 ~; z5 s1 b8 q* V% A
(setq
7 @+ d2 T, P& A. W+ g6 z
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
8 s5 s. S0 ~3 h' D: F
); r! C+ X0 K0 h* F; J
(command "rectang"( p6 c/ h& w- F3 w/ ?3 i
basepoint
# }' u" S$ c; H$ Q) ~ g
(list (+ (car basepoint) lg_width)
, i/ s$ g2 b! I- `
(+ (cadr basepoint) lg_high)* H8 ]5 r- t3 C2 `/ g7 T3 u4 D4 |
)1 ]: ]% [8 P% U% S* j
)
: L* k# L) i; t9 J4 q J" i
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)7 @0 b4 E" r/ n; P
(cadr basepoint)$ e! h7 G+ I6 x: E5 e i0 f
)/ Z& a& ~2 w# }, D3 G
)
) R4 e4 I k! I8 X$ h
(command "rectang"
& B, q1 b: u* i! L0 x7 s
basepoint: l, T0 j& p0 Z; k
(list (+ (car basepoint) lg_width)0 h2 y+ c" r( e- W- d
(+ (cadr basepoint) lg_high)( K- W" w! P" B7 N$ E- t# Z7 V
)
: W o \, g% g( }6 I; i
)
+ b' N$ W3 {6 _; y. I
(setq+ ?) a2 t9 \( C' R4 I1 j) S' T. d, d
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))0 C, {0 M6 F" H( s- T" U1 y
)5 x5 x i) j! X3 s* j
(command "rectang"+ O! U# s( I1 L% ?
basepoint) I: a) b$ Q$ I% p
(list (+ (car basepoint) lg_width)
7 j/ S2 L4 }9 a2 C, R k7 ?
(+ (cadr basepoint) lg_high)
$ @# M- q* K1 r! R2 g, V- k6 {$ C# e
)8 T$ h7 [3 X% k& T W
)1 x6 O3 D7 z6 f0 Q' Q# t/ l9 }
)* F' B) Y+ `7 V3 |
;;恢复对象捕捉设置
5 s* \% t' G7 y+ V# b4 V
(setvar "osmode" oldosmode)0 C! A9 t F( l0 I \- t F/ U6 e
;;打开命令回显5 N) Y$ i" \: _9 @9 s+ y: E: m2 A9 l% x
(setvar "CMDECHO" 1)
# g$ C2 X0 Q& M1 y: i0 }
(princ)9 c# H. S$ ?- h4 D+ r0 w6 r
)
$ ?& D1 q( ?* s, v! {. M$ J6 T# q5 e# l

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源