作图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 发表
h1 _7 Y9 U* `- j/ u: @直线分段方式，a=a=2b: p( M/ s K: ~0 B4 a% J3 y
4 `# Q @/ L! Z

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
; X7 B2 f2 T+ h* p0 z X' I
" j: f2 e$ Y, E% Y9 L距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

" `9 U! T+ ^" T- y- M
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)) t2 z/ t# i0 a T7 l2 T1 z
;;设置栏杆高度和方钢宽度默认值) e8 I$ u; P, h7 ` F+ k H
(if (not lg_high)
0 l8 V3 z# [+ ?4 W3 Z! D+ r
(setq lg_high 5005 T$ @2 ` C+ T1 I0 ]. @
lg_width 14
3 H3 T, ?7 O/ i. j" O9 a* b* R
)
2 j( x& T" w0 g3 a8 Y6 b& O5 o2 y
)9 L7 `, Z) ~% f6 X( L% t2 A
;;指定图形插入点
5 q# J+ h* w. S, b5 r
;;不接受空回车
( k( v. w& G% v6 [
(initget 1)0 ~3 E3 s" \2 O$ W9 S% L( C
(setq basepoint (getpoint "\n指定插入点:"))+ v4 j0 _# f* t9 P; v0 X
;;指定栏杆长度和栏杆高度和(或)方钢宽度
; Z8 T9 [5 E' Q' a7 I3 s# y& [
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定3 G# i7 [* r) u2 S7 \
;;用关键字指定栏杆高度和(或)方钢宽度后
* f+ F# J9 M5 |( |
;;需要重复运行指定栏杆长度的代码段( t2 M3 T+ A) d. L( f5 `, c1 M
(while (not len)
7 m1 ?2 ^( j- J
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
3 p |* Y+ F! \. i1 k4 f- p8 c
(if lg_length$ \8 s. w1 e% t1 m: q9 T
;;存在默认值: I* h4 ~" U3 S8 v
(progn
0 Y4 H! A7 {% `3 k0 O" z4 r* e
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"7 u3 v9 ?% F- m! L- x s
(initget 6 "h w")& s) F* j7 C8 M) Z8 C
(setq len (getdist basepoint5 y3 ~* P9 @% i7 s
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"* w. {, i9 x: w: ~* u- G1 O+ D
(rtos lg_length 2)% d$ `; }+ {. J# x
">:"! [. }% v- J9 O
)( R; O& S2 F/ t% X) m$ t
); g' _7 g4 a- n+ a, W1 v
)
) p6 k& x" K- N/ w
;;空回车时栏杆长度使用默认值4 q( ~% I$ T, }6 _1 A$ x
(if (not len)
$ B/ M4 A1 W# i
(setq len lg_length)
9 U: l1 V9 e* a! t
)' j3 s2 b. P& r& h. }* A
)7 d4 {1 A1 ^( M/ E/ Z
;;不存在默认值$ m! V# u6 I) a9 V) e% E
(progn6 t7 ^6 V" e9 d6 t3 `* d# W/ \
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"- m6 E8 L+ C" k1 L
(initget 7 "h w")
9 J# g8 ]5 A3 A; {. f& T9 e* l
(setq, j, C+ f6 U( G& u6 l+ S
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
2 J9 S1 K! l9 f y
)- x# g3 k4 x- h ]7 ]
)
G4 \3 b& A1 ]3 {- `- v) f% X7 w
)2 R$ t% Z0 Z% m% z
;;检查用户输入的是长度值还是关键字
* s' j: J+ _+ }& G. r: y& m$ J
(if (numberp len)& Z) v" n3 O1 N* A+ G, W
;;输入的是长度值
2 c3 q+ `3 k* {. G; c4 `
(if (< len lg_width)
$ h' y' Y/ t7 t/ Y
;;当长度值小于方钢宽度时清空输入值重新指定
) e* B4 d- C4 K2 ?% q7 D
(progn0 y' a/ o; H% J) L& H" i
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
" L2 X4 Z, F+ `) N9 H0 l& B; P2 H2 G
(setq len nil)
0 `8 t" \. u W" }& x3 {$ U
)
& S$ @) B. Y, p! F: { r6 s
)
, B+ d9 ?$ b* r& ?
;;输入的是关键字0 m: Q( g! q% Z/ z: T
(progn
$ g' S; q; v- ]) Q
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
! l. Q' Q8 `: e+ v. z
;;用户输入时接受空回车,不接受0和负数) G' X7 x. `" N" k
(initget 6)6 ?+ v3 O) w/ Y |
;;检查用户输入的关键字是"H"还是"W"
# ?9 \/ y8 b1 C) P# K4 ^2 m
(if (= len "h")
' n2 R- S1 Y. f9 B, S* d- v
;;用户输入的关键字是"H",指定高度+ y: B F2 Y8 ~" z- W+ l
(progn
( P* r; G+ e1 N0 h3 _8 E8 ?; M: {. b/ [
(setq high
- u0 Q1 c, l3 N- p
(getdist basepoint
$ q+ c9 y) j1 P# i' O
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
1 H- \ c" s$ [8 K- Z! i0 V
)
! i* l0 }( b( Y o. T
)
' @. H: f5 }$ i& v; U5 J6 N
;;用户输入新的高度时修改默认值
9 R, B) i% W+ l# G7 r9 S& y
(if high
) g4 {5 P% B+ @3 N i% c
(setq lg_high high)
+ x( f2 i# r- ]- ?
)/ t7 @9 P( ~1 ~
)
. p6 P% t& [) k" X) r5 g$ X
;;用户输入的关键字是"W",指定方钢宽度
/ x9 @/ C7 p: [: P! f4 ~
(progn
, A4 q1 Q E- N' X
(setq width
! ^: N1 t+ u7 {" Q
(getdist4 W) o0 X5 h- `9 R! D2 Z, G- }
basepoint
6 W Q+ W {1 U& _, d1 P
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")0 H! @* ]0 h* y; N, q) K! y" r
)( r" V- ?8 O1 u
)
- y; {. T& Q$ n
;;用户输入新的方钢宽度时修改默认值1 E/ ^: z3 A1 d4 K2 h& j
(if width
}8 t" D# _$ p6 o) p
(setq lg_width width)
/ \9 h' `; m* h( h. e
)
. W# {3 v3 J, J& u/ L) m' b
)
7 ^$ e8 w; R( |" e, U$ s j# b
)6 k1 J, J8 m, y) u3 a
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度* ^4 x* z0 O- X7 `1 |1 s6 C
(setq len nil)% z# F# c% t; [6 b) B* H+ v
)3 r8 _" V; ]) p- {, G. ?) [/ d
)/ b- }' N0 c7 q4 M% R
): N) r3 ?" f/ b0 M/ C8 L
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
- U" w, V! B. m: x& U: `
;;计算用户可以指定的花形数量的上限$ C0 k7 s( X f+ g4 T4 K1 m% E
;;用于下一步检查用户指定的花形数量是否合理
9 |) h9 n: O) `; }" Y7 D
(setq lg_length len% Y7 c" O4 q: h9 {8 u
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
$ d. m' w; s& @
)
3 t" [1 D+ w+ ]: k: i
;;指定花形数量或A段最大长度
8 q$ G. ^- V0 `# }( q. e$ C
;;如用户指定的是花形数量,则按用户指定的花形数量画图9 ?5 J+ }# d6 t. ?3 C `7 C
;;如用户指定的是A段最大长度
/ [/ ~0 ~ Y& W# j4 T2 j7 v8 t
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
# V# b! b( T$ S
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
( d- I- B* X! v$ q- m
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
(while (not n)
1 ^4 P: P% x" t0 k) |
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值! A. ?/ a) v/ k2 a# r# I2 P8 H, \# B
(if lg_n
/ ]' y+ O' s5 N2 k* y2 d. ?, C
;;存在默认值7 @; r% G6 y3 n3 X9 i/ a0 Q& d4 y
(progn
; s6 i: D+ j: F/ _
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"$ @# u/ Y r! Z4 |8 Y: ^/ b
(initget 6 "l")
0 m5 i$ V' L% b6 j
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
7 [# \! M0 g- Q# @3 R# \: ]
(rtos lg_n 2)
9 t1 Y5 T. D4 B' _! u9 b8 H
">:"3 f1 Y- {; x; K8 c1 w5 W" R) r
)
: H4 L0 L; E9 ^% q
)
0 C9 ?7 ~# K% o
)
/ _, Y* Q+ p! _# ^
;;空回车时花形数量使用默认值# T9 u( @- m# E5 l
(if (not n)
& `" @9 h4 x3 I! Y9 i2 L* u' L* D
(setq n lg_n)
' M8 N: ?5 } c+ _1 ], d. L- H5 ^
)
% D5 m: x" L& F2 w
)$ ]! W/ @' [% @8 S# H6 z% ^7 K
;;不存在默认值
, c& z% g2 X6 p! I) i4 f
(progn) ?) B& Z2 M/ u- b* e8 j# c
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"0 Z' ?' z0 d9 F# Z$ O# b
(initget 7 "l")
& w4 T o2 i+ o. _# W( U
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
" c/ B" ^, O% g A3 X& [
)
; a5 F# q0 v& {* f
)' ?6 z) E3 ]- i' {& ~- r; V \
;;检查用户输入的是花形数量值还是关键字' W4 i( N5 X* d% t. L/ q6 S g
(if (numberp n)
: l2 F5 i8 e1 A( W# ?! U) o) Y$ c
;;输入的是花形数量值/ g( f+ o! b/ o( [% ?; y9 l
(if (> n nmax)
) l& X$ q- B* a5 h' j5 X# a# ]
;;当花形数量值大于上限时清空输入值重新指定8 N; {8 x+ b v
(progn
$ D r& I/ ]5 a
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
3 S. B; t' j, b: D( K) E
(setq n nil), M! r5 ?' F/ c: X% h2 t5 T) H
)
@, {& J0 f- L K- e
;;当用户指定的花形数量合理时存入全局变量
/ m4 ]# N. V3 P. F3 z) l
;;以便用做下次输入的默认值
4 f, m& \( V/ q: j4 c; L
(setq lg_n n)
. ~1 j; {2 W! Y5 H6 f6 v4 R
)
$ L( H2 K* Y# q' o6 g, N
;;用户输入的是关键字! a5 h3 @9 Y6 F$ b+ o5 f* Z: A! ]/ o
;;指定A段最大长度' F$ ?6 ~+ c7 N; y2 h
(progn, ~1 m- `* {. `3 y- A4 V
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
8 i. {6 F+ K9 b* D* I
;;否则可能导致无解% C0 g# n) m6 I- b3 t0 M
(while (not amax)
# Y* e+ E. e( f5 c8 P
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值 ^4 ~; i/ S0 b- w
(if lg_amax9 k5 f+ q! l. p* C) |7 W8 l
;;存在默认值8 Z3 y# Y9 f6 i l8 o7 R
(progn
1 t4 C, E$ E, w! Q+ m4 \
;;用户输入时接受空回车,不接受0和负数
+ U" D5 ]8 r& l+ K1 U" a
(initget 6), N6 c4 E' A9 d& B
(setq amax (getdist basepoint6 T) l5 d3 f: g1 B1 ]" E Y
(strcat "\n指定A段最大长度<"
3 a! [0 U0 Q$ D8 |
(rtos lg_amax 2)* l, g" y9 J, |# f
">:"
: o Q. u& b$ @
)
9 v# d6 \+ y0 [, x R! J
)4 M. S! e, j8 _6 }
)
0 Y K- a& j: w0 X; k9 [5 E$ \
;;空回车时A段最大长度使用默认值
+ G. Y8 W: `1 u' X' P, y8 A
(if (not amax)3 v# ]+ @# O+ u+ ?2 I
(setq amax lg_amax)
/ o6 O/ f9 q' O
)7 `5 j% B3 M' J7 G$ X4 D/ i
)4 P# ~/ q$ V+ p2 g" c; V" {. @
;;不存在默认值
$ r* t' ^ u+ n M! g0 T4 z& b
(progn) N! R& I& y" I* B9 K0 d' v( o" `
;;用户输入时不接受空回车,0和负数& P4 N7 A6 K. X' O; G$ b
(initget 7)5 y! R* n; l. t
(setq
7 c4 Q( s" U1 q6 x, R c8 g
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
" |. h8 J9 J" g5 ]! X3 R
)
5 L" ~2 `' E6 v# S: y7 o7 D% h/ Y
)$ u6 t$ t, W* ^- s& g: r
)
9 L8 J \2 Q3 s% B* q
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
0 U. @' B+ O; D8 }
(if (< amax (* lg_width 1.5))
9 h3 U+ i9 e- A+ z' f8 }2 W' L
(progn. q9 ~4 @* A ~. I
(prompt (strcat "\n指定的A段最大长度不能小于"
, E- J: r |: E) l
(rtos (* lg_width 1.5) 2)
$ S0 B- o3 K( I
)' r. _$ |" x: T' b+ A
)" W+ X x2 Z5 X8 M) \: Y
(setq amax nil)
) E) q& i) r$ Q, z9 y' F
)
' T# k' y! W& p* B2 m6 V, ~
)
" g; P+ G4 i! X g5 k! k1 M
)' K* x L* x# U' d3 n
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
+ l- U n1 H5 J% ?1 |5 h
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
& V9 s& `; ]& a5 p& K
(setq
8 \8 D2 j! l3 E W% Q5 ^9 v* P! l4 n
lg_amax amax0 p. A9 N8 K4 l5 F/ L& g+ \
n (1+ (/ (- len (* amax 2) lg_width)* z. g, j. u+ G$ e) [2 ]) |
(+ (* amax 2.5) (* lg_width 3))
* X0 F( m: s3 Q3 U$ A
)5 B# {, V: n [
)( |. G0 O: Z3 W( Z+ ]* r! D5 c! G
)
2 |& [+ Z r9 O7 l- {0 k0 s
(if (> n (fix n))# [4 b' S# l5 Q2 N6 ]
(setq n (1+ (fix n)))6 P5 _8 A& I. L6 i# p8 s/ M% R" V
)
3 T2 g$ h8 \0 q9 q
(if (< n 1)
% y: @$ Q7 ^* u+ W' Z' q6 e
(setq n 1)6 G5 R& S7 z- }. R8 B1 S( }7 z
)
2 V$ i; Z, j2 W6 W+ n, ]! G E
)
, ^5 V7 Y; C( {5 ^
)
$ B% V/ o* D' C6 L: }% n
)
6 p) `, m- T8 S# L; f
;;画图
4 k/ X Z" _% r1 D$ W
;;记住原来的对象捕捉设置
5 M; M$ g7 u+ v( ^; H- ^- ]
;;按花形数量计算A值
7 l$ z: j) a1 m* v0 A
(setq
$ X" N) { {& ?0 S7 J8 \
oldosmode (getvar "osmode")) |* [% H, c0 L- ?% {6 r! t9 q
a (/ (- len (* lg_width (+ (* (1- n) 3) 1))) c$ h8 s& X) Y
(+ (* (1- n) 2.5) 2)/ b- @6 g! g; F: ~* {
)
7 O# z2 h( d r" i! w7 m
)3 ?" p; t* S0 S4 l
;;暂时关闭对象捕捉
0 j; N0 _1 t3 U" _
(setvar "osmode" 0)9 u5 E+ Q9 o' T: e* ^: i
;;屏蔽命令回显
9 G3 K) ^; v; J
(setvar "CMDECHO" 0)
+ Z$ T8 d% j: B+ ~
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形3 I) Q0 k3 e+ H$ G. S! }3 V- M
(command "rectang"# V9 v" q1 U: p( W/ u
basepoint
) ]: L8 K* g5 Y4 g' S
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))8 F2 E- [$ a+ J( y$ _! y2 @6 j+ W
)
: S( j8 O; r7 S# Y* A8 |+ G
;;在第一个矩形外侧一个方钢宽度处画第二个矩形) F+ u7 e, u- X2 g
(command "rectang"
1 e, n% b6 L! U" e3 M
(list (- (car basepoint) lg_width)
% Y8 k6 Y' ~5 r& X( \% f+ I9 K0 X* q
(- (cadr basepoint) lg_width)
+ j( y6 U% k) @9 [ U8 {9 J
)/ ]7 o! P2 R8 W' g# f' t2 k
(list (+ (car basepoint) len lg_width)
4 O2 g1 O" Z+ `8 z! n) g7 A ?: L
(+ (cadr basepoint) lg_high lg_width)( R( h" u& z% c' I4 k D
)
& T$ R% N H, ^" B( U
)
9 [1 a4 ?: L: h. @
;;将指定点移到其右侧A距离处
1 j6 F& ?& q V: e
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))8 d3 ]0 i6 ]9 D
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
) U2 G" |7 E C
(command "rectang"8 R, T( X( h+ d e k7 k
basepoint' q7 `- Y2 |9 R" B' h6 O4 V; X V
(list (+ (car basepoint) lg_width)
0 E5 }, G g0 H$ b+ |' ]0 o
(+ (cadr basepoint) lg_high)9 b# h7 n1 ~8 A/ [: t) V
)
# x: o; l/ z4 ?' M9 S/ f; f; [+ s9 l
)
3 [. w* x7 P8 A* U0 W# i
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
# B+ o* t! I( g4 g% N! a
(repeat (1- n)9 B0 A% c' X7 B5 ~7 H/ s. P
(setq& |' Q6 Z7 a( C: t8 F
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
5 u* S% @: c9 R- G( a2 e" a& r
). w, L# M. k: o1 ?% f
(command "rectang"
1 t- Q, ?" u6 a& c5 g1 G4 S2 v$ L, z9 B
basepoint
Q' _4 X* Z6 a
(list (+ (car basepoint) lg_width)
9 J' J( h+ L t7 o1 ]+ ~
(+ (cadr basepoint) lg_high)& ~( j1 ~; u. ]+ y+ c/ N
)
$ C5 T# J; ]! G5 a& L
); ~' j2 u% Y3 N0 }- D& |. O2 Z
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)& O: n& w( H- M
(cadr basepoint)
/ Z% P/ S% h+ n, ~
)
x; n) {$ I% t& ^
)
' p) n/ u; Z* X- q1 T/ J' H
(command "rectang"
2 p! [$ c+ ~6 _: Q5 T
basepoint
8 L5 S+ E9 Z& m* N* K; d& ]
(list (+ (car basepoint) lg_width)" l* V( s& {7 x$ _1 h
(+ (cadr basepoint) lg_high)
4 Z+ \) r) `: W% B4 E8 H) f; l
)' U- O1 u- b8 }& @
)
8 T% t' E0 v& Y% s2 b) D1 }2 U$ K
(setq
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
) _- y y9 s3 I3 H
)
# q$ `9 v: F/ R) ^" U
(command "rectang"
" P$ Y" {) w+ N9 H* W$ z
basepoint
+ E7 p8 F; i) U
(list (+ (car basepoint) lg_width)
4 O4 L- W. a; s @+ t/ |4 f2 P, i
(+ (cadr basepoint) lg_high)! R: e n3 L: \* n# l
)$ ]& J- v& B$ k- I, P! d& x, G. M+ I
)
9 V* V" c6 ~# f- c8 ^" K" n
)
/ `: p/ c$ d8 [2 x9 P% g& p' L
;;恢复对象捕捉设置) ^* \5 M- Y% l+ j
(setvar "osmode" oldosmode)' j& e, v1 Z6 e1 b: F/ i8 o
;;打开命令回显
$ @4 L) U3 U$ D. M( o* M. E. S' g
(setvar "CMDECHO" 1)
0 B6 x3 b0 ~" }2 L1 K; Q7 s9 j
(princ)
& s7 @& k/ Z8 r$ F! |6 x/ E
)7 l* q3 D, \, P- r7 f0 `% S

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源