作图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 发表
0 O& _# s, [$ x) E# Y- k; ~. ?直线分段方式，a=a=2b
+ j# @9 c* e/ Z2 _
! | D! l |0 ?* X+ f. X1 }

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 ( l m/ a; x( F6 M6 N: S1 T

4 `! N' L, b, x% o距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

# a- J! ^; B& y2 S5 c0 O I
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
" n' |1 y6 m. U- r& G
;;设置栏杆高度和方钢宽度默认值
: a1 ]" y* p) u5 ^
(if (not lg_high)
- P* V$ n( E9 T3 Y) x9 P) m
(setq lg_high 500) N' k1 j' U, [9 ~. _0 ]
lg_width 14
9 h, m) v+ k3 b/ B1 F6 s
)
2 B4 J% U' s: r* s, y
)6 }& W0 `9 }: W: g2 u. J
;;指定图形插入点
, w! s# P) q( G( k4 U; ?
;;不接受空回车
; ^' L0 O3 A6 o( D" l2 |# |$ `. }
(initget 1)
' y0 \* P0 @# L/ K& v3 }% l) Q
(setq basepoint (getpoint "\n指定插入点:"))- m, e, ^6 N( O. z8 E
;;指定栏杆长度和栏杆高度和(或)方钢宽度5 D: S/ `/ }+ g2 Z
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定5 {) y0 E- a0 q6 D' @6 F
;;用关键字指定栏杆高度和(或)方钢宽度后
& h% ]# `6 L: u/ d
;;需要重复运行指定栏杆长度的代码段
( p! |& T: F, h2 S, b
(while (not len)
; n8 A! C! s0 Y) c8 u1 Z* [% a
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值/ D- y( ?' ?5 X7 ^
(if lg_length5 I( S" j" ^3 c3 I9 W$ D
;;存在默认值
! e) G0 ~3 d- o
(progn ~. j0 H: H; \4 x: U/ B8 d2 U
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"' }5 G5 F V, N4 m1 T' l8 g
(initget 6 "h w")7 [, E6 i& K, D
(setq len (getdist basepoint
5 l7 L8 X# f+ w/ V( |
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
7 r/ w8 j7 A8 K' X) D
(rtos lg_length 2)" C% {' B* y$ }* G
">:"
1 g7 P y" `5 ^
)
! G, _$ |0 e6 M" f5 X
)# o" S* E1 s- O x$ H5 N- I! O
)* S; {$ i/ S0 q4 g# y, s
;;空回车时栏杆长度使用默认值
) z T& m9 C) s9 R2 X
(if (not len)
6 f2 x6 W+ @; U
(setq len lg_length)1 Q) Z2 f. h: C; i# ^$ N# Y
)
, Z% q% F* A: N. Y
)$ Y `, N8 q0 `6 Q+ l7 A( P
;;不存在默认值; Z8 ]" K% B, i/ Y8 H8 d% S7 a7 Y& Y
(progn {$ | Z( c9 ~# M8 K
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
3 x3 g- }0 ^: ]2 }# \9 v
(initget 7 "h w")% \& \4 c4 M) c6 I
(setq- H3 j0 o- `7 \% ~, D
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
! H# ~0 ?+ w& w; B6 U- i
)8 O8 M* l: R4 Z Y- V1 @- a2 e
)
2 _5 S- g& F. n1 S: ]: Q
), \+ q( p$ n% n
;;检查用户输入的是长度值还是关键字& O2 Y5 d, M0 r
(if (numberp len)6 J; ]3 W/ |0 V- Q' E- ]
;;输入的是长度值. ? y/ A3 s' N; {( U: [' ?
(if (< len lg_width)2 D' w' d# S" u1 v2 u- C) m
;;当长度值小于方钢宽度时清空输入值重新指定
( j9 f7 R2 }. X" S) F
(progn9 W" N0 u# h/ L- D
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
# g7 Q& g u- {* J5 [8 w
(setq len nil)% _2 B; j; X" F( s* W$ |: ^& @
)
- D4 s! c, L }( B
)
6 l8 F9 g" o; F
;;输入的是关键字
( s, G1 X7 q; v
(progn h8 s, {* j( G* z: v
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
3 z, w" P4 r; X0 B% q7 c% N" A
;;用户输入时接受空回车,不接受0和负数
7 `+ E! u: u/ V7 `) ]
(initget 6)
* l2 b# G8 m) H/ A& ~. p7 k
;;检查用户输入的关键字是"H"还是"W"6 W m+ R& Q6 q& F* H2 h( A
(if (= len "h"). @% E G' X# D9 | } }& [: I
;;用户输入的关键字是"H",指定高度* `+ k7 P% ]0 d3 v
(progn
n' Z/ `9 R* b5 z8 _$ z0 ~0 w ?
(setq high
& Q$ A; I3 P/ u( H) f; z
(getdist basepoint
; \) ~; Y0 o. w, H* r, I" \
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
: w, [' \7 r# H" w3 I5 V! |0 f
)8 x b5 o5 c; C' ~$ F
)
- ]5 ^# D2 [# T; K H
;;用户输入新的高度时修改默认值
% t1 u ^2 R2 K9 n# b
(if high
2 ]2 C( K% b5 ^/ F$ F; i ^
(setq lg_high high)
" x) k S; b% F, a- s
)
5 h2 i, b4 _7 Q3 Y& Q
) ~$ C6 T3 r; L. M- F
;;用户输入的关键字是"W",指定方钢宽度
" s/ Z2 @3 t P1 v% M: [& T
(progn
' H( d! \5 t" ~2 W; N( \4 l" X
(setq width
6 q2 f5 x+ z" R# n, I q0 e
(getdist
2 u+ V C' P, v+ q2 e' ]9 t
basepoint/ |3 a- n0 u' w
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")8 O- O X. h3 @/ {$ I( Q
)
2 l/ z9 N1 | z
)
0 G% m1 V2 t/ e6 D6 p, }
;;用户输入新的方钢宽度时修改默认值9 J7 U) P/ G' v+ t1 D4 g0 ?- v9 F
(if width' D% z3 h% j. \0 d5 S
(setq lg_width width)
+ ~! @$ c! X! l9 K& f: H" i
)
* Z7 l: ] }0 f. Z
)
$ }% o! D2 W$ Z1 G1 o3 B2 s% V8 ]
)
" P% z) w0 H/ X. d: b L0 B
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
8 `/ x7 Z4 {& `
(setq len nil)
, n$ w. Y- a/ ?3 U
) w. J, k# U9 R" u3 F0 q) @: m
)( g, ?4 {9 j# Z) W% p
)3 g7 Z3 h0 |$ `
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
9 t- j% z1 X7 `, _
;;计算用户可以指定的花形数量的上限% ], ?4 H' D4 J$ q% Z' F: Q
;;用于下一步检查用户指定的花形数量是否合理% h6 D4 o/ T& I
(setq lg_length len
7 D/ w7 F% ~0 q, E# z' u: p- e7 B
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
8 j* F/ }% c2 |, r
)
( k! v) U6 u( {4 j: e
;;指定花形数量或A段最大长度
; V u* @$ S, Z
;;如用户指定的是花形数量,则按用户指定的花形数量画图
' U8 \+ G: V# E8 f d& C5 T
;;如用户指定的是A段最大长度
{$ t# X& f/ ^2 [+ P; U
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图" ^6 D9 w" L: o* j
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解. r( U+ ~$ @* d, @% T
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
. h' _5 [6 m. R \
(while (not n)8 L" ]. ^5 h) n' v7 c4 x7 R% L; K
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
( C- ~9 l2 j: v! v) r; @* X
(if lg_n
8 ~% j" J& \1 `- r0 Z2 v
;;存在默认值8 L3 k3 x4 B/ Z- S1 `- o
(progn- h. D3 R6 ^2 z- k- U9 C- t6 M
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
4 D' g6 t: C" {& {7 N, U0 A7 ]. B
(initget 6 "l")
3 ]7 V% h7 S. J H# z! Q) Y
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
+ d% b i3 I/ G* ~, J) d
(rtos lg_n 2)
# n* t) j( ?: @& p+ z1 Z3 C% r; j
">:"
5 o8 [7 z o" g! ?3 _( A
) B& M" U; |' m% p; x* X
)
' L8 E: D8 t9 @) |/ M3 b
)
$ ~% B: Q; E! U
;;空回车时花形数量使用默认值
' d3 \. z, H' S1 _8 G2 J4 k$ p; A6 k
(if (not n)- N9 l8 a, d5 V* Q5 I
(setq n lg_n)
; t$ s* L, m- F- T: [: w4 \
), d( w6 k( F$ d! u3 N
)
" V. j& o9 X+ u+ k6 r
;;不存在默认值& b3 R/ ^ j7 W2 R
(progn
, n9 ~. j' p3 ] L4 G. C' a
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
" Q7 J+ i! ^6 t# Y j
(initget 7 "l")" `6 X+ L' ~+ I! Y" s* x- P
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
! g* X1 `; z4 l3 d' i% c
)
; f! C% H+ d3 C* h. ^$ p" k; v
)
& n0 t5 L' z3 t1 @8 v) i
;;检查用户输入的是花形数量值还是关键字
7 U, F8 _. D* B' j
(if (numberp n)0 N5 X1 Z' w: F
;;输入的是花形数量值
0 m8 @. m& S7 J8 |# J
(if (> n nmax)$ h# }) N+ K$ @- t Z/ R) |; Q
;;当花形数量值大于上限时清空输入值重新指定6 m! Z' O0 b7 q! q5 L
(progn
; z* j7 x6 j: H5 @ ]+ N0 e
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
5 z/ i! v) c A; D/ ~2 R
(setq n nil)9 f1 }# N% V9 n7 i* x7 q
)
6 P! D% f! C/ d3 }/ x
;;当用户指定的花形数量合理时存入全局变量8 ]/ F; o& {2 N* `5 X. R
;;以便用做下次输入的默认值) u; ?4 Q% [4 s$ K
(setq lg_n n)1 a% O8 _: p4 ]1 `
)4 Y8 y) ], A* ?) f4 g" Q
;;用户输入的是关键字
. U9 n: h) I* a5 }8 m4 l' B F
;;指定A段最大长度- p& E% `/ P( h2 L" w
(progn2 x B+ v: O+ b2 l1 d- S
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
! `8 ?5 w1 ^, t
;;否则可能导致无解
$ y7 L0 f1 I; N! _$ _9 }3 V, ?3 U. \
(while (not amax)) D! r; V0 D+ c) V7 c9 h$ ]! k
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值, `: q+ d/ J1 a0 k% m
(if lg_amax1 \# `1 c" v. v5 J% I5 f; I/ N
;;存在默认值
" b. ?4 [# y/ w) V: H
(progn
5 F2 {- t3 Q( C) ~* D- G) v8 d5 o
;;用户输入时接受空回车,不接受0和负数5 W3 O4 b& x# |9 U3 Q; t) Z/ H
(initget 6)
3 M" t4 V# X( a* l
(setq amax (getdist basepoint
# |" K( L1 X1 ~ p
(strcat "\n指定A段最大长度<"
, r3 ~: k4 W& I/ b; L$ i" k& G
(rtos lg_amax 2): m( D+ L$ C7 l" j ^( N# a% n
">:"
0 Z8 D, u( b6 Q6 [2 _% q7 W5 i' `1 h
)
: i/ K' b/ O- p4 A5 p
)0 A, u2 y+ w5 S
), v" l( t! j8 h" m5 ~
;;空回车时A段最大长度使用默认值/ H( O+ X& b2 W8 C) y, y8 T7 @' t) q
(if (not amax)/ x0 B3 ~, R1 f3 r$ P+ z* x( O
(setq amax lg_amax)5 l9 Y6 w' ` u, U: Z* a% c, ]
)
6 T1 G+ t$ H9 h# D4 v
), o! i$ P% K6 I% O: \; r5 y; F4 V
;;不存在默认值
1 [5 s# \* j4 W" J9 m
(progn# d3 l) i5 j9 N3 t }% c
;;用户输入时不接受空回车,0和负数
3 N! Z3 T' u! u
(initget 7)
! Q/ y5 o5 ~( M7 Y" C* h: O/ d% c
(setq5 y' O& B q/ x4 M `, _4 h
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
* a2 d2 X$ S( `& q, C( D8 J" p
)
$ t: Z, V/ x& Y' U
)& Q s/ _7 j1 q/ z# @) |
)
% U2 W* R1 o0 c' q
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定, a$ I3 {: R! f9 Z
(if (< amax (* lg_width 1.5))
, V! Z: u C0 Z6 o3 ^. q J, H
(progn3 S" Q0 {3 e9 z) t5 d4 Q
(prompt (strcat "\n指定的A段最大长度不能小于"! _" Z3 y W( R2 q- ~, c
(rtos (* lg_width 1.5) 2)
% t, S: ~# k7 t# Z N
)
5 }6 n6 k* ?3 z2 i, G7 Z
)
) f1 a5 E, q1 G9 V5 r2 `0 ^
(setq amax nil)
! i) e0 @8 G# f+ Q: D
)9 [: [9 z0 O2 W; g3 Q; H
)
4 T& ^" j5 ]& _# Y! u$ _: m, d* w
)0 z2 M9 I$ |/ s% b/ [+ n
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值5 X }$ {6 b/ X8 t3 p$ i
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
; V( ^& b! e/ d! @, x
(setq6 \! K5 G" r5 @9 S' V9 ]9 v5 F5 R
lg_amax amax
0 Q% s/ c. K, v$ }, d
n (1+ (/ (- len (* amax 2) lg_width)
5 X7 A& t$ A) G9 l; ]. A: r
(+ (* amax 2.5) (* lg_width 3))- o( C7 _" K5 x+ {' f
)
4 {* f+ t0 P3 v: z
)* d, M% r$ }, ~$ x. K
)
8 G+ M$ P3 W' P. l
(if (> n (fix n))
, T) Y, `' z# Q- W4 C" {/ w: z1 s- I' Z
(setq n (1+ (fix n)))( S4 B9 Z" V1 ?+ q# L
)
3 S( a7 J/ s% D# j
(if (< n 1)
* S( j7 {3 B) ]
(setq n 1)/ R% S4 U6 P4 n3 \: Z b- n
)1 N2 Z. N9 e7 D
); v2 i$ \0 u: J: T& x- K8 {2 h
)( O/ _ c7 r' M/ U
)4 p2 M7 t% M- }; X6 T- V) S1 f
;;画图
- d; ` k, i' S" Y
;;记住原来的对象捕捉设置
: ?# L6 b9 ]- N- Z' R
;;按花形数量计算A值1 S. U6 l6 a1 K$ a9 Q
(setq' U) h# m3 d& N+ F
oldosmode (getvar "osmode")
1 w5 R' K e! A! g
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))6 r J! w y1 j
(+ (* (1- n) 2.5) 2)2 g5 R# W! J8 J' E# w
)( d, ^4 f: k' `4 z8 U+ h% s
)1 b2 `" i+ c9 }
;;暂时关闭对象捕捉
, H' L4 G& o# l: i6 G, L7 y
(setvar "osmode" 0)
. Z" E" ~4 o2 M" t3 N+ M7 f! }& ~
;;屏蔽命令回显8 U( N7 R+ O" M( c
(setvar "CMDECHO" 0)
M4 H8 W' v9 D$ ^" g" \* N- h
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
0 r- v% @( V; Y% O3 K
(command "rectang"/ s4 h: i7 ?0 F z1 l5 i
basepoint: l; y# }$ f" N, }+ D
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
8 @! r3 I; W5 z' x/ j. T8 {& Z' C
)
( a9 q3 \' v# s1 Z2 Z7 w
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
$ s% x/ i V- V F+ K9 {
(command "rectang"2 J4 z) u; ~2 c0 |* }2 s4 f
(list (- (car basepoint) lg_width)
9 t8 O+ i6 V- M( R J
(- (cadr basepoint) lg_width)
& R8 w2 E2 T8 {( [5 B+ u
)8 U B3 c+ A7 x2 B; Z# g& }1 C# l
(list (+ (car basepoint) len lg_width)
0 o& f$ U1 M# g: S" z
(+ (cadr basepoint) lg_high lg_width)
6 J: ~3 N3 A$ u8 ]* V
)
" e- H: w* i0 m% k8 T3 z: g
)
# U& e7 d. f1 T' D# w3 i/ W3 V. b
;;将指定点移到其右侧A距离处/ i0 `, p, f$ t) a
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))3 N- h& B1 x, h
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
* I) V, g- m: a$ q7 K
(command "rectang"
; M4 e3 y9 `& x) A
basepoint
/ S) }/ y; m/ \- Y2 k' T
(list (+ (car basepoint) lg_width)
/ f7 W! e6 z! k* W
(+ (cadr basepoint) lg_high)& e3 s( B* Y" o# l+ K/ y9 n
)
5 D$ N/ I5 b0 @6 g: v
)& F J- Z$ D( W. o$ u& d( ?
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
+ b; f O( a% m* W% q, B
(repeat (1- n)
- r( S6 J8 e9 D7 M) T% |6 h
(setq Q* Y2 a) C; t
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))1 {5 z0 I* @/ z6 q
)
4 _: [4 T/ F$ G: X
(command "rectang"+ f1 j: d: h. J6 c/ N2 k( R
basepoint
- J6 J/ Z! m4 w) I r) S
(list (+ (car basepoint) lg_width)
* J% s: G, h, v3 B a" [
(+ (cadr basepoint) lg_high)5 Y9 ^: k5 u! b2 Q- u
)
( f4 ~6 T& s! }* n% j! b# \
)- R* R9 j9 R. Y. ]
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
; Q. U8 S9 x# z) f% F7 G& g% C
(cadr basepoint)
$ F8 k! D8 I! ?
)* G; L: Q) N# b) \8 ~1 l$ v
)
7 v& ]* \/ u. p( F2 b2 t
(command "rectang"
- J. H. g$ _) w# j+ ^
basepoint
- A" B) F; Y6 }' a# ?5 `3 p7 Y0 |
(list (+ (car basepoint) lg_width)
" P2 s5 j+ i; o* l8 f% Y
(+ (cadr basepoint) lg_high)
% |7 A/ O8 G, O
)
" q2 {, Z6 L" P5 Y/ g2 D
)% B/ P/ g' I1 {0 h
(setq. i3 W/ h- @" J1 q4 w% c# ^- o+ V+ P
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
% \, |* u+ ~) P+ v
)! P* \! Z/ L- Q% |
(command "rectang"
5 G! ^3 a6 d5 V8 {, N4 j' y
basepoint' c8 w" r* A5 @ G' }$ l
(list (+ (car basepoint) lg_width)
/ b* n: |# h8 B6 `' E" [" f, ^9 y
(+ (cadr basepoint) lg_high), o3 l+ e3 H# ~3 C9 y& s8 h$ t3 }- S
)+ [/ P: C- {5 P1 T; P$ U% N
)2 h) ?4 L' C Z$ u
)
7 d8 `( H+ I5 I3 o( k
;;恢复对象捕捉设置
. j6 F/ Y0 p6 B! {
(setvar "osmode" oldosmode), \( G) T# q7 ]. D
;;打开命令回显
; ^: A9 W9 _& a! C
(setvar "CMDECHO" 1)
2 K( t4 X ~8 O& R
(princ)$ N7 z! w$ t4 s& Q _
) B# b% s6 e4 e }5 J

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源