作图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 发表 9 k0 w! g8 x% k
直线分段方式，a=a=2b9 |* F& K, |# Q+ i4 ?- x5 K
j Z# U7 _$ t6 l

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 - Y! x6 u) v; J; G" p4 p- S

5 W# c0 V2 J7 r距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

. r! Z$ f9 D" o. T5 @7 d+ w
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)1 h2 g4 o. W3 y" ]7 `5 B
;;设置栏杆高度和方钢宽度默认值* j1 Z, ]; B9 _+ o( T. K/ \1 ?
(if (not lg_high)
# `* u2 I6 w7 `# J; C
(setq lg_high 500
# H, G" g* e. v; Y; \ e7 f
lg_width 14
7 ~: b- h: s6 n2 F
)
" o" m* l: P6 j
): ^6 M% R8 v) y( V) {
;;指定图形插入点
+ Z- j7 w* H+ s) E6 ?; \8 d& O
;;不接受空回车
4 i: \) S2 N) O4 U
(initget 1)1 i5 i" S2 ]" ]7 F( \
(setq basepoint (getpoint "\n指定插入点:")), e" U1 F; [/ c5 V, P
;;指定栏杆长度和栏杆高度和(或)方钢宽度
. R, Y5 |& \9 M5 f, s
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
" {$ V& R3 y5 o% T, i
;;用关键字指定栏杆高度和(或)方钢宽度后+ g, o; {. M; m7 @2 G+ [- F
;;需要重复运行指定栏杆长度的代码段6 W$ U5 w# C5 M% p4 m
(while (not len)& T, }! T; t4 e- F0 o5 K9 F F
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值! @6 P$ g/ o& y# s
(if lg_length
) w3 G+ q" O( s$ j3 H9 b+ s* S( h4 h
;;存在默认值
8 E8 }! X/ F- }5 w& U+ Y1 r
(progn3 ]# T& O& E8 B9 C
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
! Y& a3 t' Z" z5 S, ]
(initget 6 "h w")
" a0 c* B/ ?3 @) { I
(setq len (getdist basepoint* i: Z+ \ k! p$ k9 e" Z
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"3 V6 y" J" z! T( e4 W3 _! D: k8 j
(rtos lg_length 2)
" z. x+ _" E) }4 H( |3 k1 U
">:" e0 y: P) X9 E$ i1 `. N$ j
)
" e6 w" g: Z S% w* e/ }$ I% [8 H! K
)5 @% z, }: s5 T& k- _! b3 U% U
)
; l4 _" X# P: c6 n
;;空回车时栏杆长度使用默认值; ~3 ~4 e5 q- O; c8 X6 @/ o9 S# y1 t
(if (not len)0 Z( l; D) p$ ^6 ]
(setq len lg_length)' m) P+ [8 d8 p+ z1 l6 Y
)2 Q% S- M& ^0 P- s6 v( ~! t" J* q4 }
)
H) O' V' n* r3 E- m* ~- T. Q
;;不存在默认值
+ [" ?4 {: z! n! m- }' x" @
(progn
! L- H/ i9 N/ s. F ]. U9 C% f
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
7 u- G! s& q5 V' C U$ ?3 d( b2 [
(initget 7 "h w")6 d3 S; a6 D7 F2 Z+ J) H8 N j
(setq4 i. d0 ]: l$ t5 Q. W3 U4 w" ^9 t
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
( T" T2 I5 E4 Z; O8 z8 I% C7 `, ]
) L( Y. T! T8 |: n( C( Y& u
)! s o+ F5 C- d
)+ @3 g7 k, q/ S0 v! M' u+ q5 z
;;检查用户输入的是长度值还是关键字
. C$ h# z7 M" I
(if (numberp len)
P& S4 Y1 O& P T
;;输入的是长度值
9 ?) z" L8 p+ D' i
(if (< len lg_width)( |6 h) d. d# M
;;当长度值小于方钢宽度时清空输入值重新指定1 `& B) J! V+ j- A+ D4 C1 i: d5 t
(progn- Z2 U/ V! i6 Q
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2))): s% W& Q- t& c+ h
(setq len nil)
`" E: \$ [: g" v
)
* s- q# ^- T$ y( h) N3 t* {& P
)
) i1 j5 P" J& h3 @ \8 P
;;输入的是关键字1 }2 n _7 Q) S) w0 W* P
(progn
1 W0 D4 W$ w3 z
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值/ U/ C/ w8 i+ t: a& ~! e' W
;;用户输入时接受空回车,不接受0和负数
9 w* { D- N& I8 l3 c" O# E
(initget 6)
4 r, b( r `5 n
;;检查用户输入的关键字是"H"还是"W"
1 ]6 l6 k( {! k/ `7 V+ S
(if (= len "h")
$ f6 r! d4 W6 @4 o$ J
;;用户输入的关键字是"H",指定高度
1 d: J6 f2 j3 t5 Y# y# b. K5 E! K/ {
(progn
, `0 V3 K9 j2 J5 g- O1 @
(setq high" p- F, E* y% t$ a
(getdist basepoint' ~( O: g5 O! B: j' k$ |
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
0 N9 v: G" L. `2 {9 x6 t
)
& G0 M5 @9 i( T
)
7 t4 k- I9 T" n
;;用户输入新的高度时修改默认值
" ], V8 C* y+ \) l) W/ {! ^
(if high9 ^% z) B8 _; \' K; _: q) G! N
(setq lg_high high)+ h5 c5 E. j8 A) W7 A
)
5 Q5 I1 r8 r3 A% W# G) v
)
$ I% }+ h0 s' B& I/ |) N/ Z
;;用户输入的关键字是"W",指定方钢宽度! b5 |# ]3 y: Z) ?+ T
(progn. r+ m% q$ p$ V: ?$ J" s# d) p
(setq width
$ }/ S v) `' y5 b* L4 C+ \
(getdist
" w* N$ u& N `+ ^- `/ P. c1 d ?
basepoint3 Y, D4 X; s. \1 B
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")" T9 B7 L$ T$ q- [- A6 ?
): _$ S( `3 }! \0 J( P) C) e: D
)
, G0 R$ Q% B( o0 D& `- w: ^
;;用户输入新的方钢宽度时修改默认值
' ?! j4 v4 t/ D6 R3 d' y9 I
(if width+ j6 o4 i. M- o$ Z7 ?7 L
(setq lg_width width) N1 y1 v" x% V n0 e. p
)( Y m. }$ U0 D
)
7 n: o6 h5 D9 M" \
)3 s- e7 S* _: `% |/ ~; }* U* z& j
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
* O7 ^3 U. T/ X+ v: k7 [) ]
(setq len nil)( U: R1 A% \+ d# O: E+ |
), t7 ]: {6 O9 y+ `- `! n) {" `
), G8 ^7 Y F8 u4 u _
)
( V, W, a$ S# k8 P
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
3 Z. v+ z& l7 G) ]& K9 V* _8 W
;;计算用户可以指定的花形数量的上限7 y4 x0 I4 e+ n& F" \5 U# T
;;用于下一步检查用户指定的花形数量是否合理: s( k' B( j6 ?3 A+ T6 R
(setq lg_length len6 x: T) W+ u; Y" ?8 h
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))2 e. n) }% ^, K5 d; U. X& ~, X
)
) f( |7 s# ?5 P. ]+ L
;;指定花形数量或A段最大长度
! m$ E. y4 ~% U7 c; a
;;如用户指定的是花形数量,则按用户指定的花形数量画图
* y/ R0 b; [2 z J7 p: ]; Z+ y
;;如用户指定的是A段最大长度 I, N5 H H' C; g2 O I
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图/ u/ n I6 N3 ^
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
& h9 i8 K! p9 F5 o
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解2 E, ~, l/ X$ g. T) A( Q
(while (not n)$ K$ F1 {4 x/ P. J" P8 H2 q
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
- s& A. H3 g( Q
(if lg_n4 i& c. G0 I0 F6 I ]
;;存在默认值
( t* D1 p7 I" d1 G/ K
(progn8 O o# A3 ]2 r
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
( e2 N5 S$ }7 {, @
(initget 6 "l")5 e. N; ]8 \ d
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
3 a" { [: N' f# a2 Z7 G
(rtos lg_n 2): P7 b5 Z" H# r' s4 C
">:"
* S- T: m, W7 |) f
)
% \: b6 ^6 t P$ l! E: t7 T* |7 u
)$ p, B) ?4 t" D+ Y9 b6 T
)6 a# _7 Y7 m: S h" i% Q" }
;;空回车时花形数量使用默认值6 s) {- C* Y) t) P( q: h# |
(if (not n)
* t! w, {: [! j7 |- O" o
(setq n lg_n)
U9 P( m; D ?2 ~6 i" {
)
0 x1 |* H# x( o/ N2 Y0 b) `
)
; P7 J0 m4 \: p; r0 R
;;不存在默认值5 b' ]1 ~. E5 w# o+ ^8 U( H. E5 l
(progn
! {& Q# y0 z) N( ?$ R9 {! A
;;指定花形数量不接受空回车,0和负数;可输入关键字"L", y6 t6 |2 ]3 v. n |
(initget 7 "l")
1 a6 ?- G) `) G( \
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
# [5 a \5 A; o, _1 B
)$ g& w- u9 I7 A; t {3 v1 |
)
3 M3 \% w2 k* i- f
;;检查用户输入的是花形数量值还是关键字4 Z8 j6 A+ t! l1 u6 T
(if (numberp n)
g. A6 [3 u2 i7 s; N T0 {5 Q
;;输入的是花形数量值# N5 ^. G. Q* t% L) w7 G
(if (> n nmax)! D8 R( o/ y0 Z3 }0 |
;;当花形数量值大于上限时清空输入值重新指定' h3 S5 ?; I0 m2 W6 A) Z8 `
(progn
% S, W( z" q/ A2 b- W5 f
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))* x, @7 ]! P6 f7 c g! B2 c
(setq n nil)5 s+ k; G8 @+ K
)
# T0 m" Q [! [5 D9 E# N2 S, H
;;当用户指定的花形数量合理时存入全局变量
& c+ B. C2 a9 A. Q3 N
;;以便用做下次输入的默认值. G% X# Y* e) O8 h! [
(setq lg_n n)
% s+ g7 T; X$ f+ B) e0 I- ^
)
' i: R' ]4 q- d- m: W3 P
;;用户输入的是关键字( P0 T( b, g8 M
;;指定A段最大长度
! t$ g' l* @8 Q/ c3 E [
(progn
' S6 ], k% Z# H
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
) V8 D2 o7 k( o Z9 n& ~8 _" T
;;否则可能导致无解
0 M; {- J. x8 h( o& E
(while (not amax)
' \. y5 p9 n: ~! F3 z6 y( U
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值& {% f" I- W! @. N$ a; M1 a6 X
(if lg_amax& V* ]- B8 H3 `# [
;;存在默认值9 @- _4 o2 E5 e) ^! P5 t7 g& ]
(progn
( @0 k! G0 T$ t: _; z* |, E
;;用户输入时接受空回车,不接受0和负数5 h! F z/ h+ ?2 v% X
(initget 6)* |8 W+ w" k' f& ?8 ~, \/ H
(setq amax (getdist basepoint* n; a! Q7 v5 \# a( Y( r8 v5 m
(strcat "\n指定A段最大长度<"
1 A: b, [. d5 `' N6 }% Q( Z! P
(rtos lg_amax 2)
9 K# `! C; C$ Q: `4 A; ^
">:"
# ?, m& V, J7 v
)5 S, U" {6 \8 N. K, N
)+ A7 y9 z& T5 {2 B; \/ ~9 ]! V) r
)* `; F9 Y! t0 ]0 V V! m* s
;;空回车时A段最大长度使用默认值 a, W& D" @8 Q4 v0 {6 |
(if (not amax)' B1 J5 |# s; i2 I$ d- x7 p# d! g: i
(setq amax lg_amax)5 B/ ~" R# E) a3 `* a5 N2 { m, R: E" D. A
)
: E7 r* B3 S2 n. ^$ L0 k/ y* ^
); w8 f. Z- k B9 d# i- z
;;不存在默认值
# C$ ]) Q3 s8 C4 \: q: E$ d4 Y
(progn
9 h6 U+ V' d1 j4 |, k8 R$ t1 y
;;用户输入时不接受空回车,0和负数
* t0 t7 l4 @5 i0 G6 E- d
(initget 7)7 P( n7 b$ C8 g# K) ^
(setq% }( H) J: ?. p
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
. g3 A5 D$ ]5 `5 A
)9 Y2 B" J% I5 g
). z/ b& L T6 Z0 z( ~; b! W( \; F
)) n) w' D' p( r5 i7 S: e( _+ w
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
3 |, t2 N; t, L! {
(if (< amax (* lg_width 1.5))
O% w$ `& q4 Q
(progn
j- I e, ?9 o
(prompt (strcat "\n指定的A段最大长度不能小于") r \" B; j8 b# C
(rtos (* lg_width 1.5) 2)
. l/ d" I4 D* s" {3 b
)* p& r& W$ t0 s; q/ m& f
)
. Q4 ~0 E& i2 j
(setq amax nil)
, W" a; c: y1 g9 @& C
)$ Q7 L0 u/ x$ _
)( b! s7 B0 a1 @0 E- M; \3 D: f
)
3 q' d2 E' x# I* q. H
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值, N+ O7 R' Y6 |! Y
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
- c& p0 h% o5 D4 R
(setq
" @+ W0 R# v" m
lg_amax amax- s$ K5 V5 G7 c: I+ j. _: Q2 N
n (1+ (/ (- len (* amax 2) lg_width)
2 M4 W; H6 {8 O
(+ (* amax 2.5) (* lg_width 3))$ o7 e0 u' r$ T* D* S0 I
)
7 Z# g o( [. o- ?8 h2 \$ E
)
5 J3 s. e# z7 }5 C& |" b3 l0 J- ~5 [
)
; Y6 ]3 d0 ~8 X& k& _) v
(if (> n (fix n))
4 Q( y# W' Q, \' L
(setq n (1+ (fix n)))4 M1 w7 {9 w* C# ]
)" ~8 K. B5 D: T4 O2 m) _( {
(if (< n 1)9 ]' y% {9 I& K4 h0 \! p* w+ S' a
(setq n 1)) C+ B5 g" f( o# k3 }5 }0 R6 e' S1 O
)2 x* f0 t* Z# }" N" {- ?
)* o2 c0 {4 M' {" S- l1 R( @
)* E* g- _$ g2 y. _, s
)
- Z$ _5 n+ C0 ~9 T$ f% g
;;画图! I* }6 Q4 N% e; G
;;记住原来的对象捕捉设置
( _: i5 M0 E z
;;按花形数量计算A值
' `- k0 J$ N5 R) M
(setq# C+ O3 R3 }7 R1 y8 X9 ^
oldosmode (getvar "osmode")3 j, }5 Q0 A1 m+ y4 r9 B3 p% s, C
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))/ F4 F) f! z6 E
(+ (* (1- n) 2.5) 2)
2 r# l! Q4 K) d7 S
)
# \7 k+ ?* K2 s8 q6 O% Y+ A
)
2 ?- O% m/ D. N
;;暂时关闭对象捕捉4 l0 g* a0 M. y' k9 n
(setvar "osmode" 0)
3 Z- P/ i2 \0 [6 D
;;屏蔽命令回显. K' N6 b3 Y* C' A+ q' `) e
(setvar "CMDECHO" 0)4 e4 X7 {/ B) w4 |* o
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形! o0 l; C7 x0 I) r+ J- A1 S
(command "rectang"
. m& \: ? ]" d& t, {8 L8 f
basepoint
4 J1 [; {. B7 U5 U) s7 W, ~% X& E8 y
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
" s* R' d" r$ t6 a
)2 n- }9 w1 j/ L+ C0 G6 g
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
& k. y: _( ]2 v0 Y
(command "rectang"
2 |, g0 {4 v: J- a6 O" X1 H4 Y
(list (- (car basepoint) lg_width)
- k. f3 `& s3 d6 }/ _ z$ J
(- (cadr basepoint) lg_width)* G+ R# ?2 K+ g5 l0 Y( v7 f
)
" m w ]5 y) W
(list (+ (car basepoint) len lg_width)* N k. V+ m% H- @1 X
(+ (cadr basepoint) lg_high lg_width)
0 q4 U6 E b$ x! O" L9 V2 p9 {
)% V5 A; Q' s* b0 C
)+ }2 j. p+ m; x9 R
;;将指定点移到其右侧A距离处
4 L7 x" ?) i# {( L& u
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))+ l- S/ Y* E+ c9 s. D. l
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
$ l+ K) [4 }5 S
(command "rectang"
$ D$ p+ E7 r0 _
basepoint. W2 c* I* g+ d2 b7 R
(list (+ (car basepoint) lg_width)! A7 r) i3 e' ^+ T d# j
(+ (cadr basepoint) lg_high)$ A j+ R9 V1 ~( ^4 D' U
)( U" r# q' I# K! d. s b) ~4 C
)( N- J4 v6 g: ~
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
- ^; `, Z6 s2 l% s o% w- B$ c/ H
(repeat (1- n)
7 i0 R% w- o+ O7 v& ^- n# T
(setq
6 m0 Q+ q- c0 `0 @
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
m. |1 }( v( A5 T p
)% ]0 T( k _6 | E3 Y4 F6 c
(command "rectang"$ U, N- j& R* L' f4 s" N6 G3 C
basepoint
& S% U3 i* d% A+ W" h
(list (+ (car basepoint) lg_width)/ T1 s; e9 C3 o
(+ (cadr basepoint) lg_high)
( N5 |8 o8 u( z% ]/ X
)
9 m' D, l* w; t4 y7 W0 W V3 o
)8 m2 k3 r. s+ A2 w9 s6 E0 d
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
% C, W/ n0 a7 M# n7 N4 z7 s9 K# O
(cadr basepoint)( E5 U6 W) G6 S
)1 @0 Q" B. X6 K( N. j! _/ K2 Y* U* C
)& s; x, K. Q: P- z) ^& B5 z
(command "rectang". P( S- d. i2 q3 m
basepoint0 B5 D% t P; }6 S( \" Y
(list (+ (car basepoint) lg_width)
* l2 e" |+ a1 J0 F; M" U5 V
(+ (cadr basepoint) lg_high)
3 A0 d' s& t4 D" u& k* O5 j
) Y, ]2 D( f9 ?( B5 w9 O2 k/ T
)3 ]5 F4 j/ ~0 G% E6 E: o/ D6 v
(setq l( {& n0 n' u4 c/ |8 o
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
4 F( H# M7 u8 Q9 R; V/ ?
), }) p2 k7 o$ f" E+ R% I; p
(command "rectang"
8 H5 q9 C; s# C" O& I; U
basepoint
( l* w7 e# ]% _/ \$ A
(list (+ (car basepoint) lg_width)- c6 |! g8 B# u( L
(+ (cadr basepoint) lg_high)
2 U* n9 C# E/ \" o
)( n& l2 L# d- S( G% j
)
3 i: {9 E' C' F' y
)
2 ]8 _; o. k: v3 w" T, C' s
;;恢复对象捕捉设置1 S. J+ M: ~9 b& b# W% x
(setvar "osmode" oldosmode)
) ~/ |3 a/ v* g
;;打开命令回显( N( H+ Y8 u# { X
(setvar "CMDECHO" 1)# B# h n/ G# s
(princ)8 N# i' L. r S/ V
)6 ], j/ w* b. J- ~

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源