作图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 发表
+ Z$ q5 _8 P/ n1 \直线分段方式，a=a=2b# |; G! L: F7 E2 ]
- i w( B' y4 w! X

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 / N/ N8 U8 D0 @- s
8 C: v9 v5 f( ?" ]
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

j* T5 \1 J3 _6 N7 M, s2 I
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)3 u. j- a- A& Q3 t1 o1 @
;;设置栏杆高度和方钢宽度默认值1 c" P. ]5 A# L0 O
(if (not lg_high)+ c( w1 _$ @+ o# Y7 W! g
(setq lg_high 5005 m2 z4 z* c% b( j) m2 E
lg_width 14, G& B' [9 F4 v
)
8 f4 D0 B1 W& u; J* R
)0 I1 p3 L/ `* ] \4 U S
;;指定图形插入点4 t' ]! g0 e) C+ T3 s5 T# @
;;不接受空回车
+ e7 i" g) E, A7 N) [+ S2 T& I% E
(initget 1)9 v/ e, w* Z& c( c) {; n# c
(setq basepoint (getpoint "\n指定插入点:"))
/ M# A c( _6 ~+ X' H) G! P2 s
;;指定栏杆长度和栏杆高度和(或)方钢宽度
6 P* c& v8 J1 g' X* w) w1 a8 I
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定/ @1 ?5 j$ r$ X" [2 f
;;用关键字指定栏杆高度和(或)方钢宽度后& g# q0 d' i; J* j
;;需要重复运行指定栏杆长度的代码段6 y- W+ Q2 L1 Y+ p9 ?! O
(while (not len)% M- I: E* |% s. ^ v7 F/ ~
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
# D' d" w1 n" z/ u, F' U
(if lg_length
% u( o( p5 u5 n. e( E9 X' E0 P
;;存在默认值
( B1 L c- N5 ^8 i. h- _# o8 b5 o
(progn& ?' G4 Q1 O8 w$ {1 s+ t4 U5 M
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
( Y. [& [1 |. r, B
(initget 6 "h w")
; K9 Z6 I6 y: p Y. p5 G) d
(setq len (getdist basepoint# y' P6 Y% ^1 j( U: K" L3 z
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"2 _! ?5 ]; V) p" {
(rtos lg_length 2)3 ~1 D: J g& G1 U# y
">:"
) v% F$ P# y* }- z
)0 R+ b) n, o& g% V- I) ~
)
* u2 Y. F9 |# F$ k l# y/ \* d
)6 M* y$ u5 f3 ~, \. L
;;空回车时栏杆长度使用默认值
0 H+ [2 g5 K5 g. S* [
(if (not len)
$ q, p1 M- w A
(setq len lg_length)
% o. Q* i$ x- h" e
)
. t; X2 L, y; C8 G* x# O
)# `9 @6 d# O* M" l3 n# L' s
;;不存在默认值
$ X$ x$ u$ b5 W6 p; n0 W
(progn
% V7 |. x U& i; h: ^" G! d: R% s; v
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"+ D& B$ m8 h/ z
(initget 7 "h w")
6 {( G6 d& f4 r5 X
(setq
3 r. G/ X* ^( h9 V3 C
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
6 A9 S, B" W; P! v) P2 S5 ~
)
6 S% D. t8 k1 { j: _+ a3 r
)
2 Q I b! o h7 y
)
! }# T% |' R0 V( I* B9 A% O
;;检查用户输入的是长度值还是关键字
3 Q" x/ }( [- K0 S- `6 S1 l, M
(if (numberp len)1 U4 N. R4 v: X
;;输入的是长度值
% U! t& O- c- l- P+ O
(if (< len lg_width)& H. f3 ~# E8 Z" s0 w
;;当长度值小于方钢宽度时清空输入值重新指定
# R& T3 F1 t8 Y2 t8 t
(progn
/ [$ r! n: S4 M* J
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
$ f/ E* k4 j; r
(setq len nil)4 f$ p; ]- N2 |8 J5 V6 B
)
) a; H4 H2 l8 N6 m, S$ J7 a2 ]
)
" b# {7 n, ]# G, M3 L/ B! r2 k
;;输入的是关键字
* F+ w5 A( o. ^5 i
(progn
# ~8 {. F( Y- \- l
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值- G# s3 z6 }) P, |9 j. s
;;用户输入时接受空回车,不接受0和负数8 S Q0 G& V* T! Y' ^: ]* Z
(initget 6)
[. h' Z z3 w9 S0 e
;;检查用户输入的关键字是"H"还是"W"
9 ~: i+ P! i ~' o0 {9 x, I
(if (= len "h")9 c4 x8 |1 q3 Z1 l2 [3 x* j
;;用户输入的关键字是"H",指定高度( @- k% U% u, X: K; A- ~
(progn8 t3 |. z$ g/ D- ]* L
(setq high- v8 G0 p) R: h2 D9 G: r) H" V/ U
(getdist basepoint" I# ]) }0 {, A% S' W8 z
(strcat "\n指定高度<" (rtos lg_high 2) ">:")- ^6 L8 L; b( \0 K( T* ?
)+ U& y2 C! X2 z% \
)
0 e' a, |& _" _. W8 I8 W4 u/ M6 T- [
;;用户输入新的高度时修改默认值
: T* J( p9 Z5 \
(if high8 z3 o: d$ w' m5 o7 ]
(setq lg_high high)
. e6 e$ x) Z6 q/ E
)8 }8 [! t% |$ b% j+ N
)
* [3 ^ q8 _, s- y0 M' i# n, Y
;;用户输入的关键字是"W",指定方钢宽度
% f% \7 W% i R
(progn0 e+ ^- t0 E$ _0 c
(setq width% F( K2 N% g5 u' e9 |
(getdist
. S- c, I! `; ?9 D
basepoint4 S% n! O$ D; _. }$ |
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
4 D9 I1 i j2 a1 D
)5 _- m" M+ `/ D3 w8 y( l
)* C7 S- s3 G' x3 ^3 B+ D# H" F Z
;;用户输入新的方钢宽度时修改默认值' b7 z) D/ t% o% t* C6 o$ `
(if width
: p7 w$ W$ u+ {* b8 F i# |
(setq lg_width width)
7 t+ m0 e& R. @% D% j0 y' N
); W9 t5 J! p5 \: r9 ~
)+ R3 s# |5 [. n3 A& l7 b2 N
)
% z/ P: H: `% J
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
; Q* G* G# c/ E; X' T! g
(setq len nil)5 r4 M4 Z% T0 E [6 O5 A( w
)8 Z& W+ p& B: \
)
0 t. i2 J" l8 a- v7 n: @# P
)/ `& ^* {; c* F1 L2 w: u! W
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值$ j, ?6 z: w* j+ z$ W) [2 ]4 S+ g
;;计算用户可以指定的花形数量的上限! {# h5 {3 k: Q1 @2 Y
;;用于下一步检查用户指定的花形数量是否合理
( S" ?% B: T# W! ~+ c7 R4 f0 X/ S
(setq lg_length len
& J7 S$ b$ {4 q
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
, ^$ e) c/ m* _- r
)4 \" c |) s; |' D, |# u' h
;;指定花形数量或A段最大长度5 @) c" E' `" R
;;如用户指定的是花形数量,则按用户指定的花形数量画图
' f' R1 f, J/ R
;;如用户指定的是A段最大长度: E/ [3 J6 |+ @, @' W
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图3 ]8 c' d- l* P
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
7 M2 X) D! w/ v
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解! E; }- D0 m1 x3 m: c
(while (not n)$ \ ?; ~2 G. \, d9 O
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
* v2 F* x% S+ ^) E7 S: c
(if lg_n
% C; b, ? z& L4 C. |+ R
;;存在默认值
! p( J6 U# g8 J* Q
(progn1 d1 U) x' {" C) A; ]: @6 p: z% O
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L" _( ?. ^( r7 x* O$ u
(initget 6 "l")' V: a# v! m! z! Z4 j
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"2 {) y2 Y! d; ?: _/ g+ u& `
(rtos lg_n 2)
, U K1 V! h) ^
">:"
- |- b1 a, Y0 |
)9 Y$ p$ K2 d' f, x" g7 Y
)& k) {- C- f1 {) f
): \5 ]$ P" E5 O$ X
;;空回车时花形数量使用默认值+ `& ?' a2 A* w+ X
(if (not n)2 K; h: u* r8 E$ u0 P
(setq n lg_n)
$ S/ a$ L) w0 Z; c' ]' `6 I
)
6 l- p" x( m8 h
)9 y; Z: B9 S, f7 G- s! U
;;不存在默认值
& G' s! H& d/ p2 [$ b F
(progn
. I, A) C% l, s4 N+ w8 H' O! R
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"; ]$ b0 K! x9 v8 A0 t' {( V
(initget 7 "l")8 Y, m6 F6 k( f* s
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
+ U8 g& Q# }! [# O4 F6 q- D
)* Z! O3 W. Z0 P; ^) T) B! ~. n- c
)$ d, L+ Z8 `- I0 v. H& J ]
;;检查用户输入的是花形数量值还是关键字& E; q8 J; `' p% f. |
(if (numberp n)
1 e$ A7 ]- T7 x' n$ U; J
;;输入的是花形数量值
* C* [1 N( _- j- ?2 K' z
(if (> n nmax)0 F% q& f; E m. r1 ^
;;当花形数量值大于上限时清空输入值重新指定: L5 n K [9 [/ n+ Z" Y
(progn
$ j# j8 ]) ?- u$ a! W
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
2 v8 |/ Z& \# }* f
(setq n nil)% r, {2 P0 c" G$ f
)" A/ p0 g$ y2 F
;;当用户指定的花形数量合理时存入全局变量
/ B; \8 Y+ v" o
;;以便用做下次输入的默认值8 Q3 w" }9 r4 K0 ? U4 D- X, p- V" H
(setq lg_n n), Y7 p' e& _ `" V8 h0 V" u
)
% P4 ]- ?! n. u, N" a: \) E$ G
;;用户输入的是关键字
6 V/ w6 R' G7 J9 {. r% v9 u2 a( O' [
;;指定A段最大长度1 r+ V1 S/ Z. ^% ~
(progn* M$ a1 c1 P- E R# i
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
' d" s$ d# N, b
;;否则可能导致无解
$ [* t! B6 Q) L0 K
(while (not amax): Y+ a/ l2 Y0 L A5 ^: u# M3 }
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值8 e' A4 ?! I' P' u
(if lg_amax3 p& _( ]0 m# e' t% e
;;存在默认值
% q- ~1 Y P- @9 x
(progn
9 h5 m" K n* S2 g. d& f9 ?
;;用户输入时接受空回车,不接受0和负数
% E0 T9 o1 t4 R2 U1 k) {
(initget 6)1 w. z) @6 v, g3 P
(setq amax (getdist basepoint
( o/ o4 i3 \* j; e1 X* {
(strcat "\n指定A段最大长度<") S$ s4 ^2 c2 _0 E! D
(rtos lg_amax 2); [# n& n: c% i" B( C
">:" M" m7 s+ O0 R. {) T
)
) Q7 p5 F* K! z# }
)0 H9 n: v1 |( g" J8 ], P3 Y
)
; f; b) \3 z; G# R) ^7 c$ p
;;空回车时A段最大长度使用默认值& j( [" O6 O4 f0 k6 M! C5 S* k0 I
(if (not amax)/ S h) ]9 b# t _" Q: q( @: j% x
(setq amax lg_amax)1 r% D' t# R. O5 b6 r
); @' D- f. n Q2 }
)
* b; ?0 p# z/ @3 _# `4 t0 e4 G, I
;;不存在默认值
: {* [4 }5 J! I9 ^6 A. S
(progn2 ^0 N ^# i! a4 @. S
;;用户输入时不接受空回车,0和负数
* c# V" l8 M- U3 ]- _/ c- z
(initget 7)5 B% y7 g6 g2 |
(setq% c. m6 w5 O, f. y; N8 V1 Q& a
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
0 H+ V, X( u# j' I
)4 x4 P5 n# N7 h0 {( r
)9 R$ J! H d, I
)
% s& q3 W2 D+ l. h
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
; Q! f( z' |3 u! |
(if (< amax (* lg_width 1.5))6 ~- ]* t7 B$ a. h2 X c M' O% ?4 j% n
(progn
. a% P: P1 u1 r o7 |- w* [; K
(prompt (strcat "\n指定的A段最大长度不能小于", E4 n6 `* G/ T! {0 o' m5 u
(rtos (* lg_width 1.5) 2)1 M5 v" A. M: n( b! `9 F, Y h
)$ p- t b7 ^3 |
)" z) }, t: u" _
(setq amax nil)! ~ T7 F2 @* s8 [( [! a3 ^
)
; S/ _ f$ R: w; ]) {* d4 u
)
; {7 Q7 D7 x+ X
)* F# a" y6 L/ ?4 H- ~8 U' X
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值9 A, Y8 }/ I& }' n4 S+ d
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
5 ~# d5 ?: d% k0 [" g0 s
(setq7 j3 t7 t2 A4 ^6 `# X
lg_amax amax
' [4 {# w/ e/ E( l
n (1+ (/ (- len (* amax 2) lg_width)$ i% q ?3 p5 N. C2 R' b
(+ (* amax 2.5) (* lg_width 3))
$ V7 J) R9 F) f* ^
)5 J% Q3 S; b0 F; m- y J
)
( E/ u/ C0 M. D5 v6 F8 d
)5 A7 j% ] ^" Q* I( x* g( v! O
(if (> n (fix n))) D* O9 M6 t" X: d
(setq n (1+ (fix n))), {" M% }9 `6 Q
)+ I1 K( v" E" Z6 P9 {% }0 m W
(if (< n 1) d+ U/ n4 ~2 ]' F4 v9 P
(setq n 1)" C; k, _" C F! V: n) e: r& c
)! D5 A* P4 F5 m
)1 u0 a7 e q8 b$ n
) n) r3 v! V; E) e/ ?4 }0 x) f
)
+ j$ K! e) a# W3 d: T8 [" p0 _
;;画图' p2 D8 J. r. b' P8 G6 M4 m @1 }4 G
;;记住原来的对象捕捉设置9 _) [: e! W6 n$ |/ v
;;按花形数量计算A值) ~) w8 \* c+ H' S! n
(setq
' ?( k5 _# d* ^ t
oldosmode (getvar "osmode")
! ] v/ w$ d# s$ s" X/ S. M
a (/ (- len (* lg_width (+ (* (1- n) 3) 1))) d3 ?) [/ R3 b% M5 X" g
(+ (* (1- n) 2.5) 2)
- D& C3 q: c0 q& W, W7 a' e
)
6 o$ }8 j% l7 B! o+ R
)) n2 ^$ }2 D' C* v' o
;;暂时关闭对象捕捉
( b, p- _( P6 G' e, D: c4 X
(setvar "osmode" 0)
; ^% r( m3 C, ]
;;屏蔽命令回显
6 j. r& p- g) p6 w8 s5 I! s3 U
(setvar "CMDECHO" 0)
/ T) {6 a$ d$ G5 `% i& ]4 ]5 w
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形6 C" k* d5 \) H0 B6 A' N% A6 k
(command "rectang"3 m8 j# }* H2 C$ x7 H* @% U2 T; P
basepoint
. J( w+ W8 n. F; H
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))' b/ g# H9 a/ O! y) |" |. h g$ E$ A
)7 \( S, {3 n* \( S9 _
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
5 a8 ^) r7 r! R% C' I/ t3 @5 {
(command "rectang"
# Z) ~6 t$ p- j1 _
(list (- (car basepoint) lg_width)6 W; F0 Z. k, A" A0 S/ t& G: S4 D
(- (cadr basepoint) lg_width)
) i* `# Y9 i6 Q
)5 `( B0 Y2 X! j1 K' ~
(list (+ (car basepoint) len lg_width)
' W- W6 u6 H1 y, ?# S9 u
(+ (cadr basepoint) lg_high lg_width)
) r: }* x6 K H% f/ f
)
- G m8 x3 E! n
)$ E# [! |5 `4 n+ X# Q; z
;;将指定点移到其右侧A距离处
% q' Y& N( {; Y+ S" r, u
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))9 D8 k; S- {9 _2 `7 W% {, V8 C. W
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆9 f9 J( c/ p" c
(command "rectang"1 k1 a3 o j6 _7 w; |$ ?
basepoint
( Q( @, _# m) F- D! }
(list (+ (car basepoint) lg_width)
3 X& s# T" F+ s+ x
(+ (cadr basepoint) lg_high)
) G; ]3 X' @( Z: A4 c1 T
). J! A/ H3 y4 n, Z
)
) ]& H; S/ K1 m7 A
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
2 \: y+ A, ^1 K8 {; j0 _
(repeat (1- n)
" N/ e( A" k. Y. ~$ H9 Q# j+ x$ }
(setq2 O+ z. m. z+ A! l6 q
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
" {6 ]: n; ~2 g
)2 C0 G! j0 F/ T$ b4 U6 _6 |
(command "rectang"1 h( X. `) z% K, q. N
basepoint* J0 E$ y) L/ P
(list (+ (car basepoint) lg_width)
! w5 g: U$ Q, }' [5 ]1 s# G g9 O
(+ (cadr basepoint) lg_high)4 y+ v6 Q2 [9 a6 M5 L; z6 x, M, |, a
)
5 f0 g* l2 U/ v! e' b4 X l, C
)
% U( c* n/ t4 e4 c( ~
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)0 C" D/ b. X" Y& S8 b0 A3 o- `
(cadr basepoint)
' n: s8 j) ?/ N
)$ T) {% D' B* [8 N2 V |- C
)8 O$ s' ^6 l/ p& g+ |6 p$ @' |
(command "rectang"
$ Z" _; F! G& N2 J0 g. F: n
basepoint
3 H* N% H* I# [5 C, n: R" o
(list (+ (car basepoint) lg_width)
2 |/ H, R/ g" b3 o/ _. g& P: R( `
(+ (cadr basepoint) lg_high)
1 o6 t+ s( N8 \" A' d0 `
)7 J, S. B1 P4 z( Z6 I& k% x0 ]0 `/ d
)2 m$ S/ A( x2 x: m9 u! l
(setq3 h* c& s, E6 L/ S" w" h" l( a
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))6 Z; K- L* f/ e, o# V, Y
)) P+ L* [0 F0 E3 y! ~4 Z
(command "rectang"" W' }$ G$ k+ _" Z+ ]0 c
basepoint8 z6 q" O+ J4 m! Y0 Y, a# e
(list (+ (car basepoint) lg_width)9 W1 g) @% R6 X5 X% K% `! U& O
(+ (cadr basepoint) lg_high)% {& P, N3 l0 A+ }9 Y+ t9 L
)
( G" u% ]- Q) m' [, U
)9 A- r9 @: ^( t7 H
)
* K2 K q B# p- t* g# t
;;恢复对象捕捉设置$ U, q1 c1 E$ Q1 i" z
(setvar "osmode" oldosmode)
! w7 P" R- ?4 N- b* S2 x
;;打开命令回显( k0 L0 ^* S/ @1 k/ k, X
(setvar "CMDECHO" 1)
5 w- [; ?/ I8 P4 r* Q4 q
(princ)
6 f4 ~( j4 l) U* ?3 x* h3 v
)
1 C+ S- f3 k5 a+ e, V

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源