作图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 发表
3 V6 ~$ L7 N+ M. T: z3 ?直线分段方式，a=a=2b$ n( o; A/ S/ K6 B1 @: t

5 p4 W% `3 G& @5 }. E: w( a) M4 e2 S

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 0 H, d0 D$ F3 V: n

4 O. E4 ]3 r( h# d, Z/ T距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

5 l! }! M8 N9 y& S0 x
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)" Y: `' K# ?3 F. ^
;;设置栏杆高度和方钢宽度默认值 ^5 C% c1 B* U" E+ V# [) `, `" p
(if (not lg_high)1 {9 P3 Y/ ~; b: \# t
(setq lg_high 500: M4 j, K& P, X9 H9 K- n9 f( o
lg_width 14; l& O, t' t& {# W2 C3 L
)
1 k) V |% A+ ]! \! t8 Z" C
)
* }/ E& i/ s8 ?9 d- Y) w4 ?# ]! z
;;指定图形插入点) g- U r/ [/ S; Q3 Q$ n
;;不接受空回车: _+ O/ J7 H5 D5 |1 f
(initget 1)
. S! ~- @* `$ Z9 C, Y5 r
(setq basepoint (getpoint "\n指定插入点:"))# O; E9 {8 z- P6 `% ^0 `7 V* B
;;指定栏杆长度和栏杆高度和(或)方钢宽度
# `) z) I7 V( L' |% j) `7 y* Q
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定& Q- {9 b& k1 ^% Y# |
;;用关键字指定栏杆高度和(或)方钢宽度后3 [) m" J ~8 r! J0 k n7 }, L4 S
;;需要重复运行指定栏杆长度的代码段
8 d: G% S9 T9 T5 O l( x
(while (not len): y. c2 R( [% b2 |# }8 s, ]
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值( Q2 p% h: k0 c# n
(if lg_length0 X! P& u. z. v! {+ [% l
;;存在默认值! C, E4 m# m2 M" @0 [
(progn
h6 [: V2 c# i0 s/ C5 l. l
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"& O; O1 R& W: M: }9 u
(initget 6 "h w"): [, [: j. G9 F# A+ `) e; j, a
(setq len (getdist basepoint
' C9 L1 A: j4 B# d. y
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"0 A+ ] d; ^0 w" K' F& x
(rtos lg_length 2)4 I1 C0 n. i$ B- X+ t# \
">:"! G9 |) S; T5 Y) a" O3 W& ^( f
)' X: _2 o" C9 t i3 q0 o; y9 `8 X
)
; R, w. F* L$ v# R5 ^
)
/ S. S C$ g; l0 h' H
;;空回车时栏杆长度使用默认值+ {6 q4 y& R1 E" `" A" u& I* ~
(if (not len)
1 R, ?! L9 M9 e" {* s7 \: `. I3 V
(setq len lg_length)
8 E, L$ @* f( M
)
9 a6 u% r# ]6 i2 v
)8 V$ X5 O$ j% V: @; F& ~' B
;;不存在默认值3 G; \" @* x& B+ r
(progn T6 B' p4 G7 p! Y
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
5 c) \/ r( j& _
(initget 7 "h w")
6 L6 N/ |& ?2 l% x( f
(setq& h6 b8 n: D+ \3 P" Y3 g( ^% y& R5 f
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
/ S% g5 c2 M5 X; `
)9 E" N6 p" u1 s9 j& k
)) o" A2 O' B: m2 x6 A
): h* z+ O* u1 X" H% D
;;检查用户输入的是长度值还是关键字; N0 p' q3 ^& S% H+ f# f
(if (numberp len)1 {2 }" D3 Y/ C
;;输入的是长度值
* B+ e% I9 k) d5 x
(if (< len lg_width)9 `1 Z8 n1 N- X' O
;;当长度值小于方钢宽度时清空输入值重新指定
! w& Y* h8 l$ I/ m0 L
(progn& l$ J% D$ ~* I d( ?7 O
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
& C# J2 F: J) m! x( L* Y5 A5 y8 G
(setq len nil)6 x! O5 }! w$ ^( ^+ }
)
0 C6 w& m( S- J
)
; ~. @7 o; L' {" h$ K" Y5 S
;;输入的是关键字
" ~1 H# L# f8 S/ J
(progn
, n* g4 }* y' M# S
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
9 K- @ _. M7 B( A0 o
;;用户输入时接受空回车,不接受0和负数
0 G. P$ [) I# m, z% m& _4 \7 R( }
(initget 6)
5 _- y G# }) I" X" _
;;检查用户输入的关键字是"H"还是"W"9 N# v* V1 r2 y6 c: U
(if (= len "h")! K7 t1 B" h a) o8 k6 o1 b
;;用户输入的关键字是"H",指定高度2 u7 U' B) ]; x# L% y* _& ~; {
(progn
( V! }" e" N' g' }/ e" g
(setq high+ I7 z5 y( N) K& W1 Y
(getdist basepoint- H6 ^1 m- V( S$ W7 o; O2 r
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
( K+ C9 \) Z6 k$ Y4 `+ a
)
% {2 H, {8 c; g/ [. P% i7 x l: ~
)3 ^- a9 C4 Y/ W* e+ V8 |
;;用户输入新的高度时修改默认值
% T4 |+ P% _7 \5 s
(if high% U' _, C9 I: K
(setq lg_high high)
, y1 j' ?) J% D% q
)4 x! Y; ~% v4 C! X
)+ v+ k% R' L! T
;;用户输入的关键字是"W",指定方钢宽度; W# G7 \) N! I, j; c
(progn
, v2 G* o8 }# ]: |8 n
(setq width
/ D9 i+ t0 |- m- M5 i3 {; C
(getdist! I! [: t A3 n& b0 ?8 `
basepoint$ ` @' u+ j0 c
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")5 o. H( Y2 B/ u: {
)8 `" B+ Y; a. @. h2 ]# n8 z
); c6 j! G& C$ _$ d% a
;;用户输入新的方钢宽度时修改默认值
8 x3 c6 j/ N0 L2 |
(if width. U4 L+ s# A3 I2 }. P, J; o2 Q% ?
(setq lg_width width)
" i+ v5 Z" H* j1 a- @% t! Q: `! y
)
7 K- x3 J. P; d# w: q6 D& @0 Y$ i
)
2 q3 Y: |: B5 c* j: N, \
)
8 I" c# W4 F; W8 B" [' K
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
5 f0 p7 U( a+ q- ^% B/ y$ c
(setq len nil)% c8 E y+ D7 Y7 Q2 ~
)' @4 y+ \% f5 C* h& n
)
. Z" w) {$ L3 D5 b: g J8 S3 I
)
% V3 |" e; [5 g0 T
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
( M, X" R4 k6 D
;;计算用户可以指定的花形数量的上限0 g+ v9 y' w$ ~! Z, T, K
;;用于下一步检查用户指定的花形数量是否合理* X, J3 _3 n) u
(setq lg_length len/ J3 E, U: L1 N) r$ a
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))7 k6 v6 p1 W3 Y
)
+ G3 i* o0 ]2 m5 e. ]3 w4 p
;;指定花形数量或A段最大长度
7 G) X) _' u' U: Z3 U% `" b/ \
;;如用户指定的是花形数量,则按用户指定的花形数量画图
% b, W' z( T1 w4 z; i4 \' a
;;如用户指定的是A段最大长度+ Q' z1 B2 c* t. Q( B# f7 w
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
. u! {0 [! E' A0 P0 C: G
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解5 \' G3 h( H5 v+ A! l, y
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
; f' d% i2 W+ Y+ _, r
(while (not n)
5 ~. q+ n3 Z3 d3 X
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值; R1 s: Z9 e7 w" Y3 F
(if lg_n1 ^/ h0 A' e% u. l. d' ?" P
;;存在默认值9 T) x$ @3 o, Z7 e
(progn
( C1 g- ^+ K' O6 |$ N0 G
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"9 b+ o2 \! \) U% e. ?9 L
(initget 6 "l")
% M; o! o- T4 S7 Y6 d/ D; j
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
3 s7 ~% n7 X# s9 X9 z
(rtos lg_n 2)
3 l( E7 e$ O- q4 Q6 m4 e8 Y
">:"9 P% y, A! ?/ {3 `& W3 M0 F! A K
)
7 M o9 I3 m, W, I4 g# b+ K# q8 Z
); Z' g' `* V4 _/ A
)! r0 e* F0 P* o
;;空回车时花形数量使用默认值
& o* ]# i4 F9 p
(if (not n)
4 K! M; Z+ h; T3 A" [/ |0 ?
(setq n lg_n)
. O" N! c. Y/ w a2 c. u: j& p% x
)
' Y$ Y% i# R1 W8 G
)
' i+ M2 L Z9 T( {
;;不存在默认值, g$ u* y* e5 q8 c0 k
(progn2 ?) T! ~' E* p% Q7 Q; P
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
1 b* n9 l( A ?& p: X+ w
(initget 7 "l")
& ?# ~4 U; A# l9 r2 F+ d
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
) |, W4 k9 o- ]7 r! M/ E4 o2 y
)
; c g3 b- l! g/ t1 F
)
1 ]3 s# I0 I" V
;;检查用户输入的是花形数量值还是关键字9 ~3 d2 D& b+ @8 }$ Y
(if (numberp n)' c7 u' ]6 D, g& A' @2 K' e
;;输入的是花形数量值
6 D0 V* E& D8 r0 h6 {$ g/ ^
(if (> n nmax)6 O" x0 s9 @$ P$ n/ B
;;当花形数量值大于上限时清空输入值重新指定
$ i5 I7 F9 B4 x" q6 `$ l3 S0 ~( j: a
(progn
: g& x$ {! A# [9 R% W- P: z4 c9 v2 a% u
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
: O# ~# `, X/ B& R5 M
(setq n nil)( l- B6 w2 F/ X% T- a6 K
)
5 N$ ?. ]1 T+ }2 Q1 i% s
;;当用户指定的花形数量合理时存入全局变量
5 J8 Z& t6 b* s/ W/ O
;;以便用做下次输入的默认值* g% h; Z/ b' X$ \
(setq lg_n n)
4 l$ [2 d. ^) G
)0 D' e' u( j9 ]& @9 x$ x# J- w
;;用户输入的是关键字/ ~& t6 x& [: T. R& \
;;指定A段最大长度
+ b: L. W8 _5 }3 M( }4 ~* t
(progn
( i. _0 A6 |) L
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
6 J2 R/ x& }' O3 i* i( j+ B7 N
;;否则可能导致无解( @7 x' a0 J/ \0 Y" ?3 s
(while (not amax)+ x5 W% N" j5 N3 S0 j
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
. i x% i- b6 C f8 G/ E8 J
(if lg_amax
- k3 }: y! [5 z0 Q/ b' p, a
;;存在默认值
( f8 @6 W. z+ p% Y; e5 i
(progn) H7 r; p/ j* j) _/ J; m( F5 `
;;用户输入时接受空回车,不接受0和负数 Y1 L' | k* \% Q2 C
(initget 6)
/ F/ S; j) X: @* W' Z
(setq amax (getdist basepoint
0 k1 c6 O; q" \ s, `' h4 E
(strcat "\n指定A段最大长度<"2 C$ x& u; u, I: x' W! g
(rtos lg_amax 2)% J3 @6 T6 F( V$ \* w% o
">:"
, |9 w4 B$ C$ R( \" o2 z' K! ]
)
( s' Z8 S" o& u6 n7 ~, {5 w) D
)8 B% J* N" x' \& e) x( _- a
)0 G4 x; `- G6 _# z4 @/ U
;;空回车时A段最大长度使用默认值
. ?3 X4 v, W6 x' O- l0 W: C, w! f
(if (not amax), p2 O, G: ]1 H1 ?0 G# G9 \7 y
(setq amax lg_amax)# w0 [8 Y: V" r# D& R0 z3 T) h5 X' X
)% S! u- w$ C: [. `
)4 J7 w" T5 ^7 a0 I
;;不存在默认值
9 l4 p: t4 \/ f
(progn# [/ k6 h, x# M; f& D* C. n% D) |, w1 R
;;用户输入时不接受空回车,0和负数
% P) V9 @) u7 _+ M0 D: l( M' c
(initget 7)5 y1 D5 g% U% L U, a! E
(setq
* l. ]! h' w5 u) @. ~0 M; V- f8 J
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
, x9 s X. Z! K1 U4 P# E
)
% I8 g5 t) L. b; `
)
6 i$ x) Y) P- l) T
)
1 m8 B( P( x% \' d( R4 U
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定$ J; U8 @2 s0 H6 M% i+ i
(if (< amax (* lg_width 1.5))
; q' T: k1 p1 x6 L# x; S& s
(progn
6 R! _( v! _# z: q3 I t1 P- U
(prompt (strcat "\n指定的A段最大长度不能小于"0 ?4 U/ s# X( @) _! C/ W: d
(rtos (* lg_width 1.5) 2)1 b" D) P" @1 ]$ a2 T+ k
)$ g. `# J& U" v6 k' `9 m2 [
)
5 F# P5 H8 F) |6 [& U
(setq amax nil)
6 n& J/ j, w% d" S( ^' r) `2 Z6 p
)
9 S9 ^ X: E) m+ b" J) z; J
)
' _( n9 x; P1 U8 z$ V8 v" J
)) s |5 g" R0 W: @8 E
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
( F9 {. M1 \4 U8 p& u
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1 |% d( w; z' H, K
(setq
! s8 a% K2 b, i* B6 _. N
lg_amax amax
0 _* [7 K: B# U, [/ f2 C+ e8 p
n (1+ (/ (- len (* amax 2) lg_width)0 z; y" c6 X, y( v1 h0 @$ g
(+ (* amax 2.5) (* lg_width 3))
, U+ j* }' g/ ?" N1 N( ]( N( X. m
)
9 {' w5 h5 y2 a) [4 h
)' n$ w- L8 b4 n9 X- d
)
! N# ^* s' W* c8 Q: H
(if (> n (fix n))* x* Y- n/ l+ C) E. H- N# a3 G
(setq n (1+ (fix n)))" B6 x! o1 G! O, b# S3 I
)4 _, _5 u2 x( E% J, o3 R; ^6 \4 g
(if (< n 1)
# _7 I* U5 ]0 {! k0 q/ Y* h" r* ^
(setq n 1)6 u: U% g9 H8 \8 j; K
)
" `/ v: `9 q6 u/ J
)
8 v% W7 q8 \" S
)
4 V' S) G$ t9 w' D) E3 B- U2 R+ b8 u
)4 A% P9 k2 H7 C+ R3 K" z4 s; {% K
;;画图
$ Z8 m/ }% `# F! u
;;记住原来的对象捕捉设置
" v! A, {. C1 ?' \
;;按花形数量计算A值( r; _# h o" w) j- Y0 x
(setq) R7 v$ z @& m, O) ^) Y9 a
oldosmode (getvar "osmode")
6 a9 |/ J. Z7 Q8 ] e4 t/ [
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
) [0 d7 ?" F8 e& W2 Q
(+ (* (1- n) 2.5) 2)
5 E9 K: W* [5 x! N* M
)
# v% G+ C. W' B" ]4 E! @6 h0 y" N7 W
)& J$ N6 j0 M1 b* h( s' a
;;暂时关闭对象捕捉8 F6 V" p% [8 ]* r. [2 i
(setvar "osmode" 0)$ k$ m: M( B3 ~/ I
;;屏蔽命令回显
& L( Y+ A1 c3 Y4 y. [
(setvar "CMDECHO" 0)
% Q% T- j4 M* R- ?
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
3 k. \! O' P: O/ m8 D7 [+ Q' N
(command "rectang"& g; v3 D/ s% t5 L+ f
basepoint
+ O+ |6 v$ i ^/ n
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
, A% v0 l2 C6 y+ e; D
)# `( B3 Q! ~0 A* m' a: z
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
4 Q/ X7 t. H" m2 s3 f$ i8 r0 ~
(command "rectang"- e0 |& R$ D5 w2 ~; z3 O' ]
(list (- (car basepoint) lg_width)5 Y6 o7 Z2 t( F" Y& G
(- (cadr basepoint) lg_width)2 C# k' S: A) L* M8 g% A8 W0 d, M
)
' B+ C) \. [ X; x! Y
(list (+ (car basepoint) len lg_width)5 {' v# F; ^# ^ D% G" V2 [
(+ (cadr basepoint) lg_high lg_width)# G" X! c% K3 `% B
)
. L \9 Y( a* \3 L0 H9 [
)" q' \$ }) P4 g+ Y
;;将指定点移到其右侧A距离处
) o$ t! c- s3 ^% D' i1 Z- n. h
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
( d0 Q- g" }4 v6 x
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
% ~& C7 G# m8 O) ?- b
(command "rectang"
% o+ g3 g) R6 I' @& e# X C* Z% ~! H
basepoint! h, h$ V U; W% Q. p
(list (+ (car basepoint) lg_width)& t- k% q% }5 t9 K+ H, P
(+ (cadr basepoint) lg_high)! L' x* P* u4 b. m7 x
)# H& }; p& X) L3 y/ d6 ^) y7 ?+ e+ p
)- L V6 R, T, l: W* B9 v& L
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
: _0 l1 v& f+ N, B& ]6 `& v4 Q
(repeat (1- n)
X* b0 S4 Y: Z& C) a4 c
(setq; a+ n# h1 T5 d
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))' t( A* n8 I+ {5 R5 |7 C7 r
)* m! v" y! z7 j: o0 [
(command "rectang"
1 k% p! w0 @8 n# M3 }
basepoint) H) W; h2 W. h! e3 K
(list (+ (car basepoint) lg_width)2 p5 x0 q5 H A' z- T5 n- j
(+ (cadr basepoint) lg_high)
/ K! @7 X5 y. x U( ^8 n5 l( ?: V
)# r4 u- e- c8 F; S; B6 K
)0 L$ Q' ^+ C' y& d$ F* M
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)2 H+ N5 J% X) q
(cadr basepoint)2 x- l% g5 K X+ o$ w
)
# T+ a# F) @% P0 r
)) x" v' f. }4 {9 b
(command "rectang"3 Y- h1 o* ~( W# I4 V
basepoint* D* D! ?. _, Y E/ X/ B
(list (+ (car basepoint) lg_width)$ h+ X) n- w4 C! j2 |( ~* x5 N# r
(+ (cadr basepoint) lg_high)) F* g8 K& z: S. w6 o7 h4 N
)
5 `9 M' k' T [ C' t
)
0 b5 _6 [9 a/ J$ j
(setq
. N& m+ r" p+ a6 L
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
7 D3 d7 k0 h" N. h
)
; L6 r s z( Y. O
(command "rectang"7 _6 ?, e1 b1 t
basepoint4 w7 Q( Z6 m# Y/ R2 P# `" K4 P' ]4 F
(list (+ (car basepoint) lg_width)
) ]# ?; V& W6 T" I. F( L' t( z% J& @
(+ (cadr basepoint) lg_high)8 M8 q- x; O! x- w
)
7 \1 P' V* x* f. c1 t
). a" y! Q- Z: Z1 F2 N" n2 s; K8 E
)
% R5 O }! ^7 n( a( ]
;;恢复对象捕捉设置
1 Z* r& d) S. u( Q* j/ O- K; Y. l
(setvar "osmode" oldosmode)& z! N' ? y# T/ b( y* U+ W0 i7 n6 b
;;打开命令回显4 Y3 B1 Y2 [* g& Q8 C6 ?. t( q- ~
(setvar "CMDECHO" 1)
, B) D8 d% Z5 F
(princ), T4 z n% g- l3 e1 a. a
)
) W/ c1 b3 c- a2 Y

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源