作图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 发表 - O5 I6 {8 M3 p) L+ u( I J
直线分段方式，a=a=2b8 S" G" c/ ^$ V

" V a% R) n1 _7 D" ]: l

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
6 C0 \0 T. n$ j; ], w6 Q) h
+ o. a6 @5 g9 J2 H2 }距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

( Y# [' q1 ^6 k7 m+ V
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)( q8 S$ \3 P0 y4 W
;;设置栏杆高度和方钢宽度默认值, h1 z7 K- t; S( i( v
(if (not lg_high)9 T. b! ~6 e {5 Z+ E- H
(setq lg_high 500
4 \2 U6 Z: `2 S) D8 l4 c0 i! W
lg_width 14! ?& V. v; t: Z% K9 J
). Z7 O, x z9 p/ @8 B9 ^7 h& x4 ~0 G
)* O6 r) h, D3 s/ X/ l
;;指定图形插入点
4 B5 u, o! P; Y5 A: L# |5 h
;;不接受空回车( K. O2 j! ^6 n$ g6 V
(initget 1)# K6 m ~+ j! o8 s* m
(setq basepoint (getpoint "\n指定插入点:"))
( V7 x0 L6 g$ S. B
;;指定栏杆长度和栏杆高度和(或)方钢宽度8 E3 T3 X$ ^ }& J* w# o
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
$ @+ ^; S$ y+ R. A
;;用关键字指定栏杆高度和(或)方钢宽度后' K+ b: r+ P5 ?7 s! C0 o& B7 J& v
;;需要重复运行指定栏杆长度的代码段
7 {! y) c* G" [
(while (not len)- w: K, [! Q! R
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值: r/ N Y+ Z7 a+ k E% x
(if lg_length7 O) d- Z0 d' h
;;存在默认值! i, U1 _4 N' _4 F$ e. }/ T: \% x
(progn
/ g+ Z1 _6 A5 f3 Y; B
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
% N' Y9 h# |5 E% P
(initget 6 "h w"): Z1 b, r/ A' F3 L7 I0 |, t, n
(setq len (getdist basepoint
! N6 C5 H/ \- M( C2 _
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"7 i7 }) X5 d" a7 L& F( d
(rtos lg_length 2)$ G; S" B j, Z; P4 h$ @4 Q
">:"
4 y1 _; V0 T3 ^. I2 s( h2 `4 l P
)
6 {/ I& W; V' y% k, k i
)
# _4 G" p3 o1 n+ y( c; b
)
) ?' @! J( [: o& K* a
;;空回车时栏杆长度使用默认值
; R' j+ P# g, s4 [, \
(if (not len)
% W8 c% f1 U U7 d @7 R
(setq len lg_length)
$ W: y3 [/ f3 y. R3 P, A! y7 E5 t4 x5 L
)
3 ^5 U7 \! M3 z( k! d
)5 _* \% C9 S) i7 o; h2 _
;;不存在默认值
) P/ Z# S* j$ v7 Q
(progn
/ y, `1 `# i# O- v# G
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
/ S3 g9 q9 W& z; s% W5 A j8 F
(initget 7 "h w")
2 L5 d$ h0 Y$ c- }
(setq
: @9 i* {8 g+ A$ E7 M: x7 u
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
$ z. G- d% J6 k5 y" V2 ~
)
. B/ O! c/ `8 [) s" T/ L" v
)3 p( ^) @ z4 }. m$ l0 r6 R
)
5 ^9 |/ h/ B/ a- q2 Q
;;检查用户输入的是长度值还是关键字/ ^2 |2 u. q+ Y& Q
(if (numberp len)
6 A, @( f( q5 j2 ?
;;输入的是长度值2 P6 g" H3 q2 U
(if (< len lg_width)
/ G' y$ ?9 }' M; y9 G3 x" m
;;当长度值小于方钢宽度时清空输入值重新指定) b# {8 D( Y% X
(progn
0 i5 s8 ]& m3 U D6 Y
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))" o8 x" M4 J+ l! w2 Y4 `
(setq len nil)
; [" S7 x b `2 K* K- a H' V
)) s; o3 f( r" l
)
- X# G* I- o( U% o# o9 \
;;输入的是关键字$ H- U* R5 M) c( E- D" `& k
(progn
. r- M$ b: o1 ?3 U, O5 ?6 C) w
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值( N# V1 Q8 W8 c' E! C
;;用户输入时接受空回车,不接受0和负数3 K; u- i( c+ K! R+ q2 H: G1 n
(initget 6)9 c* N6 Z, g% X# W( H( C0 i! I
;;检查用户输入的关键字是"H"还是"W"
, ^- T! D: i2 l1 n( L0 g% n
(if (= len "h")3 g3 y9 y" i3 a3 v( {5 n
;;用户输入的关键字是"H",指定高度 W" b; h0 l3 ?3 E' [' L& z
(progn
4 E3 Q; I+ I, l V
(setq high
. j9 U1 f% E6 i' g4 Q2 A
(getdist basepoint3 a+ D" X6 N Y! T! I S. }8 b
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
^7 h+ {& N5 i9 V2 e( V0 {
)" a3 A% B" @1 [7 T1 \, q& ^
)2 S: S7 m& e, ]& G
;;用户输入新的高度时修改默认值# M! H! W* v+ k; q5 a
(if high
4 ]# H, l% C/ [; q" |
(setq lg_high high)
a& O6 ]" x) `# K0 R( n G
)% N8 q& ]- y; T# }
)4 p7 p3 w+ W2 i- u, H) Y
;;用户输入的关键字是"W",指定方钢宽度
( Y4 J" k, U2 i$ \. c; F0 O
(progn' ?" O8 Z' }3 [) w, r! c
(setq width* G' t1 y+ h/ P5 W/ ~9 G+ s5 z/ W4 y! y
(getdist& t1 A) D) K! [6 m
basepoint
. V4 d# R5 P5 K5 i0 ] M- u& @) [) g
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")2 c) b. E! K! J F3 I
)- }" l$ ^* ^" }( A
)
# e/ |1 c0 @4 l) p- K! e' _+ h
;;用户输入新的方钢宽度时修改默认值 Y" Z. B4 Z, V& E
(if width
1 ~4 }% a2 f0 q2 B
(setq lg_width width)
* |( A$ ?- C: [
)
1 d. k2 q/ x1 N; _* L# D
)( t0 Y1 Z. n2 `- t# B
): w6 a; c; i! w+ ]
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
) D1 g% K% U$ C) e) P9 V
(setq len nil) H4 Y4 \) ]" d
)- G* }% u7 `3 ]8 X2 K
)7 _6 W8 g- Z, ~' _4 J
)
6 [3 c) ]; c+ b; i5 e8 z
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
- f& C0 |$ s& I* R
;;计算用户可以指定的花形数量的上限, C2 q, k! F) f( ]7 O
;;用于下一步检查用户指定的花形数量是否合理
( {, u$ X0 y, @. h
(setq lg_length len( F0 c0 t" F" S1 S, J
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3)))); F/ a$ K, t# p7 `, E
)) p, `9 }4 Y4 q, j6 [
;;指定花形数量或A段最大长度9 |) k2 s# S- |6 v$ m- B
;;如用户指定的是花形数量,则按用户指定的花形数量画图
+ i: a6 U+ X8 F- S: U
;;如用户指定的是A段最大长度4 ^1 H: w& |) D0 F) r
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图* M5 D" }" p/ D- q
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解: @4 R" I k- m& N
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
7 _/ t8 o1 r3 s3 [1 u, P" y
(while (not n)4 H: D8 V" s6 H6 j( }* m' g- k, D
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
( }, ^% k1 E3 r+ O5 w9 a& U
(if lg_n
4 Y! Q/ F2 O! E+ K" x F
;;存在默认值, Y, A0 r# r7 l
(progn
9 O! w0 Q) M6 `( z7 p3 f
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
; m. F1 s- C; X- J" p6 A d$ h
(initget 6 "l")7 b8 z, T! H5 h$ @
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"$ Y) Z/ P- g3 c
(rtos lg_n 2)
4 k7 T+ Z2 C* M. R4 k' s% G& w
">:"
6 \9 ^0 E8 q+ v3 j: v4 s' l
)
: {9 Q$ B/ S+ |( x
)) S* |* `- b$ l
); h2 {& K4 s4 J$ W9 e; O* h4 w8 M
;;空回车时花形数量使用默认值
7 h' N4 r( P! D* |; l R6 B v
(if (not n)
8 N2 ]4 |2 [+ w, B
(setq n lg_n)5 D* S0 B+ k9 u* L& L6 q# }
)3 L! n# t7 n" Y* t
)
, }5 ]" S4 }5 v8 o: ~' X
;;不存在默认值
- Z$ O' I) k" u; p8 L: n8 s% n
(progn
) e8 p( q7 A# h4 W' p- J$ I! r
;;指定花形数量不接受空回车,0和负数;可输入关键字"L") j8 c# g) u1 O! c9 R
(initget 7 "l"): b3 O( \! H0 b' z8 e4 [
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
7 p; R1 E3 D5 G0 @* s
)" [& N" }7 f; e* [$ D5 j# R
)
$ G/ A& M1 C. T) _/ T4 M
;;检查用户输入的是花形数量值还是关键字. g2 \8 R/ w( e" X! Y
(if (numberp n)' ~9 r2 T. X4 D9 T& C
;;输入的是花形数量值. u/ X/ k y# [
(if (> n nmax)3 K: }( ?3 _5 @- |* O( q
;;当花形数量值大于上限时清空输入值重新指定2 ?7 G! R$ _0 ]/ ^9 t" d/ H
(progn
3 o1 |4 U+ l" G! F3 I c
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))2 t7 G. p2 }# O0 }, P" A
(setq n nil)
5 B6 p/ c9 J: ~4 K' b
)
5 A( q: N7 n$ u, W* y/ b
;;当用户指定的花形数量合理时存入全局变量
6 B7 y9 G1 d+ r0 n5 n; ^. {
;;以便用做下次输入的默认值
?9 n3 n/ \% P. x+ g4 Y9 H
(setq lg_n n)
! W* I& o' O! Q- O, g# c. F
)
3 M8 N5 |8 e: ^9 P
;;用户输入的是关键字! D" P; m& P* J
;;指定A段最大长度
$ e3 w! u# X. N+ p8 t8 V
(progn
: l. L; z6 X# C: Z% r2 l% X- L) [
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
) L* }0 R& u5 Q+ G. R6 ]% k
;;否则可能导致无解/ |( w/ {" J) v! W* g7 p1 b; \! q e# p
(while (not amax)) g# O# p' z# s! Y! f' A: x0 C
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值2 O! ?6 c6 f/ J& r9 J6 d. P
(if lg_amax0 R) d6 A9 ^8 z- U8 q
;;存在默认值) Z+ o( F6 P$ l$ K
(progn& D6 g$ r- ~4 S) o
;;用户输入时接受空回车,不接受0和负数7 b; _9 Y( u, k" d8 @9 i6 ^
(initget 6)
+ \. _; Q' j9 W& a3 @
(setq amax (getdist basepoint& ^* C& P- [9 H/ v. ~
(strcat "\n指定A段最大长度<"6 Y+ N2 v2 w7 Q/ O6 J
(rtos lg_amax 2)
) q4 a( U" \/ r' ?3 t, L
">:"
) G$ K8 A3 _+ g4 E" J
)
- u$ X2 U: k/ v
)2 A: b; I6 X' L* {& B+ e
)" u/ j1 n |) w4 F- |' C N
;;空回车时A段最大长度使用默认值
, ] D1 l5 Z/ D
(if (not amax)
+ }" T# i" W A; E8 G% _1 T- v
(setq amax lg_amax)( z) |' b8 I: H( |1 E
)4 d0 \1 Y, n% R' K0 J- V
)
* I+ ]0 D; p4 E( W
;;不存在默认值* B% w8 z2 D8 ~) ~# R0 r
(progn
/ N5 [# f- z" I9 v+ L
;;用户输入时不接受空回车,0和负数# j! S4 }; |2 F. B; B! M f
(initget 7)
, [, O. e* K! [1 a
(setq# y0 t# Q( a+ r' [9 r
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
" M X6 i0 I3 w1 I$ g# J
)
; I v( w0 i) w; p
)" e0 k0 n! ~" r: Q7 n
)$ e: ^" @6 p: X. v6 b& n/ s
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
: O. |( ~9 u" d4 H7 g
(if (< amax (* lg_width 1.5))
/ G) |- r3 k$ U" h/ _9 U1 _
(progn% S+ ^' U) }% h" k* X
(prompt (strcat "\n指定的A段最大长度不能小于") l- U) r7 J. B u7 ?4 _+ X& {5 b, Z
(rtos (* lg_width 1.5) 2)
4 Y& F1 L' r8 |3 |, r7 I+ M5 ?
)
" e2 Y' D+ [" i( k7 R$ t, K
)
4 v; Y, N9 s" ]& ~+ o; p8 d( W$ }
(setq amax nil)
$ k( _: K4 w' B
)
2 y" A, \: z/ ]
) J. j/ X+ N8 p& l5 Y2 f% V
)
* M" R5 T) F3 [6 m
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值# r9 e* S) n( L$ K$ e' K8 b1 A
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
. E' h; w9 ]. |
(setq; y( M6 V% N1 d2 B( \8 f3 \
lg_amax amax
" b$ Q7 C6 q; C- D
n (1+ (/ (- len (* amax 2) lg_width)
2 M* @2 g5 ?7 c# k& u* f: A, D
(+ (* amax 2.5) (* lg_width 3))$ t% J- h' r8 i {
)
. l/ ?( \8 U6 p' V2 a- _( @3 g8 w8 W
)
0 m& C4 m: A, F- z' A1 q
)+ z' _& T2 F) b$ U
(if (> n (fix n))
8 A# h3 L* p v$ ~9 _& P
(setq n (1+ (fix n)))
2 L/ W& h* Y4 y/ L1 J$ y
)* @! M, W. C6 k* R/ x
(if (< n 1)
, i$ M5 g; U" a; f1 f6 e( I+ R
(setq n 1)( _3 `$ w- Y6 E0 d! s, T7 @
)
5 }7 b0 N+ T) x" z" t
)& {! `$ C# p& ~. u8 k2 C$ |
). A% O, {' {7 k- Q
)
5 }% }- [2 d+ [3 B
;;画图) h& w4 d+ }9 r* x5 s
;;记住原来的对象捕捉设置
; n' f1 M7 M2 t3 c% C" C" Q7 Z1 y
;;按花形数量计算A值
5 F B/ B* s) z
(setq$ l$ Y2 z' V) G% U& Z
oldosmode (getvar "osmode")- x0 p4 `; S/ ]- I
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))' d: T w# d- a# }" U( M, u1 f
(+ (* (1- n) 2.5) 2)
( w$ `. _8 H% W ^. c
)
' o- W& g( r& w
)
6 K- N0 ]7 h8 p. x6 \
;;暂时关闭对象捕捉3 h" Y0 f6 Q9 ^ s
(setvar "osmode" 0)
, T6 L" n2 U' J# o, j
;;屏蔽命令回显
s3 L3 V3 \7 K% `
(setvar "CMDECHO" 0)
" V2 Q% A3 v! D: y) J- C" Q$ j
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
+ b! ^4 s0 N' z) H( ?) |
(command "rectang"- N! f" E F6 T" C. }2 u: U
basepoint
3 v0 ]0 ]5 N' u3 \% f# p* ~- G
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
; y p/ U$ {1 Y+ k( S
)
[$ B4 X/ S) ?
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
6 {1 b. j0 `; N' M9 h; e( B& ^6 h
(command "rectang"; m t/ w" M4 h6 e1 i, g* U& E+ z
(list (- (car basepoint) lg_width)/ I( V w8 J$ I/ R
(- (cadr basepoint) lg_width)# a; e1 x, J; m; d3 t. e
)% a# n8 Y1 `( N1 _" J
(list (+ (car basepoint) len lg_width)
1 E4 r* s" E5 i: e! w/ I9 v U3 p
(+ (cadr basepoint) lg_high lg_width)" ]6 B3 Q; b5 Q4 R0 o# J% b
)
! G( B( |% ^- g6 c
)# r3 V6 [9 ]& }
;;将指定点移到其右侧A距离处
8 _/ _! M8 e% a) e* S
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))7 l! ?/ ]- V3 u v
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆4 v! o/ E# t2 e z0 F o" ?; N2 W
(command "rectang"8 D& Z" [' D0 `+ y- X0 ~' N0 Z
basepoint) N9 p, y. q. O: C0 S# g) I
(list (+ (car basepoint) lg_width)1 i1 F, q% |' Y: J+ s
(+ (cadr basepoint) lg_high)
) ]3 q2 l( V9 p0 P0 S( f0 d
): F, a0 R5 v# Y) N
)7 \ b0 }. {9 g
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)# W$ }, v3 w/ L" p3 u V5 n
(repeat (1- n)
, u; y# D' ], w& |& Z
(setq
\- B6 {: @2 H( B
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
) s4 G Q5 W3 Q& ~, r4 ^2 @
)/ Y& G; Y( R$ c) c% k9 u
(command "rectang"! r0 ?. ], A, ?" Y P
basepoint/ }& e+ c' s- m; ]5 {3 ~* E
(list (+ (car basepoint) lg_width)
. I6 T. Y0 `% y) {; p) R
(+ (cadr basepoint) lg_high)
3 C- z3 k. U. P
)
?# X) O; l" i( Q
)
' b* [- ?3 P0 Q) Z
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width) {2 u/ S: L4 f$ Q
(cadr basepoint)
* v3 F* V: ~. c0 g
) \$ ?. P/ D& c
)
(command "rectang"
: S, S7 |) _* D) J, q D* Q
basepoint
: |' T- o6 B- E8 s! d" o B7 g4 m
(list (+ (car basepoint) lg_width)
- I+ L' |' a. x
(+ (cadr basepoint) lg_high)1 g; X. u: {* y1 |5 `4 N
)3 S5 \0 X' N. @, O
)
$ F8 V& d8 X) B2 B8 `" v
(setq/ l8 u, g# U/ L
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))( s+ g; A( ~$ ]6 V& U m
) {0 e) s& o( v" N' k& g- [: X
(command "rectang"! ?4 A7 b5 n4 W1 z9 F; y- Y$ I
basepoint
+ G, j+ e, G! _( [7 T9 @
(list (+ (car basepoint) lg_width)& z0 s K5 t0 i
(+ (cadr basepoint) lg_high)
1 O, b. ~& A7 o2 J
)+ `/ u. O- _) a1 @! b, \
), \$ Q, D, F7 [# r, W/ _1 C
)
" r+ Q$ z% E+ f9 j, }3 n( s
;;恢复对象捕捉设置
5 _ t) c: }* Z! y4 r
(setvar "osmode" oldosmode)
" [$ R7 x: s5 e, G
;;打开命令回显
$ I* l& W7 O+ ^3 r
(setvar "CMDECHO" 1)( f# R2 ]0 x0 [" l. X0 A! C
(princ)
6 a. N) @% I+ C: L0 v4 R9 {
)
. [( U5 l- A Y6 d. e6 i: k

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源