作图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 发表 & A6 [4 C$ U7 p3 z; k/ f+ R, ~, {
直线分段方式，a=a=2b
, N) w" O8 u; \# }' m! h. u 1 E/ `; g1 Z: h$ ]

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 9 g7 b% H' R! s

: Q) i6 g b7 j! k( S% ^3 C9 n距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

; a" t$ [; E" j9 s5 C3 e
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)3 {$ N/ l# ?4 x2 z) p2 w# g* u( E; |
;;设置栏杆高度和方钢宽度默认值
- R; P! _# I8 ]# [
(if (not lg_high)( K. ]* @" z8 I) o6 o9 ^
(setq lg_high 500
7 e. G9 G; s9 z. B
lg_width 14
" ]8 k; c* z. ~! M* s
)! V/ b0 ^. ^) s/ x
)
: N8 E' v! \+ V0 o! D3 U
;;指定图形插入点
* N! ]8 d8 X' N: D( ?+ O
;;不接受空回车9 y( |5 A2 A4 J) {. j, i7 D
(initget 1)
' x- `# b& |* @. G
(setq basepoint (getpoint "\n指定插入点:"))( v1 \4 i- X0 q4 M: e, o& M
;;指定栏杆长度和栏杆高度和(或)方钢宽度
' B# t7 H6 ^4 G4 A- c8 e- D2 m
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定$ e+ i* r4 r5 E' _. a8 u! [6 i% B* z
;;用关键字指定栏杆高度和(或)方钢宽度后* e( m/ U5 x# v
;;需要重复运行指定栏杆长度的代码段5 Y8 {) b+ `. c" A# n
(while (not len)
: D1 s7 P, `5 r2 q% j2 y7 U4 m
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值, p! g7 |( w! h Q
(if lg_length
. v" U$ r P1 |" ^, U& E
;;存在默认值: e6 M; l$ Q! Q! H+ m, B9 j5 F
(progn
# N5 q0 \' l/ @, X
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W", R+ V* b# f% @* E
(initget 6 "h w")0 _$ W! b. W6 f6 M
(setq len (getdist basepoint4 c1 S9 T0 w* Q* \
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"0 r/ @! q! s% p E
(rtos lg_length 2)+ O ^$ O; L, g+ R& Q3 m' X) [/ Y
">:"
8 ~) {- L9 l& [, k# p/ V
)1 ]# x% n; U2 a
). H% O: @! i/ \+ i) I
)2 w! R) V1 Z) _; d0 Q- e' M
;;空回车时栏杆长度使用默认值9 b6 j3 j( @" _# I9 z1 `
(if (not len)
( V! S1 H9 x6 ^" A4 z$ N) k
(setq len lg_length)
- e+ Q0 ?3 Q4 X! v6 f2 @- ~" K
)& T- _# P4 B. u7 ~ N
)* T% `1 C; @$ }6 O( z
;;不存在默认值
7 M+ ^8 W( {2 ]. t: h
(progn
% g1 M" {+ _# j. [8 Q- ^
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
( e- {" b! q' U- r& P3 n/ [
(initget 7 "h w")1 @8 P! x, `! i* Y
(setq* f7 I+ J$ G5 l/ f
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
; p5 |7 G: i1 e m
)
8 M! @ m$ j* R9 Y0 c
) U2 A" }6 {! ^
)( y& a& T) W) b8 d- \# E) I, w
;;检查用户输入的是长度值还是关键字
; L5 O4 A q6 G8 h: n
(if (numberp len)
9 \+ B. j6 g/ U6 v& I
;;输入的是长度值* C0 D4 ~& E7 p, @& D H
(if (< len lg_width)" H u6 h! E! a2 j, B6 p' a% I
;;当长度值小于方钢宽度时清空输入值重新指定# a/ F( k, @! B1 M `8 O
(progn
2 N7 L4 F7 \3 k& Y' T
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
2 I7 T5 W5 _! ^; Q( m( }! W% R
(setq len nil)2 O4 C, k; p3 G8 F0 r
)
8 E8 Y* r# w6 y
)7 r" [; G& A8 M9 m+ ~- r# A- Z
;;输入的是关键字' m- _& \: Z+ j) a* N
(progn
3 g; u, [1 q z$ n
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
" Y4 u% a0 A+ h; m/ j. m, y1 R/ ~
;;用户输入时接受空回车,不接受0和负数
, W+ l, j) Q; z! ^
(initget 6)0 t+ h% m, c4 p$ s& I& v7 o% t
;;检查用户输入的关键字是"H"还是"W"
) X/ o E; W+ m2 I+ J( a8 \
(if (= len "h")8 ^0 f- F( J; F4 w) E) h
;;用户输入的关键字是"H",指定高度( f) r, o8 v4 s& H
(progn
0 F9 l# ]/ \- ?7 U+ M4 @
(setq high7 L3 E# i' y* O _9 S* [8 |9 E
(getdist basepoint
# G& A4 O7 g! ^1 u* u. J: ]9 i$ a* g
(strcat "\n指定高度<" (rtos lg_high 2) ">:")# c1 H0 ], s m u& j6 c
)
5 \, t% ]; F6 s9 a+ c
)0 w: o% e" F7 z
;;用户输入新的高度时修改默认值
, k7 P, f- r0 l- ?2 S. h
(if high/ g9 s& q: N# |- H
(setq lg_high high)
, i) g& z/ F0 K
)
! K, i" F( S+ u% d* \2 [3 A9 L
)
1 F( Z( b. M* o
;;用户输入的关键字是"W",指定方钢宽度4 j' X0 g5 P2 Q) D, s7 I
(progn
' s; K. _" u! g! H# G( _
(setq width2 l+ N, ]6 g& ?7 X' X- ]* G
(getdist% w; M, N* r0 ?% B8 B
basepoint/ R; Z/ [5 f) \! O1 f9 U( z
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")0 n7 L' v, e% v- u8 I! x+ y
)1 T- y9 u! Q, J7 {$ x# ^
)+ L, t B) y: _/ e
;;用户输入新的方钢宽度时修改默认值
8 Z: l/ h( o) Y% G+ V
(if width
$ q/ D+ }8 N! \7 Y* Q% ~
(setq lg_width width)# t* B3 n8 `- `, Y9 @7 ~
)( C' p, B# d7 w- |6 ]
)* x s: p5 }/ @, o3 S
)
9 J3 a7 _. k8 a! h/ s* Y* A- H
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度# D, c& w+ d: x$ Y0 s. d
(setq len nil)( k. N, a" c/ @; d
)
% }- Z& P1 J2 C5 I. @1 A/ C
) e+ g! Y3 W8 @; L% f7 B" j
)
' a$ y! y" ^; H3 d! G& {4 d2 {
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值7 z! b5 I5 c4 u. Q
;;计算用户可以指定的花形数量的上限
6 b( D. G" U" k2 ^" x
;;用于下一步检查用户指定的花形数量是否合理% I: D& m+ V2 T+ K, m
(setq lg_length len
& M* \# O! h8 z$ r# G; ~/ f
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))3 |6 O$ K. S% ~- X H$ x! g7 ^" t* q
)# \$ {3 d5 F. C* v3 L) A9 g
;;指定花形数量或A段最大长度
' z+ A) d3 K, A* l7 ~! s3 d
;;如用户指定的是花形数量,则按用户指定的花形数量画图
1 h+ x4 Z8 Q+ u( N0 `, B3 B
;;如用户指定的是A段最大长度
: B% M& M! N( Q( D3 A. ` }( f* c
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图; d/ b" _0 v& ^
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
R& `5 S& A( @ I+ L
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解( j9 a: a- l4 S' T' q
(while (not n)5 G$ b F1 {$ p6 f
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
* }% A+ K! M( D* D
(if lg_n* q# n6 U" a2 p7 e' Q
;;存在默认值
, v9 l! e L$ s4 P9 k8 v9 N
(progn* [; u @* ^6 C% N8 K
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
+ r) `4 H7 [6 {: X: Q3 ]1 X0 V
(initget 6 "l")
6 t. s+ T7 }# B* c+ A5 W
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
/ V) I0 a; f, b5 q% r; ^* m: Y* F
(rtos lg_n 2): v/ Y6 t* D/ {; T1 @5 K
">:"6 C `. I" ~% x! O: K3 n2 f
)
* w8 z; u9 g2 \+ g* Z& }. b
). M: q" v4 }9 D3 W3 |/ w: N
)
' W8 d9 K# @. M: U) ^, R0 g& g
;;空回车时花形数量使用默认值
: U) N1 ?6 {. B9 E- v
(if (not n)
(setq n lg_n)
9 T& f7 C4 ]4 I7 p# i) C2 ~3 b" u
)
! }+ |' K4 ?% A3 ?9 J
)
?5 l2 @* [4 I$ ^; w/ x
;;不存在默认值
' J" h; \/ S" E
(progn
$ u5 _! [- P, J$ Q4 E: v
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"# c, B/ V! O N. @2 [6 x7 E
(initget 7 "l")$ |! O H4 g4 J# ^9 R) Q
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))8 s2 g) V) {2 r7 P% W. e3 b
)
`0 O+ M# n* \+ U
)5 W, c/ r# F9 d0 y
;;检查用户输入的是花形数量值还是关键字
- G# X% S- |7 J, C* G- {% _2 r
(if (numberp n)
0 Y: |0 V0 D6 e& W9 d- m% g
;;输入的是花形数量值9 K6 m5 a* o- M, X
(if (> n nmax)
4 g% d K6 D! g, {& e- `8 T
;;当花形数量值大于上限时清空输入值重新指定
$ U# m% @/ @. ^3 U9 y( W' W! ~
(progn5 j: J/ X: M- v5 i( B0 ^
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))0 Z- s/ ] s$ y p* Z( K
(setq n nil)" M8 k' S; a% j G @. ?4 A
)
" A, \3 f8 s: b9 n# s3 k
;;当用户指定的花形数量合理时存入全局变量- @2 |) w3 f4 [/ E( |+ L% a
;;以便用做下次输入的默认值
/ f6 p7 P0 s; I
(setq lg_n n)" f) G. X3 p6 q7 ]4 W1 C; ]
)% T3 y# w1 M) m( o- d
;;用户输入的是关键字
: H: i5 J- e; |+ i* ?
;;指定A段最大长度: n5 L3 o! w% l
(progn
0 W6 t% I5 R9 [# |) q
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍7 B4 I6 L- ]3 ~" l6 }, ~+ b5 p
;;否则可能导致无解
w+ l5 d+ M2 B$ W& ]
(while (not amax): t, L+ I7 r Y/ M# |
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
3 b- x6 `) D. U6 n6 n0 |; t) H
(if lg_amax
- S5 M( v0 u K
;;存在默认值
# |. E* P, O3 g# i
(progn
6 W- b$ M" R' `& P# k0 }. L9 Z8 z
;;用户输入时接受空回车,不接受0和负数 Q9 W3 I4 C6 T/ H& F
(initget 6)$ L" z% P# b# j* V; Z. x
(setq amax (getdist basepoint
5 s1 i; ~# h |2 e9 E8 K
(strcat "\n指定A段最大长度<"
# T& R7 \3 b9 @& Z+ X" P
(rtos lg_amax 2)
9 t! U& K. j j$ y, e3 `
">:"
1 j6 `' ]$ J8 Q/ ~9 J# W! C
), R8 D9 ]& S3 R6 \3 n
)3 ^8 M5 S I7 c6 \& j# K' p
)
5 I. [: u2 D( E0 P0 y8 \$ h
;;空回车时A段最大长度使用默认值
+ _8 l y- Y" N9 b
(if (not amax)
6 @% p5 I1 Q8 q
(setq amax lg_amax)
2 p; f6 _; [( r9 F, m& u
)
5 v# p1 D' O9 w- k
); p& Z# y" O' G1 d7 q7 ~2 d4 y- N
;;不存在默认值9 w& a( a G1 U4 O9 h5 a
(progn
1 o" A8 k {( b5 S f0 O
;;用户输入时不接受空回车,0和负数2 ]7 Q$ K* x6 ]$ _: w; a
(initget 7)
9 j, M( t1 g4 l7 K- ~4 l% Y
(setq
0 Z1 ?) T2 X! h0 ~1 D. F9 B/ s8 S
amax (getdist basepoint (strcat "\n指定A段最大长度:"))- j. B# ]) ~2 t0 M$ Y
)
) ^8 |/ u! m' v/ r- l* B
)
! I* L5 b- M( ~/ T/ m
)* w6 O2 b5 z O, i+ `
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定2 m' |& B0 J* z
(if (< amax (* lg_width 1.5))3 I. ?% f) K8 F% e1 W, i8 Y
(progn* Y6 \$ @0 _0 {; ]- I. x
(prompt (strcat "\n指定的A段最大长度不能小于") ^# T- O- L; W9 D3 ?0 W
(rtos (* lg_width 1.5) 2)" ?! ^' U: H2 J* j8 a
)
2 s, { U9 C/ ?+ C, D8 Y$ Y
)
5 I/ i2 Q/ ~* i* w
(setq amax nil)
4 U2 `" Y: ]- T
)
' z8 o. c$ [8 i) a
)
" E- ]$ g# ~) s8 B2 L( u/ ^. ~
)+ ^- H1 m9 f3 w6 D$ P4 n
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
- P% s# U- b0 \' o: v
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为12 N& ?. m* p R4 _! }( b+ t
(setq
, |; i8 G. G) O& G
lg_amax amax# B. P& C; k( I/ d: L/ H
n (1+ (/ (- len (* amax 2) lg_width)
" X/ i" o) ?9 B% P, a( ]) ~2 d$ R
(+ (* amax 2.5) (* lg_width 3))! B4 ]# U& ~$ A$ v, u0 ?3 z
)
4 @+ B2 J, S0 P! `( S
)
, S1 ]9 V$ D" ?/ w1 }2 j% D" P
); x3 M# `0 v, C7 W$ j3 ~ j
(if (> n (fix n))9 @) A; l* c/ a3 J' i% E8 z! L
(setq n (1+ (fix n)))- P. }, Y1 ~- ~/ o
)
4 O6 O0 {+ g. p# }
(if (< n 1)4 T1 y- L( B7 D1 Y2 w4 c# n& X
(setq n 1)
3 P. ^; b) C$ I
)
' F! \( D6 H: P4 M4 G" [
)0 s6 e7 ^( X8 q6 r
)5 E3 A% H/ c1 d; `6 L
)& {- ~3 ?# C9 K) Y) V0 l9 W
;;画图. a" ~8 n4 p/ u* t3 H8 a F5 F! _; x
;;记住原来的对象捕捉设置0 s& J) @: ~& Q4 ^. i% y1 S, N
;;按花形数量计算A值+ s# x7 i9 Z* m0 N# A
(setq
* F: S: T( H* l, X9 r: {5 s3 B, w3 G
oldosmode (getvar "osmode")% V/ x5 c; U! `" c; g
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
9 T& h( {% k/ c* c; ~
(+ (* (1- n) 2.5) 2)8 Z9 T3 k% l& f$ O$ r
)
; v6 W2 \8 r. n# o! g
)
, R% C6 Y/ M6 B# Y
;;暂时关闭对象捕捉: k( r, l0 n$ B) S
(setvar "osmode" 0)
* E- C, v- L5 [4 k3 T' W
;;屏蔽命令回显2 s: }: A: X2 Z6 c, U. \% Q( H; M
(setvar "CMDECHO" 0)
: V9 [# b( {" T8 l
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
K+ o: x. ]/ U# O* T! [
(command "rectang"+ ~6 H$ j+ B# R( x% ?
basepoint
' A4 f9 M. t0 u# g1 i! i
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))' B$ h& V4 B( @! @
)
4 ^' i! L. n; ?% a/ u1 g
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
# ^& I7 P: P3 B8 [
(command "rectang". Y% o* ~+ P6 G" }
(list (- (car basepoint) lg_width)
- L$ {. P& q1 O
(- (cadr basepoint) lg_width)
! }. h3 n& q2 f/ z7 X5 U$ h, t
)
" S& g! {, F' ]1 j
(list (+ (car basepoint) len lg_width)
6 g* ?' ^2 m; \8 E" b9 }* c4 z2 k
(+ (cadr basepoint) lg_high lg_width)
6 a# ~1 q& w6 R) J
)/ W8 p2 g& K$ K, g/ }# y
). T# [# `- K0 e* y2 o
;;将指定点移到其右侧A距离处
# U4 l7 q( Q( e- O7 m
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint))), B6 o7 [! y: M- n3 D; V5 r+ _7 J
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
; M0 s3 G2 L. C+ ]) M* D
(command "rectang"
$ t' x+ L) ^/ A0 ~
basepoint! \; J! B$ I4 R* I
(list (+ (car basepoint) lg_width)4 w# w6 u/ w/ F# D' ]* [9 l4 ^
(+ (cadr basepoint) lg_high)3 @# o& R* S. m$ R7 k& g) Z3 D& F7 K
); W5 y# y5 j+ s* d5 M
)
7 _9 g2 f" j+ V1 i3 _; t# L
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)$ `4 d+ N+ s% e3 y! d
(repeat (1- n)5 b( q. l1 p0 {! l
(setq. f0 A5 }1 a( e/ M$ K) r9 g
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))5 s3 p& P9 I: V$ Q4 \
)
* j2 K/ B/ ?, K( N% h1 ^4 ~! Q/ Z
(command "rectang"3 P, R# n8 R- d) g
basepoint6 N$ M: n# J$ s& F% b2 e0 a' v
(list (+ (car basepoint) lg_width)
6 k8 e# i5 T) V6 d4 {, e
(+ (cadr basepoint) lg_high)
: ^+ i$ @8 V2 R! d
)/ Q0 C9 d# C3 O+ Q3 K8 M2 W
)% T% h: m* s* y9 y2 ~" R0 p) w
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)9 Z3 O( f, Z I* q1 a5 K. X
(cadr basepoint)
- P" `. r9 c, r) U: m
)
7 `' s# O- j, K9 F# R6 e, |1 E
)$ c; c' z4 v$ `) s4 k
(command "rectang"
3 w9 E5 @0 \0 ^( R# H
basepoint
: B0 \# f% J2 s, b5 }
(list (+ (car basepoint) lg_width)
- m5 [9 c d- N2 u
(+ (cadr basepoint) lg_high): [8 n$ ]: S7 x, H
)
C! P1 e/ ]: e# B8 k: B& @
)
! X: W( g; F3 L. Q1 _6 ?/ p
(setq
+ R5 K- h" b$ K z+ d/ {
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
3 @3 i) R* G' N% G2 H) b
)
+ R7 F z2 O4 r% _4 y# u4 b
(command "rectang"* O- i9 {" k7 N
basepoint3 {; S9 P* Z, X! _5 r; n
(list (+ (car basepoint) lg_width)) M0 N; P8 @4 l- ]
(+ (cadr basepoint) lg_high)
: l- y% i0 H7 c/ \
)
( B8 q9 v% \8 S6 ~9 X' Y. s
)
5 {6 Q! Y! w2 t1 {: W
)& b- S# C* R* O1 O$ _
;;恢复对象捕捉设置
. Q- b, Q. w2 D' r9 c3 G8 k
(setvar "osmode" oldosmode)
v: b5 O* S7 `, w
;;打开命令回显
0 @( x6 f0 y# p3 t- D3 Q) T1 _
(setvar "CMDECHO" 1)
, X3 E# ]- v0 A: D2 k. V
(princ)& w' n& _. |4 e' f* \% x
)+ z) z2 c4 K$ G; g

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源