作图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 发表
/ x# W- y# ?) y, g直线分段方式，a=a=2b9 `. |# i A+ B- q2 ]" d
" U: W7 `: S4 U& W) {1 n

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
, n: a3 X9 g% c, ~. G6 T2 Q
3 a" t$ a1 Q" X) A距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

; o! T5 \! q! c/ P7 d' ^6 z
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)4 A( `1 j: f) C, ~7 R9 L
;;设置栏杆高度和方钢宽度默认值- y( z0 ~6 Q3 O
(if (not lg_high)) }! V! _ m4 M
(setq lg_high 5001 z B8 J/ a; ], E
lg_width 14
) A. W( ?% q0 i9 e4 c: R
)( ] f4 M' L$ }) I* [/ ~" G
)7 T- j9 \8 o+ M4 z+ K l
;;指定图形插入点0 ^7 z5 r1 p( w5 h, l$ Z
;;不接受空回车
( {) j6 Y$ v& X0 T$ N+ C3 r
(initget 1)0 @, B" c/ h# E6 _7 ]' W4 x4 W; T: \% A( W
(setq basepoint (getpoint "\n指定插入点:"))6 s$ h* V A3 @( _+ k3 t( h
;;指定栏杆长度和栏杆高度和(或)方钢宽度, @9 I6 ]" A2 E0 |) M' p" X
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定! }6 I$ S% L% `/ `+ I2 K
;;用关键字指定栏杆高度和(或)方钢宽度后; ?" _" Z% K- ?5 h& [# s8 [
;;需要重复运行指定栏杆长度的代码段0 s+ h# H' }2 q3 r: S6 ]- v( q
(while (not len)
: W, y4 r( l" c, ]# `
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值1 P* K, P, ?" C. A# U; E5 ?- X7 F
(if lg_length* L2 m/ C: U; D" S E4 e- q( d
;;存在默认值
1 ~1 u- r1 s9 [/ E
(progn
2 h! o( ?1 B- }) G% f* }8 J
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
! J+ j% f+ C5 a# l$ D; ]- V
(initget 6 "h w")) k4 O6 H% N: S" p
(setq len (getdist basepoint
1 D$ e j4 r3 v
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"- P. C: m1 \8 U# L9 `
(rtos lg_length 2)
1 a* @$ S( x. Z: J" V) d! ]
">:"9 f3 @! n+ }. v
)
* C' e% }# ]; g
)
/ {$ z/ x7 ?& C% M
)
6 `% O. g7 U0 O0 M2 L
;;空回车时栏杆长度使用默认值
" ~/ s) ? D9 I$ V Q
(if (not len)
0 K7 C% e+ }) a* w% h
(setq len lg_length)! E" m" f* a/ _) { z
)! _. U% z1 b" K, O
)
* F/ N8 b) \. p# g2 ~
;;不存在默认值1 W6 r' F9 Z" @, a9 w8 R( f
(progn
4 S3 ]# [* _( s8 o" C- x
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
5 O; w& f& Z- B* P7 n5 V- {: q x! W
(initget 7 "h w")
(setq
* z& V: f( u& G
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
- V( | V' N! i& O+ f/ A
)
/ L5 E$ C' I7 H, }4 M: q1 B" @
)0 R/ X( ]$ ?1 g/ T4 A
)/ |! j, ?+ @8 ?) @1 M5 a' t
;;检查用户输入的是长度值还是关键字
7 w/ A8 o, K& ~9 |: w) M) G P
(if (numberp len)
( A( F9 r! y" ~% q ^
;;输入的是长度值
& Y, e6 e P6 S5 t1 d
(if (< len lg_width)( m" Y% x4 n1 L: l; H
;;当长度值小于方钢宽度时清空输入值重新指定
) l6 q1 \4 `4 R6 n; e
(progn
) Y8 ]9 f+ d9 M8 O, Y
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2))) q- {2 t& S$ p$ C$ M
(setq len nil)
' o! }8 B) ]8 L2 F; Q
)7 H" K$ j% {% D3 ]2 v6 H6 z! ]
)
! U* l6 O/ I( k1 u
;;输入的是关键字
, V' i/ P& L" H- m
(progn" M% l$ m% u5 y5 c
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值% n) w4 \" ?% e, K: U9 L) E
;;用户输入时接受空回车,不接受0和负数# d! R8 G8 [( V; i# Z; k- S
(initget 6)
9 S. n" ]+ O& e" r. N% p5 {
;;检查用户输入的关键字是"H"还是"W"
" D) H! t8 K& q0 y
(if (= len "h")- [4 j$ `7 X9 q1 _) p
;;用户输入的关键字是"H",指定高度6 _5 w2 U/ ~8 i% {4 A
(progn- y6 e( c6 i+ [
(setq high' b2 T" {6 x5 _
(getdist basepoint
+ N+ V+ [: Z O# \" i
(strcat "\n指定高度<" (rtos lg_high 2) ">:")8 n8 E' W5 H1 }& i6 A l) a
). {5 r: C9 O' o ~ j! i/ j2 X# W
)
5 l7 U: s1 J( B3 W8 q
;;用户输入新的高度时修改默认值8 l9 l' K# V7 N3 \$ l) g
(if high
- a! g c1 ]* C' }1 c
(setq lg_high high): }+ ?7 Z7 F) S V
)
2 M) b' K3 |, `. _+ E
)
" T: ~& x% D' h6 W6 G
;;用户输入的关键字是"W",指定方钢宽度, X' i2 l+ e; f3 r
(progn
( D* S q1 c9 [
(setq width
# Y: X) U" ]0 u( T0 k0 G
(getdist
1 M1 M6 u9 s6 e# J6 _
basepoint4 K2 F7 T; d7 k# Z6 [- k
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")8 N1 H1 D6 M1 e2 v1 L; e
)( I! z7 l) \* k% o
) d0 q0 j3 h1 q+ c" {! W' x0 B
;;用户输入新的方钢宽度时修改默认值
$ j8 `+ h7 ]# n6 m+ K( B( g
(if width
8 m# R' V- d1 s4 E3 g2 N# Q
(setq lg_width width)% u" ]7 Y* Q% H: Z, b
)
# C L) ]. t% k9 R5 ^& L. F
)8 e9 Y# i5 K* M0 B
)$ b2 m8 x$ W- v! I$ i5 i5 I/ F
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
8 D( A$ d7 ?! |9 n
(setq len nil) m. c+ j2 J0 G1 `; h2 r
)2 s3 a: _) b# S& l$ Z! s
)
% a; V& a* Z, z1 f- m2 R
)" E- i+ a b2 L ]0 ^
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
6 z) I+ E: j$ W- l( {: w
;;计算用户可以指定的花形数量的上限) o+ _9 h/ V8 ? [: L; d( Y
;;用于下一步检查用户指定的花形数量是否合理 X+ Q" V/ U i6 k9 J8 y
(setq lg_length len
( ` @8 U6 x* K2 J$ o
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
2 `" a ], ~; S% h' {
)' t+ w1 k1 v, i4 m7 M& {
;;指定花形数量或A段最大长度! B" B% V/ z1 `8 R M2 N" B9 |" w/ F
;;如用户指定的是花形数量,则按用户指定的花形数量画图
' s5 W7 K- \# r8 c
;;如用户指定的是A段最大长度
4 `& h7 q: z) E1 {: z
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图# t5 D; m, g |/ e0 L
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
3 g+ B1 L& Q5 x7 |9 G" M
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解8 g5 h+ \( B4 g
(while (not n)
+ R4 Z! Z: v+ k- N0 @$ B
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值 o" C: v; m3 i9 ^
(if lg_n
! m3 N4 n0 D6 I- B7 A- m- t+ R2 Q
;;存在默认值9 k6 ~- X( O. H* ~. ^% p
(progn
3 _0 _# _9 R3 |/ ]
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"6 E& Y: R1 a; m8 H3 ?$ J Q' i
(initget 6 "l")6 q+ j, a* t3 G" F1 V6 m
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
9 y9 ^ h {9 y* P8 c( H/ u4 o
(rtos lg_n 2)
/ |; |5 W% i* l' l
">:"4 ~* a" R$ E+ p! m
)" U E; ^: u1 `1 L
)& v7 b. n" m Q/ \
)
! L) q8 G3 M, i ?7 H+ q
;;空回车时花形数量使用默认值; E+ U) ~3 L5 P5 H( h5 R
(if (not n)
! F7 j! p" f' C* a( J
(setq n lg_n)
' }5 B# W2 X( \5 _
)
' r9 L% P. s a( I8 [
)
; s8 i9 W4 }* i. W; [
;;不存在默认值( W r% D1 j" Q9 T: J
(progn
, ^- N4 L: D8 c5 r4 U& x
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
8 E* C3 p- |5 c# w! ~
(initget 7 "l"). }- H9 H3 l% b1 } A
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
0 m! \" B( O% W2 S
)
* c4 M( ]8 M! E X0 k
)# t) Z4 |/ z/ k/ H! `/ }
;;检查用户输入的是花形数量值还是关键字
6 W. ?$ l% S8 J* }
(if (numberp n)3 L& J1 O) \4 \8 j4 F
;;输入的是花形数量值
0 x' n# t |4 h ?3 `
(if (> n nmax)4 V% k' U, m7 p3 |+ }! ~
;;当花形数量值大于上限时清空输入值重新指定
5 }" p1 h, m0 Z0 C
(progn& B9 @3 s( }$ J7 |# v* _0 h
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))9 F! t7 n/ Z( }- `+ f
(setq n nil)/ m* c% u' X* t' g2 R3 n
)
# B4 Z# [" G4 J
;;当用户指定的花形数量合理时存入全局变量 A$ R" {( _. E6 v( }0 k
;;以便用做下次输入的默认值1 u ?% r) j) S" y, O
(setq lg_n n)
)# i2 L2 `0 g% ]
;;用户输入的是关键字( f+ R1 ~9 Y, Q" y. n- |+ u4 V3 X+ Q
;;指定A段最大长度/ q$ r" {) u+ J
(progn# W5 s6 t3 f2 D. I# R+ f5 y" B0 r
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍0 y& b7 f) ]4 K8 `3 T
;;否则可能导致无解- ]3 X* ~; _6 l% Y
(while (not amax)% f* w; \# N% M: |1 |4 _5 T4 L" V9 w
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值6 d- H, D A- r4 u# k6 t" E
(if lg_amax5 D7 w* m- U, G
;;存在默认值! W* i- K, V% u/ P0 @1 }+ P
(progn- t, }/ U7 ?1 Y5 C. e% q7 [
;;用户输入时接受空回车,不接受0和负数/ n( s. w! U/ N; B! E% @$ `
(initget 6)( b5 F. l: e8 ` g9 |& R! l5 F7 x
(setq amax (getdist basepoint
1 ~4 k4 u* @3 X8 D
(strcat "\n指定A段最大长度<"
) r' B$ I! j) W
(rtos lg_amax 2)
2 k( G8 d5 k6 K# T
">:"
. B- t h4 p7 b' I/ R2 z+ U
)0 @ y8 A) }# @/ O5 [+ ~! H
)
. b% f! j6 i6 G: o& N
)
( d! h3 K* p, p; z" R" t
;;空回车时A段最大长度使用默认值
" s, W) c. c2 m3 d6 r, H
(if (not amax)+ f# y& V/ q, ~7 F1 c. x0 g
(setq amax lg_amax)
) f% q* s0 P8 ]8 W; I
); K7 u, h6 f0 \ d) z
)7 _! K& W, Q1 z; Z; y8 a
;;不存在默认值& i) K+ P6 h$ [4 k4 z( G
(progn
, J1 F* T: i) V1 v s$ H$ b; e
;;用户输入时不接受空回车,0和负数
% G9 I" o% d% E! S ] x
(initget 7); @0 G% |: R& G8 z# K" R! \& V3 ~8 h4 ]
(setq
$ I. E5 r( W/ O/ P8 {
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
$ y0 O e3 C. f( @1 B8 e- }
)
% H( ^$ }4 M9 `, O
)2 P1 Z- ~+ c# T" y. v- h* K
). z& S6 x/ F( F e& R
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
6 z6 i* M# ?5 V- U2 H' F5 N
(if (< amax (* lg_width 1.5))9 ^- S5 Y3 B1 x* V% u* Z( l
(progn
7 K& r4 I9 Z- b9 }% X8 Y+ F3 r$ S
(prompt (strcat "\n指定的A段最大长度不能小于") k: X ?3 l! ^1 u. I \# ~5 q
(rtos (* lg_width 1.5) 2)% m* X5 {* o' A. y& p5 P2 Q, U: @
)# ^: z* _4 _/ s* l, u
)
% j! i2 ]5 u* K* I# S
(setq amax nil)& y0 X$ T2 x g. P0 c
)! M$ w' P8 m- P
), R0 V# ^- i/ r. C _' [, p
)' c& U9 A3 k& G" M) U6 g1 s+ W
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
, g9 P8 j. q' @' Y! w; M/ r
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1% g; t7 o2 ~, T& o. Y" \
(setq
# \2 m3 Z) J* V- }
lg_amax amax
) Q4 N; ]$ R F! e
n (1+ (/ (- len (* amax 2) lg_width)
& b4 m, J! l; Y! Q
(+ (* amax 2.5) (* lg_width 3))3 w' m# u0 {3 ]/ i3 |2 X& m" O
)2 j1 P2 W2 G1 z1 J' j0 B* J& i% r
)3 {6 c9 Q: X3 P
)
, g3 a# p8 i$ X6 A j
(if (> n (fix n))
7 x3 d) p2 B- L
(setq n (1+ (fix n)))
' f; u, F/ [7 o, _3 {* }; a$ J6 L
)
* n$ I/ ]& t" b7 D' w' T
(if (< n 1)' Q5 z% z8 a( m- H
(setq n 1)! r: _/ Z0 z# f: X) o
)
2 D1 {0 J8 s) X! w/ i
)
H; a6 Y. O; N
)
; `# E; X; e( V4 B: z1 J M
)# I. I, h; B" L9 r1 @
;;画图
2 H: X: u7 ]2 K) N! A% s M6 t
;;记住原来的对象捕捉设置
0 w; A1 }$ \! o9 X$ v( G$ W
;;按花形数量计算A值
$ g: n, j. k, K; A" L/ f3 ~3 a
(setq: N$ g: ?0 k0 C5 A1 L2 u
oldosmode (getvar "osmode")
1 D, v F: e! I1 C8 W
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
, C$ \; N1 R9 [9 C
(+ (* (1- n) 2.5) 2)
: Z1 x* ^/ i# i Q( i+ u. M5 ?
)
. _, m, F$ \: ?$ `: p P
) Y$ @4 L- @. Y7 Y" \
;;暂时关闭对象捕捉
; K- w* V$ r5 C1 `4 L4 i5 Y5 ~
(setvar "osmode" 0)+ O6 g% G3 \9 z6 s+ z x
;;屏蔽命令回显
3 R/ ^$ e7 O1 ^2 v$ g2 L3 @; d1 |
(setvar "CMDECHO" 0)
. }% Y: z+ H* x- _' T; U, m7 H
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
0 j! Q* u( S( P- z; ^. b
(command "rectang"( R$ u4 f! @7 K) c; r* v
basepoint& C9 |: C1 j8 r, ]: T0 u. s4 [
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))1 [/ q/ R% P5 A) w4 k; o- ]
)4 w# S! Z" m) l6 b { H9 T& P
;;在第一个矩形外侧一个方钢宽度处画第二个矩形( {3 F; V+ S% i |# B t' W
(command "rectang"
! N/ A" b8 F8 G4 V Y4 W2 R
(list (- (car basepoint) lg_width)
( |% T8 ]: T$ ~3 v0 c
(- (cadr basepoint) lg_width)
% S& r' T" x, _) X3 `6 i
)+ ]+ V* x% [0 j( [. E
(list (+ (car basepoint) len lg_width). L+ k( X$ {* g7 Y: I/ m( w! j/ _
(+ (cadr basepoint) lg_high lg_width)
. s! u* z8 P" g* v
)' g+ |* S/ i$ i% S; U; \7 g2 f0 h( u
)
. Z. j7 U8 u5 ~+ Q6 _
;;将指定点移到其右侧A距离处 o6 T8 m" m. ]
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))# _7 x4 s! d; ^& s( ]
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆6 G5 b/ K3 u3 B* \
(command "rectang"
7 a: P# C# R" d% z2 h
basepoint
2 T7 p/ H4 W; S* z- h: y6 `
(list (+ (car basepoint) lg_width)$ p h' |" E0 C- I- }
(+ (cadr basepoint) lg_high)
2 \6 d' z2 h l5 {5 V3 Y
)
8 V1 }+ Z/ L! A' d1 x6 h
)( C/ B0 s6 Z: G
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)0 Z; w6 Q5 u) c/ e8 u& B, Z
(repeat (1- n)
- q0 s* g h- U
(setq5 v4 C6 v$ c7 l G; u, `% \
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))8 @4 o( W r, y
)
! r( R, [# f) F* @
(command "rectang"* R" V" ?% M) _1 U3 u5 C
basepoint5 k3 g# J1 N. d, _
(list (+ (car basepoint) lg_width)
! _( r3 ~: R5 s) d
(+ (cadr basepoint) lg_high)
6 Q" N2 o6 i* H$ a5 Q( E; _$ K3 H
)
1 Y* J% G. K+ |
)
. s' T J! C+ ]6 H6 P( \- K/ s( y
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
7 ?, Z$ n+ X5 A6 O5 @% R E: ^; m
(cadr basepoint)
# P' G9 r7 v, w
)
. @6 ^1 `6 q' O5 O2 ~! D
)( u; ^; y8 Z, {0 Y/ F
(command "rectang"
% C# ^( i' w, \& f
basepoint8 t- _# L5 Q$ |
(list (+ (car basepoint) lg_width)5 w1 k& A9 M$ Q' ?' l+ ]% o8 C
(+ (cadr basepoint) lg_high)
7 ]# M: S$ `. N6 }+ K/ H% B! }
)
6 q* ^' M' x, I, }& F+ y* c
)
8 J+ w$ P/ x( n4 n6 `
(setq' b8 [2 K* T! g
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)). S b H. a. V i$ [
)" k- C0 h8 L, {+ E# ]9 j
(command "rectang") v$ k0 e- F1 c2 k3 t
basepoint
4 K& s$ a* ]+ W9 W; k
(list (+ (car basepoint) lg_width)5 d' S0 g8 _# ^
(+ (cadr basepoint) lg_high)
* V: x) u9 P. d" d6 N8 S) |
), y+ z( b6 n9 K. h i5 a
)3 ?3 y. G* I# P) o a' q0 W
)
9 q ^3 c+ N. ^; u% F$ ^; Z
;;恢复对象捕捉设置
$ g2 q) q$ U& g
(setvar "osmode" oldosmode)1 A' h3 K, V+ l" d- O3 J) G
;;打开命令回显9 v4 K6 l6 J$ e+ m! t
(setvar "CMDECHO" 1)' ^% Z+ ?8 u4 N
(princ)
5 ~3 L7 S9 f _, x0 O
)
& u* u3 u1 D0 p

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源