作图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 发表
: c9 s, |! i0 r3 |; M0 k直线分段方式，a=a=2b
9 U2 ]) O2 [+ c" ]# B * `+ @0 @9 k7 E/ M, z, ]: A" X

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
0 D4 J! p. `7 t& E) M
! s# G4 s+ {7 c3 D0 @距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

* R' x0 P$ O/ S( K+ T; `" S: p
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)# G/ L1 ?: G9 o5 s5 V7 a
;;设置栏杆高度和方钢宽度默认值
9 X; r6 t; I5 U" x) ?1 V
(if (not lg_high)
+ ?& _/ f' }* y: l+ q
(setq lg_high 500& m* b7 s$ K3 u3 \9 k% G N2 N4 k
lg_width 14
# S3 K9 Y% {' Y, p7 }) g+ e, M) ~, o
)
6 y) y( o. W8 |# q, \0 H4 s
)
) \; c `+ q8 S4 H6 |0 N! {
;;指定图形插入点
& ?' u) d3 A, }2 d( Q
;;不接受空回车! ?7 x3 ?9 l2 O A2 C) {
(initget 1)4 n# n. b% Q5 o: y- h: [! f K
(setq basepoint (getpoint "\n指定插入点:"))
5 T5 j8 J# `) u% ~ X3 s9 g6 c n
;;指定栏杆长度和栏杆高度和(或)方钢宽度; P# o' z$ p/ d/ @
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
8 O5 b. K! f& m! ?( I
;;用关键字指定栏杆高度和(或)方钢宽度后3 [5 X! g1 z& [+ l7 u
;;需要重复运行指定栏杆长度的代码段
6 {7 |- Q2 B5 O9 _) H1 K5 E
(while (not len)
0 W% p6 r2 t, f* N( u
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
0 E. D i0 r. i3 l* H, o1 T5 B
(if lg_length; _0 x$ B' t" D; U7 Y4 e* V
;;存在默认值' V/ R$ x; l: L
(progn5 U. k5 U6 p+ V( w
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
# l( A7 m! E7 o! K3 q# }
(initget 6 "h w")
, P! R. |/ u9 j' u
(setq len (getdist basepoint
+ z0 s9 q3 m! G% z. k6 S4 y2 i
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<" C* ]+ I* l7 {# ]% }* a3 a) ^; X% u
(rtos lg_length 2)4 a* F6 P( y1 m, K
">:"! ^( a( s p- h+ ?7 x
)9 t. u4 X4 H) h$ H* x9 t* h
)
4 P( r2 A7 k* h
)
; t, {& \! D3 C0 u' O
;;空回车时栏杆长度使用默认值6 F- T2 |, G+ C) f& s @# j
(if (not len)
# G2 F& e& [. y' ]+ L8 ~( P
(setq len lg_length)& h* p6 J( [. u3 d# D0 Y
)9 ^% c- m( G4 P) R2 V" y" g8 j1 S
), a: l! a& o% l
;;不存在默认值
1 X" G7 K9 @1 E7 s
(progn
$ [: j) l: {2 _; H
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W", Y: \9 m9 G1 S& O; G8 b d- d
(initget 7 "h w"); V! ~' ~) z( m
(setq! q6 e% D# ~' O7 e% w: F
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
! X# s* Z: M* _2 ^$ o8 Z
)
+ H, C3 I3 v% |( A
) U# G( y* q- Y2 s/ w
)9 y0 w& P2 X! Z) M6 X8 F
;;检查用户输入的是长度值还是关键字
# x' h0 H2 `. t5 L* s; L v
(if (numberp len)
; L# a" N7 w. f. _. N/ ]
;;输入的是长度值 G4 Q+ W; w w v0 A" C- r
(if (< len lg_width), O8 H% b0 k7 E' c' Y) J2 z j
;;当长度值小于方钢宽度时清空输入值重新指定% N& D7 s. |9 w f, H6 B3 f: a8 n
(progn( d4 a" {0 H0 n: v) |! `' w
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))' P+ A+ Y, e- K: w2 Y1 ~5 @
(setq len nil)) a7 R- z- S* h( B6 M- z
)- G! _9 B; y9 b4 _
)
7 x$ N9 r! s Q" R5 `
;;输入的是关键字3 S# W' D: e; H9 c* i/ K6 R
(progn# D7 U% r7 F8 s! P% ~: L
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值) d7 `7 \0 Q/ ~8 H# x* t
;;用户输入时接受空回车,不接受0和负数; `4 F8 h/ u4 P5 h) Z+ d, Z9 ]
(initget 6)
3 N4 j- [! Q+ P. ]. `
;;检查用户输入的关键字是"H"还是"W"+ `( u; }2 j. ~( b% _ t8 p
(if (= len "h")
$ X/ N4 x0 _, M0 \: T
;;用户输入的关键字是"H",指定高度
, y5 ?- _ B5 J7 u; g2 g
(progn
4 r0 a5 \7 n6 P& F. F
(setq high4 J, n! {5 Y5 V8 \! L2 R
(getdist basepoint3 j2 j5 T- `8 \5 ~
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
3 @5 ^) |6 p: F- V8 j% N& J! Z' d
)) Z/ J% Y* ?; n2 {2 h
)
! I8 z L3 I6 }8 n0 a
;;用户输入新的高度时修改默认值& w9 t/ f1 h. A. k; K
(if high
1 b. F7 d6 Q! m5 _8 e
(setq lg_high high)/ w5 |# {$ J/ c: p5 _6 R
)
1 a/ a6 H4 \$ o9 g/ Y! B' ~
)
# i+ ?, ^7 ?) W. }+ o
;;用户输入的关键字是"W",指定方钢宽度- Q6 s* I' @9 W
(progn
3 \7 ]2 a' t4 c6 k
(setq width; C$ Z3 ]% H2 |# ~
(getdist+ }3 P' C5 l( w3 n( P# z
basepoint2 h+ |/ K# g) S
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
5 d0 Q1 M1 Y! _
)
' `* t8 i' R. N3 b3 A% b
)
- N5 }9 s' C# `: [
;;用户输入新的方钢宽度时修改默认值' {+ s a/ D8 d) t+ |- L( O0 Z
(if width
+ {; c" [# D V) R9 [1 \8 |
(setq lg_width width): J! R; l5 B# {9 x: F
)( q, q/ g: ~. v' r. E
)0 I& w/ a" ^0 w8 O
)
( d- W k t8 ?0 h. @& K
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
$ x$ ?/ S. j8 W! g$ h8 h
(setq len nil)5 f4 j1 W( b5 Q6 M" P* j/ o5 n" p
)
% M& F* T2 h* R( N, R
)
O# g z; l( C$ G3 l
)9 R x, q! {% K/ J1 s3 G5 a/ i, {% U
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
0 G4 L7 X' p2 ?
;;计算用户可以指定的花形数量的上限
: C! H$ {1 B! g. u9 J1 B
;;用于下一步检查用户指定的花形数量是否合理- y" I9 B8 `) l& |
(setq lg_length len
H1 z/ F8 w6 R
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))3 e Q2 M0 a$ T8 t% N
)
8 ?" C( e9 \( c9 e9 U$ `
;;指定花形数量或A段最大长度
6 j5 _+ u6 c& h5 q5 l$ C
;;如用户指定的是花形数量,则按用户指定的花形数量画图. s/ p$ m: B2 C4 b0 u5 L
;;如用户指定的是A段最大长度0 b' j, R- d2 m6 X O
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
' q' L h% U6 Z5 d9 F% Q
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解8 D7 y5 T J6 Z" n7 B! r
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
# I2 r% b4 F( S
(while (not n)' e* v* l9 f) g$ \6 c3 d( [# d4 ?
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
- c/ s& l/ F) _9 S! r2 d" A
(if lg_n- |1 Y7 @, w8 F I7 [
;;存在默认值
1 h* Y8 G* r1 H; C3 X1 e7 }
(progn* e% U6 e4 U; l' A0 A+ N
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
. I# D+ u3 m6 t3 \
(initget 6 "l")$ p, W& {& R( p: K8 L" Y
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"6 h0 y; |% h* a6 {- ]& C2 }
(rtos lg_n 2)
2 N( o1 A7 J6 u0 _. H; M$ v
">:". m/ W. i- X5 k) g! t" Y2 G
)# C7 m: H# u% e
)" y/ G+ d1 z8 x% u- H) Y. z
)2 X1 Z7 ?5 x+ J9 J4 Q1 j4 w
;;空回车时花形数量使用默认值) O; B4 _6 ~& r: S5 F5 X
(if (not n)) M6 N% E- u7 q. q
(setq n lg_n)5 S4 O! m/ u0 q# k
)
1 n# r" W8 A, e; I* Z
)
9 {. d7 Z' t) C$ a9 n; r
;;不存在默认值5 S8 b; {4 p% `$ J, j. Z
(progn$ b N) Y" ?# A0 Q$ j% J
;;指定花形数量不接受空回车,0和负数;可输入关键字"L". l, a) n- _# ~! B4 R
(initget 7 "l")$ N" o" [' L6 J1 D) P
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))$ i$ `- s) ?; e; f1 `9 v# Z
)3 D7 ^. C5 v8 S' B9 u
)
& [: G' m" U y
;;检查用户输入的是花形数量值还是关键字
4 n% T6 d4 ]# [ R: }% V) D* e& I
(if (numberp n)
) Z9 y& i& L3 R
;;输入的是花形数量值
# x$ g& T( v0 M& x. |6 @
(if (> n nmax)6 F# J6 d" V3 z |" N* {
;;当花形数量值大于上限时清空输入值重新指定
( q+ Q8 J+ B/ j; A* |' w6 ]8 X
(progn
2 t" M) e$ o( O0 a8 {$ g8 [+ ~
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))& w. Y# e k( T0 u5 S3 G# P/ e
(setq n nil) {0 c- G. ^& ?
)4 d' U5 z3 r4 b% k
;;当用户指定的花形数量合理时存入全局变量
. G1 n/ y+ \* B! D Q5 `
;;以便用做下次输入的默认值
+ W) t, B5 H6 z+ G# ~
(setq lg_n n)
/ }3 s* Q7 e* ?7 {0 o: L! E
)
' i8 s/ A! v# @. y0 m. T
;;用户输入的是关键字
5 R, v2 [ e, X8 F3 D
;;指定A段最大长度
- F; y3 `: Z# s; l# B1 m4 j
(progn
" w' x9 L D( |+ G+ [$ `
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
7 g1 G/ ~- m' j
;;否则可能导致无解2 F3 P8 |" D5 A% U3 @' J
(while (not amax)5 J+ \9 |3 N2 S6 `1 c( J
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值7 g% ^5 X4 R7 r
(if lg_amax2 s, C6 t4 P$ T# Z
;;存在默认值# ?; |' S8 V* p' A6 ]+ L
(progn
) ^& W( l$ f4 \! \
;;用户输入时接受空回车,不接受0和负数) K) ~2 ?% A) P! K. y' j
(initget 6)) r9 t V; x0 v5 L) H
(setq amax (getdist basepoint2 \+ F% P) A6 ]) K/ |
(strcat "\n指定A段最大长度<"
" x2 \# t8 B1 x) {) n
(rtos lg_amax 2)
; B6 W% ^" ~, P6 [0 S/ s
">:"# j. o0 e8 ^+ j' }. L' T
)
/ l5 \, a5 {9 m2 o: C
)
+ o* ?8 s. @# Z: I, x3 w9 _
)9 k* O% y- s6 I
;;空回车时A段最大长度使用默认值4 r% q" A2 c( h. K4 H: Q6 P9 G
(if (not amax)* `$ L& c# R- ]8 ^5 m6 @
(setq amax lg_amax)
4 _7 s: X) Z6 Y
)
. u" {* y' `5 e1 U2 e
)# h/ d8 b, `$ a+ [
;;不存在默认值
" n/ X5 M" B% E1 q
(progn5 E. U% t# C* P
;;用户输入时不接受空回车,0和负数
* b- a* ~- Z. T
(initget 7)
1 c2 _1 z8 s0 m" H) H
(setq* J G$ O) p1 h7 J
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
5 d+ k* O/ s! O, E9 z
)) H' r" t" A/ ]+ g9 v# s, ]" L
)' c! N% C8 s7 [6 U, O0 x: j }
)1 ], l9 f# P7 t
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定 w+ E$ E" w$ b$ h. B! ]( e
(if (< amax (* lg_width 1.5))7 Y5 Y, c, v$ L+ T4 \6 H
(progn
+ A; A6 C6 \3 b' Q0 X
(prompt (strcat "\n指定的A段最大长度不能小于"6 Q' E' D! ^! G- j
(rtos (* lg_width 1.5) 2): U7 r6 Y8 W4 h' R: o+ ]
)
1 D+ u& u( x2 Z, C8 O7 z6 v- W( N
)
6 k+ P1 x6 J0 t8 P$ S# N5 k! T) d
(setq amax nil)
2 B5 s7 O$ h2 E$ ` E
)1 p2 t- d6 Y8 L# e8 U9 K7 a1 `
), A e: w! X& a! ]. V& x% Y
)
( d: m8 i/ B8 G1 Z
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
$ j2 b8 x# O! x2 b! c+ H" a
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1% P0 n, E8 q" ]$ x% n+ ^
(setq
, S" u# T, u9 |, [/ L
lg_amax amax
6 Z8 P& J" o# [, B
n (1+ (/ (- len (* amax 2) lg_width)5 I; ^/ A5 n% W5 C. z
(+ (* amax 2.5) (* lg_width 3))
. t6 \! g0 k6 z" F/ `* a
)
& P2 }3 Y5 G1 K0 b) d' X
)1 q1 q/ c0 J* Y5 @. o0 M
)1 f3 A5 D. O( w+ h
(if (> n (fix n))% e) ], `. R5 E7 m$ U7 G
(setq n (1+ (fix n)))
% O3 d5 G: h1 s, ^7 ^9 Q9 g
)
1 Z2 g T! `3 N" j% J
(if (< n 1)
+ R$ ^6 C1 v2 Y5 }/ C2 C. L" G
(setq n 1) O, K3 Q7 C6 u8 n. K
)" M; e/ h( E- E$ p
)
; T1 g, U4 G0 P, q4 H3 l# Y" ?
)0 K: Z! F5 P% i) r9 u8 | H
)
) `; w8 ?8 j% a% g0 _: {+ x ^& S
;;画图
6 V9 E; S9 [& G5 `# W) O4 e% t
;;记住原来的对象捕捉设置
) Z) r; S1 n T% `4 }
;;按花形数量计算A值
' ~# z0 g1 s( z2 o2 o2 z
(setq
' [: f% c4 l: N5 S$ g
oldosmode (getvar "osmode")
7 o+ k! \6 i) O5 c, c G! }
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))* J& @5 A. O# w
(+ (* (1- n) 2.5) 2)
( @6 ~% w; Q* t; _0 N
)2 i0 X4 H. h2 q- c2 ?3 Z$ W
), x, e+ ^1 y( H! ^# h( w. i: K4 R+ A
;;暂时关闭对象捕捉
% e* t( Z0 o; S" ~. p9 \. b
(setvar "osmode" 0)
: J5 I. |/ V6 S3 Q% y& X7 ~4 }) F
;;屏蔽命令回显
; k! a. W X, q# b. C
(setvar "CMDECHO" 0)9 V" R! B) ^, @# @
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
! i/ V" A M* {
(command "rectang"$ \) K- G9 V" t8 `! F9 B
basepoint
/ S0 X/ f8 Z4 W1 V% Y
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
L6 x" x" C# |+ X; G- C
)$ }/ ]# _: ^3 I& q, C% ~ e3 K
;;在第一个矩形外侧一个方钢宽度处画第二个矩形" G S4 O0 K' c8 t( Z9 x5 e
(command "rectang"
/ Z' a6 ?0 F; b1 b$ g* f
(list (- (car basepoint) lg_width), {5 |- k, k7 {0 L) n8 ~/ [) Y
(- (cadr basepoint) lg_width)- Z, q1 c7 \+ {% w
)
5 R9 p# @4 {# g! i
(list (+ (car basepoint) len lg_width)
" U6 w% t5 {8 Z
(+ (cadr basepoint) lg_high lg_width)! X7 d$ M# }1 j) ~* T2 Y; ]) k' W9 O7 O
)6 L+ i& l9 |( X8 P/ Q9 v
)- p- Q' H: F2 d @/ T. }
;;将指定点移到其右侧A距离处/ @( U7 R- P& v$ i5 k( ]( D
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))- L+ v% B! h; O! X. j
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
9 o: L* ~ M' Y8 A: c
(command "rectang"
. y9 e% Y- d8 S9 x& Z# V% B* B. Q
basepoint
" x: N3 d& S2 d& |4 V3 e* G2 S" N. Q
(list (+ (car basepoint) lg_width)
0 u. L$ _5 H, Y# ?' Z
(+ (cadr basepoint) lg_high): R* q w+ W$ v6 B$ s: [
)' ?7 ]3 G3 [$ c+ _
)8 p3 f; Y$ ?$ E$ V8 r! q8 d
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
~% d4 F7 c. s; Q1 K, K
(repeat (1- n)
3 B0 t9 A6 u2 y2 b$ a
(setq
r. Y/ ^$ f$ G d$ ?
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
/ t( H' ?) Q* w- T% c3 h' T
)4 o3 L- ~9 \! f2 f' O' d4 }/ U2 L
(command "rectang"# p: z5 D3 H2 ^' P3 {) i
basepoint- B& P4 i: F0 {, F; s
(list (+ (car basepoint) lg_width)
$ I7 s- L# d- R, Q P% F# [
(+ (cadr basepoint) lg_high). R+ Y2 ^& o* d
)
/ Q9 m/ @. Q+ a: x6 Z/ _
)+ v# K! M/ w6 Z/ [ ~# q: D ~
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
& v- J% }3 o& Q- q
(cadr basepoint)
9 ~7 B- O, x" I( E& ^+ i
)5 s: Y D( q& x8 e
)
: u- X- j; @1 s4 ~
(command "rectang"
& H+ l K( r5 ], e; H% `
basepoint
. d7 |, y5 V0 H X/ l
(list (+ (car basepoint) lg_width)
5 d$ ?# N: E, w' a
(+ (cadr basepoint) lg_high). @4 E" k. h6 r- E1 v9 f* N
). H2 Z* L% d, D
)$ b4 j6 l1 ^* K U) p$ y
(setq6 x0 l/ o4 `& G* R( {" I
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))1 F' s+ @; u" D% ^/ D1 M
)
% w& B1 P, n4 p' _
(command "rectang"
) l) S' T- f: D. X/ u. R2 x5 v
basepoint, ^' z0 j+ @: M
(list (+ (car basepoint) lg_width)0 g, a. w9 P; n/ J4 G* q; a
(+ (cadr basepoint) lg_high)
0 S5 t. Q' L% U! y$ M- u
)4 t q9 V0 w) @, `2 H3 f+ i8 ?/ I
) j( v1 L6 g! h4 H7 g6 q- Q
)7 P4 o4 B+ S# G E
;;恢复对象捕捉设置, L0 Q* m! p" @/ q, d ?3 j
(setvar "osmode" oldosmode)
) Q8 J9 B7 q. y6 T
;;打开命令回显. H' b* G% E9 K: i. y6 J% a
(setvar "CMDECHO" 1)
7 O1 c: z2 N' q
(princ); g1 V. p% E8 v( C. H) x
)+ h& i' U2 r7 E8 S; [

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源