作图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 发表
- _+ u7 e$ z; r! `直线分段方式，a=a=2b8 I7 \7 N5 b, Q9 W7 Z) H
; N5 _' m$ Z9 ?0 U+ `

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
7 g) }# C0 l: M# S5 O# W" e. _/ ^6 u0 `4 M. V4 ^
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

9 W8 M7 [& q+ h5 m
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
" R+ Y+ ]% J; E4 e3 I r, l' u1 E
;;设置栏杆高度和方钢宽度默认值$ X) i" Y1 w# L# {# ^: s
(if (not lg_high)2 ~: C! s9 C6 O3 c8 N$ |
(setq lg_high 500
: S0 C8 x, x) u! h$ J( n
lg_width 140 z9 Y- B \. k% J% ]1 G! I
). p3 o9 H+ s& q x% ?. a! G6 v `% g5 z( R
)5 a$ O, ]7 \0 g: N
;;指定图形插入点
5 i: c1 T7 D" q- e
;;不接受空回车7 }' c L2 h/ I) d
(initget 1)
& u5 ]( _% e3 V- y0 ^
(setq basepoint (getpoint "\n指定插入点:"))$ V f0 a& y G! W# u
;;指定栏杆长度和栏杆高度和(或)方钢宽度. E; [) s" E T) U5 [& ^
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
8 m9 E: o" ]" d$ ^& {
;;用关键字指定栏杆高度和(或)方钢宽度后8 x# _4 S; c. W* k2 F
;;需要重复运行指定栏杆长度的代码段
! W" P) J( q% P
(while (not len)2 e4 V1 r2 E/ e4 a2 E
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值$ n+ F- X, k7 t
(if lg_length! w1 i/ n1 Z8 ]' s! O' ?
;;存在默认值
h4 d' W1 F7 S$ b2 }- y' n# g) C
(progn8 Q7 P! J1 W9 T, u: \: W& N$ A5 s" b4 c
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
& C8 g; F! h! C5 _" s7 l2 B2 i9 e
(initget 6 "h w")
+ \$ ~: ]% {1 a, t- z
(setq len (getdist basepoint. z3 H. {- {* |2 ?
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
& ^# n& V6 b7 ?* i8 v2 R( S
(rtos lg_length 2)
; D, ^ C8 U( j) g( n1 J
">:"
& Y. W$ c% a9 @' z6 B5 e
)) R+ y! T8 F% r- U
)( f4 y5 C1 ^$ ~/ C; \
); @9 l& s' G8 _
;;空回车时栏杆长度使用默认值' @. V5 x) Q+ r/ _$ B b8 @
(if (not len)
- t' O4 q0 R! ~9 ^
(setq len lg_length)
7 i, _8 D. v+ q' }) |
)$ ~7 M6 ~, }) D# b; F8 i2 X
)
& o g1 [" e l' e# ^9 V
;;不存在默认值! `5 H2 T7 i, ]
(progn
5 _7 {$ p, ], ?/ }# ]* g4 V
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"% [/ L; h# D, U' S6 r1 y, f0 _
(initget 7 "h w")/ a8 P$ a5 N- Z S6 u. T; q8 a+ u$ ^
(setq
- ^. A* Q$ M/ e- r
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")! n1 f: H @0 E5 X3 [- @; \
)4 U& {$ p1 i$ s& L
)# e6 F: N: e9 d4 \" F2 y
)0 t0 L8 U/ e9 |- n/ h) {7 v* i& i
;;检查用户输入的是长度值还是关键字2 J- a) ?2 K" g
(if (numberp len)
% o0 W/ g$ Q" x
;;输入的是长度值$ X$ `+ h! D( `1 P' G2 `
(if (< len lg_width)% J9 |9 ?& l3 j+ J! P3 b
;;当长度值小于方钢宽度时清空输入值重新指定# o/ R% r- D# T6 C) B U' i
(progn
6 Y' O* c6 [" x! Z
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))* @1 ~% `4 L* b* t. q. G% s0 {& S6 A
(setq len nil)
- d$ Y$ W; b/ s& J+ R* D
)0 c; x) b5 S* Z" y, w+ B6 l# f
)
) t. n- Y7 a7 U2 X# E# y
;;输入的是关键字2 p* V" G/ p& O
(progn% X! z5 n! N; K; I0 e* J
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值$ q% l/ j G, y# ?( {
;;用户输入时接受空回车,不接受0和负数2 S' l% Z: p% G+ y; f# z
(initget 6)
2 f$ n6 a- W" m) |- O+ v
;;检查用户输入的关键字是"H"还是"W"
! F8 ^6 q9 ~' ]' y! O/ G# H. s
(if (= len "h")
4 x/ |( k/ f7 l- z
;;用户输入的关键字是"H",指定高度
' k0 g8 \, l3 j; [# q
(progn$ `9 k6 N9 l- q
(setq high+ R/ g8 F# u | M9 ~" U
(getdist basepoint
; c) ?8 J" \/ T6 h x1 N
(strcat "\n指定高度<" (rtos lg_high 2) ">:")) O {" T1 g9 K8 r6 u4 @. [) ~& r$ g
)6 y8 k% B, N5 P7 L% z7 d- S
)5 ~0 D# }& y# t0 T2 a
;;用户输入新的高度时修改默认值
3 S8 y( c! o1 P; R
(if high$ P7 [8 r1 e* p4 }( g: x0 c& ]
(setq lg_high high)
7 Q; F# {8 D, {( F2 y9 V3 k/ C
)" D% ? w: h- G: k
)# P3 V5 T7 y1 x# I- D8 M" a# s' F0 Q
;;用户输入的关键字是"W",指定方钢宽度7 z* v' ^) ^; v% ^$ x3 {; O
(progn
. V& `' \* l1 v' {) L
(setq width
0 \2 f6 }0 M/ B% I
(getdist
' \" K" O! E: [/ I' j
basepoint& P6 S* R, b! d3 i6 L
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")! I6 m' S" q( }6 v4 ]
)2 h6 ~ l. T$ J& y5 {
)
3 ?% W7 d: v* W. @" _% y3 O! M
;;用户输入新的方钢宽度时修改默认值
* h: p& b2 g1 Z+ y, `
(if width
: K% B5 G6 Y- {9 G. Z
(setq lg_width width) Y$ ~9 T" \% D
)
2 z$ o- C- r" `0 L
); R5 D3 s7 w( O$ u4 k# g
)
$ I, O; b) X; \% a: S
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度8 }# W8 {2 ]0 i* `/ _/ ]
(setq len nil)& D5 B$ m# }7 L/ C
)
/ Y5 C# [9 y! W F. Q h
)
. A7 _' L# S/ M& D0 ]
)
7 \- T3 k+ D5 f3 p9 I* H" [ O$ J
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
7 a! }" T3 W) K3 K5 s2 T
;;计算用户可以指定的花形数量的上限3 ^1 m% `1 H+ r' y5 v* Q; p2 S
;;用于下一步检查用户指定的花形数量是否合理8 y5 G3 ]5 p: e: Q3 h8 g( i9 _! ]1 e
(setq lg_length len" }: Q$ y' ]' S" v4 Z& j' h9 ~
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
/ t1 [5 J6 U$ O% b7 f7 o0 Z
)
3 s+ G6 F. f$ {
;;指定花形数量或A段最大长度- A- d+ W* M+ v& B" c
;;如用户指定的是花形数量,则按用户指定的花形数量画图
9 P% _: ^) q! j: e/ @
;;如用户指定的是A段最大长度
, ?4 v( @7 G" _9 p4 p' C
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
- j; r; A7 L" S# d$ `, D
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解7 P& h" j \3 J" K
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
/ L* n# K) R- s% ~* u
(while (not n)" z6 {/ Y4 V, j6 X
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
# J/ E% [& f9 r. d' A; u
(if lg_n& S2 v1 t; ~5 T' w$ ^1 ^
;;存在默认值 c# P( O1 x( L
(progn$ h9 h) Y, J/ u A
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"+ x# r; @5 w$ C2 @
(initget 6 "l")/ {; k5 t+ E' Y1 y) w
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"* h6 s6 z {0 w
(rtos lg_n 2)
2 N. @% h) W5 R; B2 i- y
">:"
3 x! `( p R8 ?: }% D1 c
): q% K8 Y+ x( |& M
)
Z) [. @: @- o% x& b+ G- Y
)
C: F7 u; K. _! z2 w
;;空回车时花形数量使用默认值
& I- e+ u7 A* l
(if (not n)" Y5 r) X8 d+ o+ a6 Y
(setq n lg_n)4 W6 q7 l/ n% D' f! \
)/ \( U$ a3 L& S/ ]1 x3 O
)
' w2 |$ n2 m8 T9 G" c
;;不存在默认值
& U/ g k8 T4 k! \/ I
(progn
! P, A7 }+ J1 K6 P3 R# Q" t
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"! M, ^) v3 R' b1 Z$ B
(initget 7 "l")1 L" \. b: c+ q: S* n& L' X
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
/ @$ V$ R' j- F% \: }' b
)8 c6 ?6 b5 Y$ o7 G. D. n: H' {
)
$ Q- l) |: F! \) }4 E3 A
;;检查用户输入的是花形数量值还是关键字% k) [+ A3 ]. A6 P
(if (numberp n)
: k. W; P1 S+ H9 K3 I
;;输入的是花形数量值6 T6 n! N |2 z5 z8 f
(if (> n nmax)0 E) Q5 s. _: h* \. P
;;当花形数量值大于上限时清空输入值重新指定
" Q! N( A4 i4 p' O; F, N$ P
(progn
) P8 \. d, f2 I* }% G
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
% ?! M7 C x- [. _
(setq n nil)
$ H \& b0 G' [; ~5 r4 A! m6 R
)9 y4 v1 s. {8 D/ f
;;当用户指定的花形数量合理时存入全局变量) D. S& u- {7 D: t6 W% N
;;以便用做下次输入的默认值
, }; x. n/ ^0 f0 V, `+ c8 Y. }$ }
(setq lg_n n) W: u- Q3 E' I2 h, p* C n5 e4 `
)
7 c+ w6 C3 f# H3 ^
;;用户输入的是关键字
) y9 Z; K% _: ^) P9 \% p
;;指定A段最大长度
3 y6 \- m8 Q( i
(progn
* B; X" R g8 N* o: l, @
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍) p2 i! B! Z) B
;;否则可能导致无解
9 `) G/ y# j- W, O$ }
(while (not amax)
. R; T: {4 U5 ?; s) p
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值3 T# I( _/ \" U" y0 C& _6 y6 A
(if lg_amax
6 j) G* C2 {4 u6 a9 M, D
;;存在默认值: R7 R4 V4 }# Y6 G0 v. z- a J
(progn& K- e5 y/ j: l6 X3 d
;;用户输入时接受空回车,不接受0和负数8 a5 L- P, b S# r: N* h0 Q+ V8 S
(initget 6)
* y8 @: }8 M/ h3 h/ K
(setq amax (getdist basepoint6 v- Y- ^" B( S J
(strcat "\n指定A段最大长度<", j' W3 b1 E' ]3 ~
(rtos lg_amax 2)6 `# r, |, g z' J
">:"2 C% t1 r: f( _5 g3 y
)
W8 Y" F: d* L" T! z, X
)" b" }+ U# R& q% C: Y. z) K
)
3 {& B, ?. I" m1 y8 f+ _' V5 T
;;空回车时A段最大长度使用默认值7 q( n2 I5 ~# X
(if (not amax)
; r8 N, ^- H9 p0 H
(setq amax lg_amax)' S( ]3 r% B; C( @1 W1 v% x$ V
)
{/ {3 p0 F% W2 D
)/ {' B, N9 i* D
;;不存在默认值2 `5 C3 s) Q, g, U- W, c7 i* v/ K' d
(progn1 G/ b& \! R y1 ^+ @
;;用户输入时不接受空回车,0和负数$ z# j5 v/ }7 t: ]2 a" [, O' K" e
(initget 7)
" l2 X* L. l+ ], q' w& \
(setq
' J# k7 ~& }, r y# F1 E' V
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
7 I4 f) |9 z# Q8 t# t7 o# p
)/ e& v# d: |; F
)
) q1 K/ I# C3 M: k/ `
)
' n; }, |, p) w( h% Y( K
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定8 B' B; F3 l9 d' n ^
(if (< amax (* lg_width 1.5))" F# R9 i# G4 Y: T [2 \6 m8 k
(progn
. m" d# a- p* ~
(prompt (strcat "\n指定的A段最大长度不能小于"
/ m0 w, d& k- x" f
(rtos (* lg_width 1.5) 2)
' |& a3 U3 L3 m3 z7 b: u
)0 n$ P/ s8 z$ b$ ]% |7 A$ @
)+ q9 t0 W( J1 T4 o
(setq amax nil)4 n" W# @0 K1 h
)
2 v+ s5 k# n1 p* {# ?6 F! Q
)" C7 {2 E( G+ b+ B
)- f1 q+ }: r% a* ~2 k' x
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
$ n9 R8 A3 s( e$ w; Z
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
& e+ k/ i% |' T" Z
(setq
" e6 G7 Z3 |4 |* n6 S( |6 g: H4 y
lg_amax amax; F6 Z0 k1 U/ C5 |( J& P
n (1+ (/ (- len (* amax 2) lg_width)
6 N; y2 {. A1 S" T/ N4 `
(+ (* amax 2.5) (* lg_width 3))
9 G2 p1 R; n4 w8 A7 x5 L
)
3 I) x4 N( `* F) v# ^& H
)
& i) T, w. P2 K5 t1 T/ E1 I+ W
)
, U# x# ~0 Z4 n6 Y7 h% c7 Z& v% k
(if (> n (fix n))
8 f; a$ j/ k! h
(setq n (1+ (fix n)))
( v9 @/ _9 E5 y# h+ W" C
)$ D) c' b5 B9 l8 H8 i
(if (< n 1) u _2 O3 r) }9 G8 |% t
(setq n 1)
; @/ { k* C9 |! Q
)
& D v/ Y/ }# F. t( U
)
( p1 w% A' D% n1 o- i
)
& O! R+ i+ J& e7 X W
)& T; ]% W3 ^% h9 u" m
;;画图
/ E9 t+ g( _1 h, ^# l3 y4 ` @
;;记住原来的对象捕捉设置' ?) K2 d" \3 b2 r `$ l
;;按花形数量计算A值
. F7 E8 g+ y7 |7 V
(setq& I" C" I4 R+ l* `' T
oldosmode (getvar "osmode")
1 U2 s3 W% Y$ q1 ?+ S2 g* `
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))# R; C. ]& y* A2 ]
(+ (* (1- n) 2.5) 2)
! ~! y s% p& o: a8 A0 p. J
)
' c% y, S- O! ^" J* m
)6 V: g& k' l a8 X& Y4 A
;;暂时关闭对象捕捉6 f( N7 z3 B' v+ E2 G2 n5 j7 m& E H
(setvar "osmode" 0)
; N# }: [0 Y& c7 K: g
;;屏蔽命令回显' J( R; _8 p3 K3 `5 n* i
(setvar "CMDECHO" 0)* o! B; Y& _+ `
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形2 G7 [3 `$ @7 N4 s" D
(command "rectang"
t, w# v: Q; @: Q
basepoint- X) ?9 s$ _. q* u6 e0 [# c
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
* S2 l4 s$ `8 m: G8 T
)
5 A% i; f. L1 f* a$ L! X
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
" B* W. ^' T; i/ g+ a7 y
(command "rectang"
8 t3 D8 W; p( l& u: h
(list (- (car basepoint) lg_width)
! x ^3 c0 f0 o+ ?5 C) N
(- (cadr basepoint) lg_width)
8 l& q2 h9 q8 f+ ^, ~! l
)4 K' c$ y x- K/ U
(list (+ (car basepoint) len lg_width)% i) i+ z6 ?( u( ~
(+ (cadr basepoint) lg_high lg_width)2 d0 c$ ]$ J7 N$ j! s1 Z/ R5 ~
) V! v) A! e# m% [) }* D) ]1 e# a" Y
)
% ?! \1 g3 q) V3 W- m
;;将指定点移到其右侧A距离处
& x+ `6 q# `0 u; y
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
2 M6 s3 u) y n- e5 o5 S
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆! {+ j' m4 r8 e. R* k$ ~# h* Y
(command "rectang"
8 N4 d8 m1 X; d: ]+ x7 n
basepoint/ q* Z1 B0 X2 X8 U# H. P6 B H- l$ N
(list (+ (car basepoint) lg_width): D1 S+ w3 o& V2 a) p6 h/ }
(+ (cadr basepoint) lg_high)
6 ~- f: g" v% m9 s2 I {
)
; w5 ?, b( p( {- D" R
)
- T5 \- c, Q' D. l( z
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)& H# t1 z! P* ^% c5 z! W% ^
(repeat (1- n)
p& P; u$ j8 E4 W+ q
(setq# j$ w4 Q( Z- Y9 c
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))5 w0 \; a* l" w4 O$ D0 M* v
)* ^; y- |, l4 I! I- M
(command "rectang"
basepoint9 I0 G/ _$ C# S, a% I
(list (+ (car basepoint) lg_width)5 I% }5 g; V8 c/ G' W9 T" l( e! o
(+ (cadr basepoint) lg_high)* V7 e) ^" B. `7 n1 s
)
1 t- P. Q9 D/ V/ G
)! m4 o, ]8 f" Q/ M" Y1 c* |
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
: n# ?. m$ g- ]) C" X
(cadr basepoint)# X8 ]3 Y: o3 e% j1 o
)
7 ]/ B5 ]7 [' X9 F9 P, U3 l
)
0 ?9 @; v. w- I, ?9 @3 ^1 ]& e$ }
(command "rectang"
, H% c$ S- E. m. ^: T: h: J" |8 u% i% G
basepoint
w k! f4 [8 @- t! @+ q4 S
(list (+ (car basepoint) lg_width)- W n! }' L2 v2 X8 g3 q
(+ (cadr basepoint) lg_high)
+ Y+ B' o* q& D+ n( j
)
2 L% S' \( E: g, j- v' V8 p
): W5 ^5 O5 B$ X
(setq% f% q+ l' ^& t/ P3 t1 x0 w
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))3 z) K9 ^, w L4 I: V, i
)) b6 r7 S$ ~) k$ m5 q! h) `- K
(command "rectang"
- {- t8 H! n4 u2 s( e% K- u1 k6 q! ]
basepoint
7 B4 ^+ P3 f0 M" G/ ^4 }7 R
(list (+ (car basepoint) lg_width)
% s" F: E/ g/ Q5 e% p
(+ (cadr basepoint) lg_high)4 _6 p5 F: e, r# R
)
* \" x/ }0 v- q4 a6 N8 n* }) A' k% Z
)) j `9 t5 J$ @$ H1 L2 n* j
)
# R: F2 P( @9 y3 ?# s I, X9 U
;;恢复对象捕捉设置: n" @( I9 y$ Q% [" ^) C
(setvar "osmode" oldosmode)6 D0 y" B1 w, k
;;打开命令回显. Q0 F4 v4 A8 [. L
(setvar "CMDECHO" 1)! R: G, R7 y: J# r% q
(princ)
S) ^$ {3 ~0 `5 X z9 i
)
; f1 W& |6 ^ `1 A: M

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源