作图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 发表 - d! t7 p' D1 Z' ?1 d& u# C
直线分段方式，a=a=2b7 p( m& q6 ~# k6 B0 V
* A# C; k9 w. \( Y% l

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 . \. ?# F9 t( @) i4 d# e

, ` k' l! J9 o: m; x D距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

) f3 E: P% i& O( X* j
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
' @& h8 y, }6 `) [7 Q7 g
;;设置栏杆高度和方钢宽度默认值
. T# V2 U/ y3 O/ w$ \' C9 `: L
(if (not lg_high)
* ^9 L' }: ]+ y! Q6 h6 o' ]
(setq lg_high 500; q" x6 |* q- [3 |" f0 a
lg_width 14
2 f* c4 {! ?7 U4 R) L+ k1 b7 T
)
, `5 M5 T3 K1 b0 p
)
, |- a0 F3 g% w/ g% p, |/ y% U
;;指定图形插入点
! F" O8 x1 \; N% l3 n
;;不接受空回车+ R/ x( v9 z c8 p4 N/ C
(initget 1)
% x! F g) K8 s1 ?
(setq basepoint (getpoint "\n指定插入点:"))
7 v. Z) D# C$ i. A L
;;指定栏杆长度和栏杆高度和(或)方钢宽度! l9 |5 h5 Z' _: }& A2 i* T
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
- r7 H. X6 H+ _2 a$ q
;;用关键字指定栏杆高度和(或)方钢宽度后
. y3 I7 y" i* l' \ I; q) Q
;;需要重复运行指定栏杆长度的代码段
0 Q) {8 g& }$ u. v/ T8 e9 u
(while (not len)
3 k) s' h F% K; E S9 h9 G
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值: d# \" E/ g2 p x% r/ O; V5 f
(if lg_length) t' L; D3 g# N* y7 V. K3 Y
;;存在默认值
. i5 O( g( l" \! [+ m9 Q, Q
(progn( B$ {" {4 L: ~- e
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"/ m6 S3 G) e# S5 h+ d7 x
(initget 6 "h w")/ U' x) b$ Z" Z1 q3 y
(setq len (getdist basepoint8 b% X+ L! C6 |" P R- l0 _
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"/ T+ D M4 {3 {: H- P( d$ W' b
(rtos lg_length 2)
4 f7 G: o6 A/ n8 M& Q
">:"+ ~3 a9 p/ o3 J
)' z/ A9 q; y$ J
)
" S/ g3 _7 F* g+ K. G/ O0 Q
)
- x+ @9 f N2 M2 M
;;空回车时栏杆长度使用默认值
6 s+ u! ]# s# Y: b0 c
(if (not len)) C5 q2 f3 J# }' i# \1 q$ q/ g
(setq len lg_length)- h5 Q: b3 Q) F! Q
)
, j' s, H/ i1 U- p
)
3 d& g! Z. Q @) A4 D; U$ ], T
;;不存在默认值
& l$ c& z. }7 U
(progn
- U! _; ?5 h# c8 k% s% U$ v
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
. A0 t; a9 E$ D8 O+ D! g6 [
(initget 7 "h w")6 l9 Y) q1 z" b( @; p1 H4 u; w
(setq
- r- I. {' s: c0 z6 T5 \8 C1 R
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
6 [ u. Q+ J( j- ?
)3 v: ^' f& C( ^: ]& |$ k4 M
). n: ~/ k9 P; s# z
)2 p! Z+ g* d a6 @
;;检查用户输入的是长度值还是关键字+ }8 E0 H' A* c! Q. Y' B+ V5 f
(if (numberp len)( T5 l! w y2 c0 e' M+ A0 b0 x' v
;;输入的是长度值
; S7 z2 D; h9 J2 V7 g$ n3 w: L& h% a
(if (< len lg_width)8 \3 ?! E$ i# ?! v; y" G1 u
;;当长度值小于方钢宽度时清空输入值重新指定
. }6 x2 V3 ?1 z/ F
(progn
8 J4 @6 C9 R7 H# Y# l6 y
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))) T2 J' x4 r' ]
(setq len nil)
4 D/ N- ?% \- b5 y. z
)4 L1 {. o7 V5 L( z- l3 l
)0 P: B* ~0 a/ H
;;输入的是关键字
8 A" u z& O5 o5 \
(progn8 X( Y5 F( z0 k
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值; Z0 P! w2 C1 {! o& O$ {$ ]
;;用户输入时接受空回车,不接受0和负数
9 F$ Q" p& S8 ?. n* i0 {7 ^
(initget 6)* I; n" N4 I' v" F2 C/ Z& C; z% l
;;检查用户输入的关键字是"H"还是"W". Y4 u/ O$ y. [2 N
(if (= len "h")8 x4 H1 `$ s5 k- N. S
;;用户输入的关键字是"H",指定高度3 _9 P, H. ?) W1 C1 {5 S" M
(progn
- U$ ~/ `( u! P5 h1 G
(setq high
: K' g6 h1 y' N$ A
(getdist basepoint+ L( l+ a; Q& ~
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
: o, Z2 o' {6 z6 `2 Z$ u7 v( D: M
)( f/ h1 `! c. r. Z
): E- S7 K+ o' N0 v9 H' G
;;用户输入新的高度时修改默认值
0 N7 p' Z/ h$ ^7 M: _
(if high
(setq lg_high high)
9 t+ E* B7 t" G" G+ \1 b
)& W6 k& h% F/ k! a* ?' m
)& K2 }& }: a' g$ {! Q% h( T. J
;;用户输入的关键字是"W",指定方钢宽度
& p- }- [6 M6 x, I& j
(progn6 C# C2 U. f# n6 j7 @8 x( N
(setq width5 V* j* A$ p+ \3 a
(getdist1 g5 b4 H' y2 n$ M+ C8 ~# t* M- I a
basepoint$ ^, k! T% U8 ~
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
6 F7 t! [0 g0 ]; {
)
% S& P* s0 P# b( Z- q. Q& R/ @
)
. f0 _: o0 D3 r4 |5 e$ T
;;用户输入新的方钢宽度时修改默认值
' H/ z6 I6 n% R" K+ N; m+ @# m
(if width
2 p6 \; v; y3 V
(setq lg_width width)
9 G% B2 I7 e% V2 i1 f4 `0 \
)/ ~0 T4 N, q2 L2 _
)
! T7 s0 p7 T# P9 l* b
)( _6 N. o3 Z! u5 r0 V2 C
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
- k7 ?( Q" a- t6 F7 t" G! n: c
(setq len nil)/ k) H+ r: R8 H* o+ U4 x
)4 y8 O3 z4 c( Q; c8 D6 q6 {
)
1 [! c4 m* S8 c: n7 ~$ t
)
3 _8 z& n, c; R1 {( T
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值( i7 x, Z) H3 Q& c$ F; O. w' g
;;计算用户可以指定的花形数量的上限
$ `' u) K- x, q( b7 ^
;;用于下一步检查用户指定的花形数量是否合理7 e5 ]% S; x8 N q2 y3 @
(setq lg_length len
$ O5 T+ p3 l& @4 j% }# m
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))6 Y3 N( F; i) c' u( k$ h3 o+ l
)
- w/ y: J# F& i" H
;;指定花形数量或A段最大长度9 _7 S8 W2 M1 c' M% _$ y
;;如用户指定的是花形数量,则按用户指定的花形数量画图
6 I2 [% N9 r. H" A
;;如用户指定的是A段最大长度/ N) k# ?& @$ a' Q/ G6 c: n' h! ]
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图/ j" ^" E _. ~+ ]
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
: ?( p5 l1 m5 f( J2 q( @
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
& i! P: Z( \+ V3 i
(while (not n)
0 y3 e. A7 S7 O- m, g& s
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
, Q4 d( B2 V6 m1 P* A: N
(if lg_n
3 n7 j3 a8 v3 q h7 _
;;存在默认值
) j4 ]5 ~; E) a0 H" r+ A
(progn
) W" R/ ]( P% ~. i
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"6 L( y; X- x! t; x" T5 f/ V |
(initget 6 "l")7 Z q. x! H: q
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"/ M, w% I: k" K9 j
(rtos lg_n 2)
$ H, g# Z y0 t) W- }
">:"
% Y. v. d I; |& `
)
% a; E8 T3 {: ~5 C
)
1 r2 D0 T8 a1 R: F( E1 E
)
! r. m4 t8 h- I( o. s
;;空回车时花形数量使用默认值2 K& w: v" b% j; |
(if (not n)
7 p2 q; i6 s% d% v
(setq n lg_n)9 G' k5 h h/ _$ |3 D
)
9 x+ F- E3 `" g' }
)
6 {* D9 \8 S8 l2 O0 g# k- W
;;不存在默认值$ y( h; K6 ?3 u n5 |6 e
(progn
& ?# t7 _* l& w2 z
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"* Z0 f; f9 d: l' e* A- ~1 G
(initget 7 "l")
3 Y- ~) j8 i4 F4 _! w
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
6 r* E$ _" v% ~" }8 C8 s+ r1 Z
) x1 e/ [* y3 I0 Z/ x) v" p* x
)
, u: I( G l. X {6 \
;;检查用户输入的是花形数量值还是关键字
3 b/ y, B: u, Y0 C8 s `$ m
(if (numberp n)" \- F# m3 M: H; f
;;输入的是花形数量值
/ T! V8 u4 a) T3 y; }& I
(if (> n nmax); {' x$ u3 S) z% `* C
;;当花形数量值大于上限时清空输入值重新指定5 e4 }5 g, s5 H; Q4 P B
(progn- W( ]! n! a' v* k
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
) p" o+ P0 a+ X+ d; U6 i, }
(setq n nil)
! X7 u9 Z ~! u
)
8 k' ^8 B6 o% |2 O, @6 s, u
;;当用户指定的花形数量合理时存入全局变量
: [; }) a9 R% R$ m/ p( l) |; ^7 i
;;以便用做下次输入的默认值5 E ?3 A$ W% k# W/ O
(setq lg_n n)
5 J0 y, e9 `8 s7 I. k5 I4 {
)
( u @: m/ s" K* t
;;用户输入的是关键字: j2 l. T# D/ b; s5 {! B) i
;;指定A段最大长度
5 g1 [- R5 @- M$ i, t: k
(progn
5 c. [% M G- q
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
" W+ m5 l7 u# ]9 \$ s
;;否则可能导致无解
. E: @9 y( L8 ~) o3 c. Q
(while (not amax)5 r: I4 C% [$ ] J+ J2 V5 w
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值5 H# j' ^7 b5 _3 S. ~% G. M c
(if lg_amax
& n5 x$ n4 c0 W% ^& N
;;存在默认值9 Z7 V0 m/ A5 m
(progn
M% h, w3 a0 B4 _) a
;;用户输入时接受空回车,不接受0和负数
( z+ V/ A9 F& n; Y
(initget 6)
(setq amax (getdist basepoint
0 H# F6 L, _- e+ B3 K
(strcat "\n指定A段最大长度<"
* U0 [ K" R: _% ~ X) g
(rtos lg_amax 2)8 p! i9 g- M2 |& p) w# b% c
">:"* i% m/ u/ I1 M; `3 Q* @1 V
)
/ x- n$ U- i, C
)% B1 j2 x% l5 |
)2 m7 T1 E6 |/ m
;;空回车时A段最大长度使用默认值1 m& k4 q6 r+ q0 y* \! F/ @
(if (not amax)
; |( a. z- k6 r0 m
(setq amax lg_amax)* `5 ?; x+ G% p* c8 ?( e: f
)+ Y3 U- w1 P; ?5 d
)
, G1 s, A) ]: Q4 {
;;不存在默认值
: B. J+ A& q! b6 ]. H
(progn
8 @+ L. B7 h+ t+ z8 `, z* U
;;用户输入时不接受空回车,0和负数
3 W" K' o0 u0 C" E
(initget 7)8 ^( `' r: O' X
(setq% B/ \8 h. O4 \5 r+ Q! l) M
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
- k* A; l& a0 x! w/ `+ ]5 g1 _. |
)
1 b7 c5 a0 Q9 q# A5 o
)7 g' ^3 I+ |9 z, I' z( P
)" s0 s3 ?# `1 f( m! w7 d
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定) F* x: }) e: c6 }3 ~
(if (< amax (* lg_width 1.5))6 H/ W( n" ]7 V4 E0 n
(progn/ N# s, J3 _, t2 P
(prompt (strcat "\n指定的A段最大长度不能小于"9 F( P, I$ x" v+ ?2 M* M1 {
(rtos (* lg_width 1.5) 2)2 p8 P3 Z7 X: r6 m$ z: z) h* ]3 K% Z* ^
)
+ W& f( e) z$ K, D
)
0 U! {, E' k+ x% B6 K$ x. K
(setq amax nil)
+ ]# `" v6 b0 ~% Z
)
0 S/ n/ N) c; a8 _& y
)
( `; G/ M# R3 i6 Z8 F
)1 w! @! g& Q, C7 H' Q
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值+ k/ ]$ O# T4 j( D7 A8 y
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
( y1 X7 q2 Z; Z+ j( E) w! O
(setq
, w1 Y$ e3 s1 V5 J) ~, `+ C0 o- [
lg_amax amax
4 Z" C/ h/ u: X) k2 @7 x
n (1+ (/ (- len (* amax 2) lg_width)7 |7 A, K2 j8 p3 o6 n" g
(+ (* amax 2.5) (* lg_width 3))
0 e; j/ ]8 T( k7 J2 U( z
)' d7 b: k! I* U- y6 D
)" T% A. x; d2 n! w2 P+ [, D) j) p
)/ _$ m: T) `" I9 `
(if (> n (fix n))5 f. \& w; Q n" ~1 O' c# ~, l3 g
(setq n (1+ (fix n)))
( Z3 n6 r' c, e1 ]+ J5 |
)
5 u$ Z; P7 @- B6 C9 I. U% @
(if (< n 1)
# O' U4 j' Q" M" X9 ]. L
(setq n 1)
5 v4 i0 h9 i. u7 i' z4 z
), X9 C% K% Z5 ~8 e( M
)
7 J& }& O9 F/ N. C* u6 {( Z
)$ j8 H2 W" F2 b4 R9 W
)" r8 J. h* i+ @: ] _
;;画图) P( a: R# I7 i9 X
;;记住原来的对象捕捉设置# a* ?2 o# T; [
;;按花形数量计算A值
: b7 l V( G1 t9 O1 [" B+ i
(setq' p) L2 n1 u, a3 m7 C$ K
oldosmode (getvar "osmode")
) n+ J3 ]) h) T0 ^/ M5 Y& x# `
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
9 ?' o2 d- O' q5 M Z
(+ (* (1- n) 2.5) 2)
+ @2 H% L- X/ p' G. Y6 a7 N
): B0 h8 X, l# X
)
9 j* N V$ X/ d7 {
;;暂时关闭对象捕捉4 Z% Q0 [! B; I5 g! s# ~; a& b
(setvar "osmode" 0)% p$ l" ?' ?9 V' D- _+ @9 c' m
;;屏蔽命令回显0 [# D) X* _" {' ]/ ^5 J# ^# T
(setvar "CMDECHO" 0)/ S; Z% O& i3 p+ _/ w0 g" N/ q
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
* u; F& B" U# [; p3 B/ r
(command "rectang"
& b/ Y) J. a1 Q; x* @! u7 M" ?3 b5 z
basepoint" J6 W, |* ]$ f/ y/ t7 a5 O
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
" w" e1 g& b1 R0 x
)
' w! V2 x4 y2 z9 v+ z7 X
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
( P9 d3 z# r& z3 I
(command "rectang"& y% ~ j2 O+ t# h
(list (- (car basepoint) lg_width)! j7 p$ {: A5 Y3 C" g8 u. g
(- (cadr basepoint) lg_width)
, [9 d2 Z& G: C. C; v# R+ J
)
y( W" U9 U9 _
(list (+ (car basepoint) len lg_width)
1 a. j" k5 t' j! h& q/ Q- |5 t
(+ (cadr basepoint) lg_high lg_width)
, ^3 Q- ?9 G2 u5 M' _3 f: q( U
)
6 J% m, b3 o) u- R6 @; j
)
; L, D0 T- o; Z7 ]* ~; p/ y) B( _
;;将指定点移到其右侧A距离处
1 e' b- M! N& z
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
7 h& i" B* h- B2 o
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
$ [9 l& p9 K7 |! j8 n* x% N2 t
(command "rectang"9 r! t+ U( b& |% J K& |
basepoint
, H! j, W3 u2 R2 W0 z+ J5 e. A4 G, j
(list (+ (car basepoint) lg_width)
) u- |2 L% q. J; I1 ?/ m7 V" E
(+ (cadr basepoint) lg_high)
A5 W5 { Z. B O* H' G, a
)
) C- ^" [$ R/ m3 t& x1 ?
)6 i' j. c1 x' a) U4 ~8 b
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
, J- K& A) l" P" V% [* _
(repeat (1- n)! g9 R) t' h, U" I+ i8 P
(setq$ H% c% J# }. z5 m# M: Y
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))3 Y1 ?4 }5 y6 Q2 ]/ w3 P
)
, B' @" V' g' `6 @ {- I% R
(command "rectang"4 x8 O( c/ d" N8 M# S. F
basepoint! Z8 b; `/ h* s* J+ [5 S& [7 y
(list (+ (car basepoint) lg_width)
& k! }9 A& z! Y& F X
(+ (cadr basepoint) lg_high)
( Z+ D& |% f0 ~% H% [) l; N& Z
)2 a5 G1 T& x! F' B( a' p, z+ Y
)+ _+ B; U. |5 N, F" d
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
4 o# N. ~) g. Q0 r. H$ ?: O! ~
(cadr basepoint)! s* \* P' z) Z Y1 F: |
)
, P9 W3 c4 @! L# F
)( S0 W7 ~: M0 E( y ~4 I1 X* ^+ ~
(command "rectang"
9 y, u( d& D1 u7 W5 d) ^
basepoint
' C) |7 L* c3 s1 g" A
(list (+ (car basepoint) lg_width)
2 k R9 ]* Q' ~& X& z
(+ (cadr basepoint) lg_high). k3 |5 y& z! \3 z! W4 V
)
5 L d- B6 l* @, R1 ^
)
0 k. a; y4 j6 T: k, d9 @8 p- _
(setq L4 O' s$ O/ D
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
8 j4 I$ k! B" v! J" P7 n
)% ?8 R$ Q1 c! ?; o
(command "rectang", ]& d l2 y& e3 p1 F
basepoint x* q+ o# q9 k# P* v/ h
(list (+ (car basepoint) lg_width)
9 D, n7 s! m; \, D% O
(+ (cadr basepoint) lg_high)+ r: X+ _4 {0 l4 h2 A/ p
)" k1 [5 U. f, O4 W6 ~
)
4 E, X/ {, e9 A; z3 D4 r
)
( L" q) ?7 n+ F: S9 H9 i- G
;;恢复对象捕捉设置
" D, ]) b' w; l( L6 |* {4 q/ v
(setvar "osmode" oldosmode)
* v0 J0 G+ S2 H
;;打开命令回显, u0 @- K6 T. _$ B; t- Q7 j. n
(setvar "CMDECHO" 1)
; j( s2 R7 T/ W. a
(princ), Q# [ A" i7 J7 ~" ?* J
)3 A9 P8 {3 d$ u2 x& ~/ c7 A. p

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源