作图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 发表 ' h) i- X5 P' F
直线分段方式，a=a=2b
! [7 {) D0 ~9 w6 ^+ u 9 q3 r' Q0 |( o) u6 k; B

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 . N/ W" Z* E% z7 ~7 c; ^ c! @
/ d0 l8 }/ U6 d5 U1 w2 P) Z
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

% m0 i& Q8 x9 p! i2 C: Q' q5 n& G* O
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
$ X2 z6 w! w" o1 l2 J
;;设置栏杆高度和方钢宽度默认值
1 H/ C3 N" N+ n( u0 R8 m
(if (not lg_high)$ M$ o9 X$ |) D/ j7 F
(setq lg_high 5005 F, l8 W! F9 |5 g8 W9 r
lg_width 14
( [$ |, j9 O. Z4 B. e8 M
). X6 D( h) p1 @/ d
)
3 W" s7 ~! Z/ N6 m5 F
;;指定图形插入点
! [) R& V8 k' f& \( s9 f8 l S
;;不接受空回车- C# Q. I$ \! H" c/ U; j
(initget 1)
! G- k' Q) l# x# Q4 X) D8 ]: w; L2 L
(setq basepoint (getpoint "\n指定插入点:"))# F: e8 ?9 A- E! X8 ~8 \! f
;;指定栏杆长度和栏杆高度和(或)方钢宽度
( x5 w6 {5 I" P2 J+ o, J
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定0 o: F K* d4 l" G6 y1 T
;;用关键字指定栏杆高度和(或)方钢宽度后
" k; [. l2 v( D
;;需要重复运行指定栏杆长度的代码段
~1 x9 v) ~+ R$ |* r. e5 q
(while (not len)5 i1 l) w1 G$ [% [, ?) i
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值/ ^) n( L B5 x7 X" ?1 {
(if lg_length
6 |6 E0 C5 D. m) N) h0 w# [
;;存在默认值
6 v8 e" q( j3 L5 r& x! @
(progn
! _9 L6 s% W& |3 x# c
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"7 u9 v, ^3 ]6 @4 j9 I/ h+ N
(initget 6 "h w")
# ]/ ?5 h! R& `) r7 `4 ]
(setq len (getdist basepoint" a' [& j- o8 z2 {
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"# V1 G% l4 Z* f, o$ o: j/ K' ?
(rtos lg_length 2)
; m$ f! ` s: o9 N; v; D. S
">:"
" ]8 O$ H7 S, i4 y3 c( W
)
9 A9 E5 o9 J* ^' f
)
* X, G9 ^+ }+ Q
); e+ Z- g: b: J0 I; K; v
;;空回车时栏杆长度使用默认值1 ^; @" J2 p6 h% M3 u- m7 ?; J7 B+ H
(if (not len)" h- q R+ k- [: S& s, c# b$ e7 F
(setq len lg_length)
$ G v5 U7 L+ g0 w& ^7 w
)
9 X7 K. Z9 Y! o0 Z9 b/ X
)
" I P( _7 w0 c4 D- `. N" d
;;不存在默认值
+ f/ M& X6 o: w5 X: J& `* u8 E$ z
(progn
' c# R# z- _ X- s
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
( z- N7 r+ K& c" }
(initget 7 "h w")6 J% T, l1 A O5 c ]; t
(setq- S' L4 n# y, c2 T0 w1 F
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
. o1 y; W: M7 N/ G
)
! d" t& ]- `7 b1 }' |
)" \9 d0 u0 t2 U5 K% r
)$ `# l% S5 x4 C; W
;;检查用户输入的是长度值还是关键字
& s( v7 q B: V. f: g
(if (numberp len)
9 i3 z; ?8 o( x2 w; |; H- Y
;;输入的是长度值' W0 x/ P/ q- v$ i: K z0 ?0 H
(if (< len lg_width)
3 R1 Y7 L ]. z6 A i
;;当长度值小于方钢宽度时清空输入值重新指定
) f$ V9 B5 H+ O* p4 @: t
(progn
! K: g: q* B1 Z1 D) V( X; e6 I
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))% J& S& V6 y% z0 I2 k! {
(setq len nil)$ x' S5 z" W( I4 @# o" O- ^4 \* U
)
. ?) ?( ?; E1 @9 x8 p1 t% l6 [& G
)
9 G" t8 B2 Z, I3 j1 y
;;输入的是关键字6 ^. [# v+ S6 z: z% x* `$ i! q
(progn' @3 _$ b5 P, ]4 O: U
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
9 n+ ~% ~6 A( [+ f5 n: j
;;用户输入时接受空回车,不接受0和负数
" O+ B) u: _' s2 n) k0 Y' G
(initget 6)
& }$ U) Q1 u/ F7 U# T; d0 B
;;检查用户输入的关键字是"H"还是"W"; @& E* @$ ?) g
(if (= len "h")" e* S1 d1 T$ x5 ?0 t. O, q L, U S- P
;;用户输入的关键字是"H",指定高度5 X5 t" Q ~8 j' ]
(progn. L+ Z% h" o" z
(setq high
G% Y/ m9 @9 i2 R# f
(getdist basepoint; G! r# s$ Q, l& c& `8 m1 x' e# O
(strcat "\n指定高度<" (rtos lg_high 2) ">:")% \/ K0 r5 Z& _- R$ b. F6 O
)
( {4 I/ I2 r; M) L
)6 d$ ?" l- W( u3 ^2 u# H0 ~8 L
;;用户输入新的高度时修改默认值; f. i9 Z+ D/ n
(if high
% h& R- n6 c6 Q0 ^: k1 b; w7 N& w
(setq lg_high high)
3 H+ ~; G, S7 g4 c8 i/ P0 t
), I( L) s/ F- U# ~! H+ Q" S
)6 K2 @: s6 m( k6 j5 K p3 L8 L
;;用户输入的关键字是"W",指定方钢宽度1 p3 ~5 m( \4 b0 ~
(progn
7 }2 X' r& o& ^6 F2 T3 |
(setq width5 h) Y7 F6 ~; w3 C! i
(getdist% N3 }- k& v8 s# g0 j* C
basepoint
9 @6 B$ R1 Y, y6 J
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")1 O# r/ w, x% w! N
)5 E2 w. j2 q% f1 y
)
2 c7 V" T) `. P5 j0 F; w3 E+ p
;;用户输入新的方钢宽度时修改默认值9 q9 a3 y& S% U( o: [7 w
(if width
2 }. {5 E2 m+ M6 _1 g% F' D" A! [
(setq lg_width width)5 f& i* @" B y7 k* M
)" T* w! [7 |7 H; V0 U7 p
)2 r6 A; y1 ` b. B8 P( u
)
8 N" X; X/ u8 A" C
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度. g. z4 b. n9 M4 u4 q4 C
(setq len nil)
4 Y2 |& b8 e$ I9 ?) i3 F. E: v
)8 p3 s" X2 K) i( _$ N# Z
)( I' P7 D; Q* Q0 m- `
)
4 e& h2 d; A* h& P7 o1 g
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
& k5 |' B0 R8 l- H0 w, s
;;计算用户可以指定的花形数量的上限0 J1 R4 _% q8 l# P
;;用于下一步检查用户指定的花形数量是否合理& t' [' P, T/ J9 m/ ^0 `
(setq lg_length len, P' s, w! N2 m( N; w
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
" A* g2 E. }2 p- h/ }/ j+ w# y
)
( p' i8 [, ?( t$ C
;;指定花形数量或A段最大长度 h9 u8 d" [ E+ s& l U
;;如用户指定的是花形数量,则按用户指定的花形数量画图
" d$ I, |; M: T6 |1 ^! A
;;如用户指定的是A段最大长度
$ d* P8 O0 u5 l
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图* Q+ @1 v, i1 H9 J
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解1 U0 d; W+ [) U1 H
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
4 ]6 s7 {$ ^& }2 R( e# r
(while (not n)7 {+ L M2 m) l$ e2 E
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值# t5 ~0 @4 f8 D" ?) R& b9 X% T$ _- K
(if lg_n
5 K8 ^! X5 y- y( Y
;;存在默认值
( N/ ~% ~! E! M2 \! \- n9 j2 g
(progn
7 D: J1 M0 C- o) ?: a
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
# U, U' i# L9 D1 _
(initget 6 "l")
5 h$ O. \9 J, r# U& j3 P. C3 J
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
) a \! F: X2 D. _2 J
(rtos lg_n 2): ?0 ?! p6 j+ v% }$ q4 U4 D y
">:"/ d. S6 m- T7 i! Y: L
)
' O3 I: r2 {& d+ z
)
* U' C+ W9 s- l7 ^1 p7 o- [" e1 M. G
)
" K; d) j/ Q) m% {1 k
;;空回车时花形数量使用默认值. m, P6 }5 O8 E% A( W' f* f
(if (not n)
(setq n lg_n)" P U$ E) c' d) r X
)
+ V0 K, p6 d% N2 z; P6 F: y! i
)
5 p Y+ {# ~% e2 s2 U& l
;;不存在默认值
: u9 K: B8 X/ T/ ^4 m
(progn
8 q$ ^+ R/ E+ D) M1 N$ c8 T4 i7 }
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"5 C* P; K2 F7 Y% { U
(initget 7 "l")
0 w3 e3 W- h% }3 z- w
(setq n (getint "\n指定花形数量[A段最大长度(L)]:")): u* b1 `+ G B6 O' [- R
)& C5 C7 Q$ E& m0 b8 u* F8 N
)
! a/ E( B$ T& t$ }+ I; _ f4 m
;;检查用户输入的是花形数量值还是关键字
/ }% [3 s* N- n+ d
(if (numberp n)2 t* P6 x5 I/ x4 h5 H j7 M4 W
;;输入的是花形数量值
& S3 w B2 b& R+ @3 ]6 H
(if (> n nmax)% ?* _2 v/ J4 y- P
;;当花形数量值大于上限时清空输入值重新指定
+ Q7 u* P+ m' s' l% y
(progn( L; K, A' y# U. U" n
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))/ d$ W5 @8 t0 V! Z8 D
(setq n nil)
" N- r- H+ J/ E9 s6 m
)
' m# R% H* q: W' s
;;当用户指定的花形数量合理时存入全局变量
. |4 B6 {8 l* @+ A3 g
;;以便用做下次输入的默认值0 g' I' V7 e) I
(setq lg_n n)( [7 U1 J# [& d) X) }5 ]0 y
)3 {: s" f6 u6 G
;;用户输入的是关键字
" W/ `( b/ j7 r& D% F
;;指定A段最大长度& w2 S( ?7 O D$ H c( s5 U
(progn' r: a; I- Q# D
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
: l9 P, I( E8 K( N& X4 h, x' k* ^9 S
;;否则可能导致无解* W4 c5 D! Y1 T+ U x$ Y
(while (not amax)# O- u" i) p9 f4 C- d
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
3 [ f& ?4 `+ p7 ^4 ]8 e
(if lg_amax) U" _& z" c- Z5 c6 s
;;存在默认值
, z. b" M8 k6 k/ E5 f {4 n/ P
(progn
$ |/ Y- t" A( E3 H
;;用户输入时接受空回车,不接受0和负数
4 L9 g& c: k0 U, v5 i
(initget 6)3 k/ m; e4 H9 P4 Q2 z7 u* |8 _
(setq amax (getdist basepoint: I* g; T& P/ h5 a/ H
(strcat "\n指定A段最大长度<", G/ Z4 W3 Q, [
(rtos lg_amax 2)' J/ \( W7 j$ R4 G1 W* ]
">:"* }" r0 d8 j0 L7 q
)
& A2 m* x1 w- b! w) X- q- ?
). o' R+ ?0 Z7 E, J9 k
)- S, `6 ?7 c: H" E" l" {1 G; j
;;空回车时A段最大长度使用默认值
, m( e2 e; l& o5 N
(if (not amax)
, Z6 O' J7 ?8 a3 U5 g6 J" ?, q
(setq amax lg_amax)
l b9 M1 z8 D. |, z
)
6 i7 q& v& L j
)( A: B7 k+ }6 Z8 e+ e
;;不存在默认值
) i, \ |5 w% L& G0 b- o. M
(progn
# ^. K; _" m8 D: T$ z/ N4 K
;;用户输入时不接受空回车,0和负数
% L: z# |' u4 ^% X& w
(initget 7)9 ^+ r. k! J8 |2 a* a. L
(setq0 ^ H3 B* D$ f. R( L+ C
amax (getdist basepoint (strcat "\n指定A段最大长度:"))$ b8 w/ G$ s; I+ K+ J# y
)
# F$ M# `: I" d% O
)
/ C' E( H$ q6 o" c% @2 r) a
)
8 m: p b2 x, s( {# G" O
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
) K8 }4 F& ]; _7 L
(if (< amax (* lg_width 1.5))
E3 E& [2 s( H
(progn
* A I# H, y; r$ x1 a$ y _
(prompt (strcat "\n指定的A段最大长度不能小于"5 l% M$ \. c1 A0 ^% _- P3 j
(rtos (* lg_width 1.5) 2)
7 }: Z A/ H4 D" [$ H9 w
)
& r' X8 p8 ^8 G) Y1 ~
)
# d- Y/ r- ~3 g; P
(setq amax nil): i$ r% \1 K; E1 l
)+ i& @& e6 v6 N) @
)" z+ S2 o+ z; r* C) Z
)
! Z: a2 t5 Z) T! s, B
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值% Q4 D/ V& w+ ^6 X7 `
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
* O: {* V# `# J/ M
(setq4 R0 l. C* r2 o" k T; r
lg_amax amax
' T# M# \; W( r$ m( y& j# x
n (1+ (/ (- len (* amax 2) lg_width)
3 h2 Z2 W, Y% ?0 e% n
(+ (* amax 2.5) (* lg_width 3))
, D. ~ G% N7 A6 S
)( a, i% w) D8 E" X/ l
)
7 i" x. B) O* Z
): Y0 [1 t8 p$ M6 e% B4 Q
(if (> n (fix n))
3 ~+ O2 }7 d. |: T$ w! [
(setq n (1+ (fix n)))
$ e7 Z5 z; V4 ~) r3 Q" ~
)
# H, o+ b. @1 n) U* ~: p
(if (< n 1)
F! H$ \0 j. \6 J2 Y+ h/ V
(setq n 1)
! R. d3 D; \8 {8 t+ ~: P
)
0 E$ A* U' Z8 N3 W
)
8 [: F" ]- M3 D' R7 A0 s9 Q, A
)
4 t7 U; P4 y7 l: u% _6 ?& p3 c
)
' `9 H" u$ }+ {; o- L
;;画图
% Z4 m2 o& e( q0 m+ l t
;;记住原来的对象捕捉设置( f1 W* o A- |; m* i
;;按花形数量计算A值# B# y5 D+ i; s5 o+ Y) h* D
(setq9 P; g0 R; l7 W) g: B2 Y
oldosmode (getvar "osmode")
& G: I+ s8 e9 e& H5 D5 Y- X
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))+ x1 w' \6 x B. l: N+ n
(+ (* (1- n) 2.5) 2)% X4 `( J6 Z( T
)
h: z7 p# j+ u' _9 l
)
; ?/ `$ {& B3 R
;;暂时关闭对象捕捉8 r: Z z; f, k* c A1 [
(setvar "osmode" 0)
7 J" z# b8 O( n$ m! D: C
;;屏蔽命令回显
- ~2 {$ d" C! K3 T2 d+ y# [' o% r
(setvar "CMDECHO" 0)
7 Z1 l9 M' P3 s, x8 ^6 l
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形6 w `7 \9 ]' e1 w5 R: c- |
(command "rectang"
9 O5 c8 w: c v4 w f* u
basepoint$ D1 ^' {" x& ~8 c
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))5 W7 W7 j) l+ H0 c
)# L! R6 _5 T$ E; _
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
0 W9 X6 ?8 N1 [/ v4 z
(command "rectang"
9 j% v0 ]; l: X
(list (- (car basepoint) lg_width)& E" W2 {/ @, ]) F
(- (cadr basepoint) lg_width)6 o- a6 p$ {4 S, V1 L$ ?
)
3 b, s) S. r- q' W: o3 C8 ?: ^
(list (+ (car basepoint) len lg_width)5 V9 _9 w0 @* G2 H5 n
(+ (cadr basepoint) lg_high lg_width)8 k- a6 ~& B2 b7 l
)
1 \0 r7 e! z- |! D8 H* ]! X
)3 x: o# f, L9 {$ w! R
;;将指定点移到其右侧A距离处1 z) R* \" L$ Z1 W, r, l) P5 y
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))& a* q" e# R3 h" ^9 {9 m. v* k
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆9 f" t% T+ {' E- e$ F# Z
(command "rectang"
+ d2 J" ]+ q" D$ A4 T
basepoint7 D: p2 `1 @4 F) u
(list (+ (car basepoint) lg_width)6 D$ E4 N! p/ O g4 g! p
(+ (cadr basepoint) lg_high)
% Y6 E9 p4 Y& U. w3 G4 \
)
2 ~, {* T. d, `: q5 {+ b
)' f# Z+ j7 Y H/ T: f) ?# v
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)9 @( u, i% m; V% s' o
(repeat (1- n)
9 z, {) f4 j( _
(setq b5 L# ?! x2 O8 y- i7 ]! Y
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
% z6 x, v; S& N
)9 S, q3 ~( v4 N) N" q& U1 X7 ]% e
(command "rectang"
! V! _: Z& C2 U
basepoint$ |- q/ n+ E( w3 S* |: A
(list (+ (car basepoint) lg_width)2 I7 D% k* J6 ]- o) F8 G
(+ (cadr basepoint) lg_high)
)' x& {! L6 g& k+ D$ w+ B4 ?
)0 ]6 n8 m* r( K R
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)! S% N0 a2 }. [% F& J
(cadr basepoint)
" @2 m8 ]8 v0 Z! \2 y8 C7 B4 W5 _
)
- D$ V3 V+ }0 y
)
& Z8 W+ I& o W* c5 w! o3 U' C
(command "rectang"- e. N3 z4 p5 p4 ~
basepoint
' m& J: \( \8 G8 M2 |( I
(list (+ (car basepoint) lg_width)- e/ t& n# d) p2 B: e7 K- \
(+ (cadr basepoint) lg_high)
* `7 ]; J* R/ T4 e" j- y7 L
)0 M7 M2 q i5 Z/ Y/ S
)
- C* F# q6 s9 D |: T4 Q7 c7 ]
(setq
) Y, r$ v" f5 O
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
/ l$ {" l0 q" `; P! J( c4 i
)
( r ^9 A3 h( k7 B. }
(command "rectang": ~, t3 v8 s i& Q. M7 x
basepoint
/ S2 e7 F5 ~# } v3 t0 |
(list (+ (car basepoint) lg_width)
3 c1 D" i3 c; d8 J9 s; |. A+ U9 O
(+ (cadr basepoint) lg_high)3 e7 Y! K) u% b, H3 G
)- z9 P- f6 ?5 i7 Y t! O/ z& J
)
# Z" V+ A6 u" C/ J. N0 c
)
- G8 B& J3 m4 \
;;恢复对象捕捉设置5 Q' h6 H( s+ B
(setvar "osmode" oldosmode)
& @ @5 f7 V4 B) d' R* c
;;打开命令回显/ d7 Z+ w+ S, v
(setvar "CMDECHO" 1)
% v! d% ~: p3 s* G3 e4 C p
(princ)( I5 e! S/ X# w- V. }. v( I' Y
): G+ x% j3 A8 S) L9 B7 L$ ^

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源