作图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 发表
/ O: Y4 n2 a1 r直线分段方式，a=a=2b
: G/ _* u3 g6 f$ R! s" ] m# Z% s
) b" ?- L6 \2 o( o

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 ( n+ ]8 F4 S! B6 F* t; p
2 M0 ^) ?7 f9 C! q+ a' L# E. h
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

9 W" t9 l P7 d
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
' A* X9 j" e6 Z9 N8 e( `2 t
;;设置栏杆高度和方钢宽度默认值
( Z6 }( j- Q3 c4 @! M# @ l7 o
(if (not lg_high)
) I& S0 s' N7 V4 B: d- ^
(setq lg_high 500
3 J. Y3 x5 n* h" F# G
lg_width 14
% S& f+ {9 E4 o A5 i. J
)+ ~- a4 r2 }7 M5 u
)
7 G( b; V9 {7 I1 j' @- I$ @9 Y
;;指定图形插入点' W+ f: l$ }' Q( {# f/ W' d& a
;;不接受空回车2 Y2 s% a2 ^/ ]/ N2 @7 Z, a
(initget 1)
* q% D! s- J. v9 B1 i5 I4 ~1 O
(setq basepoint (getpoint "\n指定插入点:"))( y% T; a. Q& q2 }
;;指定栏杆长度和栏杆高度和(或)方钢宽度 p+ i# m4 Y0 o+ w5 y' ~$ g3 w
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定5 s- Y/ ]! g( Z* ]
;;用关键字指定栏杆高度和(或)方钢宽度后
2 k! d7 _: x4 d4 Y
;;需要重复运行指定栏杆长度的代码段; F. V+ {- D( F1 p
(while (not len)
" `7 f' e4 a2 D8 d4 r/ R
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
/ A/ v- R. h& }9 D& ]0 n
(if lg_length
# O' z. {' J! A L
;;存在默认值
8 {( o) l/ ^; r
(progn
9 C7 D9 c- j& F6 e3 ~) k
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W": M. R* h0 E' ^* p
(initget 6 "h w")
, v4 ?) b" i# \: T" g# S5 I7 o
(setq len (getdist basepoint# g$ r" X2 |! t) c$ y* @" S1 s% Y
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"0 L# ~; g% m; r2 ]+ i3 q- ^
(rtos lg_length 2)
' a5 e; t3 H* h" c, {/ q
">:"+ C: ^9 g1 M- x% S. h
): f' s' |1 s, c8 Q7 ]
)
: ], |# z( J7 Y9 l% ?% k
)& `0 C, J1 a( x+ o$ f( e, ?
;;空回车时栏杆长度使用默认值- y( w: ?; L, p4 {
(if (not len)3 F* x% F8 T7 x* N. ?
(setq len lg_length)
1 X& ^- l3 k' ^5 a7 J! X2 U
)0 \+ F7 |3 M5 }0 m- y% w3 R
)+ K+ R. ?2 H- s9 B
;;不存在默认值
/ Z) E* _$ E! o4 f+ L
(progn
- N! t8 x+ H, ~5 L
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
(initget 7 "h w")
0 Q0 X* g/ o$ A- P- G0 }, \: a! F
(setq
! m1 B1 _: T/ j( d; U( L
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")8 W1 `6 p5 P9 g. d
)& y( W7 m5 _" ?9 t0 d9 q
)
8 R1 K5 D" q! \+ U: x8 \! I
)
2 ^9 Y) I; S3 n9 F2 E1 P6 ~
;;检查用户输入的是长度值还是关键字4 B' g/ j, u. r$ N+ o6 \
(if (numberp len)
; I$ y' \$ S, h& r
;;输入的是长度值
/ R* v L" t. P. U9 J/ U
(if (< len lg_width)( B# x4 J+ F; `; g/ h
;;当长度值小于方钢宽度时清空输入值重新指定4 v( P3 S% |7 [2 `1 m6 `
(progn
) V; t" d+ q' I( [- |5 d2 s
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2))), m- {9 b2 d2 o2 j7 X5 l
(setq len nil)
, e3 l4 X5 l( j! G5 ], q, r
), J3 F8 ], b5 `7 W% R
)$ Z7 D4 `" k6 S: o, \& c5 d
;;输入的是关键字 W5 e1 y6 L, s
(progn
}5 a( n+ E1 A7 `+ H. A- {
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值6 I# R5 U( ]% o6 t5 L& g
;;用户输入时接受空回车,不接受0和负数 T! H6 I- N( _. L! o4 ^
(initget 6)9 Z9 v# a! P: L$ O
;;检查用户输入的关键字是"H"还是"W"
2 q/ o! C# x8 p- `; x
(if (= len "h")
$ t( P: G( W2 L1 i6 v. x' J/ a5 r7 e
;;用户输入的关键字是"H",指定高度
7 q0 h% d' c: O1 x
(progn
0 O5 M* H" R. C" b1 A
(setq high
. A& M! y/ ^2 ]2 J' Z" @
(getdist basepoint
- B. r, a' U1 o; Y' G5 {/ c9 q
(strcat "\n指定高度<" (rtos lg_high 2) ">:")* w7 V' K! {7 u4 q: F* `. d! o% D
)
6 j. ]) [+ u9 ~* V
)+ H) h: `% e( I
;;用户输入新的高度时修改默认值
- s9 H( ^ {5 P; Z5 [: c* ^' {
(if high. M4 p. e4 R) g- R! G, x6 \
(setq lg_high high)
9 E9 [0 c) S7 t: M7 [2 b
)2 C" A( I) z6 `+ V
)0 a7 V% R y4 n, i4 B
;;用户输入的关键字是"W",指定方钢宽度2 _9 U. {' D/ G$ b( f
(progn
/ ?1 x5 K( \* T1 S; g
(setq width
' f5 n3 b. a1 m& B0 z, H* {5 M
(getdist
2 \; v f; `& Z+ a& Z! g
basepoint, F |" j1 c: B# O, N
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
3 u7 |5 G* P2 z
)
3 W7 X/ N1 k3 R" A$ E
)
$ o3 z% q: s) o2 Y% m
;;用户输入新的方钢宽度时修改默认值
/ |% ?5 b: J- ^9 x" x9 n
(if width9 I% t! C" U. W( k* v
(setq lg_width width)
7 `* u1 e! T' l9 M# ^2 Z
)3 }, e- u, ~" x0 G! s
)
7 u# ^! i6 W2 p n1 V
)/ F, x$ |0 l" B1 X2 {
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
+ t" B! J& b& w# V- `8 Y( H
(setq len nil)* Y) V1 Z5 D+ N( H
)
% F3 z, \1 {+ K- D, F
)% ~( y. K- R5 Q# M, I/ P
)
* e6 _$ `# e1 y8 g% {( R# E
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
$ k+ z/ m6 c( z! D2 B
;;计算用户可以指定的花形数量的上限
9 s% g: T8 U3 [3 @, x
;;用于下一步检查用户指定的花形数量是否合理
3 U: ~2 j- z$ h5 r# v" g
(setq lg_length len
2 B( d, R; ?: g$ l& y
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
1 t5 V/ @3 l$ H+ {7 Q
)# C0 T; `. L0 ?8 Z2 V
;;指定花形数量或A段最大长度
' ]) C( N6 r6 G: M7 }/ W: N
;;如用户指定的是花形数量,则按用户指定的花形数量画图# b+ y: N( O/ l+ L
;;如用户指定的是A段最大长度) B/ D4 o5 Y" }9 X& T. l# x( Y
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
% ^- C& K1 {/ |! e3 w9 f2 P2 |
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
& B- D {+ @/ }" _4 k% F9 l
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解3 i+ r4 g/ \$ w$ _
(while (not n)
) N6 a+ I5 G" h0 @# @1 V& j
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值2 M" I3 Z+ b7 t. W
(if lg_n# o* x7 M2 {5 A9 B b# ]$ k) L
;;存在默认值
" v; e# C$ t" P0 A- G7 z
(progn6 T: D7 ]) k1 K$ @- x, i- H: i7 f
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
% A1 ?/ ~/ X9 R5 A
(initget 6 "l")) F, G; t7 c$ _, {; ^* Q
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"& H" e' Z& a" V* K+ s
(rtos lg_n 2)
# Q; @% k# f" {8 X
">:") Y, s' t. M* q/ c* J+ ?9 z
)
! W3 B) P1 Q. `
)
8 s( o4 g& U8 |0 ^! L
): V, q! e$ o! E
;;空回车时花形数量使用默认值! l: P% ^# q& I* D: ]( n5 m% S
(if (not n)
8 `1 J$ k: l- j2 c/ m" r5 _" |
(setq n lg_n)
) m$ u! N( J0 ]
)$ @ X$ O$ `; c. E4 W
)6 s& J4 x0 o9 j+ e
;;不存在默认值7 k; ^/ X2 U6 D
(progn. L! s0 @) v) `8 y/ M
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"5 b4 w! O, G' N$ L
(initget 7 "l")
6 _5 ^( v' U/ l# r. r0 ~2 S
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
0 F) T+ M% n4 v2 z* i+ F6 K
)$ v: @, s6 v; u6 |+ q \
)7 a6 R$ I8 Q7 |/ ^
;;检查用户输入的是花形数量值还是关键字( a5 e" x7 o/ v$ p. M
(if (numberp n)/ Q4 F; f0 s+ K4 z/ @, P. v5 b
;;输入的是花形数量值
; D2 g# r8 m( T
(if (> n nmax)
$ p% `" V, C6 {$ [
;;当花形数量值大于上限时清空输入值重新指定
7 f" f( }" z: C, \- L/ T
(progn
5 m$ K2 z* h) M0 Y# \5 _, {
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))6 ^6 w# V/ L E! K+ U& o* t
(setq n nil)
' }' h. Z3 j& k3 U) D: I. m- {
)
; O0 s+ H- r2 N, z+ \+ Q
;;当用户指定的花形数量合理时存入全局变量% @0 ~# d4 l7 a- y; q4 \
;;以便用做下次输入的默认值
. ?. a1 o$ O z3 s& @7 i
(setq lg_n n)
+ P, L' A3 C6 S+ ?/ ?) B9 @
)5 Q; D5 W; X* G+ c6 G
;;用户输入的是关键字
+ c' z) g1 r9 J# f
;;指定A段最大长度
6 L# @5 @' X& u# g" c( K; A
(progn
2 n) x6 W0 k, h0 P3 P _) w
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍" N, Q4 T5 g! a5 F# D: B/ L
;;否则可能导致无解& B( _7 M4 e6 L9 U4 u+ L0 U
(while (not amax) `- {& q3 I) d% t: N$ c
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值7 E: F5 c( K! `6 h, r
(if lg_amax
( {9 f* r0 e5 V1 a& N0 p, d
;;存在默认值 |* f# C- N/ S1 A3 y& G8 }( q
(progn% X. G2 g! u! q) L
;;用户输入时接受空回车,不接受0和负数
9 Z W2 i* n' p9 j
(initget 6)+ {$ F2 \4 Y' R% r
(setq amax (getdist basepoint& r2 i& E- G6 X3 y9 d1 ~9 |
(strcat "\n指定A段最大长度<"
8 r& i1 A( l3 a0 C+ F0 N* z
(rtos lg_amax 2)
. w$ R+ ^0 r) M& @( a9 N# t
">:"
- y5 h9 u3 ^, \
): W0 Y& q, w( n% h3 T
)( g; L; j% F9 h
)9 A7 [! I. W. o" @0 Z
;;空回车时A段最大长度使用默认值8 g: H. A0 b( q& j2 L* {
(if (not amax)
& x0 A* M: f, A3 y
(setq amax lg_amax)
1 K; C) I) d' r4 K7 w5 M8 V% `& y9 p/ v
)
6 J- Y; p' z0 i% K; V( ~
)/ e; r& B' i0 {7 }1 V4 C
;;不存在默认值& n8 t6 M( `7 J0 x8 f% w
(progn
' h4 o( k8 N2 U3 i, W' O: c# Z
;;用户输入时不接受空回车,0和负数
0 y# B @: }# Q; l- W
(initget 7)
& m, q8 m) \* B- ]" U# q' m
(setq
$ x* Y, `3 L# c6 C
amax (getdist basepoint (strcat "\n指定A段最大长度:"))1 Q; o5 h% ^! X. a/ F- k
)8 J; C$ p( Z# G, C6 T- [! T. E
)
& ?0 F* ]0 Z! S1 |6 ^6 a0 s8 j' P
)/ ~9 P6 o4 `4 `: o9 \& e& N
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
/ S7 h8 m9 q6 C& T7 d, J
(if (< amax (* lg_width 1.5)): D3 {8 \* C' d
(progn
" F4 D9 l8 k0 n/ l
(prompt (strcat "\n指定的A段最大长度不能小于"- e, |% K. D0 a, S( {5 u1 Y1 P
(rtos (* lg_width 1.5) 2)! u5 e2 m- E K0 ]! w
)
7 r! L K$ Z# Q+ Z' P6 v
)7 S4 T1 @; o/ S# k5 U- E9 v! v S
(setq amax nil); F, x6 ^4 I" Z( m) _; _# ]: d
)
3 K& a4 U5 X. J* e# F8 F
)3 V; w' ?2 G' p( ^ J
)
- n. [+ @( m, h3 n3 _) m
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值7 t8 S! B. {: @3 y( y
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1) t" D/ o4 `4 ~% [2 N Q
(setq" `/ V4 h0 R7 S+ u) P; L
lg_amax amax2 } k5 `) P6 d/ ?, h2 h$ n
n (1+ (/ (- len (* amax 2) lg_width), q c1 x4 S$ R) ?* h! d- u/ e
(+ (* amax 2.5) (* lg_width 3))$ `$ E. j; e/ `8 r
)' F* s l+ h5 [+ w; Y
)6 f1 A! r+ z! W$ J6 i4 r4 i: L
)
8 C0 M( D7 y9 ^# i+ e+ o6 D V
(if (> n (fix n))
+ I3 B# N8 P i( g5 G$ w& D; f7 P
(setq n (1+ (fix n)))
* ?1 x+ ^! O1 t& q1 G! G" U" H
)* R# D$ P2 E2 m: [$ f3 Q6 _; D
(if (< n 1)* K9 h# v l4 M) ~& h6 [ Q8 f q
(setq n 1)0 g% ?# I; F5 U# x. }8 w
)) o# `* B4 m' N l2 Z2 Q8 m0 N
)! H; \8 s! B4 T: H" d9 Z2 |
)7 P! b4 Y7 P: g3 I3 D- b
)
6 e4 _, P4 |$ E6 h: }# e5 _, J3 U
;;画图6 Y. k3 Z* H0 j$ l( E% m
;;记住原来的对象捕捉设置
( i, d& X, Z- j* [+ E I
;;按花形数量计算A值
P, @5 w# ?( T( y/ @$ i5 q0 r
(setq
- J6 D1 X- v' J& H$ ~# D7 R( Z* o
oldosmode (getvar "osmode")
% `% R# t8 c+ m. d6 W3 z' }, J' R
a (/ (- len (* lg_width (+ (* (1- n) 3) 1))), J" @2 }9 Z0 r/ o
(+ (* (1- n) 2.5) 2)
2 D; h4 [" K; ^2 P
): G% s/ W# m. |6 Q% c- e
)
3 ?5 m- W: D9 `# X- _
;;暂时关闭对象捕捉3 R4 P+ Q, l, _
(setvar "osmode" 0)4 P! B8 S6 e) R T* V- |4 ]$ c6 r+ G5 G
;;屏蔽命令回显
1 p0 U. p2 }% M, A3 U/ ~
(setvar "CMDECHO" 0)
& B# m/ d9 @2 c& s; f
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形, I' a" a# f* r4 u
(command "rectang"" r2 }# Z8 @, H* F0 T
basepoint
8 y( I ^: {! h. s# k
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
5 E: M4 c) V; _1 S; x
)
3 | M' A M8 C4 ^
;;在第一个矩形外侧一个方钢宽度处画第二个矩形 s8 ~* }1 L$ X; e1 g/ l- X5 B) ~. O
(command "rectang"
7 O, {0 ^1 k4 R, X5 N
(list (- (car basepoint) lg_width)1 E" a, N" Q# S: h# H6 E
(- (cadr basepoint) lg_width)( n" W. v7 a0 P1 Q! S
). H4 p' e v4 X+ x2 r( B$ C
(list (+ (car basepoint) len lg_width)
) ~+ p( Z: G Y! x) \
(+ (cadr basepoint) lg_high lg_width)
) J* i; H; ^$ x( u
)0 V% a$ }0 l2 S! |$ j# j' {
)
7 ^& B& B' t( K! {, p( [+ {5 u. |
;;将指定点移到其右侧A距离处- D O* C! D3 h
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))& _3 Q U2 ^" f! E% Y
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆8 R/ Q8 S1 e/ x9 s% |- D* }! H4 c+ K
(command "rectang" X: o+ J. y; r% ]
basepoint
6 n# ^# ` e$ E3 B3 |3 O
(list (+ (car basepoint) lg_width)
9 |: C9 v0 ?6 |1 R0 Q: v2 g+ k* u
(+ (cadr basepoint) lg_high)7 ~3 V4 b. x# m$ n+ E
), o7 F0 D1 ?% {3 E) p
)
- B7 b4 k0 r3 o8 F9 p D, i, e
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
5 N( J. _ w. L' Z2 ?
(repeat (1- n)
6 v4 y. d3 \0 D; ~% T
(setq
1 s# C' H4 c2 \ p. v* Z: H
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))" W$ b- F6 ~% F5 [3 o$ e5 q0 C, \* N
), K4 x$ w+ E: C) @# b
(command "rectang"
' Z2 h* E8 O" Q( m2 F8 I: j* B
basepoint
& c ~# h" I) I0 Z5 J# g
(list (+ (car basepoint) lg_width)
; U9 t! N/ Z5 x/ v8 E# d. i
(+ (cadr basepoint) lg_high)# q2 \3 I9 B6 v# Z4 ^: W# S
)" w. G( Y: `) ?; m- [4 J
)
* q% |5 D9 G6 G) K7 m2 p2 ]
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width). z' F1 z7 z4 d* r
(cadr basepoint)" c9 y- p( h T: b5 d6 [' _# D6 ]& N
)
k7 D4 d/ t) h" e0 @8 ^* `
)
. i a9 S( K. _% w
(command "rectang"
/ _' k+ O. Q! g
basepoint
. D* @2 R4 ^+ f7 x8 e
(list (+ (car basepoint) lg_width)
7 H/ J! Z4 D% S+ l+ m' Y
(+ (cadr basepoint) lg_high)! S, B6 N4 n9 P& H9 ~1 X
)( }1 ?2 P8 X& h, N
)0 g6 F1 d% L& \* c* B X
(setq
/ Z2 {1 _ y# _% A! d
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
, d. K' k4 H/ _2 P/ T- o6 ]
) P: Q- S$ S7 P; J% V. I6 q
(command "rectang"8 a* C( d/ J! a8 C
basepoint
5 ^- R m2 w- U! }
(list (+ (car basepoint) lg_width)
- s$ V8 ?) d Z7 r. c) r( X
(+ (cadr basepoint) lg_high)6 o* Q8 ?: G; ?: J# x/ N3 y
)
7 ?! B' {+ Y& u; J) w; ]
)5 }' g+ W7 u* H8 K& a
)
: Z: U% t( z* R1 f% K: P( L1 }
;;恢复对象捕捉设置5 H, C3 U2 E7 @
(setvar "osmode" oldosmode)
;;打开命令回显/ u+ {6 i7 V: L( U7 o
(setvar "CMDECHO" 1) m1 I( [# n1 ?1 z
(princ)2 O4 l3 ?6 ]% p
)6 ~2 R4 z! N7 k' K8 @1 z8 N% i

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源