作图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 发表 " M, f4 W6 w$ y9 Y* @% O- F x- G
直线分段方式，a=a=2b
! ^1 o; R& f0 [4 M/ w! } $ U4 K8 N& _' e$ ?( t

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 * ]7 @$ ]3 Q8 X
1 q7 s$ [. P8 L* s9 j3 K
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

$ S9 z( X! s. R; E
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)8 @$ s- o2 M. `( k2 S, H+ r
;;设置栏杆高度和方钢宽度默认值' f3 i$ g4 `6 j% x
(if (not lg_high)# B9 q" \; e C* W6 F
(setq lg_high 5006 D3 Z( u( s' m) @; d' ?
lg_width 14 n% Z1 h1 k$ y
); K$ }9 N7 ?8 `1 ~+ u7 V( n
)3 ^+ m& H% W/ Z @4 g- C3 l
;;指定图形插入点+ p) k# L6 f+ G+ m* ^0 L
;;不接受空回车$ Q4 i; v0 r$ p8 s
(initget 1)8 ?- F& m- O1 l/ ]* b7 l
(setq basepoint (getpoint "\n指定插入点:")): o: b x! [7 A: u- M- a2 V# _( L
;;指定栏杆长度和栏杆高度和(或)方钢宽度
8 [4 w6 t. T( W8 r
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
+ H/ q, }, O2 h* Y, T
;;用关键字指定栏杆高度和(或)方钢宽度后, b4 F2 e* y- ]$ z9 Q. h) f
;;需要重复运行指定栏杆长度的代码段: w5 N! z/ H1 {
(while (not len)
3 W" R, H4 A8 e% d
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值+ g% |9 }. R) \3 X9 u u
(if lg_length* ?8 C0 w* J9 n6 l2 o% f, y. r
;;存在默认值. d0 \, R" d2 d k
(progn
$ k y; ~8 A. z( G4 j7 V( S
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"1 s+ L9 J0 ~* x; l1 E
(initget 6 "h w")
/ S/ a; a/ k* w. O) d
(setq len (getdist basepoint. e; b3 q& L: _1 H2 Z
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<", O4 Z4 `7 R% T+ ?% b$ {1 B1 ]( R
(rtos lg_length 2)+ ~! }& y" @# B
">:"
; X3 O' I5 H& W4 s; w
)
5 V( X7 H' l5 t& n$ g
)% K) ^( z6 y; i3 a# u% q; O( l t
)0 v" d. A. C' x, ^; {3 A: V
;;空回车时栏杆长度使用默认值
6 v1 I) }& f) s* a$ L H& I; y
(if (not len)/ A* O5 ?0 w+ _# M1 }0 L9 N( L
(setq len lg_length)8 T- Z$ T. U: q- F
)
) Q+ k2 A- Q- r( s# R1 I" _
): x f8 F0 `) A- {- R8 s
;;不存在默认值9 a) M% R5 z8 {* @9 j, ?
(progn
* d% r. v. a: O7 j6 m
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
# _+ }5 Y- q+ a+ k' |& V( }" p
(initget 7 "h w")5 P0 }2 Y& D8 _" [0 I! G) C j) m
(setq# e4 k' r) F% J2 j7 Z6 u* T
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
% O+ E! f4 \4 T \
)
# X+ B6 ?) t( k$ H1 W
)% O [. D8 f. b* H3 m
)7 s6 h+ Y2 V$ J$ @
;;检查用户输入的是长度值还是关键字+ n8 B) q, `7 \+ Q
(if (numberp len)3 D. _3 J& O/ L+ y: b7 p7 O* d1 U
;;输入的是长度值2 f7 n5 H: f8 @: O; a5 R2 ?
(if (< len lg_width)4 |) Z) l8 ?" O
;;当长度值小于方钢宽度时清空输入值重新指定
x9 J+ {3 d. O( O
(progn
$ J! K: ^& D/ b- F& ~& V
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
' `- Q; ]: L, t; d2 S0 }5 |' x
(setq len nil)7 W- O3 n, m6 L$ I6 p8 E, {$ }2 _
)
% d/ p$ W4 s3 h1 W0 _4 t4 t
)5 ?9 Y: E8 D$ t$ z) {
;;输入的是关键字
3 m" [( { V% P; q, X! {
(progn
1 i+ c* B5 q0 N% h7 o0 V
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
5 x- X2 r- c( Q, E3 A. F4 o
;;用户输入时接受空回车,不接受0和负数
& [( @- P3 K8 \; P# e' {
(initget 6)
. P2 M4 H0 N) F
;;检查用户输入的关键字是"H"还是"W"
4 k9 N9 Y- l* H& q* ?
(if (= len "h")
3 U, D% b# k O7 r; f8 M
;;用户输入的关键字是"H",指定高度
, h/ y- f+ o* v
(progn
& A8 J1 d3 N% q1 F& j
(setq high
: ^* R, E S' m/ H
(getdist basepoint. H1 ` ^3 Y8 A) z! W0 [8 M3 N
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
2 I: Z/ z! h! h5 R
)
, P1 t, z/ }& f5 L" d
)+ f% ?, s* Q6 _9 @( y6 _& ]' z
;;用户输入新的高度时修改默认值
6 ~7 @2 q7 m+ x
(if high) u, }' [/ Z: _2 f5 R/ {
(setq lg_high high)
, e# T; @0 `3 }2 I& C7 x6 x$ h
)
5 Y' P2 r) k. W, M
)
& M4 `9 n% G/ g( ?) U0 Q3 u8 V% r
;;用户输入的关键字是"W",指定方钢宽度
+ x4 A/ e! @# w, l( _
(progn+ X1 V9 Y8 D. Y- n% @% [+ [
(setq width
f: f; H! f9 c, Z4 m
(getdist
% [; \7 w' w+ d, s' n6 E
basepoint
, H- k. @5 f* ^% G' g; z' p
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")( g$ _# `$ n6 }4 P N
)
" R' F! ~- G% Z- ]% d! f
), M$ k1 Q7 z- L8 B; U1 \$ }; T% C
;;用户输入新的方钢宽度时修改默认值; d5 Z( m0 }' c+ Y
(if width
. u3 N- h. B* V0 m5 S
(setq lg_width width)
2 ~, V& ~8 j) N. e, U: r
)1 W7 B; f% E3 C' R
)
" t# G) p+ m' J8 m; A
)& s8 h7 j; x$ Y5 G4 i) N
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度& ^- R7 b7 _5 H
(setq len nil)" w( ~: `1 ~+ g5 _& m& T! T9 N0 t
)- R7 i5 m! P" o
)
/ t' l t W" M! v$ a8 T* [/ Z
). {( D! x3 A1 K6 t
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值7 d. u' d/ h! K
;;计算用户可以指定的花形数量的上限
$ _6 e. f7 `/ F: ` Z0 M$ Q
;;用于下一步检查用户指定的花形数量是否合理
' x! f, X Z+ X l) `! V. u
(setq lg_length len
, D! D x0 f6 d9 N# F: V
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
/ k& D! \! B: @% S! n7 F; A, u
); X* W$ e9 }) P/ j/ }
;;指定花形数量或A段最大长度
6 Y/ ?& n+ z2 ^+ \+ r
;;如用户指定的是花形数量,则按用户指定的花形数量画图
5 b/ E2 Y; k6 N% h6 y
;;如用户指定的是A段最大长度/ g8 S; L$ M6 T: x
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
5 I% G9 |/ I( C% d6 n: V) c- |6 ?2 I
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解, D1 \& i, W0 k3 D" o
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
, {: e" r4 e. X. g* B& n# V
(while (not n)
, ^$ i& K3 {* \7 W& k3 K4 ] f- p
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值5 ^) R+ F. |! K; N
(if lg_n
! [' b/ `" C1 \, W
;;存在默认值) E: f% R, ^- R' o/ t
(progn5 ]/ d1 H& v4 U- U2 U9 v$ e: T
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
~4 D1 u! B5 S* I% S9 f
(initget 6 "l")
' n! n! A% F6 O2 z. R0 G9 l
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<", _1 B; b6 o4 b: L G) `' Z& T$ J
(rtos lg_n 2)
3 M2 C! d& [, s6 o
">:"& h9 `- x7 Z P7 |
)
0 @% D+ M3 w5 `( S
)
3 N: G9 v4 l P/ |
)7 P# f. J& a' o
;;空回车时花形数量使用默认值# L/ r" I9 s# s- \
(if (not n)
6 q, m/ G3 o. j( l+ b4 E/ H
(setq n lg_n)
, p5 g' P% ~+ o1 V) ~0 F* q; u
)& B) L0 I! H+ G# f0 l3 B9 @
)
& G6 b. Z$ Y. |0 K# _( q
;;不存在默认值2 p, d3 {: K, p8 Y, \
(progn8 i( |% k5 F/ J' U1 ^8 M2 e
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
+ u v+ {; q7 {. H
(initget 7 "l")' T! W; E+ H4 n$ _9 F7 {
(setq n (getint "\n指定花形数量[A段最大长度(L)]:")) U2 j8 J/ P1 h( Y$ D; f# p4 O
)0 C2 B2 s/ h" A* v. {* A
)
5 e6 D. x% r6 ^# j; u/ l
;;检查用户输入的是花形数量值还是关键字
* A* M5 P" ?/ V( n* |1 P' b+ _
(if (numberp n)- A8 p/ i) B2 j6 ]: N; y$ Q
;;输入的是花形数量值
; \1 Y& t3 O7 ]) x& J' |/ w
(if (> n nmax)
7 R2 O8 z" P; b1 q+ M* q3 r
;;当花形数量值大于上限时清空输入值重新指定
& v- y/ N( Q# P$ [. W; I
(progn
& w+ z+ W" Q# u; d& y4 Y! t
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
) h6 f: |: W, s) ]& ?5 }4 C
(setq n nil)
' X$ k+ \; }" K7 S" T- n
)5 u1 G/ b! l: Q4 B* r
;;当用户指定的花形数量合理时存入全局变量& ]6 g+ [/ z5 L
;;以便用做下次输入的默认值
/ v1 C) }) a+ }7 `8 R; J
(setq lg_n n), D( O& a0 z Q& \! l, g! m
)2 K0 P/ Z6 v' b0 i. S$ K A
;;用户输入的是关键字
" @) Z) g8 |8 r4 S4 _7 I. q
;;指定A段最大长度& A6 s) I6 I8 G2 b
(progn
/ l' Y) a! x# F
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
9 B8 M S) q4 m
;;否则可能导致无解+ I Z ^* I6 x" n d6 B
(while (not amax)
9 r" ^/ [& l& m A
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
+ B1 L) j ]( v
(if lg_amax T" e: @: j. L- I; F J
;;存在默认值
2 c/ R9 `6 k d% S2 O
(progn
* K* U; k, [1 {3 }1 ^$ g
;;用户输入时接受空回车,不接受0和负数1 Y7 w* k; G2 x' W
(initget 6)
* n d: K% v* i. k
(setq amax (getdist basepoint
# Z9 E4 @4 i' J. O& u8 `' J3 x
(strcat "\n指定A段最大长度<"
$ }- q8 n: s( i+ l! C) {
(rtos lg_amax 2)
1 p0 b- B8 T& s. c4 x( k, {
">:"
3 k9 w. U% C9 H8 G& Q
)
! {0 }4 j7 W& M) r$ W
)+ t! Z5 h- T. g* v2 }4 \4 ]
)
* \+ }. v6 ^5 i0 f) }! f e
;;空回车时A段最大长度使用默认值
' S8 U7 e2 F4 g2 @7 ~- u
(if (not amax)
' ~ g9 C3 @3 y# s2 K1 C
(setq amax lg_amax)
6 B5 z' V$ Z. X; Z( @7 [1 u: V
)) x! e3 ?% u0 {0 j5 J* A5 H% n
)1 ?9 d& q/ C; O# k& T8 W. k
;;不存在默认值5 r+ X9 p7 g# P1 p( z5 }3 K: t
(progn
/ w3 X: X" p. n. v: `7 C1 A) [: C
;;用户输入时不接受空回车,0和负数
3 `! m; ^4 c5 T2 B" E
(initget 7)
, x) N" a1 ^4 K# V5 K4 N3 n
(setq5 \3 C& A% e, P- ?9 H1 t
amax (getdist basepoint (strcat "\n指定A段最大长度:"))7 F* K+ u3 D2 Z/ R3 W" K
)( {2 e+ R/ h& d' I5 b0 n/ d
)) C$ D) [ o# E
)
' l& g$ c" h3 ?5 B1 V
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定! ^4 i5 C# o8 R+ n1 k5 p7 E
(if (< amax (* lg_width 1.5))
* `5 j% Q( p% @5 o" v# o8 @1 Q; |
(progn6 z9 C5 C/ y1 j( |
(prompt (strcat "\n指定的A段最大长度不能小于", O5 D3 `* i$ j( o; `
(rtos (* lg_width 1.5) 2)
0 |4 Q5 z/ _: y `7 D; L7 r
)
/ Z6 e% A6 y" f- O
)
$ a7 {3 o' h: y* {
(setq amax nil)
; A. y. f; b4 Z# L+ @
)% M6 \9 g/ \' }+ }0 K
)
2 i# {7 }, Y/ ]$ D$ s H* c
)
1 _; v1 h: }. l+ Y. ~( q
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
) N- d- c5 P+ }$ |* N' e1 P2 \
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1$ K! D9 L8 S8 [: w1 z
(setq6 T* S+ h- Q5 ]
lg_amax amax- a" D# K" X8 _' p( e
n (1+ (/ (- len (* amax 2) lg_width)9 V$ _/ |8 ]' a0 J8 Z8 L" e$ V* @
(+ (* amax 2.5) (* lg_width 3))
& t1 q- a, X6 K2 e: t5 ~( J
)0 A7 l" g+ K. _ \
)3 I8 m- ]5 w" L/ e; _
)
^$ O% v B. |- j& Y
(if (> n (fix n))
$ f! X* |: F% x* W, }: `7 _
(setq n (1+ (fix n)))
( t! U3 s: T" [2 e, k4 |
)
. M( ?! Q8 p$ W' u1 ^$ V
(if (< n 1)
* w4 f8 x7 @" q$ j
(setq n 1)0 q$ z& ~+ t2 f' B* y- M
)
$ W2 k1 T/ W/ N* }
)& ~3 a) Y5 c* x/ g% A
)- P9 t$ L7 f$ c* ]6 f
)
% `* |' _: j O; n
;;画图: D# `# H/ s. i* X7 w: ~( g- E
;;记住原来的对象捕捉设置) d; \8 @: P1 Q& o- }
;;按花形数量计算A值
$ m% ^5 @, z& R. E
(setq2 B8 z% J, @$ a# J1 {3 u
oldosmode (getvar "osmode")) I+ {; }$ G& h3 E5 t' Z3 v
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))! Y' M4 w7 l0 Q: G X: x; g
(+ (* (1- n) 2.5) 2)
7 `" z* p0 s# h5 U2 w
)
; c- E) M! ]5 B' [
), }! R4 I0 s% v/ x* b+ T# W; {
;;暂时关闭对象捕捉7 t" {. D6 ^4 N, o* b6 m
(setvar "osmode" 0)9 u& Q; _8 Y' M3 Z/ T) Y
;;屏蔽命令回显( |( c, n$ j$ Y6 F. k1 l& c
(setvar "CMDECHO" 0)0 g" p a1 h. Q0 f$ l% o% J- X0 V
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形2 i- w. A' P$ y4 D
(command "rectang"! m- a0 [' N6 d3 \2 L! P" k
basepoint
% k+ ^ O& }& W% \8 V$ S
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))3 U( L/ E9 @$ `1 `8 O) s
)
/ Q& M7 R# A! w" P" M
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
# Q5 s5 R. c/ R& P4 r5 E
(command "rectang"
7 I. \3 K& B+ `* g# K
(list (- (car basepoint) lg_width)
$ R! y+ H# G0 `3 J. p& c4 Z# m) X$ c
(- (cadr basepoint) lg_width)/ ~# {* n; L7 P" e# \
)
$ z, U+ y3 ]+ Q: u" D$ Q
(list (+ (car basepoint) len lg_width); r, l) [* I; u4 n7 {* i- J- |: I
(+ (cadr basepoint) lg_high lg_width)
7 s* R' h5 u* ]+ _/ ~! u j
)
1 a" b/ z) n$ V+ r3 [2 \0 O
)
9 u9 S% D3 `9 Q# `" h. u* T
;;将指定点移到其右侧A距离处4 _' Z9 @8 q" R* g, Z- S
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
2 b% [& f$ U; r% S! d/ c, d
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
6 P8 T: i' h$ Q! {
(command "rectang"
( _0 ~& k: o3 S8 o
basepoint
0 `) H% k! {. n, Q; y
(list (+ (car basepoint) lg_width)
0 M5 ?% o6 D |5 c) T$ F# u
(+ (cadr basepoint) lg_high)
; B$ ]! M6 D. L
)$ s" H( w" V) S5 K9 w5 A+ [3 ~
)
/ f* O# t7 o2 L+ ?2 R& f
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
( B& ~& \; Z; C: w5 L' {. U
(repeat (1- n)
$ J9 w- D, d6 n0 d
(setq
& }3 V7 W5 i! n: ]
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
1 @& k3 w8 @$ s7 m
)& m& O3 U) D2 c2 L. H$ w/ p
(command "rectang"
. R* B2 D' p9 t0 B3 o, z: x
basepoint
$ G% c1 s8 W% h, p( G: `- K
(list (+ (car basepoint) lg_width)+ {( j. x' D1 O( x* Z4 {
(+ (cadr basepoint) lg_high)( a% J8 n8 e1 N! N) B
)
# V2 F& D3 T: I) D' M6 d. ]
)! m: [2 s5 c8 r" g0 E
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)4 f6 g$ ~! F3 w; N
(cadr basepoint)
) e; S: f5 }* H$ Z
)" g8 I; _9 B0 R) E$ f$ I
)
7 K& ], k. R6 d. y* [$ P! m
(command "rectang"( ?( `" v, E( o$ B7 \3 }
basepoint9 z" u9 Z/ [4 t( o( l
(list (+ (car basepoint) lg_width)" Y; R* M- _- Y& c* C9 f6 o& Q
(+ (cadr basepoint) lg_high)
) `8 N9 m# ?9 Y
)
( r5 L# M) g% [2 r' C3 A) E
)
2 [- e1 J- g4 N: `0 _0 V' y/ ?
(setq
# h; x; U/ |2 H/ }
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)) c* X- I" H A
)
/ ~7 u4 }8 w! u6 ^7 b- j6 g; \- a
(command "rectang"
# e* ^- [8 h/ O* O1 Z9 B$ @
basepoint
8 D( ~ z' K- A
(list (+ (car basepoint) lg_width)7 x, h& V2 D, U( T9 s% Y. \, f# w* m
(+ (cadr basepoint) lg_high)
- Z7 X5 J1 E% ^6 c/ H. M
)2 b( J! `6 A0 R( V. U
)
0 ]: ?% ~- j" {# t
)/ g/ o9 h: @5 _
;;恢复对象捕捉设置# G/ O( z7 R# }3 d
(setvar "osmode" oldosmode)
# `: I8 O7 L' b5 q) C) ~
;;打开命令回显) q# _/ ^) s& ~/ n) A
(setvar "CMDECHO" 1)/ S$ I$ Y# `/ t! `/ X/ W% f! T
(princ)
8 w1 ^2 I9 z5 Z, x' M& G
)
* z6 L/ E1 [& n6 h3 ^$ R

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源