作图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 发表 * `. g4 f, X% H5 o. [" t
直线分段方式，a=a=2b. f9 S9 p$ x- m/ w9 g- A. Q
. M" d# k$ v- \. F2 ~0 Y4 }2 @& u

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
6 ~4 M% m! P' s k6 I1 W: g+ ~7 [& K+ w, ^8 r' z8 B0 j8 E
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

5 G4 X5 V5 n0 ^
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)& N) U0 {/ E1 r P8 _* \) R! Q6 R5 f
;;设置栏杆高度和方钢宽度默认值: m6 D* H: i7 q: d5 X( z
(if (not lg_high). i9 Y- T: ~5 \0 z; j. m8 [, x
(setq lg_high 5000 V6 t v3 O" h; e# m7 O I+ ]
lg_width 14
7 D3 w* A$ r! R1 J3 } Z
)" b& N, q r4 @* f& V
), B, V% o' [- o/ X0 V
;;指定图形插入点2 d: j w6 O5 X# V2 X1 j
;;不接受空回车" u* Z/ k/ t# ^1 s7 o$ ~$ }
(initget 1)
. m1 P% X* G3 ]/ i, A9 ?/ ^5 \- [
(setq basepoint (getpoint "\n指定插入点:"))5 L5 g: l! E# o
;;指定栏杆长度和栏杆高度和(或)方钢宽度
0 a; m% j# R/ {4 y' v
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定- B- v0 {- ^$ @! g! W
;;用关键字指定栏杆高度和(或)方钢宽度后! g$ ?6 [7 t; d
;;需要重复运行指定栏杆长度的代码段& U" _ v; x7 k7 ]( V5 R
(while (not len)
8 |# Z* K7 o: d4 }% [) p0 l+ @
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
* \/ p3 L( `7 v7 l
(if lg_length$ G8 B' O) o. ~! Z) G
;;存在默认值" ^5 z p. O$ O- B1 y
(progn# G7 ~" n; ]/ ^9 H! v
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"5 z. D$ C2 c) @( X, W/ z
(initget 6 "h w"); s1 N5 o& W3 g. |
(setq len (getdist basepoint- l9 u" C/ O, P& l( m
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"$ D3 e k. c2 o7 u; y! y0 [# Z
(rtos lg_length 2)
4 R) ~! Q! b* C) p
">:"9 Y. R5 i. B( a3 M! i# F/ M0 c; p
)& L$ ?) g7 _! z* F, C4 w5 `& s: y1 o" n
) f% f. {0 p6 ?" k" Q Q$ {% h$ L
)6 A7 W. x) u1 A; h
;;空回车时栏杆长度使用默认值" `( m1 |( ~0 p/ T
(if (not len)
( D5 P n3 J; J4 L
(setq len lg_length)3 s4 @7 ?3 C! N- y x5 m
)6 r: c+ r) v8 I X: s; w0 E
)
+ J2 ~: g& @6 N4 E5 L
;;不存在默认值! t6 V, D$ m( F3 V* J" y. ?
(progn" N4 `) J J1 c$ S
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
6 Q! w+ x2 c+ W- ^3 R* m6 J0 R
(initget 7 "h w")
# v- H, ~: l+ A& e
(setq: i: C7 m* k* M7 |, `4 O4 e, H
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
z" q5 m1 \, W1 F( {
)
$ l& \* M3 r* V. Y; O, M! s6 c4 L7 o
)
3 z( S& \; H. ~
)
f$ \' i5 r' U( Y
;;检查用户输入的是长度值还是关键字( {* [: K: v2 S/ i& d2 h
(if (numberp len)
: F5 z& `, A1 K& s9 \& W
;;输入的是长度值7 {( w8 X" K: k- ^7 `$ L
(if (< len lg_width)4 u6 B" K: X3 R' ?9 o
;;当长度值小于方钢宽度时清空输入值重新指定% @1 Q r5 ?1 P- r( Y: x9 v* u
(progn
. \# C$ O$ K) U2 ~ {3 ~7 F/ ]$ S
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
* J" N/ O6 f/ j" s* |
(setq len nil)9 \ k; j2 Z" ]6 x, B
)
4 J1 V5 R; D- n! k
)
: U1 g2 J( x9 E0 p9 X
;;输入的是关键字+ T( g6 _* P" R, ?" N
(progn
, j& M/ B+ F8 l1 a4 Q: ]
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值- @! m( y1 {, R& i5 K
;;用户输入时接受空回车,不接受0和负数( G6 _& B! e0 T: R3 Q
(initget 6)$ @( z2 [+ [6 W; `! W* R# x
;;检查用户输入的关键字是"H"还是"W"
0 q; \3 ~2 u/ T J% ?$ g
(if (= len "h")) ?4 Z4 g9 \' R4 E! S6 V0 a/ e
;;用户输入的关键字是"H",指定高度
3 e b# M/ }/ d$ y
(progn
(setq high
- ^) Y9 G/ p8 M; Y
(getdist basepoint. j+ i2 e7 Z3 Y4 [8 G! P. V3 R2 |, l
(strcat "\n指定高度<" (rtos lg_high 2) ">:")0 Q$ b! V+ j. s- a
)* h( A, Q7 s4 } L+ t) S
)
& u5 Z3 B2 @. M) M; A
;;用户输入新的高度时修改默认值
9 e; R& X; B& c [
(if high; Y# x0 f ^* m( H7 K# f4 S- v
(setq lg_high high)
4 z9 [4 i" ~8 D2 I8 k
)
* c0 W( s1 x# W3 u
)
: B% ]% x5 Q2 l, i
;;用户输入的关键字是"W",指定方钢宽度
2 ^* d* x3 X5 X6 r2 z6 a( F5 p0 @
(progn
9 E' H ~( k) c8 G. _
(setq width, i, a- W7 Y$ {4 P
(getdist( ^4 i; T& L: n: [% c
basepoint
# V+ ?% B' ]2 g4 }
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
N% o, A) F4 G: _, f
)/ y9 K. s0 P6 F3 Z6 l) {% F a- x
)9 C- j$ r4 B- y3 o$ `
;;用户输入新的方钢宽度时修改默认值
- r5 w8 _; S* E7 }
(if width
9 N- I6 j, e, _( V0 K( F
(setq lg_width width)
" j y7 g% F% e K5 Q/ B, {7 @
)
7 g+ l( \6 n5 o m6 y
)- o) m1 X/ `$ h& m' [) A! A) G% y5 T
)
% {% [1 {, {' i9 ^# P( a
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
. |" u' l7 z0 r _$ c2 x3 F' I
(setq len nil)
" p0 l! ?9 y3 h, D6 x) f% a0 ~
) O4 P+ A* x* B% R6 ]' `% p
)7 Z( Q. M9 }# H w2 M# }
)) _: l7 N# K' C: C$ d8 ]
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值 ~; Q/ k, g& Z1 _ v
;;计算用户可以指定的花形数量的上限9 r& v) X* ~( q8 K& b+ P# F1 o
;;用于下一步检查用户指定的花形数量是否合理
2 S/ n: \8 O& u" N8 e1 E
(setq lg_length len0 \1 t. k8 K4 ^) r% }6 O y
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))# b' Y2 x8 m- z8 Q/ w
)5 _6 c. S- l; j1 r
;;指定花形数量或A段最大长度
( T) |. t* Q q- N ]5 `
;;如用户指定的是花形数量,则按用户指定的花形数量画图/ |" m% J8 k2 s5 F- N
;;如用户指定的是A段最大长度
# k9 H. \- o- j% I8 @
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
$ l; {* P0 m3 D' X% q* L
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解( |0 w* m: X; _6 L$ C) X
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解2 I" E( B. C$ B
(while (not n)
4 b2 L$ [; d% `& b3 E
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
/ l3 U9 |7 R6 y4 R6 O+ u' r" Y
(if lg_n* ]& [" f K- N
;;存在默认值
3 x" H' g+ F. G- q7 s o2 W
(progn, P) k# R* W' s4 W% s' p' ^
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"1 x. C( V% { Z* }4 G
(initget 6 "l")4 n1 u% U# E* N3 Z- G
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
; s' R" {1 ~4 Y% L% G) W0 ^, c
(rtos lg_n 2)
- J8 Z% W( L/ J6 ^) R, `( x
">:"
% ~. e. q' {/ s1 o. @9 F
)) s, u9 G# j9 y( W
)/ d, w- i4 g% }& u7 E! X& |
)
1 K1 ^3 }0 P q0 n+ K
;;空回车时花形数量使用默认值" l. \$ P6 }: o. f" v
(if (not n)
" U: U( C/ V& A1 i
(setq n lg_n)
" `7 V3 H+ \ g' @
)
/ Y. J$ t8 D) v) q. s4 p& Q
)
5 A( U0 _! G7 f
;;不存在默认值
) k& D# P* F5 B3 i2 R
(progn
7 h$ t8 q5 r" n& V
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
" F7 S3 @4 H. x% n: V
(initget 7 "l")% V4 e0 {; Y( G* g/ r# H" B* Y _
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
0 _+ P3 l: X/ ^1 o4 R
)% s* D/ D4 J7 p1 r5 ~8 O/ t
)
3 J% Z$ C4 g+ v
;;检查用户输入的是花形数量值还是关键字6 t/ t; o, d p/ y9 Q
(if (numberp n)% s, X/ a, p0 g, o' U) ^& E3 K" F
;;输入的是花形数量值4 V0 O' W2 {) ^5 ]: h3 f
(if (> n nmax)
0 w+ w& C8 R) B
;;当花形数量值大于上限时清空输入值重新指定
U1 {8 Z8 q+ u
(progn* \! q4 ^( T, t. ^- B( W& i
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
) a: A$ M' P- Z2 Q- w/ r. p
(setq n nil)
5 i+ L! u5 I( U2 Z/ ^- ]% n7 J
)
; ]1 }# \8 |6 s% W* P1 J8 W+ w
;;当用户指定的花形数量合理时存入全局变量
$ O" t, h3 M& K$ P G9 `$ s2 u
;;以便用做下次输入的默认值6 S& P/ f) i6 s8 v
(setq lg_n n)4 R1 V, K/ J/ s& F' g) Y- X6 F
)% n9 b1 R1 Y" j! U
;;用户输入的是关键字
4 R. n; M4 v$ q9 D: F- [, e
;;指定A段最大长度1 r& r0 f* K% w% G
(progn
' ~3 @7 T0 M# {' u, K5 t
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
0 M2 M+ M3 q# o' e& S
;;否则可能导致无解
% |$ ?/ r$ z# w8 \( O
(while (not amax)( y+ n0 q- Q# q
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值2 H) \' w- p5 a+ C" l4 P$ x9 ?
(if lg_amax3 g5 ^% p) O% `6 |: D
;;存在默认值
/ |6 J+ b7 p4 A, D
(progn
# p7 d( x9 G/ \% e2 b
;;用户输入时接受空回车,不接受0和负数5 B3 Q' H# b6 I- }
(initget 6)
. I/ i0 X5 c" e4 s
(setq amax (getdist basepoint& i; p2 p! H9 i4 O
(strcat "\n指定A段最大长度<"
) U! a' D: G) F% ]* `
(rtos lg_amax 2)
. b9 \4 \! G7 w0 n% O
">:"+ F8 E) c4 y7 e; Q
)
' K9 u+ u7 D& _4 e7 c6 u
)+ l1 G- N9 _9 r! {& o
)
% u, L+ Q. f0 W' O1 ~
;;空回车时A段最大长度使用默认值
4 M5 H7 o) z9 [8 a- p$ w
(if (not amax)
- V1 a& i5 G* O' Q1 S( a' k
(setq amax lg_amax)
5 z9 s* m8 m' d, N
)
& A; w! E K/ L1 b* y
)
9 r- I z( x$ z \. U! B/ b5 U! T
;;不存在默认值$ h4 U) i! m1 Q* L0 {1 {% o! f
(progn0 }, h/ c! z/ q6 k$ Q# o7 x3 t
;;用户输入时不接受空回车,0和负数
, }. e: S: {2 l( W$ \1 r
(initget 7)8 {$ [: E3 {" A; P8 |) u) v
(setq
9 F3 A* a: z( r1 w# q6 K) z
amax (getdist basepoint (strcat "\n指定A段最大长度:"))) N8 r- [9 ]$ w+ ?8 e' ^
)
4 a# M! n4 N! L4 v
)
2 {( J) \7 \; ~5 l' ~+ E0 y2 G; e1 H8 E
) _% l2 y9 B. o! u$ q. K7 z
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
# p- E7 d j" N |" i% C/ d
(if (< amax (* lg_width 1.5))
" e" V5 H- d p9 U, u4 G. _ Y
(progn2 R, @1 U0 N9 M: L2 ~8 d$ L Q5 ^
(prompt (strcat "\n指定的A段最大长度不能小于"
D& ?- D! m8 [! m
(rtos (* lg_width 1.5) 2)- G! v7 `/ Y3 A
)
# z8 M/ P0 G6 ]- h
)
& C) E @/ \" ]) ?: g! t
(setq amax nil)) C; v9 t3 a! t% ^
)6 X) p: ~# I: `
)
+ A' b- o6 J) E
)+ _* Y6 q! h. @8 e" P: Y& ~
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值 c: ]& |8 S- ~' g4 {$ |4 a
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
* I+ S- Z, q4 L, b) Y% n
(setq
. E% w, E1 U* s& O# C% b
lg_amax amax
, x% P; M a! L/ E
n (1+ (/ (- len (* amax 2) lg_width)
2 G4 }& D, C% F; V1 O: f
(+ (* amax 2.5) (* lg_width 3))# [# O; O. c& L0 e# N
)
, |0 I) Z" j4 t3 Q: @1 c5 X& j
). i4 E- \& C# y. B
)3 G9 ~2 E+ G6 K1 e
(if (> n (fix n))3 T3 c0 J' C- Q+ N8 Z$ a
(setq n (1+ (fix n)))7 d1 N0 u% T$ a [! l
)
8 a: f" r: a* k
(if (< n 1)4 v5 D% G. k1 X. q# f
(setq n 1) ]$ h* P: o7 V J
)
% l9 K' D. C2 |! ^
)) Y, L& P( {6 ~$ [' I
), ~: n S/ a5 \- O- [3 S9 H
)
+ R+ i: h7 M, w T9 o
;;画图
/ G; N' ]) j9 [8 b7 q- q* M- [
;;记住原来的对象捕捉设置
# i+ p% m# N% E3 {5 S
;;按花形数量计算A值! d' _4 |9 V' z5 j
(setq
e; d [# ]. `/ L2 s
oldosmode (getvar "osmode")1 m, I6 I5 _* @* B
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))2 [, f' v' p* h4 F
(+ (* (1- n) 2.5) 2)( O& A) J4 ?, |
)# O" ]4 `2 G' W$ K7 N/ ~& w
)& q: ]& [; U! o/ ^* G- ^
;;暂时关闭对象捕捉
% _! ?( n/ F) P6 ^0 ^
(setvar "osmode" 0)$ |; n! m8 J3 Z5 W" ]
;;屏蔽命令回显
9 `' f0 C" m$ V5 u7 t# ~8 H
(setvar "CMDECHO" 0)* x6 [; R* N% y. Y6 J* B. F' ]
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形: [* q7 O: L! F( n+ k) P
(command "rectang"
6 A) w( l, M; m( Z, D
basepoint: o* |0 ?' I! w# o. a+ Q2 |9 C' i
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))+ H& q2 j2 y6 C0 a; h
)& D5 h" f% ?7 j& {) S+ z
;;在第一个矩形外侧一个方钢宽度处画第二个矩形4 F4 B) g6 ^! z+ s" q @1 t
(command "rectang"0 {5 a/ g) G& b" b
(list (- (car basepoint) lg_width)
6 E, f% ]! l5 K. D) e
(- (cadr basepoint) lg_width)
0 F: v. g8 |. D6 O9 f# {
)
0 B" O3 _3 ~0 }% w' {* i
(list (+ (car basepoint) len lg_width)$ P" U( P' l D! V; M+ y$ Y7 a5 {
(+ (cadr basepoint) lg_high lg_width)2 w. K. s4 m9 x2 ^: T
)
+ @. L, _+ R3 h: p- M# O( U5 X
). @' F; W& b$ ?* h `2 x
;;将指定点移到其右侧A距离处
6 D: W+ R$ e6 d
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))& H9 @0 h; z6 f0 M' X
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆0 f' o: ?% V& B% m, m
(command "rectang"5 W% S* ~8 w& \4 ~: y* O9 {+ e. \
basepoint
# Z. p0 i8 g. ?: P8 t6 R
(list (+ (car basepoint) lg_width)3 S+ J+ R+ H, i. M6 t5 N* k5 A
(+ (cadr basepoint) lg_high)$ j# n6 H3 v* d. s w( i$ ^* W
)
: q2 ] i& b/ S1 c1 K# l
); t7 Q) k. F1 B& l# P+ V# d
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)& I7 h/ i* k% y* a( y
(repeat (1- n)+ @% s& V. P% ^( K$ B
(setq7 ]6 z2 v5 z8 J- H- M% q
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))8 W7 d& x1 S, k5 i) T# f' j
)8 H* `0 o9 ^. v } i
(command "rectang"
$ {& J+ i. r% b V
basepoint
0 k; U# N; @1 [6 ^) q
(list (+ (car basepoint) lg_width)
* z: L% m4 k( T+ z7 A
(+ (cadr basepoint) lg_high)
3 h8 s3 H, {) g& e+ B
)1 s6 K1 t7 \+ _$ q! A
)+ w j5 z0 H& J5 y
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)( V0 ]" L9 y4 ~6 _. m, [7 s) q4 H
(cadr basepoint)- `- i8 r$ R% a/ M
)
: M: f& v# k0 K, h% f9 c) w
)8 y4 x c( { r6 A- [
(command "rectang"2 [3 C4 Y0 t2 s t+ {% m3 v
basepoint6 A! n% e8 ~0 T: Y& r
(list (+ (car basepoint) lg_width)4 _: _/ |5 x3 H& d- @9 Y# j
(+ (cadr basepoint) lg_high)
5 o7 |$ ]" v; g0 P0 l0 T
)! h- J) }3 q# p2 p2 K
)
# r" `5 ~7 H' X' b5 V9 D
(setq
! v. D. I4 O9 t1 Y6 a* }7 d' d
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
. v; j( W) a" k
)0 X7 u+ `: c; D3 U& H
(command "rectang"
0 b8 O! } I5 \4 R& A' y
basepoint% t$ @6 B. _& X' D4 N
(list (+ (car basepoint) lg_width)- E8 _+ m! C; s: Q
(+ (cadr basepoint) lg_high)8 {. B8 i$ t( ?
)' R+ Z+ Q8 y9 h& n; P) H
)
, R& v" C" ^: x2 K% p
)
. n2 d* ^8 ^/ M, W% `7 @5 w
;;恢复对象捕捉设置
1 B" ~0 i* {6 Z) x
(setvar "osmode" oldosmode)
$ s( O4 L$ M/ B' b- z$ H+ r
;;打开命令回显
7 `! k/ d" x5 Z
(setvar "CMDECHO" 1)
6 z& @, N' F! n& F/ j
(princ)
! I( T" ^% ?% W' Z" a
)
/ m9 d$ B8 X/ `+ A- `# H# ~( `

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源