作图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 发表
8 t- \+ R& {: m s2 s直线分段方式，a=a=2b3 k+ H0 H9 O7 i

) Q0 J: w/ r/ G7 w* e, x

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 6 p0 \# L3 u% i5 ?9 L

+ O5 U2 d6 @+ d3 E) c- V距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

3 M, A, x6 M0 C9 I N
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)5 ^8 F4 r6 A! L* b `
;;设置栏杆高度和方钢宽度默认值4 D3 g; p/ H; G
(if (not lg_high)
% Y" B9 R$ F$ k4 W5 |) Z
(setq lg_high 500+ Q) F7 F0 P, v/ t& ~
lg_width 14
X, a( J( v! m N
)# |6 v4 u2 W' K3 o0 s2 `3 a
)
; w u0 X m# q6 ~) ^% {' t/ h
;;指定图形插入点
7 ?/ g3 r+ T! |# O* {8 Z+ R
;;不接受空回车4 E5 p* z+ R, }# L0 r
(initget 1)
5 R0 O1 M( ~) k1 @
(setq basepoint (getpoint "\n指定插入点:"))8 g- |; h2 a! F% u! `& C# t: Q! w
;;指定栏杆长度和栏杆高度和(或)方钢宽度
8 z4 y4 [, i/ Q+ v3 W
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
0 p+ | V( k) |0 x T3 N2 c i$ y
;;用关键字指定栏杆高度和(或)方钢宽度后6 |& E/ Q' H3 u/ L6 E* L$ k3 Z
;;需要重复运行指定栏杆长度的代码段9 w, X }, X; W# c3 t' P
(while (not len). p, u2 s: {$ d, |; v D T
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
, G) i4 r. M* r8 \8 d* C) A
(if lg_length, {: r/ Q1 f6 @$ x0 L
;;存在默认值
3 Q9 j8 ?, K; I1 p
(progn' B+ G6 X4 c" X [( L: |; p# e
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"2 q, W5 f2 f# `0 M! e. A7 C, F r
(initget 6 "h w")
$ i* z. z% Y0 W4 Q( q1 j x. A
(setq len (getdist basepoint- i6 A; s1 n- t7 \
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
0 S) g' N& d# n0 r) W- }6 x; I
(rtos lg_length 2)
! |2 y# f" f# |
">:"- Q, K( L9 Y$ Y! U
)
0 i" T0 Y8 @' p u
)
$ X% v7 v4 X' F# t
)
: o- R/ F, m6 \5 u4 n
;;空回车时栏杆长度使用默认值
, [( h" C, J; R6 Y% d. f% C) c/ B) K
(if (not len)7 R- M0 s* o1 L+ |5 B7 r
(setq len lg_length)" k' m3 f" _0 j) s4 v8 f3 p
)
" Q. |4 C8 B$ W! ~+ N
)9 E- |- ~7 X, N5 Y
;;不存在默认值" |$ x$ j( C8 V* ~# N" A3 N1 ?
(progn
6 b' p' V2 {# D P2 |
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
+ x, u. _' ^; ?
(initget 7 "h w")
9 O& \: n I( }. a1 P, X
(setq1 I0 N4 H/ x7 r. E' r4 `
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")5 Y- h. |" e2 Y! m0 t4 g, Q
)8 W+ F0 X7 B6 _
)
6 f0 H! H* S7 E& o: r+ {( `' K/ k
)
; ?' x/ L" }& ^# t8 @5 r
;;检查用户输入的是长度值还是关键字4 t' e3 y! H+ y0 {. D
(if (numberp len)6 j) d& I0 s# c, \$ ^
;;输入的是长度值* @! @+ e; N% T! `" u
(if (< len lg_width)5 i. i4 \+ R' }# V. h) e
;;当长度值小于方钢宽度时清空输入值重新指定" Y% ~/ ?# P/ B2 z, i* a
(progn
4 T" Q$ u0 X6 u
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))3 j! g3 R# z+ g/ o8 r1 G2 ?* l
(setq len nil)
$ _" q1 g1 p( f. u7 n) z
)
; G1 a! C& c M, v# y2 c
); S& _. F! ?4 u; H: l2 a
;;输入的是关键字
& B. q0 E- l8 R4 ~
(progn1 [) o) U5 w. H1 ~0 ]" \% F$ s
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
$ {& }% \# ~) K$ {% q
;;用户输入时接受空回车,不接受0和负数% l( b3 C( Q% }8 g- j# ^
(initget 6)' ^+ Z" ^$ U; ]' d# R
;;检查用户输入的关键字是"H"还是"W"
k4 n+ Y: G/ C5 r, @
(if (= len "h")
: _+ H2 o% R+ I4 \
;;用户输入的关键字是"H",指定高度
; d: T. H. f: t. U: r. r
(progn
) v& R# H; X" O7 O: V2 K
(setq high
. b" Z# B- R. ?; g
(getdist basepoint
; }! ?) h: ~/ J, z9 C
(strcat "\n指定高度<" (rtos lg_high 2) ">:"): h6 B, T+ e2 I% S$ Z/ O
)6 m2 T( b; ~$ O5 O
)% g- f! d& p/ R* p
;;用户输入新的高度时修改默认值. K4 R |6 C+ S# x
(if high6 ? X6 K7 g; `* I' L9 `: d
(setq lg_high high)
& _& Y, W# B. D. v" J* l: B
)2 U. D% H& d1 r2 f/ i5 Q
)! F% g' d2 I( N! ~) m
;;用户输入的关键字是"W",指定方钢宽度
1 F6 I: V( z4 G) o
(progn) r; z# T7 S$ T* W+ X2 j& g
(setq width
5 ^6 n8 `0 o. H
(getdist
- m6 V/ }3 A3 v8 z+ ]+ n$ l
basepoint
/ x: o }( N' L0 z+ W' }
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")( {0 d; f0 r5 [ M' C5 r
)# Z" e$ j" q+ J6 L; j- n8 E$ q% A# P" Q
)
6 q- \0 C3 y; r O5 w% i
;;用户输入新的方钢宽度时修改默认值
, ?7 f$ ]5 l4 e/ E7 q5 s
(if width
7 l8 I" s: j7 e \/ u
(setq lg_width width)
- y! I" ]( z( ]% K3 e, T4 i
)* h8 i" N9 ?% T" _8 P$ `3 n, L
)! r8 M5 |6 r) O; e* o8 ]7 i) e: C7 d
)7 [6 n; A8 D0 R# n' d l) s5 P0 t
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
% J' S. N( K8 m! ^
(setq len nil)$ U9 H' y& Z" J0 x7 y
)# O; e; a' ]9 A1 _. D
)% t. u# R9 \7 h' Z4 l7 F/ r. N
), {8 X# o, D J. e- U
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
. ~$ n& x: g* f/ p
;;计算用户可以指定的花形数量的上限" o( y8 v9 N5 I' \" ^7 {! j- g
;;用于下一步检查用户指定的花形数量是否合理
# h5 ^/ T; y( K- Q8 D
(setq lg_length len# o! @+ ]) [( H
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))4 |. r: L. A; T
)" H( M; c6 b0 X- t) ?, J
;;指定花形数量或A段最大长度
: a* n5 O. U% L" ]
;;如用户指定的是花形数量,则按用户指定的花形数量画图, {/ H* D% r" q) T `
;;如用户指定的是A段最大长度6 }, {; ]) |' G
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
5 C* F& |+ v. u' l2 X5 T
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解$ E1 J" i0 `- C8 B$ o
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
5 |& t; D" k+ K) V, Z7 [/ w v% {
(while (not n)
7 o o7 b/ n. F( o% s
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值" E1 t2 j8 ?2 D. ?( G- K1 J2 I
(if lg_n
3 A/ j* `+ I+ e6 q8 Y6 ]
;;存在默认值
: V. V! j' n; T6 ? u+ T5 B
(progn
R7 Y! G- z- U7 }
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"+ e7 a3 t# B9 O6 h- a) ]" Q5 A. E& @
(initget 6 "l")% s5 {# D8 ^4 @
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
5 `: H- x1 p; b* S' ^7 `8 l
(rtos lg_n 2). |2 w! A3 V8 w) z2 F
">:"( \9 o6 Z4 X x& P) d0 M
)7 V/ f( O! y2 W* k
)
- ]% }4 L5 v% Z2 M7 m( }
)
: d' m; u) y" h8 V' S7 Q
;;空回车时花形数量使用默认值
' ^: K' K& ?( U/ c
(if (not n): B6 k h/ `% X% Q- M
(setq n lg_n)
+ @6 F0 s7 ]' E4 {7 B/ e; h
)
- m& |1 K& [5 i* ?8 q
)
$ u6 `0 k, n5 a3 o9 h4 @
;;不存在默认值
, d9 O7 \) m% V' Z5 Q* W
(progn
% w/ K6 Y4 r, S! ^6 B5 _, B
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"0 I v5 [2 r: A# ?
(initget 7 "l")
+ }) Q( e- s4 a- x) H$ @
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))- _' y& v! T- _0 t% H
)
6 u! H n. I2 O
)
. l" s; \3 u; j+ @4 [; ?
;;检查用户输入的是花形数量值还是关键字
: Z1 z1 [; |. h' M. n; T( F* D
(if (numberp n)- ?! A. V6 C" W9 q7 c' I7 |" z
;;输入的是花形数量值 d3 [- [! F: N1 u: t. Q
(if (> n nmax)# V! i/ f& _. q, |/ B
;;当花形数量值大于上限时清空输入值重新指定
# Z* C7 n( `$ |( C& c# l
(progn
- }- D1 ~# U0 F* T7 ^, _/ f0 z5 @
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
0 w" M H, N1 P/ \! K
(setq n nil)
3 i' S- L! l7 \& D& w
)
5 D5 c6 g3 W! s3 y Q* t
;;当用户指定的花形数量合理时存入全局变量 c0 O' f4 g7 c6 z
;;以便用做下次输入的默认值
: Q# k" t' O1 p1 t! O y
(setq lg_n n)
. S" |# T0 r! C: ~9 q& k
)% R! g6 {$ ?: X) Z: v) U' P+ O/ P
;;用户输入的是关键字' Y/ r$ v! A3 f1 A5 t
;;指定A段最大长度
+ e! v9 B) e* @( |0 M
(progn
* [4 d& u* i' O6 ^! d* w0 C
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍" L R% I& ?; P; [
;;否则可能导致无解
( J- L4 M. O0 |! B. A" V3 w
(while (not amax)1 B* m+ V7 J2 k+ y8 E. B3 `$ f; u
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
7 ]4 B9 d" p+ O( u4 o# @; R h
(if lg_amax6 x1 f7 j: u9 z) @0 W0 b7 U
;;存在默认值/ [) P% q2 G. x8 j4 v' @# k
(progn
/ c( V3 `% q6 x; ^# h1 m) |
;;用户输入时接受空回车,不接受0和负数
" u1 S7 h/ U. K
(initget 6)
4 h3 E+ }) L0 K3 B0 }
(setq amax (getdist basepoint
! J& o* d7 z! u0 W
(strcat "\n指定A段最大长度<"
( ~, }: o- O$ b1 O9 y4 \3 p1 T
(rtos lg_amax 2)% J, \! T# a1 J! [+ ?$ H4 C
">:", y8 w" s% o: k0 c5 d- j, R
)
) w. I9 y- @2 d _8 C
)
) K7 r3 K; V3 g0 Z% {4 ]$ ` S
)
$ O( w# T s- ] I( d+ M+ C+ K
;;空回车时A段最大长度使用默认值6 f i6 S: S, w/ j+ R/ B
(if (not amax)& L( A4 _0 _) U: r, B
(setq amax lg_amax)
# P% Z) q8 `" j/ ^. t/ W* f
)
% x4 E& Z9 ~2 a0 D5 @2 p# M4 {3 B
)
# v" z/ l& w8 X/ z- g6 j0 f" B
;;不存在默认值
" ^" e: Z) H9 `# Y( }
(progn% C5 B& K0 {+ ^$ b7 q
;;用户输入时不接受空回车,0和负数
( |# X$ z. R* X. a8 b
(initget 7)* O: S/ h# N2 [) Z% h+ H) ?: @: s
(setq; V3 z: s& t4 e) x$ E# u2 }
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
+ [, a% q* s! A* h
)0 \ h& n: ?3 Z( s
)
. S# [1 i1 J5 I* Q9 I f# b
)
$ o" C4 B2 l7 D
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
# V6 B. r) M. F. o; Y* l
(if (< amax (* lg_width 1.5))
3 `! p4 U6 P$ J( U
(progn
# U9 F$ w9 Y3 g) \2 m3 O" L
(prompt (strcat "\n指定的A段最大长度不能小于": M2 e4 _7 F R0 g0 Z
(rtos (* lg_width 1.5) 2)
" C" ^+ w1 q6 D; l# S" Y) d: N
); B/ J z$ G+ a" A" p% c& e) M
)
/ v0 V' L2 X0 }+ }/ d" r$ w
(setq amax nil)8 k; T& w! }3 h0 w. X5 ~6 U
)5 p- `' r Q0 y0 }
)
' l" F( ]8 S( h5 I
)$ ^: o7 @) }, n$ s: ^2 M
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
# c( a" v, R5 A% a0 N
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
1 q# C6 D9 [8 ]' H9 D
(setq
& }) N# k; P7 K& W4 x# }5 q
lg_amax amax
: C9 L R8 z2 \2 V$ D* N
n (1+ (/ (- len (* amax 2) lg_width)
0 ]. p' Q! O% u7 t$ c
(+ (* amax 2.5) (* lg_width 3))* u" t5 w3 @: H7 b; |( G
)
0 q1 V0 v7 c& i1 i1 s. F9 c/ x
)
0 V4 J& p1 F# G9 |3 o1 z; g8 n
)! U: d1 f2 \2 ]- q
(if (> n (fix n))9 i9 b `+ ~- W( G- a0 c
(setq n (1+ (fix n)))
! `$ [9 B* d( o+ X9 u( ~
)
" o+ |* ~( _8 B1 x- X
(if (< n 1)4 a8 X% B5 ]) G8 Y {. ~2 Q# V
(setq n 1)
4 G% N! S4 D' F+ o
)
. ?' j( H( E0 B- b
)
& k' }) K, N" d
)8 T# U- d5 O% e
) z7 y: e0 x+ ]& Z) R) r
;;画图
9 S7 {4 R0 p- N' s" J: S* J$ T
;;记住原来的对象捕捉设置
$ D/ F) k' U8 n# y- m2 R/ I
;;按花形数量计算A值
2 b) O3 J( ~3 `
(setq& Q2 f% q! f5 M
oldosmode (getvar "osmode")( @1 D x, \" \: H* ?
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))0 w7 L9 ]( o1 d4 G; @& P+ m4 }# Z
(+ (* (1- n) 2.5) 2)
) i# u8 N( o- Y$ ~. x2 P4 e! R, ?
)
' X0 q* l, z8 m
)
) z! x% k- n$ b) w
;;暂时关闭对象捕捉" r7 \5 `- \. M
(setvar "osmode" 0)" a' l4 ~0 w2 D0 C
;;屏蔽命令回显
3 E1 M% @( @) V. ]4 v+ v
(setvar "CMDECHO" 0)* ]* F: P4 y- g3 e/ b
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形( w& z5 r) ^- L) {0 `& d [
(command "rectang"
7 ~1 c4 A1 E0 |' U+ v% p
basepoint9 i' {: f7 `0 r1 i+ `- F5 N4 @2 E0 v
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
2 G# b# O% z; Y% ~1 t; C) J( @
)5 S w! z. o" Y5 T: ?+ q
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
+ X3 m+ `: W: ?7 N, O7 k6 `
(command "rectang"
, y Q( H- F" T0 q B( B
(list (- (car basepoint) lg_width)
# q* W4 p3 U7 [/ [- A
(- (cadr basepoint) lg_width)9 _, x. t* Q$ P2 z' x& X& P& x
), W d' W A3 w! j: I; [/ I$ N; V
(list (+ (car basepoint) len lg_width)
. d4 I2 g7 l ~/ J4 C
(+ (cadr basepoint) lg_high lg_width)
* b$ y9 k+ a; C8 W4 o9 R4 y( F! Y
), p$ Z1 {1 d/ x
)
8 N8 y1 J: g& p& X8 g& R6 X) K
;;将指定点移到其右侧A距离处
: C# U# ^, U4 q7 m
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))* v8 s: d6 W7 q
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
( W% }; e- q$ r) }
(command "rectang"
9 |, B, N2 T2 T2 s8 Z
basepoint5 r5 F5 v4 e& C4 i
(list (+ (car basepoint) lg_width)
- `( h6 R* [7 E4 p! V" J3 z
(+ (cadr basepoint) lg_high)
# ]6 a3 {- {6 U0 m1 S
). F8 q8 g, X$ K) l4 m
)
1 r, o7 v3 R5 x$ i
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)+ r4 K, ?" O: {
(repeat (1- n)$ C F3 q% v% | l# g Y" x
(setq
) i6 D8 ~/ ~4 D& Q4 R. [1 ^: F; N
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
0 ]& N! j. t" p
)3 v) V& \& \2 \5 X1 w* D8 a
(command "rectang"- ]0 n& r$ _8 G! ^
basepoint2 w+ s. q6 m6 D" t9 m. v% l
(list (+ (car basepoint) lg_width), U" z4 O2 R5 A/ F
(+ (cadr basepoint) lg_high)5 d+ Z Q. i# N
); A K3 g0 J/ e/ V5 Y6 m& L& J
)
5 O( M, i7 ]& @+ Z/ M
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
7 q2 ^: n* c& Z; L
(cadr basepoint)
4 I8 s& J0 {6 j+ k" y" h
)
% n K! I7 L4 O3 e0 j
)3 B1 }/ s6 R2 w, z
(command "rectang"; Y$ t9 o1 B# u- z* b6 `/ G
basepoint- ^8 i% t/ D# w9 r
(list (+ (car basepoint) lg_width)$ m: ~# y( R2 A# f) |
(+ (cadr basepoint) lg_high)+ f' i$ `0 S7 G# S% N5 i. |: o, {/ b
)1 H+ ^8 e( d- c
)
% u; b8 N, ~$ a* g) l2 N
(setq9 c8 U: b# D6 W) @- g6 q
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
& k/ p s" y* E7 s
)
5 O$ P/ L8 \9 E
(command "rectang"
, M: l4 R. T1 y% g/ z0 p
basepoint
1 c+ W% N* I7 \3 S! [* G6 h
(list (+ (car basepoint) lg_width)0 ]" ]9 E4 g K. {% T5 D
(+ (cadr basepoint) lg_high)- _% M$ f U+ l: h. Y/ P: j
)
* ^: W6 z; I$ h' G L
)
1 R `. R5 m$ E& p) r
)! E7 m, O; Z- t, O
;;恢复对象捕捉设置+ w8 a5 ~: j J4 S" r9 {
(setvar "osmode" oldosmode)9 K& A/ ~" h/ O% r5 F
;;打开命令回显
2 r) k L# a0 p6 `& f/ e7 d; S
(setvar "CMDECHO" 1)/ H! S5 B0 ]# E( d* {
(princ), g! G5 |6 j' |; ]8 F
)
" l5 E: G0 q# {& p- F

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源