作图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 发表
- E {: @; O# L直线分段方式，a=a=2b9 {( t$ @& y6 r6 o
& {) A0 q# _7 B7 l

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
, E0 n( L: Q, ^8 \3 M) ^
' r( i$ u) ^" `9 z/ B距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

( n" l1 e# u* H% Q- R e
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
8 k6 |2 x; E. x5 A/ ?. Y- r! u
;;设置栏杆高度和方钢宽度默认值' n" v- R0 l. M# C5 i9 J+ ]
(if (not lg_high)
+ V* @" [$ O4 B9 U2 Q. n
(setq lg_high 5005 ~' ~; X) }! G% w
lg_width 14. X1 I4 k# b' A$ z- ]% y
)
, n$ f }' H) y6 B
)( N, @* s& X" x4 w& r# x9 a. [
;;指定图形插入点$ `0 f3 P1 h8 D* E5 j. s
;;不接受空回车
! Q( Y( b7 i Z# {3 f. C& \; K& w3 z
(initget 1)3 [8 t4 h z9 D% i# _, W- s }
(setq basepoint (getpoint "\n指定插入点:"))) y8 V; @( Z+ @. Q# u/ m
;;指定栏杆长度和栏杆高度和(或)方钢宽度( q2 |7 E3 G( _" S# u! `4 O
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定; @4 ?3 e7 k* `/ r4 H
;;用关键字指定栏杆高度和(或)方钢宽度后
6 L4 G( p4 I% r4 G$ M
;;需要重复运行指定栏杆长度的代码段
' z. w8 C+ j X0 q0 Z/ o% k- H8 F
(while (not len)
2 h7 k- w0 W& o3 [+ j5 G
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
4 _* P1 A9 e# z
(if lg_length
q9 ?; u8 g( V/ G, F" H4 l
;;存在默认值
9 ~0 E: Z# x) ^3 u7 S" ?! u
(progn
3 v0 W5 u, G. i5 {8 E% T' r% Z2 F
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"2 }1 C- L k' P( d9 b
(initget 6 "h w")$ D; ?( H( h" z; k" x
(setq len (getdist basepoint
% W$ T$ L( s4 e, e: B
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
$ L- q3 m& L! c, m
(rtos lg_length 2)2 i9 p$ W3 S. Q+ s3 y9 K/ A4 J
">:"
4 o" |7 i0 X% G% @
)6 H# Q9 g7 S/ O9 I+ E" i
)
$ E; N' I. x, B; Z* w3 m! Q$ y4 t
)
9 q: s F+ O8 K2 n8 H3 v
;;空回车时栏杆长度使用默认值3 q. a: ]2 K6 y8 z4 H' `
(if (not len)
" ~3 j% L& h" @5 Q ~" f
(setq len lg_length): ?8 s$ x0 d/ W8 E
); j( k# |7 D7 @1 A. ^
)) S7 l/ I9 F8 W6 L- b3 G
;;不存在默认值' Y* d0 y- C; C/ E: f0 I) G
(progn
/ i! @* B6 g0 z( C% C" t
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
- n, K7 o q/ e: |
(initget 7 "h w")
) d. ]0 t$ ]8 o3 \" G* X0 y. g7 R% C
(setq3 Q; `0 w2 o- n* `" a0 F) E5 ^* B
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
5 T2 F0 h. t+ c% {( v- J3 w. _2 ?
)$ }& A. g& z* j( v% g
)
8 @/ c A# F* F- @! d( y5 U
)
& F/ A1 o8 D' j# a
;;检查用户输入的是长度值还是关键字/ y: e: ^" m+ S: j5 N! V1 |
(if (numberp len)
; r; I, v- C/ c: V3 d7 f
;;输入的是长度值
& g# H a+ a8 i: f( X# G
(if (< len lg_width)
) y+ e- O2 T9 ]' m2 a: P
;;当长度值小于方钢宽度时清空输入值重新指定1 [6 Y* {; o2 i, @
(progn
& o( N' P3 Q7 P, g
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2))), R4 ~3 j% n: x1 C, H& Q' @
(setq len nil)
; a) b5 A9 L9 \& R. O; C
)
: [' @) l h4 t( Z9 z8 Z7 y
)
, V; v* z) p: `
;;输入的是关键字
) U% [# @- o& g/ O
(progn" A: y' O0 z7 I5 a) F8 O) x
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值: |: V5 E6 f8 k( E% ~' ?
;;用户输入时接受空回车,不接受0和负数
, `( t* I6 W, U, o: _
(initget 6)
5 O# y2 ?! t7 L f& R! |3 {
;;检查用户输入的关键字是"H"还是"W"
& m1 p* [) P% H5 E7 r& f0 \6 E& C9 Y
(if (= len "h")
8 g2 d5 y- x, J
;;用户输入的关键字是"H",指定高度
2 S$ ?0 m% l( E( M2 w' H8 w
(progn/ T5 a# `* [# Z- k& `9 M- o
(setq high' v8 m7 k% _) ?& M
(getdist basepoint. Y) ~ J" w6 ?. X: x
(strcat "\n指定高度<" (rtos lg_high 2) ">:")( d$ T+ G4 ?6 x. \6 x0 D& f+ s
)3 Y/ f0 m; r/ y( ] {; }* h
)( a1 V" a K. G# W
;;用户输入新的高度时修改默认值, N b3 u/ u( G9 L2 b n$ @
(if high
' h; \* m4 J q3 \! e4 a
(setq lg_high high)
# p7 s$ e/ [! n) U4 G
)
% U% {8 B7 ?, P
)1 `4 }# X8 M( e) j$ o' ?3 i
;;用户输入的关键字是"W",指定方钢宽度
/ t, h! [! w8 R3 j- h. _
(progn5 S3 i" _5 I& R' X, _$ `
(setq width
3 P+ {) r: O9 w* e- Q2 {
(getdist
( X4 G3 Y8 ]; {' R, {
basepoint
: h5 _' u; r P2 G# {8 A
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
n* K, F7 H9 W0 H, I- \" _3 M, _
)
0 E' G8 f3 N1 _
)& A) @4 c% D8 h' B X: s: _
;;用户输入新的方钢宽度时修改默认值
' { v: H& M- T) a
(if width) a. j3 Z1 ]+ m6 y. k# l5 Q$ T
(setq lg_width width)
$ d h1 z0 T$ b: G0 x; p1 x
)5 C- Y0 `1 U8 _: J9 D6 j
)
2 V8 B6 t0 Y* R; T9 `8 \/ Y6 S
)
' n% d" x) b9 m6 z( H" o6 I- I
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
1 i" |4 W) s# [# t0 f/ ~4 {
(setq len nil)
# o) }. C T* P: _/ p0 o
)
3 L9 V3 j) l4 k8 s; X& [' q
)8 H6 k2 e, o8 Z1 X: s* n4 }
)6 x! O" i5 [2 [' I0 Y8 ^' m4 ?; E e
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值7 F1 ~5 i" Y1 i, M" e
;;计算用户可以指定的花形数量的上限
2 R0 V3 y9 s& M7 G( r# R& I
;;用于下一步检查用户指定的花形数量是否合理# `# W2 Z+ B& Z. v# s/ E ?
(setq lg_length len( p; k* [! t* A1 [
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))/ H: d& v' t8 v& O
)! R7 W$ J! j, Y# U+ g9 Z& S
;;指定花形数量或A段最大长度
: Y( f: s0 T( z* T% h/ r$ i
;;如用户指定的是花形数量,则按用户指定的花形数量画图
2 p: K5 M8 K' {; ^: D- C; u6 |
;;如用户指定的是A段最大长度
9 N2 H+ i8 J5 y, [9 \: f# i. _
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图0 ^# E- [0 u' @0 P. O
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
+ P4 _" d$ Q1 \2 |7 n8 W O- m
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解2 f/ m6 H+ H3 F
(while (not n)3 u ^, }9 y. s% h) |. g
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
* i: z1 B, W! p
(if lg_n4 n0 G9 c" J2 [* |6 Z0 i
;;存在默认值! @; Y4 p }! ^7 B$ o
(progn! {' \. \2 C% n- X3 R1 Q) Z
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"8 u* n0 T7 V. l4 G# U% i
(initget 6 "l")
0 s9 Q- l) n3 V4 Q, t+ U) k* f. q
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
0 j1 U% F2 C* }+ }0 Q. P
(rtos lg_n 2)
+ J7 r9 x9 }4 w$ ]6 Z1 c# J
">:"
# Q( N. h/ N5 H5 A& M+ N2 f
), ^: |& R* g$ d( V7 _
)
# R* C7 y7 O' w2 s! l8 X0 z, |( W
)
; F O8 q8 v6 q0 L5 c
;;空回车时花形数量使用默认值' ^5 S" K! z" W* N6 R: W& p
(if (not n)
7 T! \% c$ N( A
(setq n lg_n)3 |$ l& I- y1 a9 m
)0 X( r' q8 c5 _9 A: W3 U* U+ F
)/ _9 G8 u0 @$ s: o/ n4 Z
;;不存在默认值
3 E5 [! X" f* M4 I+ u* e
(progn
8 M; A# E: J& m1 G0 P8 ~
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
/ c8 [$ l! M, t* |3 W
(initget 7 "l")
' V& |' N" Z$ N/ ?2 a
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
! }% R7 Y% b6 I4 ~
)
0 D2 B `$ \, N2 T" U
)
% f, L+ ^' N) o. A6 {2 O- v' P
;;检查用户输入的是花形数量值还是关键字# M2 U0 Q# C- N4 b u
(if (numberp n)
g& g( t1 K: R, B
;;输入的是花形数量值# F. Z, F) @4 M3 w& p
(if (> n nmax)* k% f8 {% C0 E- j1 w$ k
;;当花形数量值大于上限时清空输入值重新指定6 w0 y, h6 o x
(progn
/ M3 G6 Z7 r' A* ^+ f
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))# n0 j+ W% N/ i# I [
(setq n nil)2 x& z: ?/ Z, B8 e! Z9 t" l
)
) d& X3 ~8 Y! w, f D% x2 f- n
;;当用户指定的花形数量合理时存入全局变量
2 {# _- @3 h& y( e
;;以便用做下次输入的默认值
8 C, m% n6 p( @6 r7 L# P
(setq lg_n n)" H' h1 y0 x/ E6 P
) ?1 z# l3 F6 s: e: f/ Q
;;用户输入的是关键字; }! ^% B& V) Q
;;指定A段最大长度# ^, U% C4 ~; b2 i. e6 ]
(progn! a/ [( v0 e- U6 @" W' S' r
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
. h1 a- ?4 T$ \8 F2 ~4 R
;;否则可能导致无解! v' T1 G$ N+ K/ {4 l
(while (not amax)
" A: f/ |- S6 I5 v, a, N |
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
4 v2 {; G* }& {
(if lg_amax
+ H) {5 r6 O* {. E- n
;;存在默认值
0 E4 \+ Y) j. u3 ]+ p7 T8 @5 a, E
(progn
8 U0 H$ ^3 w, [) I8 [
;;用户输入时接受空回车,不接受0和负数; q4 n, \& k5 G
(initget 6)8 i+ V9 ~/ \# ~- ~2 q
(setq amax (getdist basepoint
* u# l: Q9 Z9 j* R% i l
(strcat "\n指定A段最大长度<"8 ~8 D' K6 x" Y! M! i+ L( t6 a& ~
(rtos lg_amax 2)
! w( k g* E- B# B2 `! G0 }& ~
">:"
)* W, A6 V. R f# F1 \6 k7 I9 O% s
)
( F$ z9 [" U0 W) X
)) G" Q) s$ b( V4 \. N
;;空回车时A段最大长度使用默认值' d( Z( k5 W) [8 Z. ^) M4 o
(if (not amax)/ t5 O7 a2 f( ~. ~
(setq amax lg_amax)
( d) ?+ M6 O L# `6 L* z E: U
)# {2 p1 ]8 }& X' q* v- r
)+ k7 k1 K0 B6 ^# W. p# [6 \+ |
;;不存在默认值+ c, V7 s# j3 Z5 A& a
(progn
: e- z7 V7 y, r8 \. m3 x
;;用户输入时不接受空回车,0和负数
3 `1 w# Y( B0 r* H) }- ]7 _
(initget 7)4 H9 @ E: d) R8 b. v/ C
(setq4 Y5 b5 V& n, r- m4 F0 h5 K
amax (getdist basepoint (strcat "\n指定A段最大长度:")): P$ O6 l4 T$ ^6 Y9 l- Y
)
2 C1 R* n. O# i7 E; B
)
/ h+ H0 g7 B5 ^2 g
)
. r5 p$ h9 |4 }$ O4 Z8 b8 D4 n! w
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
( Z4 k& R% ?7 I5 r
(if (< amax (* lg_width 1.5))
7 z7 x# F8 f' H
(progn
( X$ V/ _8 q- s* }0 a5 S6 a9 a
(prompt (strcat "\n指定的A段最大长度不能小于"# N" y- A$ M; s4 I; d$ b: E7 N- q
(rtos (* lg_width 1.5) 2)- S* H& Q. l, _" O, G
)
6 N* }- N) ~+ V: T1 ^
)
: f1 W" B& h; F
(setq amax nil)
8 G4 ~$ d' x& L6 x
)
' P# S3 H& \3 ?$ W, R
)
6 ]- \2 _9 a z; Q# A) P
)
8 q* [1 t3 c0 c% ], P9 q! t! F% p
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值1 R6 o8 D1 m, G
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
8 v( O1 c7 T r; m/ w l
(setq
4 L- }. J8 d1 A. I- m! n& c
lg_amax amax
! S' A+ k4 @1 t( y7 t
n (1+ (/ (- len (* amax 2) lg_width): E! C: N7 c: x% \/ \/ L" f$ N! t
(+ (* amax 2.5) (* lg_width 3))
( Q- u7 }9 v" n
)
1 m" b8 K' R- j+ h* F2 D; P
)( s3 X+ H; Y: u& q
)
( U# S2 I: Y+ A; u% r, t9 S" Z& ?
(if (> n (fix n))
( J& m" Y4 I$ s
(setq n (1+ (fix n)))+ J f- m" a" V e% p
)0 ^4 \3 x g% z: n$ D c7 R3 N4 J7 Q
(if (< n 1)
* n# _9 y: ?+ l( o9 {: h
(setq n 1)3 ?) V; ?5 e# K: W. A0 w
)8 w1 |! ?' S" L1 }
). Q$ }! G- N( m; y; B4 j, r
)) V4 W& Y3 ]2 ?! Z( o- @2 R7 J
)
) H; N& J# c' Q. ~1 t. o( ]6 W- ^: ]
;;画图
# }3 s6 I' y* y) G1 L
;;记住原来的对象捕捉设置
/ z7 f7 e! \- v6 [- p8 L* | N
;;按花形数量计算A值3 N; R) p7 J# R. b2 g0 d. V
(setq0 o& w: e! _/ |
oldosmode (getvar "osmode")
9 ~5 o6 N, O( O* {
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
$ D2 P- ?) S! S0 J& x+ V
(+ (* (1- n) 2.5) 2)( t$ ^% R$ S2 Z
)0 |) _0 i; I3 D: J! V
)4 |" j I2 g4 r$ [9 _
;;暂时关闭对象捕捉
: ^ T" \, L2 ]# P# w+ i1 S
(setvar "osmode" 0)
6 a) v* S+ y' x7 L
;;屏蔽命令回显
! i! u# |$ x! {+ E: r- P( R
(setvar "CMDECHO" 0)+ ~& f1 t. @6 O/ ]- q
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
* c3 N- M* e3 l" t
(command "rectang"
1 x3 x* b. w; C9 P
basepoint
8 V' Z/ d4 i: V _8 _/ u
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))5 w) z U/ ^# J. R; `
)
! I. n9 d. j3 z' D" o E1 j+ Y
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
8 O3 _7 ?) y+ G: R1 ?$ ?2 D D7 o5 f
(command "rectang"$ `3 b% B5 s5 {
(list (- (car basepoint) lg_width)' q. A' B; C/ c* w% k* m1 c
(- (cadr basepoint) lg_width)
: v$ h$ F( j# y a
)" b8 O) a: I. \
(list (+ (car basepoint) len lg_width)" r9 {# W* S9 p* y* Y! b- `
(+ (cadr basepoint) lg_high lg_width)
; M5 O( Z' i9 F0 ^" j# w; a
)) L# P& ]: W) X8 f- t
). i- l" H# p7 `8 x# r" S
;;将指定点移到其右侧A距离处
: s2 `5 d! P2 d# f0 l
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))/ N( ~& p3 T" g% P
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆3 @. E" d k6 ]$ V: l( g
(command "rectang"
0 p0 E1 Y4 a) g, v. U9 o
basepoint
+ B" ]# m) E& A
(list (+ (car basepoint) lg_width)
/ r/ G- d4 E( N0 L; R3 G
(+ (cadr basepoint) lg_high): L# P# M! U5 y* O2 s4 Y
)
' h; }" Z* }8 W0 H5 j
)
- ~. r* T' x3 L: D- v' }! r
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)( k5 x& ?7 g- v5 W1 F
(repeat (1- n)* P4 n. k9 Q6 W; k# M6 u9 o
(setq
" n7 w/ b9 x! y2 N3 j* R
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)); |/ I0 }) c# C1 S8 a% e
)
& h% L d# `: r" X' F6 J' F$ P% a( t
(command "rectang"8 j$ O; H6 r {6 y7 o
basepoint
5 d$ c/ H' g' p/ o9 H+ t
(list (+ (car basepoint) lg_width)
% q* N- M9 P8 n) e. Q$ V
(+ (cadr basepoint) lg_high)5 w0 \& L: G& o q8 |# B
)4 A7 X- z9 y$ W+ Z% v
)
/ T$ i* `& w' v( Z) h- o6 c
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)! M b7 N- O/ |2 D% b$ R
(cadr basepoint)
" x9 Y3 T5 P; n7 b$ o" ~
)2 L, {* z, d% C, t& x. j( l
)
/ v C1 R3 u. i0 j" B
(command "rectang"
5 J! `7 u1 |. l2 `$ L4 ?, J
basepoint& F" V8 I6 L& h" t! O8 _2 _, Z$ t
(list (+ (car basepoint) lg_width)! }# p2 ^, [1 f" d# l
(+ (cadr basepoint) lg_high)# l# J7 T2 V. u: M
)
8 a- d/ E/ s' N# Y$ g6 E0 M
)
. C# i ^/ r! e) M. ~
(setq
/ x% t% h! Q6 h7 @' J! a
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
, U# y `. f6 o V$ O! \0 [ Y! N
): D! h5 Z+ A% n
(command "rectang"
% }+ ?/ l3 t. c! y* S1 N2 C
basepoint# `6 ^( o' s: T8 @
(list (+ (car basepoint) lg_width)
- E3 \9 c* |2 H
(+ (cadr basepoint) lg_high)4 n; _! H) a: f. U3 g1 b7 i
)
8 c2 `" f. x: A, L3 J
); X2 i/ L; R5 ]2 V9 q8 d
)
. ?: i+ q: o m X2 Z" ~- h
;;恢复对象捕捉设置0 i8 {6 K7 X6 ^1 O7 a
(setvar "osmode" oldosmode)
) I$ V- E ~0 Z
;;打开命令回显! S9 ?& ]* }9 u0 P
(setvar "CMDECHO" 1)
' U# u0 j* M3 @; G$ x( U' y) L+ `
(princ)
$ B6 c _( _4 q* y% O# `6 ~: V
)1 y( L, F- a, b. Z. K5 l* m$ p

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源

浏览过的版块