作图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 发表 0 ~' I' R/ U* v& z& o+ I. K
直线分段方式，a=a=2b5 Z G) V7 u& V X% Z/ A# B

3 P4 V9 Y! M, Y+ b ?

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
* [( ]: u; ]$ P; w, c7 S* b
; |4 L- z& L7 X& t* J距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

) g# q% }, L3 ?- c, L6 y( m0 h! S
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)$ F! B1 ]8 R9 M( M: f
;;设置栏杆高度和方钢宽度默认值7 K& q& u! S- G) C& Y* _
(if (not lg_high)
3 y8 c% r, q5 }0 h' P" [! w
(setq lg_high 500' v' A+ {2 m2 i( M$ Q. p3 N6 e
lg_width 14
$ o% a; s6 E/ k3 Y+ b0 v
), J2 z7 \5 H- M6 j; I
)' j. w* A1 _8 b) `) \% _) ?
;;指定图形插入点; M* p+ r. u* R8 p& K& ?+ G
;;不接受空回车
- Y! v4 ^ I6 m ?
(initget 1)
2 o' | c+ a" C, B Z6 M6 v
(setq basepoint (getpoint "\n指定插入点:"))
6 q4 C+ Z& o% q. H6 C
;;指定栏杆长度和栏杆高度和(或)方钢宽度$ g# N* J5 \3 C$ m! E9 ?( y( T
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定% ]$ t2 E1 F) M7 G' g2 f
;;用关键字指定栏杆高度和(或)方钢宽度后3 C" u+ W/ q' l9 h7 r0 ^
;;需要重复运行指定栏杆长度的代码段
) P5 n% S. C8 K# w! |
(while (not len)6 L. ~1 Y+ c9 K# f$ K0 T% u; c
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
! F$ h( Y" M9 M( P" S: {7 l
(if lg_length" ` J7 c% m. x& W
;;存在默认值
7 P/ c2 z4 B( K, g. I3 M
(progn
9 }; S2 k/ J# L/ Z
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
H6 r3 M: c/ y$ Z* k q
(initget 6 "h w")/ K/ e2 o7 r( s! s3 \7 g
(setq len (getdist basepoint/ z1 E0 o4 l, r8 r7 B; Y
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
& F; d0 P% o5 r) Y& B, J1 E- @
(rtos lg_length 2)
" m, N3 T2 f+ R4 O0 i x
">:"
7 F7 ^+ O( f/ C. }) ~
); Z- K$ n. x! b% n7 ^
)0 c5 q$ Z& M& d" d1 l* F
)
! _" u9 s- H' Y% y& L1 M
;;空回车时栏杆长度使用默认值
: A7 L/ P- f( E! \4 F1 r! \6 i
(if (not len)
7 r" K8 c% Q4 ]' R8 @8 g4 M; p ]2 p
(setq len lg_length)
, Q0 ~" z2 {' x) r/ r
)+ `. H; G+ [- T( v+ |0 S9 x
)9 _" J# X( Z: c; ]. s' l7 C [
;;不存在默认值
" I2 n k. D! |- D$ B
(progn) O T* O: i3 D" }7 l
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"0 G& ^" M" o/ h7 k
(initget 7 "h w")
' w5 b( c g! J
(setq6 N8 l' e0 \8 {) E" ^3 W9 Z' W# m
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")2 {1 F! m s+ e7 i! d! g
)
7 N% {9 [: i. _4 N3 l; H& I* [9 G, q
)
, ?% A9 C+ i& k: h3 R0 n
)
" Z. M% H2 S/ \3 v/ l. I1 P
;;检查用户输入的是长度值还是关键字
, {& [) F$ E3 M: Z n( K+ [) n
(if (numberp len)* d4 ~5 f4 a+ w% K! X4 Y
;;输入的是长度值6 s. J. u- F4 R2 N9 w
(if (< len lg_width)6 w% h9 a9 \* R) ^: f$ ?
;;当长度值小于方钢宽度时清空输入值重新指定
! W+ o* [- m! |
(progn
/ L' x# L/ o) Z- @/ d5 Q- W9 U
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
% Z! @+ f) U* ?
(setq len nil), F; j5 N! t H, {
)* S9 K2 ?( `) d z1 |3 {" w
)
( y) ?7 O( T7 H& ^( D: } d( l/ a
;;输入的是关键字
4 Y3 \$ l- g. b
(progn5 M1 O* ~' p3 f
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
! X+ h% C9 X* N- ?
;;用户输入时接受空回车,不接受0和负数
2 ] \/ `" `! c# A7 K
(initget 6)
+ w) j* ]5 R1 T" i% ?0 f
;;检查用户输入的关键字是"H"还是"W"7 t+ J7 V/ z, C* U, b0 z% A
(if (= len "h")
8 N9 C9 B J5 B: u8 W$ [
;;用户输入的关键字是"H",指定高度
: E7 y0 i: A7 O+ o9 H
(progn/ g# z8 \+ F6 {7 n% G
(setq high
: m) ]. [0 w7 \3 K$ o( G) ]7 f
(getdist basepoint' Q1 Z# N! J) Y3 {2 `
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
4 b, @9 h4 d. r% a
)
5 H4 q) p$ A( h% X }1 y: g) S
)
" A7 D1 X( ]. Z" y; h" ^
;;用户输入新的高度时修改默认值
+ g' w2 B- J+ K
(if high( g8 w% n; m7 \+ m; B9 f# X+ h
(setq lg_high high)5 [" K1 r" o7 U2 j' k/ ]
)$ z( C6 j' M0 i8 o- ^$ W& ^
)
* E, @5 H$ o. U0 b h8 I
;;用户输入的关键字是"W",指定方钢宽度
* T( A" F! u, f/ n+ x
(progn2 |; ]9 h, ?6 N Y" b$ `" C
(setq width7 P" ~% a) i) h5 W1 n
(getdist% ~; O9 A- d e# R4 b
basepoint
( ]. Z: ]: `- R$ z* k- G
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
7 \7 C& W4 B y3 r# b6 x
)
0 u( t; r# n5 f# l% G5 p
)
5 C! }3 T$ U" G
;;用户输入新的方钢宽度时修改默认值
+ c5 G( B* z- p( Y& K
(if width
" e4 d D5 `0 @ V3 \, ~
(setq lg_width width)) d3 P( [' U1 u" l& h
)0 n' Z$ m4 r5 d' c" P
)
+ {: I& d: e% z9 C8 n
)
( e' L5 D5 `5 w- z
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度' Q! Y' L) G" a6 m1 s
(setq len nil)6 T" [' D5 u6 E
)% ]; L$ d+ g2 f4 b1 X
), [3 P' q3 Z3 T$ F2 n) |
)
/ o( n& B0 ]' P7 O4 Y
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
' P1 l% S9 e) ?) X
;;计算用户可以指定的花形数量的上限: L+ J, h c% T1 p7 ]% |% `
;;用于下一步检查用户指定的花形数量是否合理
# v1 i) ]9 d( O @' n2 M
(setq lg_length len
2 x. X( w. }: ^( l7 v
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
1 _3 c% n& u/ q- m
)8 e1 ^" f `9 X6 X8 H
;;指定花形数量或A段最大长度
% K; P# C7 z7 \, U* e" U2 R* X
;;如用户指定的是花形数量,则按用户指定的花形数量画图
8 A$ `$ ]3 F( {2 Q
;;如用户指定的是A段最大长度% l6 f; D9 F9 y- a7 w: w3 D6 m
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
+ X; Y, V( e0 A# t. z
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
: p4 y+ j5 J/ e% _% @/ d
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解! o. M2 r; t# }) u3 U$ E8 o
(while (not n)% |8 F; Q' a) z$ o2 ~6 ~) d9 u
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
/ }+ q( q% G1 W- W0 n, t/ i9 N
(if lg_n, W0 C9 C& X1 F2 T7 l) H
;;存在默认值1 I$ n7 {$ `! e7 O. b2 r: r3 g
(progn
8 s& |8 y) T6 ?- D' \* q; M/ @
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"8 ]# C6 r7 W* d, n) |
(initget 6 "l")8 u& ` X% X! C9 e O N5 b: s
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
& d7 L4 O# g! u# r# q
(rtos lg_n 2)' _$ p- R: N+ e; F' R
">:"
$ w( Q4 U3 L* w B! ^- f
)' V; A ?; l$ u. K+ {$ d
)) }* s4 R% ?/ _- U$ }
)
% j2 h0 V" [6 v! B+ l, o
;;空回车时花形数量使用默认值- C( q" U- Y. m) x% L# W
(if (not n)6 Y8 T! Y( J4 |! ? u( C
(setq n lg_n)
' `) r. y; W! A' {
)* S8 y- Y. P. E3 M" A' @! k, I
); S6 }; y' [( k+ p5 ~4 C# F. R8 {
;;不存在默认值' ^0 a n/ l8 T7 ~
(progn" @4 j6 u" i4 Q+ |$ q2 P, u
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"& P ^( i/ n! b
(initget 7 "l")2 b$ I7 {& `% _/ E6 [" q
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))" D$ a. ~% X; r& h) B0 H
)
' U0 b" n/ X- }5 i
)* @6 a' p7 t$ G& X+ _2 i9 B; L
;;检查用户输入的是花形数量值还是关键字4 `& W- [7 |1 X d) |3 L' O
(if (numberp n)& j% w Y0 N! U9 g6 I( o
;;输入的是花形数量值
% W) o# ?/ d" l6 l2 v* Q7 |5 F
(if (> n nmax)
8 X; v1 l1 T/ J/ D/ E
;;当花形数量值大于上限时清空输入值重新指定
* q- a- a, H8 i2 o
(progn* \$ J+ P J+ j2 d/ b
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))" b5 G, H. C) x
(setq n nil)$ F) _3 N7 [) M _" A7 O3 h5 b9 Q% Y- z9 Y
)
% u' P" f T) h# f* w; y
;;当用户指定的花形数量合理时存入全局变量
+ [' J. J4 |2 w. d
;;以便用做下次输入的默认值
8 W) z( V0 g4 S$ v5 \$ b$ a2 Y
(setq lg_n n). G7 K$ q# j/ \
)
s) d, h* C* _ {: {5 y" ^
;;用户输入的是关键字% ~" x: `/ l* L% O$ W4 u9 ^
;;指定A段最大长度6 K6 O4 ~ s4 S) x* a- [
(progn' w5 ?% H1 r' r+ s
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍' J$ x2 @: Z3 i
;;否则可能导致无解0 v& N+ |( w" O; U& i8 Y
(while (not amax), [4 ^" i% H3 F3 L& U
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
& W( \: y* {& R! k
(if lg_amax
6 r9 N x% H1 U* j5 l
;;存在默认值" v: {6 m! g$ }5 K3 L& o
(progn
2 U, z7 k% b5 F% M0 [1 X; D
;;用户输入时接受空回车,不接受0和负数
+ q% @, q) V8 ]' _. y4 x- E2 v
(initget 6)
) L: H+ c; y, P6 p2 Y5 D
(setq amax (getdist basepoint
9 @1 B) n- B' m- S0 H0 _
(strcat "\n指定A段最大长度<"
8 Z! M y( r7 b
(rtos lg_amax 2)" ]/ @4 M4 N2 X3 L3 p1 @
">:", J4 \- D4 B/ o- G
)
`* S6 q9 m L5 w7 F5 X
)
+ i$ }$ B5 t }5 t/ i
)% a2 a" t2 k2 G% i5 l' p
;;空回车时A段最大长度使用默认值9 K! i4 Y u% ~; U6 e
(if (not amax)6 J5 Y" e& C, Y0 d5 [1 b
(setq amax lg_amax)
)4 U0 h# Z2 V+ c
) [3 _$ ]2 Q( p7 C, K( q
;;不存在默认值
~# x9 B$ K( V8 `2 p: R
(progn3 m2 N4 H! g' I7 X/ ?( [
;;用户输入时不接受空回车,0和负数
) \6 o+ r* p- d
(initget 7)$ V* u! J, N) v, T+ _* w
(setq6 c. ^1 U N: t9 l# A
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
2 d4 I: R I( ?* U: T2 ]; w1 F g
)# d6 X) i* ~2 T1 q- C) ~
)
8 `8 s: A+ d" w
)) p; l( l/ ^2 G* A
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
. ^) I4 w- ?4 @
(if (< amax (* lg_width 1.5))/ E! X# i0 `* ~+ N+ Q8 `2 f
(progn* U. ?; a: `5 e
(prompt (strcat "\n指定的A段最大长度不能小于"* ]' D+ \& Q: T8 d
(rtos (* lg_width 1.5) 2)1 F; q, U. {6 V k! s
)
: A' P: X8 }6 s5 E3 ~8 t
) W t# O; R6 g% V4 w: i) p: l! W
(setq amax nil)7 L/ K" }" g. ^2 z) [# T
)0 a5 x# i7 ]; F# Q0 ?- A( V6 T0 }
)" b& j0 E- {! k8 T' Y& z: h/ @
)
! G# r% M( O0 o% B4 T: N
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
+ b6 _" @. i7 n; N. A0 \& d, k
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1& F; p# S+ L1 i, ^ l
(setq, Q" H, {( o1 g
lg_amax amax1 B! g' z$ U0 Q7 G$ c( c8 J" i: u
n (1+ (/ (- len (* amax 2) lg_width); _. s6 T% e- n8 A1 T
(+ (* amax 2.5) (* lg_width 3)): m# v7 h0 x- r4 _* P+ L
)" K- |9 [( J6 p( t
)+ [; W# n2 J: y) c
)
7 \0 ?1 |0 x9 H
(if (> n (fix n))
! l5 x# c3 g4 b7 E5 r, U" n
(setq n (1+ (fix n)))3 m8 u5 o" ~% \" ~
)
8 ]9 t( B. K3 ~ ]6 s8 b
(if (< n 1)9 z- q3 J. o X0 S1 v* H0 E
(setq n 1)
N8 e! Q4 ~) a* q& p
)3 `& d& R5 }- _2 i9 R) c# _
)" Y6 L8 c `% t8 k( H9 W0 {
)6 H6 M: I/ m# _
)$ \6 Q \$ t( m0 N* q/ }) j. j
;;画图
6 i6 J N. f2 O5 K3 k3 v
;;记住原来的对象捕捉设置
) `. w! V+ }# }
;;按花形数量计算A值4 Y- R8 ]5 y S2 F( A0 r7 j( g
(setq" L3 s# U1 A0 x; s9 i, Z
oldosmode (getvar "osmode")
X$ H7 ^1 R( V- }
a (/ (- len (* lg_width (+ (* (1- n) 3) 1))) _: ^0 f4 f0 }6 Z6 z' e
(+ (* (1- n) 2.5) 2)9 `3 P. e: O, x' ]
)
# e: a$ b! ~. p0 b% |, E
)8 R0 e1 C% C) r- O; x5 C. ?- V
;;暂时关闭对象捕捉. q5 b& l% a7 [& {
(setvar "osmode" 0): q2 ?+ U3 v$ x# \
;;屏蔽命令回显
; i7 d7 B' q; o3 Q0 q7 \( ?
(setvar "CMDECHO" 0)4 X Q# F5 j/ b
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
& j& b: O6 g* M9 h5 i+ ]% C
(command "rectang"5 ?. j+ R$ \$ P# D4 P1 y
basepoint
! _0 N9 a* e; i( d
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))7 P# ]" }* L/ F
)2 M# T0 w. [# F. _, {' J3 l' b# W
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
6 C" L/ U1 l( g2 G5 x
(command "rectang"* Y6 E* u% U" q4 G7 E
(list (- (car basepoint) lg_width)( p" r2 ?* \, N
(- (cadr basepoint) lg_width)+ [1 c5 m1 {& o* W
)
# ^9 }( b4 S. S- n, x
(list (+ (car basepoint) len lg_width)+ W/ q: C& d' I$ ~" d
(+ (cadr basepoint) lg_high lg_width)2 \ r) @4 L! ~5 b* h0 T
)
, y& n: W2 p; S2 b7 n+ i
)
+ D4 z z$ P( l/ U
;;将指定点移到其右侧A距离处
0 Y! @ q! M1 ~& @: a0 W
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
. f' v, o* [& g5 Y! P2 w+ q
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆4 A3 ~8 r8 @- q$ R: h& i+ E) p
(command "rectang"- o$ Y: M' M- \8 K' p/ f3 v
basepoint: m }) o! h& m, f
(list (+ (car basepoint) lg_width)( x; X& l o1 L) O. y9 t
(+ (cadr basepoint) lg_high)
& \1 M3 _8 T. {( j9 r7 Q) A
), f, Z6 `" Z6 \' w B
)
2 O- F5 h) `; c0 _
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)+ o' }% G' h/ F! G0 D+ K% g
(repeat (1- n): I' S! ^- a& } ` m3 T
(setq/ j3 U# Z6 E8 o. R8 V
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
% ^; o, X" {* W$ |- ?7 E) t
): L8 l* ]; R5 b b4 T
(command "rectang"
basepoint
# i+ @. ]. L P0 u, J3 D6 }
(list (+ (car basepoint) lg_width)
0 t7 }5 r" e+ E; v5 k% i
(+ (cadr basepoint) lg_high): s$ h' f. a! S; P! R7 |* \5 R `+ p
)' v; E5 ~+ B4 a; n$ }' S/ l& T
)' [- o5 }' }) h3 J& H& H; j# r6 m
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)5 a M" e+ L ^4 ?/ l
(cadr basepoint)- I' x& j6 p4 `9 ^ y9 w+ l
)5 d7 N" b/ c) i
)
( z; V& z4 r3 W9 j
(command "rectang"; T- {# _: v) O( u& ~4 h; i, l
basepoint6 j& F% k" B. v8 O! `
(list (+ (car basepoint) lg_width)
2 ~4 U% B' J0 ^8 b; D3 J
(+ (cadr basepoint) lg_high)
- R2 _$ d- @' g4 F: `* Y) V9 I/ ^2 C
)
8 d# S9 { H0 Z
)
5 t1 e+ u4 w% W8 P) v( H( W2 h
(setq( K. T9 n& Q. m
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))3 ~$ R( n: e1 Q6 m9 P& a8 f2 H
)" x% ]9 @/ t+ o/ Y* u! c) Z4 h7 e
(command "rectang"
4 m4 u1 ] }5 J' `/ ?
basepoint% v0 |9 r$ F" n+ }" w
(list (+ (car basepoint) lg_width)6 D1 B7 W. A3 B9 B5 k8 W# y w
(+ (cadr basepoint) lg_high)
* Z" G v. w- m1 o/ w
)
7 p+ B. F. K' G! I+ l
)3 |8 i" u* k _* B6 \# T9 D. }
)7 y! ~/ k7 n; O& n7 C
;;恢复对象捕捉设置& o: m2 G G' o3 y) `
(setvar "osmode" oldosmode)7 u: z# p& M) O7 L
;;打开命令回显
9 Q. r) b3 A( y4 T2 U1 S
(setvar "CMDECHO" 1). x; ~7 T, W; F
(princ)% k7 U3 h2 n6 X2 u' [& I
)
6 T" b( V0 o) ]

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源