作图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 发表
, V4 V- E* X2 l6 |1 s: j+ R直线分段方式，a=a=2b* Q3 R; N! x! k- b D) g1 f: ~ h/ B# G
) ^8 S" t' G" R% b4 Q9 ^1 v7 D

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
- o5 x+ m2 v; `5 i" b6 X% {7 |' C) Q# z- n3 ~1 u) m4 E: j( _
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

3 Q o+ B8 \% w1 l' W/ v
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)* W2 U [+ r5 Q; W/ n; y
;;设置栏杆高度和方钢宽度默认值. N% C$ `8 L! C
(if (not lg_high)
% `+ O7 O* C) R
(setq lg_high 500, `) D7 c" `7 S9 h" w, \& N1 W% g
lg_width 14
+ u+ O/ T7 E6 a4 I3 |# k
)
+ n& [3 n6 K9 [$ w" \ }
)1 y5 r: u! H1 J. w
;;指定图形插入点6 U9 L$ {/ b- r' l
;;不接受空回车
3 w( S; T+ c% @: @2 B
(initget 1)
- T" s t, @- e4 a# V! Y2 q9 e
(setq basepoint (getpoint "\n指定插入点:"))
2 o- F7 V4 M; R. M
;;指定栏杆长度和栏杆高度和(或)方钢宽度
6 X$ V! d2 n) N' i4 S- w1 e, v
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
& f% P/ E: U: \; Y3 w0 d
;;用关键字指定栏杆高度和(或)方钢宽度后
, B8 C; M4 e; U0 i" G+ L8 G& X
;;需要重复运行指定栏杆长度的代码段1 ~* u g! A1 a' _" g
(while (not len)% z1 a9 Y4 A, k& w0 j- V. c
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
( v5 }0 m6 _% K, g
(if lg_length3 N) v, d$ \/ o& g/ x
;;存在默认值! Q* Q% i8 P4 Q4 m/ H
(progn
3 n4 \9 L% Z$ z
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"3 p7 k7 d; Z. i% K8 N! J: ]
(initget 6 "h w")+ o2 O e! ], _, v M# K2 T
(setq len (getdist basepoint: m" J- v- r1 K, U) A
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"# g: b: r% H. U, @3 ]6 R
(rtos lg_length 2)7 \6 l# G; g; {, w5 R ^
">:"9 }9 }' ]+ n6 \3 l" }4 G
)
4 B% _5 T0 p; Z4 Z2 a
)4 i* m3 b* F! V0 S1 i
)8 Z6 n1 o$ q1 e' A0 d( L
;;空回车时栏杆长度使用默认值; f- x/ R6 y9 C5 Y. [4 b0 t* Y
(if (not len)6 b4 h" J- y0 ?- j' [5 f3 Q: n1 Q. n
(setq len lg_length)/ ~8 b; q8 L% f- X4 _
)
1 d" o0 R) [+ U: I7 i! M" C
)- F c0 F: k, a' K+ \
;;不存在默认值
! L0 U& i) o: n: t$ U$ K
(progn
1 x- ]; |" p! r& L$ {: b3 R7 j; l
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"8 N, V) `3 D* w' k1 X
(initget 7 "h w")
( x; @( R4 J5 W- i; b8 `
(setq; `- Y @8 B( h' Q
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")6 ^' Q! H. }* U7 L5 E, M4 H) w" L2 e) q
)
4 }; k/ X: Y/ A/ _ k
)1 l U% O' q, d, q" |' O
), q+ c/ S- r3 J4 C
;;检查用户输入的是长度值还是关键字
# n* f& m/ K9 R; _
(if (numberp len)
9 `2 I" g V" W, t' Q- |
;;输入的是长度值
: H3 y3 ~+ L0 b4 ~
(if (< len lg_width)
" K4 C4 ^; ]# t& O! B ?5 _7 e
;;当长度值小于方钢宽度时清空输入值重新指定
2 f! i3 c" D3 G
(progn
8 ^$ c+ {$ \' E3 g6 h; R
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))& h9 X$ [0 X* B* x" g
(setq len nil)
0 e: _! C& G" b& X9 j$ `; U
)6 ]( @& x# p! k7 n) M9 E9 F/ E
); H2 a' @8 u9 N2 C' O+ P
;;输入的是关键字
2 L, x6 b0 m9 D+ s* V+ f( x
(progn7 s" }& Y* L/ z0 {5 X' @
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值) G0 m! P6 O) l
;;用户输入时接受空回车,不接受0和负数
0 @% h6 z; O8 \ M) d9 c* Y
(initget 6) J8 P8 a% n) ^7 G$ T1 B+ }& \, l* o
;;检查用户输入的关键字是"H"还是"W"+ O9 o& C5 k$ \, {8 f
(if (= len "h")
6 h$ p$ J; u: t, B' P! m
;;用户输入的关键字是"H",指定高度
/ d7 u3 y' V$ ~& `0 N2 t: I
(progn
7 K4 {+ c- t I9 Y1 i
(setq high
b7 h' g. y W2 d! B
(getdist basepoint
. r8 I( G- J* E* Q: X
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
0 t6 D6 i' r- j. E! J8 z5 f
)1 A) K7 n3 N: [
)( q2 y+ ^; c5 K' ~5 f" A! q
;;用户输入新的高度时修改默认值
* s6 H# x% `! t# |& @7 S
(if high
0 f7 u S# F# K; y; N$ x5 S
(setq lg_high high)9 C' O( z5 g) s; v
)8 ]! Z. @3 V. y f2 I9 G/ {" O7 t
)
7 J$ x/ Q( b2 T, Q# ~* Q3 \# E: a, C
;;用户输入的关键字是"W",指定方钢宽度/ s% d8 t9 K4 w" h
(progn9 J1 p' ~6 M- b, U+ V/ ~! D! w
(setq width
6 K. Z# X& |, q t m/ w) r2 P9 x
(getdist
/ ~# r! o# w5 [; x0 P, c
basepoint# j: d' \) h' H1 o D4 U8 m6 Y( ^) q
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")$ \ d& e; y$ W S7 {9 U& r
)
9 s& l& ^' s* ~) X
)
# I, p: l& y8 K, \7 U G
;;用户输入新的方钢宽度时修改默认值: u8 s! G3 n$ ^$ W
(if width
) [5 M) N& @. B3 X0 _
(setq lg_width width)7 m8 X# P) l1 j+ m* Q% t
)
" U' s- c9 u x* u. F d, Y3 X/ a
)7 Q( v3 I: J$ d, k. n
)
5 K" O" n; E7 P
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
% u( T Y8 N1 \
(setq len nil)
" z& w% ?7 H& R/ p) ?' i# r3 m/ ~! c
): h) L) {: h$ n8 J2 c1 j
)! b6 P A% b2 u R) z( A
)8 K& u; G% y3 T7 i4 S
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值4 Q/ }" |8 T9 T [
;;计算用户可以指定的花形数量的上限
# A& S0 k2 a6 g4 Y D
;;用于下一步检查用户指定的花形数量是否合理/ i! ~, ]7 |) {6 Y6 z2 {
(setq lg_length len
- b) P: Q2 O! C: |. V, Q0 [
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
. p% L7 Y" b/ ^
)
t6 i$ S) A+ [
;;指定花形数量或A段最大长度
0 H! \3 c& p! m1 q; \
;;如用户指定的是花形数量,则按用户指定的花形数量画图
: |$ P7 x C7 n0 }, X5 ?3 A
;;如用户指定的是A段最大长度+ e$ l6 ^: }! `2 [; k9 W# c
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
# y7 Z, L5 } U8 c6 J
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解 f- i c$ |2 g- P
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
2 K% ^- J* A0 c8 Q' u
(while (not n)
+ F6 J# T! r, o1 @
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
+ e& a0 m" i9 [# F' r
(if lg_n
7 K# b1 z- J0 N7 m) W. x. K
;;存在默认值
; S' S" n- _9 y' j& m
(progn: K# ?5 E$ i0 e* w, S% }
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"8 o7 w5 h( s t/ b! j
(initget 6 "l")
, g, h3 q5 \5 f- g3 p v# [7 V( ^
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"4 S+ C1 Z' {1 e# u. K
(rtos lg_n 2)% R5 S/ Q/ d- Q1 n) A/ n
">:"( c+ h% r3 o$ }2 t8 Y+ h8 A
)8 ~5 \$ F; V/ v3 P4 m" u
)8 ]# X6 d7 e. e0 L1 e& L; p4 Y" K
)4 S7 Z/ B) `( ~; q% ?9 L
;;空回车时花形数量使用默认值9 \5 n* r) Z8 D9 [* i: T
(if (not n)* i# R2 q8 N+ f
(setq n lg_n)& Z4 \1 r! `6 t0 c6 k0 i) H% Y
)
# u w1 ]! N: N7 A
)4 o8 \$ t3 P2 z! | G( A' L
;;不存在默认值
7 d- W; e- L& Z2 f' W1 b
(progn6 Y; N" B1 Y# ^
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"0 k; U, ^: Y9 k2 w; ^4 f9 ]
(initget 7 "l")
: G2 N2 v/ o9 `& [
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))2 p3 p' K3 H/ Y
)
' f+ `8 @: P2 t- T- n* p) }* X
)
& ]) O2 O1 S2 ~# d9 r
;;检查用户输入的是花形数量值还是关键字
4 M+ ?9 s( y& O/ B7 K# u K5 h
(if (numberp n)
8 n& u0 k0 ^- [9 W
;;输入的是花形数量值) } f5 J6 ]" I7 a+ F
(if (> n nmax)
( G# a8 f" H& h) Q: C. Z
;;当花形数量值大于上限时清空输入值重新指定
# m7 }+ j' J# O0 B; H7 }3 u
(progn* ^* s. Y( B* X1 H& w. G
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))4 Z7 W2 X9 M7 A; I6 _* _! l; C( Z4 z
(setq n nil)+ k1 z8 K' G- c; d& w3 y6 M9 j' r9 e
)
. |% d; V. X6 B6 r8 p9 ^* N
;;当用户指定的花形数量合理时存入全局变量/ k, b# ^) N: j) r' I- v3 d4 h
;;以便用做下次输入的默认值
$ x1 v2 f# E9 ?6 p6 [- y
(setq lg_n n)
7 f* M- B ]- N3 C
)
; g4 t1 c+ t9 u* k8 B3 s8 U3 g( f
;;用户输入的是关键字: H) @ F7 ?' A1 {6 V, ?
;;指定A段最大长度) f3 H E: u! v7 ]2 E& n
(progn3 j0 Q9 y7 B1 ^4 g
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍3 ?/ U5 L; s$ m8 G3 `6 o3 M
;;否则可能导致无解
" M4 u* z. x: G) x9 B& K: h: L& y9 w) p
(while (not amax)
, T) I# D; {+ @$ K* n
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
5 O7 m" x$ v9 J! }# R% ^
(if lg_amax
- l* M& {; n7 ^, q4 { W
;;存在默认值: [+ f& b0 W& I( s7 @$ M
(progn6 J5 f& V4 R% p9 j
;;用户输入时接受空回车,不接受0和负数
+ l: k# D, Y8 t$ M" ?! e4 [' P4 @
(initget 6)) U' {# o# o% U4 p: K. [
(setq amax (getdist basepoint
9 o4 R3 k, g2 R
(strcat "\n指定A段最大长度<"
) e$ v( E: `; M- t
(rtos lg_amax 2)" a/ v7 U) ^, Z: ?, o, h
">:"
7 i5 [' U- ~1 ~ F' j1 N
)8 E. o: b% e7 e% ~
)
& H9 W! F9 h+ D/ h u
)
: h8 Z5 K/ u# z, s1 Y4 B
;;空回车时A段最大长度使用默认值
- Q# p* p; G6 }8 A0 S6 A* k
(if (not amax)* P {: H+ e( [6 k% J* _$ q* L
(setq amax lg_amax)
, B# t4 Q. e8 C1 T3 E0 i
)7 X! N3 w: ^ x! d) l
)
2 c8 Z8 n* V$ N7 ?* i% F% h
;;不存在默认值7 W# G. |3 O3 S
(progn
" a+ B5 z+ j. M
;;用户输入时不接受空回车,0和负数
6 R, O; ?3 x- c- _, ?0 m# [
(initget 7)4 ^/ j) j, X6 I6 e
(setq
6 k; U6 @+ l [8 k8 n1 Z* C1 j
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
! k( s8 U3 u! c6 L6 ~% T
)
8 \8 N9 q- Y& W v* A1 }) u: L9 m6 e
); k9 C& [2 h% O7 P$ ~. h
)8 \4 a/ ~6 W9 H
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
$ C7 T" K9 u; g9 `: y: i0 H9 W+ c2 N
(if (< amax (* lg_width 1.5))& m: F, }. O( V" X( n1 F
(progn6 ~, h4 r1 E9 c( o+ `0 K( e
(prompt (strcat "\n指定的A段最大长度不能小于"# s0 }7 f, M q7 ?( b
(rtos (* lg_width 1.5) 2)
4 j$ f4 Q8 P: V4 Y" i/ O* }
)1 _9 ~: v; }( l% }
)" s1 M3 A- @& s8 H8 V, h& l" A
(setq amax nil)
* G" l, b: r2 O6 J5 Z8 @3 i
)4 g8 N% |) D' G/ W* j4 A2 v
)2 N* D& f1 z' t- N8 D( t. z% ?
)3 H1 M* K- E1 i6 M+ G* {+ F
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
* o7 q/ Z- n) ?3 Z( F3 ]) Q [
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1: h: s: ]( q) {1 U" M+ \
(setq$ a% i/ W- f$ ~7 P
lg_amax amax
. S S1 p! @5 K+ C$ i' q1 L
n (1+ (/ (- len (* amax 2) lg_width)
* r: I a) f# ]+ C- d Y$ p% f
(+ (* amax 2.5) (* lg_width 3))3 Y* N1 J. k, f4 q
)
% ^& N3 v5 G4 X0 K& U1 t
)
/ T8 L: d1 X7 P$ N3 y F* c( h
)
5 W- m& s+ M$ |
(if (> n (fix n))! y- [) A: i4 k( z3 Z P
(setq n (1+ (fix n)))
! b( C+ R# F; b/ m4 H5 }; c
)
: k4 U* G) f8 x7 ~5 A) O( Q
(if (< n 1)
: `& [ O& f4 @1 e% u0 j
(setq n 1)
* M4 U1 k9 t' D; ^' Z
)
+ e% v) \7 e' ]; P) [
)5 y4 u6 \% ?. U% C T
)
' o3 i4 c6 w4 H, s2 e' v) j$ ?
)
. t+ j, i) P; T
;;画图6 f& _; i" {' r+ S8 ?9 B
;;记住原来的对象捕捉设置. ?; g6 L: O# ~+ i' U
;;按花形数量计算A值
; c7 P u( j5 \/ H
(setq/ F$ o3 B7 _$ d+ L: S1 |
oldosmode (getvar "osmode")0 E j2 u( D8 d( |1 b
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
; n/ ?% j! ?# m& `! j+ _
(+ (* (1- n) 2.5) 2)
$ T7 P0 e8 s; G/ S- ^, a& i
)
h5 U+ B- ]) e* M
)& M: e$ h; S w1 m+ l% t
;;暂时关闭对象捕捉
' P% [# [- l7 X+ F+ Z
(setvar "osmode" 0)
2 ^" E+ q4 V' V% o/ |: t! W
;;屏蔽命令回显+ p$ o& ]2 Q$ v% P
(setvar "CMDECHO" 0): [3 [2 o) R2 P" L
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
! T0 \6 A8 X- v- R
(command "rectang") r- x. M- M; Z/ x2 N$ r
basepoint) r- M+ ]! Q* G& t7 Q
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
: }! V* X2 q0 x& Z
)
3 S+ I, H2 s, h; W
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
1 ?8 Y" s( @- I# A# N* F$ O
(command "rectang"( s8 H @+ e [
(list (- (car basepoint) lg_width)
1 U- w1 l" \! ~' p' |8 N
(- (cadr basepoint) lg_width)4 k9 O' m% X3 Q
)! u) a0 ?) u2 Q) Z s
(list (+ (car basepoint) len lg_width)
1 z) G2 }% r5 ~, s# Y) U
(+ (cadr basepoint) lg_high lg_width)$ A# s% Q6 ^" S5 K
)
4 T: V9 ~; }6 x) V. ^1 z2 m4 T; d
) @5 T' x* h4 F' U Q
;;将指定点移到其右侧A距离处5 B$ k+ g7 v% s* m
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
) j3 q$ q5 b3 i6 M" g# m7 d# W
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
9 e4 @" b* `3 k! F/ M
(command "rectang"
5 S2 |" c8 N: D: m; R' U; P
basepoint) F( d, H9 ?7 n, y- X
(list (+ (car basepoint) lg_width)
& Z9 n7 B9 e, a5 w2 @4 E
(+ (cadr basepoint) lg_high)
9 i4 q- P0 ?6 t f. W0 n5 o
)3 {* o* [7 K' O- l8 t( l) E
)5 m ` g X, ~1 i
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
9 V: ^- r# e* W- u% d' a
(repeat (1- n)" g3 q! h; ?" w2 v( T
(setq
$ `3 m* C, e4 ?+ h- Q/ o
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)); f L& l& n: @2 y; N4 {
)
" I4 W1 r6 Y9 x: t4 h& Q+ f; b
(command "rectang"
4 f* j+ n( d9 b9 V }3 X
basepoint, L# u4 ~6 l: d; u" \1 ?: n# P4 Z
(list (+ (car basepoint) lg_width) Q* w9 A7 _9 w5 q' Z1 h
(+ (cadr basepoint) lg_high)
- U' z m ]2 r/ V1 G& |
)/ W- ]( [$ H `, J. M0 Z) A
)2 o; I& }6 l- \# a5 ?' }/ @7 M
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
]9 ~" _* D4 q! c" k9 q: ]
(cadr basepoint)
: S) x/ q8 p3 [2 y9 M
)
# N: R, q2 g, Q0 s- l- a0 E
)" U5 J$ G, Y/ J1 s% L) U% l
(command "rectang"
& T, {+ R. ?" l3 ^4 M+ u- r3 @
basepoint
2 D( y2 `- C2 M7 Y
(list (+ (car basepoint) lg_width)
& z2 x2 ~/ b( j! e2 b+ U
(+ (cadr basepoint) lg_high)% h- d: `4 q5 G% ?3 C. E
)
' D3 ?: |( T2 h( ]
)
8 F ]+ i+ l! {* `8 ]
(setq
( u! H' v. Q8 H
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
5 M( o" F3 p6 K# O
)- s3 J" M, A+ e
(command "rectang"4 K$ e6 @8 Y& J& C/ `$ ^6 K& ^
basepoint$ j" s" N( E+ Q u! X
(list (+ (car basepoint) lg_width)
: f- W! r( L# g# ]* C
(+ (cadr basepoint) lg_high)
. K3 f( W: `; \/ M, s
)# r! D' ?9 T. B R1 I
)6 Q$ S: E% i6 @1 I: |! K5 ?
). N+ u# Y3 ?6 [$ u2 ?- y
;;恢复对象捕捉设置
; ?% Z/ E% Q7 }( D/ Z/ M
(setvar "osmode" oldosmode)
" U+ e( y ~0 X# z# E! b, q7 W$ r
;;打开命令回显' B1 s% J# e- p1 k# H" i
(setvar "CMDECHO" 1)0 r* _7 R! K; \7 C7 c0 M
(princ)
9 k! z0 i5 V4 f9 [" W# ~! o3 i! q
)
1 `- \3 C% e0 K) S4 P J$ ]

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源