作图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 发表 / s, C- \- p; F. x1 ?: }% A0 y+ ?6 l+ h
直线分段方式，a=a=2b" _/ u: x9 U, I" ]( y
6 U) C& ~/ r3 w! n. @

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
) p" f; B. l0 I" k0 B4 U9 L, x! l C8 d/ H5 _: O! J" G
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

4 [+ a5 y2 Q2 {; M4 V( l) O# U" s
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode), L% u j7 m# z3 o! o; u0 z2 v
;;设置栏杆高度和方钢宽度默认值+ ^2 j/ m# `$ V& V+ B. G
(if (not lg_high)
' ]5 ~8 q7 A! S, H, d, \( s! F6 _
(setq lg_high 500, E8 U: s+ O9 A1 y( G- q' f
lg_width 14
4 G# P" Q' N) K. j8 A
)0 D8 ^8 V; t1 X4 F0 |3 Q
)) C4 ?! W9 X" F/ s2 S" U! s ~
;;指定图形插入点) M8 B; u1 H, i
;;不接受空回车7 D3 k7 ]& Y1 S! r, E
(initget 1)
4 H; G4 E$ g$ T3 S E. J2 M
(setq basepoint (getpoint "\n指定插入点:"))' q/ Z0 {$ J8 Q4 Q( k+ Q
;;指定栏杆长度和栏杆高度和(或)方钢宽度2 D7 p. G" J+ ?) ~$ ~
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
; J N; h$ z! y. \
;;用关键字指定栏杆高度和(或)方钢宽度后
# p+ G/ _: ?! l- ^1 u# i
;;需要重复运行指定栏杆长度的代码段
4 v/ q% T: I5 t) G( U3 g& _
(while (not len)
& ^8 g4 x7 b7 Y: B/ x; {0 D
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值, ~: [7 I M6 D8 m
(if lg_length
; U" W/ ~0 j' k9 X8 K5 `: ]$ y
;;存在默认值
* R u$ P2 p7 j
(progn
$ R" J0 w) B4 h% q3 k- k9 T) F
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"7 L; v8 {1 _7 [, v+ V" d* I% Y
(initget 6 "h w")0 S* V( T- |$ j8 k' c6 a @" e/ K
(setq len (getdist basepoint' C: a$ r _9 y+ Q4 C6 r+ h
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"1 ?6 D& M# O+ E& D% ?
(rtos lg_length 2)
) _5 F& ~0 r- @* Y% n' }
">:"
, j/ y( ?# o9 z3 E' d3 U, f( P
)4 z0 z. Y" d; _( C# k! M# l
), Q# n# Z+ y" F# Y( A" r _
)
- v2 @2 V" d' t& O8 _+ J* ^/ \
;;空回车时栏杆长度使用默认值% W, P7 a' D( d0 X; q$ k
(if (not len)
3 w; k1 e2 R1 ?* f" r
(setq len lg_length)3 @& j# Y( ]) ^( B/ Q( I# n. y
)
# ]5 r9 D0 V1 e' l
)* k% ~5 z' {! i+ T
;;不存在默认值
& r: Z" d4 B" M1 v
(progn! M2 B, x+ t6 c% y
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"1 x( ?2 _& c3 x5 h% a
(initget 7 "h w")
: T, \' P, w+ J
(setq5 g' }/ _+ Z9 w! N6 g
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
)
- A# J8 H1 N: p9 O: t8 S& @6 [
)( B; ^- N# e8 j% T0 \3 b% O
)9 x. A" V2 [ p0 V/ ~ g. A, I! z
;;检查用户输入的是长度值还是关键字* J8 D6 Q" e# S$ n: I; ]; {' Y
(if (numberp len)5 w5 J, b% s8 b+ M9 E- l% ^! ^
;;输入的是长度值. W. ^# j2 R6 p+ g" u! \
(if (< len lg_width)
% n& L( x |/ V- g9 K7 U) B5 {
;;当长度值小于方钢宽度时清空输入值重新指定# e) K( n% J) k( r8 ?8 S
(progn
, b$ h. @' b# _( V8 W- {
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))2 M( d3 w* F' n5 D# r
(setq len nil)
- p+ J5 g* _- @* @& v; P
)+ L& j- Y# M2 k' w) e
): T/ d, u; u# ]9 J+ m- K7 L
;;输入的是关键字! Y# p" V/ t2 r1 z, E
(progn
/ |( }6 ^. Z% Z* }$ Q
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
3 c' \/ `0 `; g4 {
;;用户输入时接受空回车,不接受0和负数
! L7 `5 r( t8 D
(initget 6)
7 v9 P0 M7 m5 H2 h: r2 K
;;检查用户输入的关键字是"H"还是"W"
7 T9 n D% L, o$ L, y4 J. }: F
(if (= len "h")- \( J+ b; D' {8 Y
;;用户输入的关键字是"H",指定高度
# H" A5 `# r% n
(progn1 A; u6 o4 s2 T& L) y. L
(setq high
9 y0 W0 b% n: v- c8 n/ `" B7 `5 S
(getdist basepoint+ ~ D6 F* m. U( v5 R
(strcat "\n指定高度<" (rtos lg_high 2) ">:")( X( L3 [7 `: d5 ?* p
)7 {7 p$ @! V8 `# `: M* v
)
# R$ D" v6 {- B/ f; q- a! b- Z
;;用户输入新的高度时修改默认值+ s3 L+ i {1 |. h% G
(if high7 C7 u2 O, m) g' S+ \" S5 ~" d/ @
(setq lg_high high)
: o7 j8 D' @2 F! Z X9 r' d
)
2 J2 o6 B- g& ^ I. c, I
)! `# Y) E" A: t/ _
;;用户输入的关键字是"W",指定方钢宽度
$ t& h5 r3 u ^3 B m. N! p
(progn8 y) H3 U5 Z; V9 o7 ?+ \; H
(setq width
. b! L3 `* @4 x. _7 p
(getdist$ s# ^/ S- G6 d0 b
basepoint
( {2 {+ K N8 u ~1 i2 Y; ~
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
! |5 d$ M3 A: E( B/ e
)
- G% p5 m) F0 v- B) A% N( ]/ T" \6 w
)
K/ h; I+ V2 |) o
;;用户输入新的方钢宽度时修改默认值9 F$ ?6 E. P: P. Q4 A" g
(if width
1 U5 Z( m* i- X& t+ c5 l
(setq lg_width width)5 M: ?. m& y! l; [# Y( I: v
)
" z7 s. o j3 U1 e" V+ k
)5 l' m% v# J9 E: Y
)
. ]. v. ^0 m3 S) B# v
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度% q/ }6 Z g: X1 L' K5 \
(setq len nil)
6 F8 C4 q2 s) D+ S- A. k+ l
)
1 b! D8 A5 Q5 n# [ i0 s/ C/ u
)
: `" P0 G- u5 I+ Z
)
) f& h" ~9 v( V2 a" W- L
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值5 Q [8 g0 @* b, q
;;计算用户可以指定的花形数量的上限( i; Y7 J3 h2 p! z1 {
;;用于下一步检查用户指定的花形数量是否合理 w5 @: x0 {4 C0 a' s( P
(setq lg_length len% K8 I9 E: }: M6 b* f+ W1 Y
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))) a6 u* |4 i0 W3 i' H$ K2 l
); ^; w: c$ y8 S9 I' k6 b& B$ f* p
;;指定花形数量或A段最大长度- Z8 O9 i l! T
;;如用户指定的是花形数量,则按用户指定的花形数量画图
0 F, {; ^2 T6 B% ?$ m- q: y/ l) s% ^
;;如用户指定的是A段最大长度
8 M3 i8 c' D; g+ J( K& l! [9 x0 M
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图1 Y8 m; O: l/ C( X5 P' V+ L, J3 V
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解3 T! Q7 B/ A [
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
0 c! o/ w/ J c& \% F' n
(while (not n)
. s1 J, D7 q+ {: a; D
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值+ @: R7 n; |* @! y9 {
(if lg_n* t& t& A: u b V8 V! o8 w# {
;;存在默认值
9 V5 _7 ~0 T" P% x( ]$ W
(progn
! G8 Y% O" L, r1 B
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
" K; e' j, c, ^$ S$ y
(initget 6 "l")
/ e2 u- {: I* Y1 l* C4 [
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
2 i# l2 y1 N1 j# O
(rtos lg_n 2)
, A# w8 Z3 \7 Q% o: B- q
">:"+ C! F2 j& F8 g9 c0 i5 ~: r1 ~
): z+ Q& P1 {. H9 \ w4 R9 n7 _, T' r
)2 B) b' d1 E& Z( M9 E
)7 k) ?0 t$ R' M) m( T
;;空回车时花形数量使用默认值
3 A2 x+ y, s8 N- }
(if (not n)
(setq n lg_n)
( j& ]5 U) }: F; D$ q7 i. v
)% y; H6 q& R# z5 |
)3 k8 g8 `% u0 Q1 z, k
;;不存在默认值, Z1 Z( a5 Z. ?+ L# w
(progn& f. g4 t, h0 @2 e" H
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"3 l& L9 O% K$ \. f
(initget 7 "l")8 E5 {! [% w, T+ _
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
0 ^6 I+ O4 }4 U" v @4 [
)
' k0 i0 {7 Q# m" ~, d! _* M. p
); ?; B% X" f& E
;;检查用户输入的是花形数量值还是关键字: ?' w3 H S A! X9 }' m
(if (numberp n)
1 y& {" a9 N3 [& N- b( {6 x
;;输入的是花形数量值4 w7 z: M: V) `( t% h/ L" S$ m/ O
(if (> n nmax)- l2 @) l1 z9 w% z/ R ~
;;当花形数量值大于上限时清空输入值重新指定* Z/ d+ w* Z7 I% \: d5 E
(progn
4 v- m7 g2 G1 L0 V0 i& a; o: l- @
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))" t& ~, W) p9 |2 r: c
(setq n nil)5 @! _/ q" X j4 @: t8 `' E# z
)
l7 M! f* H5 D( \+ H
;;当用户指定的花形数量合理时存入全局变量, x! v. G( G! S6 N1 Z
;;以便用做下次输入的默认值
6 }0 j* p4 o1 S2 I# @. u0 e$ R& {) |
(setq lg_n n)' i( D: h q& q8 G9 g6 [
)0 ?3 Z6 x6 r; V6 U# C) n4 d+ d
;;用户输入的是关键字
0 o* P! A4 [+ N6 N$ A% T: B: C
;;指定A段最大长度6 X' h$ z1 I: [% n( k) F9 B
(progn
; d" T9 L7 c+ D' Y7 m" y+ P
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
, |) e2 h5 I. t$ s7 J
;;否则可能导致无解
( ~5 P) h E: W `
(while (not amax)% e4 u1 F; M$ y, d1 n
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
0 ^, J+ f; F; r6 K+ C
(if lg_amax
* C M5 w* i! H" A
;;存在默认值
/ z! W4 w1 S9 H5 a6 Q
(progn( U% J" S( s% o
;;用户输入时接受空回车,不接受0和负数
/ {+ U! O, V2 R7 q* Q5 ]
(initget 6)
& E& O3 _% Q- U/ I% h7 l; S
(setq amax (getdist basepoint
2 o' [& l' q) Z8 z5 a6 r
(strcat "\n指定A段最大长度<"
" y. O+ X- l/ q9 v6 d5 D
(rtos lg_amax 2)
0 k- v3 l& ~: K8 }& T, I2 |* q
">:"/ O% \" z3 o. l$ x& C# O6 s% j
)) t1 o& o. ^ }" S% O& z. f
)& }+ N6 X5 c. h/ W
)
* X7 ^: o0 P( L Y: t! V; a
;;空回车时A段最大长度使用默认值. ~- @* f4 ?4 `6 U' f4 I. e5 c
(if (not amax)
- Q. f) Y; ]& q$ _, T
(setq amax lg_amax)+ A( e; l' y q9 K/ V% _
)6 s( {$ \0 x* d0 |# Y. I
)
2 f0 a. D- W' }. |0 Z9 s+ r
;;不存在默认值
0 j% C+ y/ _6 ~, [9 ]! R& k
(progn# g4 V' a7 r: l( X* }* G4 P+ X% j
;;用户输入时不接受空回车,0和负数! S9 i1 Z, \7 H3 |4 o
(initget 7)
% G6 y! I# m9 ]5 B0 m! f2 W
(setq0 T# Q# g, G* }5 Z- ]9 U1 B
amax (getdist basepoint (strcat "\n指定A段最大长度:")). m' x+ i: r( t* _3 _
)
$ T3 B3 I9 v6 ]9 T, D/ \* r+ |4 U& K
)
. N! T* B! q1 [& j
)
" D k# n* D. V3 n6 O* r0 W
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
7 ? @1 T$ G1 h, ], [7 T" Q; W6 q
(if (< amax (* lg_width 1.5))
3 V- [) |/ K- ]5 a7 }
(progn4 g8 T5 h p+ _1 @
(prompt (strcat "\n指定的A段最大长度不能小于"; s; ^0 P# A$ B. T4 N4 @6 m/ `) I
(rtos (* lg_width 1.5) 2)& @: Y( S9 e2 y; w& q
)/ c4 G3 Y$ T7 V7 t
)
* S \+ O' [* E; b1 ?( f$ N
(setq amax nil)" A, \3 Z. k$ D, ?% `; o5 r9 O% n) ^
)- |5 x3 c% N1 ]
)
# r1 @. {- ?+ Q, Q% o/ R( h# o
)
: D% e9 o1 R; f- F
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值) J, }1 V. b! b- [; b+ A/ d8 G
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1! C @ q3 ^1 T, a& L0 o0 |
(setq
. U S+ x, v# ~4 \- [+ [+ }
lg_amax amax
! n, n; w: B1 s7 V( s, x6 D' Q3 y
n (1+ (/ (- len (* amax 2) lg_width)/ E; ~4 O8 e8 z5 v% U7 Z0 D' p
(+ (* amax 2.5) (* lg_width 3))
) _) {8 Y0 K7 D3 k- d( `, w
); d/ U9 {: g" `3 p7 b# w1 h' }
)( L; Y2 g+ ]8 {
), u! _3 Q+ B A& M4 i: Q
(if (> n (fix n))
* C( J, z* H' }/ p d3 @; M: E
(setq n (1+ (fix n)))
5 y0 @8 @- h3 m. K6 z* e
)
/ K# M; v2 ~4 c8 Q
(if (< n 1)
2 c' D8 H% y) \' `4 j2 G
(setq n 1)
9 O- o, q; f% I( x
)) r8 l7 l/ R5 I/ K1 Y1 `' V4 P( N
)" |/ U. Z, t* K( ]' B. _# d8 G
), M% P9 S2 w# k5 C |; H
)2 e' c, O# E2 k' {* J
;;画图
7 J6 [6 R% m- _& w* H: i
;;记住原来的对象捕捉设置1 ?4 q* H' |% C, v) P; w( i* c
;;按花形数量计算A值4 \: X# u/ e! h0 N" Y, c
(setq6 I/ l1 O5 _ U' {& H
oldosmode (getvar "osmode")" M2 H. g: N4 h% j% ~
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))! ~5 {! q% ]! @0 \& ?4 l
(+ (* (1- n) 2.5) 2)
- {1 w' D3 f$ _( W) Q% y- d1 ?. m
)
8 t3 Q, @; N9 H' s P6 A
)
^3 E6 K: z9 A5 {6 h
;;暂时关闭对象捕捉& t( |( B; d1 P* c2 R
(setvar "osmode" 0)+ S" X" L8 `; }9 o( j. j; K; o
;;屏蔽命令回显: T2 {" d; o$ j) ]$ C
(setvar "CMDECHO" 0)- | h# L2 ]# e9 y# L! J" ]
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形! Z5 u+ ]7 w- ^1 F6 O6 `$ i7 U
(command "rectang"3 E! ^% T/ `6 ?4 |6 a$ @
basepoint
' {% X5 U) n7 Y
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
4 X' h- j3 Y# f# Z: v- r. S
)+ f1 E, s' J1 |& y. {7 }9 y
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
/ w9 W p) ?+ F! P" x
(command "rectang"
5 c, l( z7 ]- k5 r: v) r
(list (- (car basepoint) lg_width)
0 k$ l4 {2 J- u) h# g) U
(- (cadr basepoint) lg_width)) M9 M9 z g1 c$ k8 x3 w5 [5 P
)
6 I7 |& _; Y$ j" ]9 H; c
(list (+ (car basepoint) len lg_width)
4 P! s: t2 x$ C Y( a, A" p
(+ (cadr basepoint) lg_high lg_width)4 T2 V. s; f1 E* a+ }
)
+ q1 z5 U' J* w2 @1 M
)6 T$ s% B* \$ w' H
;;将指定点移到其右侧A距离处
2 M3 s: l1 Q! ?3 J. D
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))0 g5 w4 \ e5 i. n. a( w
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆# r" M: y, z) C' ]* k
(command "rectang"9 {: ?& y, i' \1 f
basepoint5 \& ]5 z, [% z
(list (+ (car basepoint) lg_width)
8 u, H& F/ ]/ ~- Y+ T Q
(+ (cadr basepoint) lg_high)6 }' d2 A6 n4 B
)
; R2 X' H" D) {* c
)
5 U, G/ P' v' ^ o( B/ G3 R
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
$ o( J( r/ G8 g) a5 T
(repeat (1- n)4 a$ [& }) G! D7 \. U
(setq; X) C, {+ @4 Q# S
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
) L9 [( ]$ ?5 J
)0 x6 t4 ?- X3 }% ~
(command "rectang"- ?- [9 A1 g% e" X1 m
basepoint7 n2 T! i6 G; T2 N. M( F
(list (+ (car basepoint) lg_width) `4 u' _3 f: z- M( v
(+ (cadr basepoint) lg_high). @3 f8 |) ?3 {0 }; C/ r9 @8 d+ K
)2 ^( r0 B0 q: u4 [, D" B
)/ H# f3 J1 J# e u( n
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)* i6 |# N1 j& a! Z$ O0 y
(cadr basepoint)
- _/ R3 \+ b+ k; z4 Q4 Q I1 T- h
), n% ]! X2 v* C. o" n% b9 G8 {2 u
)
7 V$ i; Y9 S8 f; c9 k9 V/ J
(command "rectang": B! H5 }0 D. I g6 H9 t; _
basepoint
+ |3 q" [' p( y6 {! r, q
(list (+ (car basepoint) lg_width)7 d U3 o; D. y
(+ (cadr basepoint) lg_high)
3 y8 o$ B5 m1 Y+ H) d, v- u$ s, q) ~% ]
)
% h' u+ B9 [% ^8 W5 r5 A" R0 N2 B) g
)
5 y) o$ T& O& H
(setq, G4 t0 X# o6 ^% M# B6 b* e [
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))3 z5 Q8 X" J6 N
)+ f0 V4 o8 |8 n; V1 m
(command "rectang"
. O3 m! j- _( D H- n: a, R% X
basepoint
4 F* \( T; V q u
(list (+ (car basepoint) lg_width)
& R- u6 A& J. ?5 m1 b; _4 n2 o4 A
(+ (cadr basepoint) lg_high)8 F7 N- O+ F$ v
)" C2 I2 }1 p( J7 n1 ^4 ^: O
)
" h M9 y3 T5 b" X5 l+ Z' e
)
' {; z4 S* O* {9 W. D4 H9 a: ?
;;恢复对象捕捉设置
7 d& h+ q: a/ R
(setvar "osmode" oldosmode) s4 i( s" e& \1 a3 V* ]$ W
;;打开命令回显' {( a4 s6 [) C7 c9 X! N5 {& p
(setvar "CMDECHO" 1)
. Y# T# r" D0 E d' S: B
(princ)
+ s8 t8 W( y0 W% }2 P6 @
)
6 U7 U0 O3 f5 V

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源

浏览过的版块