作图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 发表 9 S# I& j0 s8 u$ T* e2 o/ S
直线分段方式，a=a=2b
1 E7 m) S {$ f$ u5 X ' N$ t* i5 [1 t, I7 [

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 , C+ M/ n, y) b) J

% t* r0 f$ H- i4 u. m+ W( v距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

/ y0 p+ g$ s/ B
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
( Z# O$ [, [) o. Q( F( n- P' r/ Y
;;设置栏杆高度和方钢宽度默认值. r% D6 T5 [& k; c) y
(if (not lg_high). l0 c. @5 h: I6 a8 r
(setq lg_high 500( |: E7 F' v+ o# H( n( V
lg_width 14. s2 W6 G* U1 ]
)! _ d3 r) r+ ^5 ~3 x" Y, U( @' L
), y# \# d/ P& ^+ q$ b$ M# x
;;指定图形插入点
& t' `7 K- e6 |, V/ u( j- Q( t
;;不接受空回车
& m" \5 c: o) S
(initget 1)
: e! j9 A4 U% T$ W0 {' |
(setq basepoint (getpoint "\n指定插入点:"))2 O, J% }. Y: s# j, q5 ~8 _
;;指定栏杆长度和栏杆高度和(或)方钢宽度
6 g! M" U/ S8 J- E: O8 \+ [
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
2 i$ y& c( l9 q+ w! v
;;用关键字指定栏杆高度和(或)方钢宽度后7 g4 E4 L$ H# n" h6 j8 s3 C8 C2 l' E* a
;;需要重复运行指定栏杆长度的代码段; M5 I( _- v/ q) N8 ]+ G7 a
(while (not len)
1 w; w: P f2 g4 ` t3 R2 l
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值' D( U: D& o& Y& R$ g( w
(if lg_length2 e! U4 M; a' d9 @, L6 ?
;;存在默认值 Y [8 ]& x% f7 W* M. T; j
(progn6 N% K# W* [. y5 w8 Y% U
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"- Z+ u- C8 b( i
(initget 6 "h w")0 s& O' v. ~, g* n0 v/ B
(setq len (getdist basepoint7 F" Y" M+ }# d: }" i
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
, b& O9 A' a" M9 k* f1 d* I& C' o
(rtos lg_length 2). ~: x& V$ ~2 N/ E: ^
">:"9 a! t! V2 {; m
)
" b1 \9 t; C' q% E2 V
)
9 o: [% Q; h( Z' ~! M% {
)3 t+ g0 R b7 c! w
;;空回车时栏杆长度使用默认值2 n9 h0 W! K# K* O: Q) ?$ {3 x
(if (not len)4 t: h& i6 q5 s: W; ]
(setq len lg_length)5 S( B* P2 R& e- w
)
: g8 X( V8 l$ [$ _
), Z8 u9 w6 R6 Z* R9 t. v. X. i% c' ?
;;不存在默认值
* i |: G, a# h, e+ c" O+ [
(progn" `: z9 Z, F) x. W7 Y& V
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
2 [; N& ~- l- K5 B( M ?
(initget 7 "h w")7 b; _; |# a9 h
(setq
+ u1 R. s1 y( B5 o
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
|& P' q: ?1 T8 }
)
3 ?* t' {- z x" S0 q, U
)
' c! x) W$ ~4 F6 E- u
)
, e5 O- |- E% D: E
;;检查用户输入的是长度值还是关键字
# S6 p4 E# c6 I
(if (numberp len)
) P0 M1 M% d% U* l) q4 E
;;输入的是长度值. g& \7 ]( G7 m; b6 p
(if (< len lg_width)
2 o% `/ e+ x( E
;;当长度值小于方钢宽度时清空输入值重新指定
- K; U+ v# [5 j: ?- X
(progn2 E6 M: ?8 \* [0 b
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
' M. A% N& Q& t" X! J7 W
(setq len nil)
$ V2 Q# h7 c0 t9 M
). x1 Z# `; q% Z; X! i8 y6 Z- r- M
) }' l- g/ O3 w7 Q. l
;;输入的是关键字
, L% W" ?, N; g8 S
(progn! N4 O7 X; ^5 z M
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值! K3 B, K! @# S, y0 N% Z- l' s
;;用户输入时接受空回车,不接受0和负数
4 @; ]! \' W8 D t! {* m& a3 `
(initget 6)
& m+ d6 p5 B3 r' e9 a% Y
;;检查用户输入的关键字是"H"还是"W"
0 l5 d* |- g, ]
(if (= len "h")' N" d8 g3 }5 x! q' n' J3 r% ] N1 q
;;用户输入的关键字是"H",指定高度
. u# j2 f+ n; ?8 ~
(progn
7 W; q( E. F# \2 {
(setq high' S' Y3 X( H/ X7 L' P/ ^3 a
(getdist basepoint) h5 P0 T9 |' u. m0 ~' d
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
& G4 ], n- n" `, \
)
9 C. Q9 R, I. Q
)
$ R: W4 a, t+ S! f2 C+ i d) z
;;用户输入新的高度时修改默认值: c! s1 f5 B9 J+ K
(if high
' N, H: |' |* @
(setq lg_high high)
1 B* b* D; E+ J, N% _ n y
)' Z) ]9 G. |! w9 k2 w
)
) v! a$ g& G4 X$ u: N; i. D: q
;;用户输入的关键字是"W",指定方钢宽度* p9 g7 P+ J% ~7 F1 ?( L
(progn
) O" N3 |% G& T! _
(setq width; G% B# V3 i- C% l
(getdist* Q1 d: G9 C/ d1 w$ ?
basepoint9 H6 V _( ]$ Y) |+ e3 c9 }
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")# Z4 W8 K1 g9 y1 W, O
)
4 Z: [7 L- M! u# u+ \# _4 w/ n0 `# X
)( @4 C9 A4 d% @1 [
;;用户输入新的方钢宽度时修改默认值
1 e; j0 J3 x. R# T9 e q
(if width. Y, n+ f! o: Y/ V9 I J* u
(setq lg_width width)
6 k c3 e8 T6 x5 h1 y/ t
)) X1 F4 F6 d* ~. n, Q3 u
)5 `: S: |* L3 }& f. c i" Q8 ?
)
$ K5 \# y) m" W& k
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
. @. e- ` _1 x/ B! v3 j9 @
(setq len nil)0 Y( _0 I- @ @
)
; K- i* h2 G$ R' T3 k* Q/ v' b+ L& }
)2 { n' e6 A5 H
)
* A$ t" g7 ?3 {, v- A4 C
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值- @, T3 V! z/ m4 \; s
;;计算用户可以指定的花形数量的上限
: X2 ~6 z2 R5 G; V+ e+ a" ~
;;用于下一步检查用户指定的花形数量是否合理, l+ ^, N& ?$ h: N, ] t
(setq lg_length len4 c/ K$ G5 {1 s# f6 I/ Q
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
% T% Y( T1 O/ j3 ^, N
)
& \0 Y3 c1 J! c9 ^
;;指定花形数量或A段最大长度
! M8 H5 U' q" x' j7 k8 j
;;如用户指定的是花形数量,则按用户指定的花形数量画图/ s1 l( G( |7 T, b' k2 a
;;如用户指定的是A段最大长度+ p0 s- f/ y) k* I' O
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
1 r! i3 ^; T* q% k2 y1 s4 D
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解7 X9 M$ a- f6 S& c5 A1 C! j
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
4 }+ F$ u- f/ C6 X- N
(while (not n)! X S" f5 g% k% v6 Y( z! s
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值9 t% b1 F' d' }
(if lg_n
7 k9 ^+ o1 Y; S" Z4 n
;;存在默认值! g) k5 W5 Z7 T" X4 x: N" i" P
(progn8 d J6 h3 V" d1 L6 M; K
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"+ A! _+ c# X2 g
(initget 6 "l")
/ D3 i+ |6 ]3 [2 T
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"1 h; m/ a m- \) m/ M9 M: Z( x3 C3 b
(rtos lg_n 2)
* ~0 ~7 k# [0 [; t) N; S
">:"
$ }. H1 C' x# L% }2 R }
)
7 |5 Q8 z( y. a# ~- A5 A& n- S
)# ?. K7 Q. a- ~% ^. I; r
)2 [2 j0 t% C9 C) }% A
;;空回车时花形数量使用默认值; \+ ~6 G# V; i" p+ Q
(if (not n)
- M7 ]- l q( O+ I3 O3 U( w
(setq n lg_n): {# t# O$ \) X# m) C/ u
)( }% i: I2 t" L: }& f8 }* b
)# p u" l. q2 Z. C: t( N1 E
;;不存在默认值% M h0 q' h) l# K
(progn
- u6 f. W5 e' \
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"9 j+ i6 ?# q# V" M; |; c
(initget 7 "l")7 H# _9 K$ U4 E+ `
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))( I2 q. e" A' ~ Z, n9 H
)2 z8 c3 W8 c: q2 P- i* b- e$ x
) P8 k7 w+ K# ^3 |) k/ Y. H
;;检查用户输入的是花形数量值还是关键字
4 i% f. D( M; e
(if (numberp n)
/ u" m) K" X% j/ R" a
;;输入的是花形数量值$ M' K1 O3 q$ K0 ~4 y% P
(if (> n nmax)( S: M# { x/ k$ F' R
;;当花形数量值大于上限时清空输入值重新指定) Y; [- r9 {1 d Y2 a
(progn
C8 n' B9 X3 Q% u8 w- g' \
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))1 u( n) C' L7 X! n% T+ W
(setq n nil)
9 a. \$ v8 d. q# Q# M
)
5 w d0 T) X* C8 _& R
;;当用户指定的花形数量合理时存入全局变量
y) [$ j4 |$ {1 [- W, N! f, q
;;以便用做下次输入的默认值: y9 k+ Z3 b+ W6 o% Q, E/ e
(setq lg_n n); x/ q# T4 ?) i' y0 g1 }- k9 Z6 J2 e
)
* B: L: V/ \0 a) k8 j2 R
;;用户输入的是关键字
3 d: b- T% K2 T% L: U! _
;;指定A段最大长度
3 }* ~, o/ ] y
(progn
- U3 a" V- M8 B# U" V+ O) r' ?6 i
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍# [0 ~2 ? @1 S& i7 ?& Y
;;否则可能导致无解2 ~/ q; v' W& F1 l( P0 ]
(while (not amax)
. z9 r) K1 a- Q
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值& ]# @3 w+ [3 B* \- }7 w6 @: _5 U
(if lg_amax
. d; V4 M: m X) _
;;存在默认值. I$ ~4 P3 X3 @
(progn
6 x6 n* R1 A9 @# d
;;用户输入时接受空回车,不接受0和负数' F! Q6 X# {2 Z3 D' n
(initget 6)
0 {: ~! Y# o, H$ r' _
(setq amax (getdist basepoint
; D* v1 h, y& G9 C9 E! k1 e
(strcat "\n指定A段最大长度<"
" R, I4 y7 ]2 T! x) r4 q
(rtos lg_amax 2)! y( Y' I9 _9 ~, [( d
">:"
5 f/ y7 p) P1 J% D! I" W. s& Y
). E# u' d) \, Z6 M% b+ s/ R( C6 e$ M; _
)7 k" F7 @' O0 |: Z1 M; L
)
0 @6 Z' ^# K$ V# G9 p
;;空回车时A段最大长度使用默认值6 Z& [# |: o/ C/ _
(if (not amax)
9 E/ l' ]) h% g* f
(setq amax lg_amax)
+ R {$ ^3 k, c6 p
)1 E$ J( l0 J& ~0 ]4 v
)( r( G% S9 n, ?1 n; \
;;不存在默认值- ]5 p; M( h$ N. [; ^8 H$ J( g
(progn
+ g4 i7 A4 r2 c- a+ ~! _1 Q
;;用户输入时不接受空回车,0和负数
9 r* m: l0 J; `
(initget 7)
' I2 H: b3 ?7 D1 |
(setq# ~8 j+ G* h$ m
amax (getdist basepoint (strcat "\n指定A段最大长度:"))# S- s. ?5 H' N0 _) A
)2 u5 L9 O: X* U0 A
)! f& y5 [. M% h3 y2 W
)
; r: l+ ^: c2 Z& Z4 K
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
8 H6 N+ z8 n0 B2 K3 B
(if (< amax (* lg_width 1.5))2 c, o I! J# J5 h/ _
(progn
1 _) o+ U4 A- E" g
(prompt (strcat "\n指定的A段最大长度不能小于"
- s+ z5 d. }( q( I5 f; E
(rtos (* lg_width 1.5) 2)
1 j* \: K, C9 M* k: V5 u' L
)
! R8 ?" S& _( k
)
2 `. |2 G u3 Q7 |
(setq amax nil)
# \: U5 a: e7 U8 m. g0 b( P
)3 f- e7 M! Z! t( l. V) r
)# H$ }: V( I5 ~8 j% `% H3 G
)& p1 C/ _% V8 ^8 U t$ E5 o7 L. r: M, h
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
, N c3 r4 w; b& M9 \
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为14 L% N+ q) ~4 A
(setq
) |( R& F2 T3 i: d) V
lg_amax amax
( X" @& Y" E9 p
n (1+ (/ (- len (* amax 2) lg_width)8 ~) f [1 v( Z; A
(+ (* amax 2.5) (* lg_width 3))- O" \8 _6 O7 d' k0 {
)
- y' B X: n/ R' Z. |. I2 D7 ]
)" }3 O/ F5 F2 p) I& R
)- W; j0 f8 k7 l. |8 e
(if (> n (fix n))
p1 c( M- ]7 q+ p: W. A3 D+ o. q* ^
(setq n (1+ (fix n)))
4 X% C6 L) L4 ]7 r" d( z$ |
)& j2 r, b% N! V" A5 m! ~) F, k
(if (< n 1)
+ R5 N y( v% H- y# B
(setq n 1)
$ F# f9 F' n2 J) i7 u! j
)* L7 i6 a8 i. t K. n% `
); o0 K1 E! A0 o- K2 a+ t+ L
) u* f; N3 `+ W1 `0 n
)
2 E7 E2 {; |- t$ J
;;画图
+ x! s7 \4 ]3 `" t$ p5 ?% q# d
;;记住原来的对象捕捉设置( a4 S2 v8 m2 ^) O+ M
;;按花形数量计算A值
1 B' T. J; b8 n' R* p/ F. D
(setq _8 Z* b( g& {& S: a" a7 {* y8 q
oldosmode (getvar "osmode")
2 I: C/ f2 K7 q
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))4 d' K3 b I( N$ K4 b! e
(+ (* (1- n) 2.5) 2)' U: k! S) h0 O- c0 f m% p B
): H5 a I* }3 z$ E: E0 c9 V, p
)' X2 O: n3 u; N# Y; `
;;暂时关闭对象捕捉* h" \% q& E# M$ D& s6 Y- b
(setvar "osmode" 0); ]+ b( l+ ?8 `4 i1 p) d
;;屏蔽命令回显% [* s$ H8 z" M3 F7 o
(setvar "CMDECHO" 0); j" v' {, p+ c
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
" c) ]! R5 G7 W7 ^3 J, z% Y# r
(command "rectang"
- {; l1 a0 v1 G4 D7 }5 D/ P/ u/ T
basepoint
5 b$ u# V; m& x; n
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
4 o# p1 J9 o. v& j. W4 Y- R6 J" T
)
8 i! G, p, P6 h& C8 |) z/ s
;;在第一个矩形外侧一个方钢宽度处画第二个矩形: p) @& L) f1 F/ K
(command "rectang"0 ?( c5 ^6 ~/ i) Z/ K5 ?6 `* q
(list (- (car basepoint) lg_width)2 C% Y8 [9 |1 V3 k5 ~
(- (cadr basepoint) lg_width)- d. a# p( U1 X% S
)7 x! H3 q# y! S; U6 k% C' g* h2 O! ]
(list (+ (car basepoint) len lg_width)
. c% r- T$ ?6 H
(+ (cadr basepoint) lg_high lg_width)* F5 }$ R2 b) D
)
' s" j) \$ Y( x! i; j
)
* O" l$ o9 T- ^' @4 v, x5 O
;;将指定点移到其右侧A距离处
' e1 V+ l, Z# i0 F
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
/ o% \9 m3 v1 C* _! _! `
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
5 g% }: e5 K! Z- ^ [
(command "rectang"5 S3 T! ]0 N+ \1 t5 q% ?9 k
basepoint
# p: ?9 ]5 ^* l; ^* t- x
(list (+ (car basepoint) lg_width)0 O2 z7 r1 k2 U, W
(+ (cadr basepoint) lg_high)
2 ?% K- p3 M( y. |3 \
)0 M& ^, H% g' R
)/ e7 G( A9 l6 ?, A
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
" J L; Z/ q+ R0 B
(repeat (1- n)4 U( A. {% Q: m# {/ f0 ?$ | o5 r
(setq
- B/ I0 i! p/ V9 m6 P% _! e1 E
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
$ |. ^0 \2 r! J
)2 j2 p& s1 |, z
(command "rectang"
8 W" h$ s% P/ a
basepoint* I- n& D+ `" U% a) a4 w9 b
(list (+ (car basepoint) lg_width)
? W# Z/ r" W% e8 m
(+ (cadr basepoint) lg_high)
; ?, J2 E9 F) I
)3 W* B! U0 b5 a. z2 i* q
)
, a1 k! j0 l; ], D( U, m
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
2 t6 A- W! ]9 o* M
(cadr basepoint)# g ^) |1 U- _9 k$ d1 U
)
! ~. L/ V1 M7 ?
)2 I; ~7 d+ _, [! j- S
(command "rectang"8 f* f& A& e- Q
basepoint
* I7 q- G" T4 S- R8 L/ f' ]
(list (+ (car basepoint) lg_width)# |7 Q. H3 v, E6 e, q+ E
(+ (cadr basepoint) lg_high)
5 O1 F2 M$ s; H
)
; i% k) I2 G z" E
)" ~* P2 p% \4 Q6 U3 W6 L
(setq. a: b* p8 ~. \+ h7 G6 r, x# K
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)) j: U G8 D7 n
)8 G7 o' V5 m) u
(command "rectang"
1 C; H7 @8 b) @8 s( R( W: k2 N
basepoint
4 r& {* {7 g& ?9 j
(list (+ (car basepoint) lg_width)
7 {8 M. l2 ~1 |& k
(+ (cadr basepoint) lg_high)
6 r5 i2 A2 h# h) X5 ?& l
)
4 F/ d& b3 ]+ b
)6 [6 ~0 [: G/ M; ?
)
2 L% `# w7 e6 I% m) D
;;恢复对象捕捉设置7 ~2 p5 I+ w" {/ H
(setvar "osmode" oldosmode)
) o; w. D9 _8 d
;;打开命令回显
9 |: T5 r, T/ ? |8 h/ U6 J
(setvar "CMDECHO" 1)3 M& g9 t j( `, j
(princ)
6 \) j$ j! B* |: ^ E: j" t
)2 L7 n: M& G& V+ x) F: B7 X

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源