作图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 发表 - R) s+ q' \& F& |# c, t1 g
直线分段方式，a=a=2b
7 {1 u+ r7 A+ r0 R2 _
( F- A( x3 @- F! z/ _ K: r

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 7 n V! A1 R3 G( b* H* F
, M' J& t( R. y" H! w
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

) J* `' E) B' ^! d' Q, B
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)+ ^# P& s# X6 v8 \$ D
;;设置栏杆高度和方钢宽度默认值: E: @( n4 j5 G0 k6 Y) a* t) |6 }
(if (not lg_high)
$ ~' T9 e4 F' B: R
(setq lg_high 500
! h& I( \: |5 Z+ a3 G; _! y
lg_width 14
C/ i' Z0 h7 I2 B! u& [
)3 b" q) `, ?/ G- H; [! N
)2 q1 k& D. g# A' W
;;指定图形插入点
. `( v- W# T2 a! X8 r0 _$ G( x
;;不接受空回车! O/ p* y' d: d' I6 Q; w
(initget 1)
4 y+ U; g* d; h+ ]
(setq basepoint (getpoint "\n指定插入点:"))7 v( B3 D6 Y `# B
;;指定栏杆长度和栏杆高度和(或)方钢宽度
9 v5 a% u- g; U# h' j
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
1 n3 y/ U1 a$ g2 A" \- _% i1 l1 F
;;用关键字指定栏杆高度和(或)方钢宽度后5 `$ w1 A2 F& q S6 m
;;需要重复运行指定栏杆长度的代码段; G& J$ y; q- h* G; Q# d( s; Z
(while (not len)
" t- `# S, B. Z* b( t8 w" ^
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值% f4 T/ N: K, p7 c7 M1 w3 t
(if lg_length; |9 V% a" g* z
;;存在默认值
5 [: k5 T# ]( E4 @ p8 q
(progn
) K9 f" g# A6 y' e% |
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
0 b8 f1 x) _) o
(initget 6 "h w")
. G; `/ L3 c( V
(setq len (getdist basepoint! X* f' {! o9 [- \% T
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"5 G: Q3 {" e$ v' w$ \
(rtos lg_length 2), D. i, ^* Z1 U8 H, N2 H
">:"/ U6 v \+ E' t5 ^# g q
)
/ m' C3 p7 r# D$ t$ |, \
)" @* n* X1 ~5 n6 Y/ [
)4 \9 M- s. x2 l" L
;;空回车时栏杆长度使用默认值
0 {4 A, m. N/ W5 e2 `2 P
(if (not len)
4 x: Q4 ?% y" z# L/ ]9 K( S; E6 V+ h( Q
(setq len lg_length)
; G, Y4 J( j5 a# h
)
3 Z* [' n8 o" |* {; K! P9 k
)
9 U# Y! ^( T; r
;;不存在默认值
1 D) T: W; @# E0 @5 Z8 G, H
(progn
$ a9 |" P9 Q A; \
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
v+ |; J2 d5 j; q7 }
(initget 7 "h w")
# M7 j; b O% o. V7 V0 q& O
(setq, M- \: d# r7 N" e+ U
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")! {' b' u; B; d" l; k) E2 @( n
)# q! d! |+ L7 i1 d7 r
)0 v; `) x' F- l$ H* L6 Z6 m
)
) D0 V+ n# B3 x" W& h
;;检查用户输入的是长度值还是关键字
, R9 e& N; Q$ N& G4 ]3 R% |/ m4 e
(if (numberp len)
/ u+ O" r' V, h- c4 u2 k
;;输入的是长度值
% H" q: t5 h" n# {% D! J
(if (< len lg_width)3 I0 \. q( F+ u! K. N! G; _- C0 E4 J) ?
;;当长度值小于方钢宽度时清空输入值重新指定
) e, b e: D: S) \" e7 O
(progn. z" ~. W+ C l1 C
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))' Q) e' b* O6 ?- \
(setq len nil)
, m, J/ B0 t3 B
)
j, x% i& l8 T( y3 `
)8 h2 q1 d$ ?1 ?* |& H" n
;;输入的是关键字
) O! T7 I" y& \$ ?
(progn4 `# o: |6 v# g L' }/ @3 B
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值. C2 J5 H1 f0 n$ T- W
;;用户输入时接受空回车,不接受0和负数
: C- c+ Z/ j, `1 A9 N
(initget 6)/ X' `( V& ?. `3 ? r$ m
;;检查用户输入的关键字是"H"还是"W"5 K# S9 O+ q% y } T, m8 c
(if (= len "h")
F; P% a0 \/ x1 j2 g3 w
;;用户输入的关键字是"H",指定高度
* `8 W( y0 y" @& m& e; y) N. R
(progn
& k; f8 L& |; P
(setq high9 w4 p8 }4 A7 m. Q& P
(getdist basepoint' j( }$ {) d% c b+ C9 D
(strcat "\n指定高度<" (rtos lg_high 2) ">:")% L5 a$ ^& Q7 N. m) P* M
)1 o; Y. k7 N' a$ z6 i9 l
)
; m, r' m. T: c
;;用户输入新的高度时修改默认值
) R9 ^ d( ^; u/ h
(if high
* ]/ v- e( [1 W$ p0 t6 R* S
(setq lg_high high)
) I5 t5 W9 c& P8 u) G+ N3 X
)3 ]* g Z, q6 }7 B! r; U8 [; ?
); q. A2 f2 e( h2 S
;;用户输入的关键字是"W",指定方钢宽度
/ f5 {8 }& Y0 m8 r7 Y8 [: h
(progn
9 V3 g9 G/ v5 F3 `5 g m
(setq width7 @) {5 q- t! b/ s
(getdist, Z+ q1 M7 R, ?/ G2 d9 }
basepoint
- m; A7 A6 X, }% l3 ]! d, h
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")! W. q5 H: e; j$ w& b# ^
)
$ |' b9 r8 i: m1 D& ^% N
). C5 S' D5 Z0 W' l5 x% U
;;用户输入新的方钢宽度时修改默认值
( o" M8 Z- w& Z; I2 V0 @
(if width
4 U: v; ~! f: ]' n) ?
(setq lg_width width)
$ h5 L! C; e* L9 N* k
), p# c- |+ g1 u0 `9 t
)1 s* B2 W, y2 M1 ^2 k! G/ G
): F& |& _ _2 _% K5 { U6 p& R
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
; _& _6 _0 m% \; R7 H0 K4 h6 R
(setq len nil)
' f. k2 y' s, K
); | p) _, j* M- W. h& P% o9 a7 N! C w
)* z& c; Q. B) W! a+ Q
)
* j4 `/ c1 X% `1 p3 c$ p
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值3 G$ b) U6 O2 _+ P, [
;;计算用户可以指定的花形数量的上限, I4 ^4 J" U7 D" _$ G' e/ r
;;用于下一步检查用户指定的花形数量是否合理
( ?: t9 K6 j2 Q9 r
(setq lg_length len
0 l& K" e' N/ {2 F( h2 r
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
1 Q9 ]- i* p+ G0 @1 U; e& q8 @+ M7 o5 @
)0 g1 y8 X3 {- \6 s2 O4 X1 \
;;指定花形数量或A段最大长度
# T/ H8 g# _- @3 v! k; C8 n
;;如用户指定的是花形数量,则按用户指定的花形数量画图1 Q& ]$ f+ D& R6 I8 ?
;;如用户指定的是A段最大长度4 j4 Z0 H% I o
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图$ D& u0 C! Q. q9 P
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解5 R" k% [% C0 w& g4 L
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解$ \# n8 m8 L7 ~' I; R
(while (not n)( e0 G1 M9 r1 e: J7 D ]% s
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
- F Z e( [! `* E* L4 Q
(if lg_n
$ u* p' X( ]% |2 l c6 @: g
;;存在默认值
0 ~$ v7 a( e- P: Y' a
(progn& z' y4 X7 J% m! H0 ^8 ]; v' b6 p
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"# c# B) {4 h0 I0 {1 T
(initget 6 "l")
& L8 G3 W* Y# ~$ z
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
* V6 e0 m- }' o$ |4 i3 r4 Z+ e
(rtos lg_n 2) e% K* X& V2 V
">:"
' r. {% D+ u0 \) t5 Z. D- Y& {2 K' j
)
6 t% ?' ] t# f' L$ c3 z9 g
)/ n! F; V( }6 B
)
6 e; ]3 A" ^4 c9 x4 i
;;空回车时花形数量使用默认值9 o, |+ h* u9 s5 g& _# Q
(if (not n)
) x# J0 Q2 j) m# M
(setq n lg_n)1 y9 o9 v& t9 H) v' u* B. i* _
): b5 |4 z5 _3 U5 p
), s; a' n. k) s- q
;;不存在默认值
2 }5 l. L- T. \% V3 \
(progn1 q1 l2 J# h1 i0 V: T
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
5 N; I- }1 T9 f$ G9 b' z4 D, D
(initget 7 "l")) Q, Z8 i9 l( z& [8 B1 U7 `1 H6 |
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
/ b% j) W1 _4 \
)6 k: Q! Y) ]$ E1 Q3 T$ |3 B/ l
)
4 Z* J$ c" i4 A, [
;;检查用户输入的是花形数量值还是关键字
# Q% Z P9 E3 \* t, q7 }7 S7 M
(if (numberp n)* l. n$ R; g+ `1 {7 |1 ~
;;输入的是花形数量值
% A# u+ N4 e8 H9 r
(if (> n nmax)
) v; @3 G6 ]+ }! I! C
;;当花形数量值大于上限时清空输入值重新指定5 W+ h, |- @6 |) O$ H
(progn3 i8 ^( J- S7 x
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))( `5 g; ^+ s) n7 G3 b8 \
(setq n nil)# {& ~, d3 X3 `: |3 g! V
)
- P1 o* y; }" \: s, M
;;当用户指定的花形数量合理时存入全局变量+ {. [1 l, Y4 G3 _
;;以便用做下次输入的默认值
4 i) v+ a4 o: c( @# Q) a3 u2 M
(setq lg_n n)
0 }! C: X6 m! e) I" J( B
)
, U& g9 ^0 [8 N- s) g. x
;;用户输入的是关键字
3 F1 X2 {0 D6 j+ O7 {9 M0 M% b; k* m1 w
;;指定A段最大长度+ W% a9 w# Q, K
(progn9 Q, |3 r' U. \8 r' g) J
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍: [; B- v S# t( p
;;否则可能导致无解
# [% t$ v9 f! ^
(while (not amax)
! b% D- q/ m# h9 [
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值 A: r% z1 V* K* n6 v
(if lg_amax
5 ^+ C+ ` w4 H8 Y
;;存在默认值
1 {4 `9 P. M: a+ l( u2 [. _
(progn5 K* g2 }1 f0 a4 u
;;用户输入时接受空回车,不接受0和负数
% I7 D: y3 b4 k$ H, a& r: r2 ^
(initget 6)
" o. b) H, b4 d( A$ m3 g% u3 @6 S
(setq amax (getdist basepoint+ K" D( z8 U' W) t, Z5 @% j
(strcat "\n指定A段最大长度<"
% q4 \/ w- A( F2 X& R$ }0 @5 I
(rtos lg_amax 2)
! g' a' N& H9 f7 M _6 `
">:"8 C; Q! n$ q2 a. }& [2 a
)2 s1 a% q: Q+ K7 {5 K3 Y" q$ p9 Q
)
' H2 n' Z, y% a" z* m2 G8 n
)
$ }# M& a4 k' j' z+ F7 x' `. z
;;空回车时A段最大长度使用默认值9 @9 B' Z% d4 g: m; O
(if (not amax)
) q& Z# l/ D" k6 ^ N8 I# i
(setq amax lg_amax)
& n" ~/ n- @" L. Q2 w5 Q
)& N* P! S" W2 t3 ?4 ~, n3 f) J
); C: E* S" m: B% k& t4 V& C& d
;;不存在默认值
+ F ~( w% k2 N. E4 h: I
(progn- a- I2 o4 z; T
;;用户输入时不接受空回车,0和负数
! e) q5 Y# o4 v4 j8 ^4 c; q5 {, D
(initget 7)
( Y3 B+ v8 d0 S y8 L2 F
(setq
( ^, ?6 i6 J6 D7 C5 n, B
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
) G" w' v$ W% b) s9 w8 N
). M! v& M! m& H% \! W% c$ H6 C0 ]
)- q. B/ O5 ?5 v1 s6 R1 b
)
5 y# E) T) [( D& h, z' l
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
( z9 E# o1 }1 w. \8 S
(if (< amax (* lg_width 1.5))4 u$ ]2 ?& p a8 u/ i) z
(progn
* s" N1 K o+ l7 W5 ~6 R+ D
(prompt (strcat "\n指定的A段最大长度不能小于". j4 n: j# N8 T+ S
(rtos (* lg_width 1.5) 2). S) S5 ?2 Y I4 _2 w+ J) z6 R
) Q' ^6 D2 s; L: r0 J' F" i# @% \" q$ |8 @. I
)' M& e& c. c, v& |6 z2 e4 x
(setq amax nil)
! P j! c$ ?" ?3 g$ R2 Z0 \
)
, N! h% l+ I6 `. q: U
)- ?! o1 h3 W5 m( p1 j$ F
): o1 n5 c% i ]3 u3 l- M6 _
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
/ }0 c! F- J+ w: B/ a) ]5 N
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为17 m+ J" T% {: _. s' Z
(setq
' [ K; y @* a- I- r
lg_amax amax
* P1 L. h$ f+ W2 c D# D4 |
n (1+ (/ (- len (* amax 2) lg_width)
. x& ~. C+ j4 i: M7 t) w
(+ (* amax 2.5) (* lg_width 3))- G% @7 U4 B: N& q. Y" L! R
)
- Y$ M5 H1 j3 j
)! L0 {$ p& u1 O+ ^, B. ^
), ]: G% Z$ S0 _1 p8 B! j4 j
(if (> n (fix n))
; @! \- t0 y3 }; Z3 ~/ W/ y t( d
(setq n (1+ (fix n)))
' ~" J; r9 ]- o
)3 S' D: y" I% I
(if (< n 1)" V. `2 B O. G1 b, ]0 r* N& ~+ z& B5 X
(setq n 1)- `2 ?, ^8 u# A/ n8 O$ b
)
, J+ M: [0 i! f5 S! b) g
); p2 J! f" D; q8 {
)# Z& D! e; a, d' a) q$ e {
)
0 d/ @, H U6 T8 P7 q# k% j6 R
;;画图
2 {& r- ?+ j% S: P; s2 {/ h
;;记住原来的对象捕捉设置* P' [. K6 d# C' A
;;按花形数量计算A值2 ?$ X8 w4 t0 O+ X) T! X
(setq# l+ Z/ M8 {1 g
oldosmode (getvar "osmode")
8 r( |% b8 `) O
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))' |$ D; t: a$ |9 k. u$ k9 ^
(+ (* (1- n) 2.5) 2). U; I, t3 Y0 Z5 P" K4 I! K! \
)5 |! J9 E+ ^: m A- q Z
)
$ t$ \8 C1 U# F1 T: ]
;;暂时关闭对象捕捉
( h4 i3 o% D p5 b8 o* U! M
(setvar "osmode" 0)
5 G4 \2 F3 O- N1 o4 \- Z0 M
;;屏蔽命令回显0 z3 M% t7 v- A- f& x: S a
(setvar "CMDECHO" 0)1 T" a8 W, o7 ~2 g. O0 b
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形" C; o3 |6 b% D0 ^+ i/ {- r
(command "rectang"
0 x+ b+ f# Q6 B) J* R- T9 J2 _
basepoint5 L; ?, ^ ]' v3 W8 I$ @3 v' E
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))$ S2 j; _4 m* a1 Z
)4 S" f& S$ A+ V9 q" B6 t/ J
;;在第一个矩形外侧一个方钢宽度处画第二个矩形+ `. x6 K: S+ T9 h* R
(command "rectang") H1 f8 G! I1 A5 Z `* S& l2 r2 o
(list (- (car basepoint) lg_width) \$ ?4 v: [# q# x- p8 Q; {
(- (cadr basepoint) lg_width)
6 r. }. ]/ x8 y/ n2 @" i
)6 I, T" G. S. }6 _( B3 R
(list (+ (car basepoint) len lg_width)4 z; d' m) u0 d9 ^- b
(+ (cadr basepoint) lg_high lg_width)
* Y8 e& a, o5 q8 V; S& C0 ^
)7 Y. ^$ n: x8 u2 S, y
)% E" Q- X3 v: u4 J- e
;;将指定点移到其右侧A距离处
. J! O5 \4 I' |# W0 {
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))& X! m1 t) B3 o- Q0 K
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
+ z* H f9 q5 I% }) g* E4 B' A
(command "rectang"
" o) e4 ^' u: s( N: n" d, f
basepoint
, g. Z- b( |# L' l6 p
(list (+ (car basepoint) lg_width)% i9 o: f: T; J% K
(+ (cadr basepoint) lg_high)
" u8 m( ~! {+ f& J/ C4 l) h
)# i" V2 O% K. e7 V, I( M. @3 w
)8 X& Z3 {8 p. o# g+ X( i
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)8 F: k5 {5 E ~5 c* O
(repeat (1- n)
, j0 h0 @' F9 V
(setq3 O/ K& G' d' n" K
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))& M+ c9 e0 q# s$ G$ M9 F: W
); [" R) ^) ?& _
(command "rectang"/ q2 Q: h5 v5 H5 O I, l# p5 z
basepoint' g+ U6 V5 J: {: V7 [ U P
(list (+ (car basepoint) lg_width)7 m/ N- Q! Z% o8 c
(+ (cadr basepoint) lg_high). Z- b: p6 Z K$ ]) X
)
& _! s! M3 T$ t
); ?1 o& S2 ^" x* g6 x
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)6 @- X$ G1 f$ C P, \+ G W3 z' g s
(cadr basepoint)
6 V1 Z! `6 `" l) y1 x
)
$ a |# W3 L ]7 V/ M6 H
)
Y6 M; ?- v" O2 n8 G- h
(command "rectang"; w3 B# L: Z& l4 v0 Y M! W4 _1 M
basepoint8 w9 e* v9 ]8 J. k
(list (+ (car basepoint) lg_width)
, e& F( C* n" Q; l& i" h3 M8 t) u/ L
(+ (cadr basepoint) lg_high)
) P7 ?0 ]" o+ h9 Q# C% c5 T
), R/ T1 e" n+ S0 i2 E; q
)
S9 W9 O, @7 Y5 Y$ _+ g' b
(setq9 W' S3 `( B4 x# _9 E
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
) w4 n, H+ O7 ~$ m( ~. I, U9 [
)
5 C5 ?8 W) |# v i0 j F g
(command "rectang"- a% w8 K. e/ ^( _" C# L, {: Y
basepoint
& b( S0 b% Q9 q$ \/ @' R+ c& p
(list (+ (car basepoint) lg_width)( D6 X4 A* J, K4 E. ^) u2 i: \5 S
(+ (cadr basepoint) lg_high)
& p* P) l$ ^; a! E
)
- _/ j, \5 i& ~
)
( u# x' E* ]% O9 h0 M" l) j1 Q9 P& t
)
0 i3 t& I: r5 r7 M4 R) r0 Z
;;恢复对象捕捉设置
' O# j& a X4 \* R+ B0 v( T/ o& D
(setvar "osmode" oldosmode)
% d+ o3 I/ x! m7 }" k/ ~/ l" C
;;打开命令回显7 j v- S9 a3 @( V: X+ {
(setvar "CMDECHO" 1)
0 A) ~1 P$ j3 p" H6 Z
(princ)
) h8 i+ r P8 l# Q- G4 c) n
): t8 e6 a2 n# y4 E5 ]& v- P

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源