作图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 发表
$ N( x% S* a: k9 K# ~ @4 a直线分段方式，a=a=2b
2 G+ [) a/ Y9 n! E + d3 O g+ e- T p9 H

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
0 ^) p' }& o" l0 P7 G& R( ^7 G6 n% O [' v+ A. s9 l& J1 \: s
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

$ t$ ]* A- J Y& a t
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
) B+ C( O7 A* F8 r
;;设置栏杆高度和方钢宽度默认值: N, w E, ]9 J$ R) v! x
(if (not lg_high)/ l1 v- n5 r# z0 b* d. O1 z
(setq lg_high 500
: N/ b/ z4 I; P6 E8 J
lg_width 14; n! ]5 C6 P3 u3 [, J
)* f+ X% N$ r0 ?5 F8 K
)
+ e8 F. F6 z% O$ p
;;指定图形插入点
1 M5 x" }6 }+ v! _* F
;;不接受空回车
: J2 z. u: z5 [6 j P
(initget 1)& t6 S8 c8 l' C) h7 Y- q: w0 z
(setq basepoint (getpoint "\n指定插入点:"))
& }" O6 L3 U8 D- F1 X. q
;;指定栏杆长度和栏杆高度和(或)方钢宽度
5 Z+ C0 U0 S; p# R! e
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定: M" `3 _% W2 _
;;用关键字指定栏杆高度和(或)方钢宽度后
2 y6 s* E( ]$ I& f
;;需要重复运行指定栏杆长度的代码段: ]( g8 e+ a$ S5 k) J
(while (not len)
0 `3 @, r4 V" q/ ^* ~' Z; e8 K. s6 ~( \
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
3 s: L* s+ h1 K3 K! h& ]
(if lg_length
+ v. n% w% n2 s# P6 D
;;存在默认值8 C. l( y! [+ P7 C) @' k. `
(progn
/ Z( [8 O4 h+ c
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
+ |# W/ ?5 s; |- c6 j1 F
(initget 6 "h w")
# C" O% |, S) t1 f5 N" R! {# H1 P
(setq len (getdist basepoint) U5 F! w6 p0 d5 x
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
" t. A; o1 _0 v$ b, ^
(rtos lg_length 2)/ t }2 q$ P$ f" j6 ]2 ~& L
">:"
! r9 U0 u7 Q, ~+ J. O* Q
)
- Y# I, ~. ~9 Y
)8 l& J: t0 ^( w) Y5 H7 E" Q0 [* d
)
4 P( }/ \1 ~ T8 {3 f" m
;;空回车时栏杆长度使用默认值. N+ A2 N" P6 {+ `% m& V
(if (not len)
. W9 C% G+ m' p
(setq len lg_length)" j# W1 h1 A! J3 F
)
+ a' u0 F/ w3 z
)* ~- E0 o: X) ~) w
;;不存在默认值7 R( e. j3 x9 d9 O
(progn% g% A8 [- `9 s2 r; E- Y
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
& I6 `* m. @. J, m
(initget 7 "h w")) O" D/ ?' P& S& q: z6 p9 H& E+ U1 P
(setq! X6 _6 V+ B5 @ C8 p! L! F
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
4 H% T7 z% L2 X6 S% G6 e
)2 V' U$ W, ~. k* @2 |
)
% w( S8 B9 S6 S% {+ m
)+ |: p% F# M) u4 j g* E6 [& Q* C
;;检查用户输入的是长度值还是关键字
1 {- O2 v) Y. A9 s. O& E
(if (numberp len)
5 Q l8 K/ V- z& \& h7 M3 A; d6 `
;;输入的是长度值
- O+ V) z5 t8 Y7 w5 t% Q0 k* B8 {% c
(if (< len lg_width)" I( u% d( [# u5 H) P/ ^
;;当长度值小于方钢宽度时清空输入值重新指定, ?) c, q9 p7 H/ k8 D
(progn
& a# z4 V& o [0 }
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
* d4 i/ ]) A& W Q6 i
(setq len nil)5 R& {1 Z, p1 g9 E- O
)
' R0 H/ J- m9 W2 U: z8 _
)( i2 s* R! \! t$ c
;;输入的是关键字3 l G6 n3 _9 |, R7 X& z
(progn$ s3 P- z7 w, x: {4 q
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
2 g0 c6 s3 v% a) n# o' |8 w8 T+ a
;;用户输入时接受空回车,不接受0和负数
& b7 Z( E7 N3 _- A. I% R9 V K
(initget 6) ?/ K2 K( G2 q
;;检查用户输入的关键字是"H"还是"W"5 v3 e6 a8 C K h7 |5 k
(if (= len "h")
: P0 [! T) V5 u4 D
;;用户输入的关键字是"H",指定高度
6 e7 W- J, J* H8 m6 ^. a5 G
(progn2 p+ w2 w% n5 E: T. ?" Z$ l
(setq high
' O. w6 c) J3 y4 R' D* Z! _* S7 F0 }
(getdist basepoint7 }' |. ^7 B' c: g; H
(strcat "\n指定高度<" (rtos lg_high 2) ">:")1 K6 y2 V6 b. G, p( v. S3 L
)
4 m& e9 f- W: \+ k) Q' U5 v2 a
)
4 o/ q$ O3 D# @
;;用户输入新的高度时修改默认值
5 r6 ]7 c% q+ S. p
(if high0 e# H4 N% a& h' _( F
(setq lg_high high), S c& R: _- I; r
)' }; X" ~4 P0 j
)
# p& m: _' @& H6 j8 ]
;;用户输入的关键字是"W",指定方钢宽度
8 v+ e/ R7 M# E. C& J0 i' d( F
(progn
9 |4 k" L l- @& o
(setq width
) e( r8 h* r1 ^
(getdist
: s0 i! k3 o$ ^' X* h9 o
basepoint
5 S4 O0 j4 H' y& i# F' o
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
) T9 r8 R3 [1 \
)
+ b j( O0 n! A$ I
)
7 S+ J* {$ L7 j
;;用户输入新的方钢宽度时修改默认值3 G4 D+ S3 H F1 i$ D
(if width6 { L: ]' o6 @1 W) v0 X
(setq lg_width width)( W0 p% Y! @; C( P; Y/ G- A* D% {
)1 \+ R& L% E0 C
)
4 I% L5 H6 r. s* j
)
- f: o. |3 }3 l" C/ V# H) C
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度7 I5 u% d9 W* l0 k
(setq len nil)
6 {; w- h) G/ k. u% u. i% D' b
)! ?/ \, b Q" _) S
) a2 }- ]4 H8 K I
)
) {: Q- L% i! p5 S0 i: ~" E5 Y* t
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
# F `5 ~6 K/ |. e9 S) S
;;计算用户可以指定的花形数量的上限% k# s8 L; o8 ~7 X1 v! ]) U1 ^) S7 i5 b
;;用于下一步检查用户指定的花形数量是否合理/ u1 O( b' `4 a$ e k
(setq lg_length len
3 C/ k' ^9 d/ }5 X
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))1 N S4 l/ L! T e) h7 D
)
, H$ l1 w6 n8 u5 |8 h
;;指定花形数量或A段最大长度
# W! z- _% d" E' {( q7 \0 Z+ C
;;如用户指定的是花形数量,则按用户指定的花形数量画图/ J, \- z" Q: R d7 E0 t
;;如用户指定的是A段最大长度; m" Q, T3 ]. }8 W8 h
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图, V) Q6 w1 i# K5 C8 z5 C
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解" L/ H7 m5 o& s2 Z! @( q+ Q4 E
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解; ^- Q. }* n) V
(while (not n)5 H c0 W3 j. W6 V5 N
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值" c5 y, R8 }1 U# C( x
(if lg_n
4 P/ H, `6 t# g4 }/ w, K& R
;;存在默认值
" ~# G3 i- o, q9 |- g
(progn& v- ]! I u% u6 m+ U( }& i, X
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"" b$ e! `. ^. \$ Q
(initget 6 "l")
6 j4 w u# ~1 n2 C6 Q2 }8 E9 @/ I% F
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
/ X' |) A) k- U8 H( \! o& T
(rtos lg_n 2)
+ ~0 q4 d1 H- m+ g
">:"
4 X% C$ d& m; Z& A, ]. t# H8 S1 i' c
)5 r( Q9 A- D8 @% @( F* @4 F
)5 s$ d& U6 g* c+ M8 {: B6 D* l2 u
)
1 h n; R) A" |# j
;;空回车时花形数量使用默认值+ ?9 X @: Z* Q, }
(if (not n)$ Q8 P4 H5 a; F7 a
(setq n lg_n)
. s/ _) Y8 u+ {" A: {3 g
)' I, u' k, p, H: v
)
0 T3 E4 I! i+ }/ d/ ^1 `
;;不存在默认值) s3 ~% ~" ~- v' x, ]* i" Q. u
(progn4 w2 m. N: {% O W) F% Q7 T
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"- y5 S) y( [0 l5 e" L
(initget 7 "l")
) X$ d% K$ D5 O
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
' `: S. s q0 P! c, R3 V2 W
)7 s. @" w0 H: z8 z& ?! `3 ?. }' J
)0 c' o1 o* q9 Y4 Z0 F
;;检查用户输入的是花形数量值还是关键字
: R# m% p" C; {. z; K( v( F/ K$ f
(if (numberp n) N+ Z- D! ^* d3 }
;;输入的是花形数量值
+ ^! i& r6 G Y# H3 f
(if (> n nmax). V: V8 |4 s) L% I( C: r
;;当花形数量值大于上限时清空输入值重新指定
0 p k2 Q+ z" p, x0 J4 S! C. e) [2 ~
(progn
k6 e& Q2 f1 X0 h
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
, _9 U/ ^- s- J s0 g7 X1 w
(setq n nil)" F, O3 V* Y. L. c/ R& \3 V. n
)3 L9 J; D) N+ b5 d4 N
;;当用户指定的花形数量合理时存入全局变量
( ~1 o8 U$ m( \/ Q- _ _
;;以便用做下次输入的默认值# D: [6 N. h; l3 S, p6 Q6 b
(setq lg_n n)
+ D) P: ]* b& X7 Q% s2 P- I
)) i& v. u6 k& e# J1 n; t& h( t
;;用户输入的是关键字3 s8 B6 }. j9 `3 G
;;指定A段最大长度6 |9 A6 K% o: c/ K5 ^8 i
(progn
* D& m: B& R1 A
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍4 e/ y( x) C, g* \$ R% a* S' U# J
;;否则可能导致无解
2 v3 u1 w$ }& t9 G4 Z q9 U2 l
(while (not amax)% A3 V7 |8 d; H+ o8 a. X* x
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
, D s! J4 u: r. k& h
(if lg_amax
# z; @- g E- m1 l6 b! f
;;存在默认值; z4 c$ a- j: G: R- u& ?
(progn% u0 p: B/ T- g! o2 I4 q
;;用户输入时接受空回车,不接受0和负数
3 y) \* }$ \) G2 v
(initget 6); y2 Z/ E# t* K$ ^3 A
(setq amax (getdist basepoint+ B/ j& t4 I) ?, m. a
(strcat "\n指定A段最大长度<"" Z% ?5 I. Q% A; k$ [8 i& q. `) X! N
(rtos lg_amax 2)8 j% E6 |! J+ ^
">:"
# k. h; W n3 a$ x
)
- o# ]9 ?: u! Y9 k" i# p" ]- Q
)
- E5 K5 n5 G; n' |4 t+ p
)
& s3 K6 J; X9 K) E0 Q; k
;;空回车时A段最大长度使用默认值- {& z8 F* E3 N2 c* {% I
(if (not amax)
- L* r% |+ ?6 u/ H% E; p: h
(setq amax lg_amax)0 G w+ J# q, b' R9 z, o) X
)
" i. }) p$ J9 P, V' L& z8 F( d, [
)' c9 f- a7 L2 l) ^, W
;;不存在默认值
: t5 k& F( O3 }( N& ?# P, S0 W* e
(progn
: D0 ~. }0 ]$ P* {
;;用户输入时不接受空回车,0和负数
1 a: H8 I# t+ X6 w$ U9 ^
(initget 7): Y; r- |1 X" n2 d' E+ W
(setq1 T! [: Y5 ?6 x/ @
amax (getdist basepoint (strcat "\n指定A段最大长度:"))8 h4 f) ?7 v, Y7 t" z, F' g
). l! P5 P5 K+ f! b) N E
)
7 N# d* b* e$ c4 X Z6 k1 D
)
6 q# c* o/ ^, N9 s4 B5 r& {( b# q
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定* n/ b' p$ D' m {8 z
(if (< amax (* lg_width 1.5))- x( k+ d5 H( F% Z
(progn- K! s' T4 s2 g) P
(prompt (strcat "\n指定的A段最大长度不能小于"" @/ @( x$ q1 f" f0 n4 V
(rtos (* lg_width 1.5) 2)
0 {, V- A% W# ~( Q! d
)
& K! H) |+ y h! r) f
)
" N; @) a+ J( }) f8 C6 S" o
(setq amax nil)+ q" N0 j3 E/ ^* M( p% \/ S* V/ Z
)
' O; w" ~. k( S4 Y
)# t8 a( a8 b% S( d* D
)- N7 `3 p5 n2 u3 a# W, d
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
6 w7 c1 j! x+ E! R N6 h$ X
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1! S1 N9 n, c4 A2 f4 x
(setq( k5 M0 T" o" \1 a9 \$ l6 A- l& C8 k
lg_amax amax
9 p" c1 ?* j7 X+ F
n (1+ (/ (- len (* amax 2) lg_width)
5 t( H$ E( J6 y2 C2 | ^
(+ (* amax 2.5) (* lg_width 3))
$ }/ ^. P+ a L* Q( l
)/ ^; N; d+ u6 e0 E) L' f+ b
)+ U" a) [' {1 v; `1 h3 A Z& k
)
2 }- |; ]' a* f3 i& G$ _0 ]% m- w4 d
(if (> n (fix n))
& b6 ^& d5 h* B# D+ T1 M
(setq n (1+ (fix n)))
8 d5 \$ V+ f. z* f
)' _1 o0 q* \' \" F& I7 o1 {7 c
(if (< n 1)
1 [6 I/ K3 f* d) w; E
(setq n 1)& ^ O" Z t0 e% x# G1 I& T
) P3 k& |2 k" i& J4 J
)& M P& g. J7 V( d' R n3 M) a8 ^
)* {, k$ Q6 s' H) i/ `4 e
)
# B9 B4 s r0 P# v/ r
;;画图; m8 r0 r" }: [* e3 m
;;记住原来的对象捕捉设置( Z- d( n1 Z. l5 ^! A, R/ q, O
;;按花形数量计算A值) Y8 @, o- P% s( z3 B: Q, s3 b
(setq
% V5 }. t6 c! I6 A! P8 I* u
oldosmode (getvar "osmode")8 e2 V ^: c+ y9 f$ l( r+ Y$ l- l/ S
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
+ V6 K6 f8 H7 o4 s% N" |
(+ (* (1- n) 2.5) 2)# b9 p" ^6 `4 R( {: p* X! T/ X
)+ D* E8 w: J: J( p3 o4 d, ]- r* S
)
+ n$ {# y! T X+ p& G; Q) g4 r
;;暂时关闭对象捕捉
9 k3 r' u0 v7 e4 P" Q# }! x
(setvar "osmode" 0)! t- |( `) h, C4 n+ f
;;屏蔽命令回显' N' p8 J6 b/ E L: ?+ M; [
(setvar "CMDECHO" 0)- f# K2 a9 {0 K" `$ F, m8 i
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
6 {" `( Q6 D0 }
(command "rectang"
% c, C( c f# O+ N" ~
basepoint4 Z+ }) V$ d% ~ [( M$ Q
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
0 q6 A/ Q5 q9 c5 `7 a
)1 a5 q/ t1 z5 q) e- w( x/ ?. K
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
" v5 p9 W2 ?) I6 L: O
(command "rectang"6 o% w; o+ s( W, U
(list (- (car basepoint) lg_width)
' |/ J% s" ^% z. r f0 ^9 @- K9 Y8 g
(- (cadr basepoint) lg_width) h8 s* A! f8 Z: m3 M& I7 C% z
)$ r( c- V! @0 q: z0 n
(list (+ (car basepoint) len lg_width)
4 R: _4 W4 p& A3 n# y% e0 n, ?
(+ (cadr basepoint) lg_high lg_width)
, L; M' @" y k1 E" N) Q% ^+ I
)! `1 {4 |7 o& u% Y% K- _, q
)
6 o2 w0 K6 Y* K- }% d. L
;;将指定点移到其右侧A距离处
4 M5 N- i4 I8 _! ^' H9 U: g( h
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
: K7 l& I$ q; z
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
# o+ R/ S. i" T `4 k
(command "rectang"& l' S# F& S9 ]& w) R" ]. `0 ^
basepoint6 }8 u& e% n9 h' @$ d
(list (+ (car basepoint) lg_width)
U, L! @1 K( U- U3 I m! C
(+ (cadr basepoint) lg_high)
~0 Q6 D/ s- r7 z9 N
) F) g) T5 J* i/ j$ a
)
, X& ?* M1 h0 C5 n
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
- S% u) q0 w0 }+ S8 x
(repeat (1- n)
( Z$ ^0 U" P; O# N3 s- k
(setq
) Y6 q& [- p" p2 C
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
% z5 e7 C9 s% T( ~2 W! Y/ T
)0 b1 [5 Q/ c+ G% z+ q8 n3 k
(command "rectang"
* u* j3 s, K. z5 K# D
basepoint3 r4 I- H9 n' M/ G" e6 R3 M% M% x
(list (+ (car basepoint) lg_width)
. I/ D' Y& L% W; V: G
(+ (cadr basepoint) lg_high)
. @$ r5 Q% ^3 }* h0 G# ?
)
5 w4 G) E+ [1 r& a! z4 x
)& r* S9 R7 a1 x# h! y9 C$ ^5 S* B! c
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)$ a0 S' @* \% s( F
(cadr basepoint)3 W7 p: D3 p; _1 K. p
)
2 x: S( C9 f! p' P6 t
)
. f! R' t0 \, {
(command "rectang"
) O7 ^. r. p6 E8 U/ }' x) d8 @; J
basepoint
/ I+ v5 X9 j+ Q2 g0 S h2 ]
(list (+ (car basepoint) lg_width)
6 {# I9 \/ R( e5 R- ~3 Y) A J
(+ (cadr basepoint) lg_high)* s1 ~9 J7 P8 J( e3 h
)
6 ~; i0 K# [' `. K2 t
)
; J1 c9 Q$ T& w$ R6 J
(setq
0 V" Y6 J+ u( e) q7 N- K
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))$ }# |8 D8 d2 P2 a! j" y
)
" d: G9 e& |" z3 r( h0 E
(command "rectang"; ~( S; G( |$ U7 h6 M5 Q8 a. g% o; [
basepoint! Q3 ?5 h+ \7 X0 H
(list (+ (car basepoint) lg_width): _- g8 y6 _- M) L* j
(+ (cadr basepoint) lg_high)
6 U2 G. h3 D2 T# c* v& k2 E& p
)
: r/ X+ X% i/ X( o* \1 A1 F
)4 q! P, d% i' D3 y0 O
); S6 H% }4 ?) H; P! y
;;恢复对象捕捉设置) p' @% y2 O3 m& h4 R8 b
(setvar "osmode" oldosmode)5 R. z) L% _/ L. d, ?& ?7 o
;;打开命令回显
6 M ]; X3 L2 x/ i7 i8 b
(setvar "CMDECHO" 1)
9 G7 {% j0 H" j7 Q
(princ)9 \# j. {7 c% _. Q4 v4 b y
)3 V; E' ~9 ^6 K% z4 W+ r: r* G& J

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源