作图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 发表
* H5 D. j A6 B) L" j直线分段方式，a=a=2b6 c) H3 T& f3 ^$ T0 X

& P6 o1 N2 a( O, }. M

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
9 f* y7 W+ Z" K1 y: S
* Y/ Y/ O0 s. M5 o8 w距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

6 o8 K8 O3 I6 v2 ]3 b
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
! r* Q) C# f+ l( _0 {
;;设置栏杆高度和方钢宽度默认值
. D' t' W& t5 [7 C
(if (not lg_high)
1 Q7 f& }& d/ h7 G# w
(setq lg_high 500
! n5 Q, @; \: ~4 |
lg_width 14
' S% N0 X6 e7 K8 \% Z* p
)
* z! k/ j) P& S n& x% O/ k
)
* x& ~! G; o: C9 J1 S+ W: E g
;;指定图形插入点
( H# F. c! j% k# t! i: o
;;不接受空回车" a E! P( n" {8 W7 C4 [8 ~, [% i
(initget 1)+ `% S$ s" O$ M; B' C* J
(setq basepoint (getpoint "\n指定插入点:"))2 M! b$ S9 d& F& S+ a0 J# [
;;指定栏杆长度和栏杆高度和(或)方钢宽度
' K9 N; b7 f6 J/ d
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定# O( R: l) Q/ v; h( j
;;用关键字指定栏杆高度和(或)方钢宽度后
5 C5 d4 b0 _& e( u! K/ G% i
;;需要重复运行指定栏杆长度的代码段' U) R& J, c4 y- x% P8 e( s u/ E6 K
(while (not len)
5 j) \( T9 H( Z
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值; U6 h6 W* U. o7 i
(if lg_length) X% J8 m0 p" ]$ U3 k
;;存在默认值$ Z& q/ J8 S' v! F3 G0 J* b' R! R; F' y
(progn @7 |/ {; z! p& H+ W0 |
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
" o# U, F0 o2 s% B2 ~8 o$ \* E# r
(initget 6 "h w"). D5 k h* n4 ?: S+ }2 W+ B8 g
(setq len (getdist basepoint5 Q! Q2 h6 t+ ~4 _) g
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"' A2 D. h2 G; g) h( S& a
(rtos lg_length 2); {' W0 P4 b, g, N1 f6 ?) S
">:"
3 j" U' Q6 Y2 m+ \0 i/ x
)
9 h3 Q. N$ r! N- y' W4 E j
)& Y; y. G5 V" `) v; P" T
)! H: h f4 K; ^' ~
;;空回车时栏杆长度使用默认值3 k$ l- N/ k3 H, p3 k) V8 q0 u3 a
(if (not len)% t" H' \: p8 ~5 A8 S( ?
(setq len lg_length)
* b# U$ H. Y1 f: K/ X" o5 {
)
9 I, M/ e& d# @2 A; y
)$ z$ b) B4 H4 V
;;不存在默认值# {7 e z* s. o1 `/ [5 n
(progn# z9 c/ ]5 }7 ]; @: w/ q
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
) B) Z" f$ k% t; \# G
(initget 7 "h w")
9 i+ g9 U) |$ V q1 e" W: x
(setq% _6 J; `9 J4 ]2 \6 ^2 o7 w/ |
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")! T# x+ t: v( q, ~! j% [" i" n
)
3 v) R$ |' ~' _: R: S
)
7 c! ~4 c2 v, \
)
: {1 m1 u1 A5 y/ M- l% \
;;检查用户输入的是长度值还是关键字/ w6 t$ E9 t8 |+ y
(if (numberp len)8 f& w' x! a M5 m* j0 f7 {
;;输入的是长度值# s8 e( {; N; Q4 m" |2 X' e
(if (< len lg_width), t) l* r& A4 C! x7 y6 k. A
;;当长度值小于方钢宽度时清空输入值重新指定
* G x' g4 C7 O5 _. H7 F
(progn# K& E J9 n6 v
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2))) z& G' h c" N0 g; J* y( Q
(setq len nil)
& P0 L4 {7 E# x4 T) a
)
; C- X- S; q; {7 x% `- g8 V( g
)& _- ?" O3 O( x' w$ |
;;输入的是关键字, M; j& T9 G3 U5 ?8 s$ b D1 s
(progn
4 N% z+ r+ ]6 b1 V- r: j
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值2 V- O2 d. ^& D9 c
;;用户输入时接受空回车,不接受0和负数
/ J% x& `) T6 x' @
(initget 6)0 X, l+ Y, y6 a/ \, M# n
;;检查用户输入的关键字是"H"还是"W"
" a6 y% D0 k7 A/ d) U7 Y
(if (= len "h")
- B& r$ e% t' P; | x: Z
;;用户输入的关键字是"H",指定高度$ e4 N5 m! K+ C# p7 i9 z) ~$ X" O
(progn
" s v, r( E8 T. S
(setq high; A/ ~7 ^6 p- P: R( [7 Y
(getdist basepoint
3 ~; w, a U2 h. S: f& j
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
# B {) Y6 H3 }/ ?
)2 K. U/ U2 p: d! w/ i' B
)/ o+ L6 y n$ m% q& J
;;用户输入新的高度时修改默认值* m0 Z z( ?6 v
(if high/ [; Y0 K5 j% d& G
(setq lg_high high)2 V/ I" _$ f6 H! l. D; a7 A4 g) a
)4 p5 D w) Y7 h
)0 ^+ ]) F. b' e5 g
;;用户输入的关键字是"W",指定方钢宽度+ i6 `- g" I! ]0 I9 Q: |
(progn
2 l4 c1 L' z4 _9 C
(setq width
9 m2 c' e3 ?# X. C
(getdist/ }/ |3 Z6 p9 Q0 N$ j) _
basepoint
! S2 o! `" p: n U. ?
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
8 D& V: F$ g) @! Y
)9 g: ]+ K; G9 A' t( d8 Q* Y0 [
)
% U( P8 r' @) i7 T+ J7 j8 }' b
;;用户输入新的方钢宽度时修改默认值
# V/ T$ M. k' ^' v6 z9 ^
(if width& Q; ]% i5 Q4 H" f: ?5 [
(setq lg_width width)
3 o6 l9 T5 ]( J# x
)1 {& a2 d; ^4 w) r2 f
)( \* b3 r6 s" @" Q8 g
)
1 d! Q7 `/ K; T7 t/ h
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度* H. k; i! P9 @1 ]6 p! C# U
(setq len nil) A; h7 j8 s1 I+ y6 `7 {/ R5 o$ P4 L
)
7 l: L' \, m: n' B5 K( }: e" ]2 |$ e1 v
)5 U9 o4 e9 \, Y! ~" y8 S9 }$ [7 [
)
+ u( }, X$ B- t) l- x! }! s3 T
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
, K5 a8 _% A6 {+ s. @
;;计算用户可以指定的花形数量的上限! F; B s8 @* u1 @# g
;;用于下一步检查用户指定的花形数量是否合理6 _( y7 k; t7 ?% V1 T
(setq lg_length len6 ~8 }/ t; q2 T
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
2 P- U& ]" ]2 v4 O) q
)7 s( i$ ~. r# U& [
;;指定花形数量或A段最大长度
8 j# r+ ~* @" D+ w# h
;;如用户指定的是花形数量,则按用户指定的花形数量画图" t* M4 A# y# {! e: ]$ x( s, o2 G
;;如用户指定的是A段最大长度. S' E" |- O: T7 p1 M( {
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图# a4 W* U$ B+ t, W0 z
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解8 N7 u4 c, C$ f: j) f4 @# F+ h4 ^
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
* n7 T8 V: R& L0 P! m
(while (not n)- n+ ]5 }% B( Q$ }4 B( S1 s6 b
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
# R! _% f" E* ^' ^
(if lg_n0 y$ \8 c' _/ M& p
;;存在默认值
8 s) Y7 A' }+ v0 H5 K2 u8 r
(progn; s3 h/ l) i9 l+ ~
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"5 j6 b8 K6 ?; p# ~
(initget 6 "l")
5 a9 G9 b+ U# D# g* @
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"2 i+ c- i$ p, B/ V$ K8 d. T
(rtos lg_n 2)
6 l! P) t; k1 R( N4 P
">:"
( E8 C/ g1 k9 h, r
)
9 f+ l, N) N: Q, Q) U: |
)
! I. D T: B2 l+ u9 }) z& F
)
' w E2 F( p6 ]& S/ x
;;空回车时花形数量使用默认值
& N0 l- U4 a; s- ?1 ~9 W8 d0 Y
(if (not n)
+ p t) ]* O! j; n+ i% |
(setq n lg_n)
* i2 V/ @9 z, g4 d# B7 k
)
# v9 d* v4 x% s
); K v' X6 R1 P7 q- a
;;不存在默认值
( h% N& h1 M# y* }6 c7 L: H
(progn2 y1 J! k6 n. Y9 u* p: l4 a. m1 _
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
# G3 @: Q* N: r' S! L
(initget 7 "l")
/ M* m; J. I( S5 P1 K3 C
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))3 O5 F( N6 N" i7 }$ R9 H
)
1 f& Y: u& j, z% V) S
)% w+ |9 F; d( v5 U9 ~
;;检查用户输入的是花形数量值还是关键字
! L9 Z: Z! |9 o4 c5 E( h5 @/ x
(if (numberp n)" H& U( [! @0 s0 n+ w
;;输入的是花形数量值
3 E6 P$ J7 l% c2 Q7 ^9 }
(if (> n nmax)4 d$ a2 r9 L; v' f$ M% J
;;当花形数量值大于上限时清空输入值重新指定
, ~& M3 @5 s: l4 S4 Z
(progn5 U) o* j5 f- z
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
! G6 p0 O$ A) _3 y
(setq n nil)
7 B* g0 M5 X1 R Z( ]9 k
)( L F9 v9 ~/ S% F- d
;;当用户指定的花形数量合理时存入全局变量
' z* i7 n1 m4 m
;;以便用做下次输入的默认值
2 f- [! D# u' o/ T1 ~
(setq lg_n n)6 `, I) n8 p' b$ t8 x7 R% }
)6 X, r3 i& A1 T& |5 _$ ~; I
;;用户输入的是关键字8 ]' u4 F% G5 _4 W
;;指定A段最大长度! C- R4 p* `, c6 a7 m
(progn
) ?- b) o- D6 T
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍, r, a) O6 A, c% P2 L7 p' i1 c" ^% L) u
;;否则可能导致无解! u; K' Z- X4 K- V* A
(while (not amax)( O+ U" ~5 m8 f, T' E: q
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
& i; y. B3 O+ J a* S9 ?5 t
(if lg_amax2 A7 h) y4 w5 R
;;存在默认值7 ]1 `/ P1 X6 C
(progn
% f I N8 V0 C0 b$ `/ i& c
;;用户输入时接受空回车,不接受0和负数
# x6 `' s1 {! X* ?7 |4 q$ i
(initget 6)/ p; Y: {. D0 X! Y
(setq amax (getdist basepoint
9 g! }. t( D9 i* `- N
(strcat "\n指定A段最大长度<"; u2 s/ _8 h0 _% F3 j
(rtos lg_amax 2)% R, [/ t7 Q* J0 x: F
">:"6 l* z' j) o" u4 t- V2 j
)3 F" @ P% x& n8 C7 e, f" e
)
- ^$ V P& R! b- `9 H t
)9 K, `0 P- Y$ O
;;空回车时A段最大长度使用默认值* b* v7 R# }/ O
(if (not amax)
; U: N: ?$ C1 y" x6 U: A
(setq amax lg_amax)
) G/ ?1 q5 K, X# j) ]
)
0 j$ J Q: h; K g& g2 q
)4 ^3 m8 D4 o# m5 _, A
;;不存在默认值
4 F6 q$ O8 q2 s$ V* q$ Z0 C
(progn
4 H% ]9 D8 t$ O0 C$ E \" V0 L
;;用户输入时不接受空回车,0和负数7 u3 Q) g- A. b, }! `
(initget 7)! U2 P1 k: V0 e% m! n
(setq; g8 `' f- e' |$ q: W
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
5 e& w7 c) y0 F9 i
)
/ i1 V: r2 o& y& u+ ^
)- ?8 y' S1 n+ Q, v
)
# X% Q( P1 P: W1 G2 [! ~
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
5 H6 s) y; N0 a
(if (< amax (* lg_width 1.5))
9 P- g! w8 `0 }4 _! w
(progn
7 ?8 }7 j# ?( e8 f6 R6 k r
(prompt (strcat "\n指定的A段最大长度不能小于"
0 H" B( ?! [7 k
(rtos (* lg_width 1.5) 2)
6 m8 ^% {; E1 e" O( }) f/ c& Q
)7 b* K5 \8 a" c$ Q# S0 z
)$ Z$ B, L: y9 R: q
(setq amax nil). S# L0 C, T* U
)9 b' s# T7 `9 Y8 P& _' l
)
/ a' q- a5 ]4 `+ q1 a- Y# Y
)! h" g* Z3 A- d! D/ ]! ^
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
1 T9 b4 i' n: c4 K0 L$ v2 [
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1; n; T& E+ A. Q& p ]7 x8 i$ D$ ]7 p
(setq( ?8 o8 N9 D; o: j+ e5 P$ [4 u$ \
lg_amax amax
( [# U' s( t2 U) `, t% Q+ M
n (1+ (/ (- len (* amax 2) lg_width)' P% o1 x. c+ g: j
(+ (* amax 2.5) (* lg_width 3))0 Z* Y( ~- h' ^: T2 D7 q6 E. W1 \" ~
)
. N# ?. {6 c) x% r) m
)' k# J& Y8 v& w% n% T, Y
)8 U* F) ~$ w2 k1 P# M1 n7 P
(if (> n (fix n))
- f3 z( Q. i5 _6 ~* ]- L" Y, _
(setq n (1+ (fix n)))
K5 S- n$ @2 v6 I5 \
)- f( S8 l# l% e6 i7 | p0 D) O( T
(if (< n 1)0 } n+ t2 r7 C+ N3 I
(setq n 1)
* H/ Y. L8 x4 \% y, }2 \
)9 ?6 b( b/ u" U7 x( X5 n
)
( U$ r: g9 ]4 G5 ?$ x* Z' v3 J" e
)
* r9 K3 [& _+ b; P1 a7 k
)" Z F# V. y9 l1 c/ h1 D
;;画图
, f# f8 C* S8 s% K0 x5 T
;;记住原来的对象捕捉设置
+ F1 n& ~% c* g3 N0 I& _8 a
;;按花形数量计算A值: h; u: b; `* j9 x( ~
(setq" u" A3 p9 X) G2 O. j: y
oldosmode (getvar "osmode")* f% V9 W3 D* q7 d- [. b
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
( |7 b0 C$ |0 z3 e
(+ (* (1- n) 2.5) 2)8 x9 l2 x7 P) Q/ h2 ?0 l
)" Z& O+ R* J" m* ~7 M
)
: K! k& b7 M1 x9 x0 Y
;;暂时关闭对象捕捉( ^/ e" D5 d8 d7 b% o1 x; w
(setvar "osmode" 0), y0 j. u: Q. k$ g
;;屏蔽命令回显 q) Q- Q, O* O) r
(setvar "CMDECHO" 0)9 y* l- U2 ]+ S* O7 W9 L
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
5 n" e: y& A- o& W) ]' q/ V" c
(command "rectang"
0 y2 b3 l, E4 n5 m% @
basepoint
4 M g; q C7 ?/ J( J
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high)), j9 i+ w+ m; K( ?) s
)& m1 z' @! B, }9 W0 J
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
. Z' ^3 a# A- u* B: G3 {) u% R
(command "rectang") n0 J4 ^; a7 \. s
(list (- (car basepoint) lg_width)
$ K( f" V1 R9 T4 H( N* q+ ^
(- (cadr basepoint) lg_width)8 G# t: \* D& F! s2 u
)
' s9 `4 i+ j$ w5 `! h$ ^
(list (+ (car basepoint) len lg_width)! b2 U7 {# N2 x. [7 F
(+ (cadr basepoint) lg_high lg_width)" \# @5 ~0 T+ d$ H, P( W. a
)& J$ a6 V$ U) j# n
)+ W& {5 H' ]3 b/ T/ L4 y
;;将指定点移到其右侧A距离处
! c5 b6 `, }8 F9 |" j F* F/ M
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
) m$ F3 \4 }/ X3 k
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
2 p' s# o. g, i; ~# Y
(command "rectang"
9 L6 ^3 ?+ F4 n4 S; G
basepoint2 d0 R% }3 p9 c- [4 o8 x
(list (+ (car basepoint) lg_width)
0 ?/ Z: L& { n; t f8 U9 k+ Z
(+ (cadr basepoint) lg_high)2 V6 g3 s- U# G! b
)0 {- ~; L4 x. g8 [' L
)
6 n2 O/ K4 |& N$ P0 j3 n: b/ G
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)+ O1 l$ ` o+ V0 Y# |9 }, }. J. _0 t
(repeat (1- n)
) o5 P. }! r1 l$ G$ p
(setq9 R" Y$ a7 E/ `- c/ ?3 I! k
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
/ G i) }' q6 f" H
)
' Q; [6 t1 k; h9 A! ]- `7 Z/ L3 H* K
(command "rectang"% x* D5 \7 u( W& o1 H
basepoint9 \' I" Z* ~. r. {+ q6 x' h
(list (+ (car basepoint) lg_width)0 i( H7 g3 B. [; d9 b3 Q
(+ (cadr basepoint) lg_high)9 l6 `9 \+ y6 x* Q/ i
)
% x5 B' N1 ]- N3 x( K1 D; K; L
)
) A9 s3 f/ ^ A( l
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
$ f4 X- z- r" M# ~: a( I
(cadr basepoint)
8 @: d' V. u! Z& c
)5 a* I# [/ Y2 Z" I
)
0 b6 R6 F0 p0 n' h
(command "rectang"
) s$ s+ P r6 j) L+ c
basepoint9 b J) P7 `0 n/ Q* v- \( M
(list (+ (car basepoint) lg_width)) }3 p4 L2 X" w" L8 h
(+ (cadr basepoint) lg_high)+ Y, j, }. b, V! Q/ V! }+ Z, ~$ |2 |
)
z6 @/ \$ f) [
)% ?. f7 q8 m1 @- n: k. x
(setq2 y1 Q5 B8 N* r$ n2 {) S* g' o* d
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
) p4 J" B% N) x8 w; T0 ]
)
2 V7 n) N. ~% Q0 d
(command "rectang"
& f5 n% b9 Z5 D7 |
basepoint. Y& p7 I+ ?" s. _% p, C
(list (+ (car basepoint) lg_width)
6 B$ v4 ^+ D: ^. }7 X- [
(+ (cadr basepoint) lg_high)
$ j, g; h4 O( O( V, D( d' _
)% \* f& j6 E3 h x( U2 c# C0 c
)( t# S: k3 ]% |% A. k8 h( r
)
( j. H" S( r: A3 g) N: H
;;恢复对象捕捉设置
$ h) U$ o6 H5 G8 n4 p
(setvar "osmode" oldosmode), V" i8 S/ w" U0 W2 ^4 `! m! \4 D( T6 t
;;打开命令回显
- y; @) t( d' O7 e
(setvar "CMDECHO" 1)( h& m9 S2 i: V' k# l& q
(princ)
9 a, y o$ R X0 B% m
)
1 R8 Q3 {5 q% i# C2 k

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源