作图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 发表 4 o2 J& f9 T) S0 `+ P2 N
直线分段方式，a=a=2b0 c, y' b) ^, k3 t
; E* P& T- S$ r

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
0 C% Q' e) O8 S
* {8 P& ^3 G0 |% R6 E距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

* f6 J' n5 U; K, e- q
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)& B0 f5 c; n! F
;;设置栏杆高度和方钢宽度默认值7 w9 p* o* T# c0 x8 {! k3 b
(if (not lg_high)$ m* L( m+ [) k4 e5 ^- c7 v
(setq lg_high 500
. ?' v8 O8 T+ p% m5 f5 ~% c/ j6 _
lg_width 14
; K- H2 K1 Y0 @9 c) }- O& {
)7 {/ \5 P) I. ?
)
( p7 ]/ z5 R9 ~& y) Q
;;指定图形插入点; \) E& D0 _) _ b7 O9 ~
;;不接受空回车
7 l/ r P$ x0 ?+ G
(initget 1)! w- W& \2 _# b/ T; o/ ?
(setq basepoint (getpoint "\n指定插入点:"))
' O8 y+ v4 m$ w. N1 A1 o
;;指定栏杆长度和栏杆高度和(或)方钢宽度# ` D* P$ O: @6 u4 Z
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定, y: O; p! H7 P) u
;;用关键字指定栏杆高度和(或)方钢宽度后
; @) E: |! F. l6 B2 C+ F( a; s
;;需要重复运行指定栏杆长度的代码段# X' B# k' L6 T! l' A0 ]
(while (not len)
P( H. E! \1 a! R! o0 f
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
- R6 w% i& n% e0 L" b; [
(if lg_length
9 h2 P0 f6 N. O% u
;;存在默认值
" r$ y. i$ [/ }) G/ I" h
(progn
4 z7 b, L% h G- l
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"3 f% u, V/ Z- A9 i: s
(initget 6 "h w")3 P3 W$ v7 D9 ~$ D9 k4 q' P
(setq len (getdist basepoint
2 ^3 Q6 ]# s- |6 F4 E" K" O& y
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
# n: t* }% }1 f H6 q# Q
(rtos lg_length 2)
! c1 n; C. Y% Z" z! E2 |0 L
">:"1 k" _ Z! I1 ], i% Z. M
)) F2 V e- E; V7 U0 Y
)
+ f3 {7 S% ?: F$ Z) F& U
)
( Q# K6 n6 g I' t6 h4 d' [6 |$ x
;;空回车时栏杆长度使用默认值
5 [) Z! J- l& t5 ~8 h1 K
(if (not len): S9 N0 h! c8 k6 F* {3 J6 T o2 s; C
(setq len lg_length)
6 M9 b( {$ }" c' x
)
0 X ~! _5 n5 s6 O3 I
)
7 S# o5 ?6 s9 r% o. J- w. M
;;不存在默认值
" M. L: c! f( p* \/ J# b
(progn
3 F3 m0 m, C$ w" ~
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"' m& O' [$ A. y! |% V
(initget 7 "h w")) n* n/ `7 c" p' Y c7 L H% e3 q# l h
(setq
/ f& h( e2 K2 G* l5 w" _! v- m" @
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")9 I1 ^6 t* } ~
)! `9 Q P3 Y5 q3 g d
)
; E# T3 n! i% ^
)
* }1 M2 B5 p3 {7 b2 e
;;检查用户输入的是长度值还是关键字
* M" X8 r' S$ P
(if (numberp len)+ c2 }0 h- `' D9 q+ N
;;输入的是长度值
' @+ \ V- r4 S! y$ C- j% x
(if (< len lg_width)! v. c3 x0 ?7 f
;;当长度值小于方钢宽度时清空输入值重新指定
' ~& k& P. i1 L
(progn9 T3 R9 j8 ?* r+ B
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))4 m. p: w' s" r- Q
(setq len nil)
# l6 j0 I- m0 X! J' R! F: N9 ?
)
3 {' L9 e# l) X2 y9 k
)0 H3 `* e- |$ Y- T9 `
;;输入的是关键字' \1 w8 A( z/ y7 t2 ~1 O, Y* o
(progn6 |( `" m8 o& n8 ?
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
0 Y5 P8 I' }2 J+ [7 x* O$ h* D
;;用户输入时接受空回车,不接受0和负数
( H, h- e$ p) G0 I
(initget 6)
/ f$ C+ V6 s3 }5 v2 }/ M
;;检查用户输入的关键字是"H"还是"W"
3 {, a" T a& q; s2 @
(if (= len "h")+ v# v) G8 s+ f
;;用户输入的关键字是"H",指定高度
# f# E$ e) q v' Z8 O' F2 B
(progn
2 f' s; i `8 N- ^8 e
(setq high2 D |# P: \# f8 Y$ R* y
(getdist basepoint9 [% I0 ]4 E$ j* H
(strcat "\n指定高度<" (rtos lg_high 2) ">:")6 X; a& D0 j( L9 S3 J
): f& C, f# N" h6 A; F
)
2 o& d3 Q. n- b: O; Y* l9 A
;;用户输入新的高度时修改默认值) N- }0 U) A% f, v
(if high# |* A( r0 J2 }1 s
(setq lg_high high)
6 b, Q8 H2 f: Q% @# d" h5 Y
)
" a0 |& l, t3 h) S* k' W
)
% r% j! C, j4 P) u
;;用户输入的关键字是"W",指定方钢宽度
1 s( W/ N6 G3 Z9 e" n$ {" q. Q! O3 G
(progn7 l8 X% E3 Z7 l7 @% I9 O
(setq width% d L1 h) @6 E# v7 c) Y
(getdist
6 k2 s: Z t1 B8 n2 N G
basepoint
+ t* L1 {: D9 D+ {- Z
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
2 T3 J7 t4 N7 T; v
)8 L: F2 v. G x& N# x6 `* ]
)
) s6 P* q; }/ @4 x2 W- L4 C7 T
;;用户输入新的方钢宽度时修改默认值
, F- w$ T; {+ v# }7 Y L% ?' s
(if width
x' r, o% J x6 B4 g' ^# v8 w; g
(setq lg_width width)
; s" R: E# G; r L T. J
)2 l* w& v! B( b1 ]0 a
)6 P9 D. i: z& J
)" s ]# R0 Y% z9 C* H8 m5 x. e2 q/ A, H
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
# v5 k% u% o' r1 j
(setq len nil)
0 m* g5 \2 `, e& \% _* i8 j' Z
)7 @9 j% h0 r2 v- b0 O! E' N6 f
)- ^; }" W) \5 u8 a- q$ {
)
' Q% l% I& }9 r5 C( ~
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
1 d" U* v2 m- [; u$ {1 B5 H
;;计算用户可以指定的花形数量的上限7 ~' h ?. ~3 m
;;用于下一步检查用户指定的花形数量是否合理6 t. g7 B' a2 t8 q
(setq lg_length len, m1 |# k/ b; `8 f+ m
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
- p% i, N1 j: e( W8 m% j! C' D
)
. @) M% m9 g+ D- q/ s# X1 V
;;指定花形数量或A段最大长度
4 {# B/ T! C( H* P5 ]" X* @6 p. x
;;如用户指定的是花形数量,则按用户指定的花形数量画图6 ~' H6 p' ~0 ^& M% @) T$ r
;;如用户指定的是A段最大长度: {8 A% r$ V" k5 }. B- e
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
0 [/ [3 W U) r! S2 f! u K
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解) S* s2 z, S( [/ P2 J1 a! e7 ~% |
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解& ?; z% t# y7 J L7 O% i. Y/ `. i
(while (not n)
) P. Z2 w( ^& d+ C& l3 ?" {( G: u
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
, z& q5 d& `. P/ ]4 H7 \5 V" `1 ?+ ^
(if lg_n
/ d) r0 ?1 Q: a5 f9 ? f9 W
;;存在默认值
3 s. n! f+ ?! k' C3 K9 `% M
(progn- m5 R# ^/ O& n( b
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
: |7 `& B$ q* C3 G+ F
(initget 6 "l")
" x( ~. P3 E& T3 Y' u
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"- `- ~, I% u+ ?2 U! n
(rtos lg_n 2)3 l$ N4 T( K1 e5 s q3 P
">:"6 z' s0 G9 ]4 u# F: z
)
* h) u& ?% V5 F3 ^6 u
)) z8 m1 b& `3 k( l) i
)
3 j( J r k" B) \6 r. N& @
;;空回车时花形数量使用默认值 L# {; j9 @ r; Y4 z- n V
(if (not n)5 ?" c$ R7 M% J1 Z
(setq n lg_n)- a9 _% t* [. Q
)' V: K2 R7 s7 v: _ `0 Z) A
)4 ~* U+ w4 e* Q2 V; D
;;不存在默认值8 L% r9 U6 {- D N( z
(progn
" B2 M/ f; d$ X9 F
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"2 K# G" ?/ ]% L, b
(initget 7 "l")# X7 L9 V1 B# x* H" ^
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
- r( j# M# s. O. l1 B' e3 L, q
)
1 N+ ?# t# N+ g
)
3 W, b W$ U3 D$ w r5 x5 v, H
;;检查用户输入的是花形数量值还是关键字; Z" d+ s a- E7 i4 y5 f" e
(if (numberp n)" y# X- \( L+ S$ L- ~- @
;;输入的是花形数量值; J7 [8 F, W; [
(if (> n nmax)
" J$ m! u$ K( J4 N$ x7 q
;;当花形数量值大于上限时清空输入值重新指定
: q6 y8 _) Z" i: d7 n# y# D( [* ]! L1 ]
(progn
9 Q* x8 b1 t# t# P; ~" X
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
& f& v5 c* C; K, U4 C+ b. `
(setq n nil)
! g4 D( x7 F! F; f8 J
)
$ I" s. S, q$ Y% m$ x) i
;;当用户指定的花形数量合理时存入全局变量4 k* o( Y5 Z: {6 a9 M: d2 v g
;;以便用做下次输入的默认值
; w) a) B9 S, H8 n5 r
(setq lg_n n)
( {, u3 f% U$ j, x0 b
)9 V; l$ N: q; p: X% C
;;用户输入的是关键字& u5 v* {( e: i. ]4 Q2 n, Q
;;指定A段最大长度
$ _& h" a& b( d2 m" [, h0 Y
(progn
; |5 b8 e4 [% Z V$ f( d% E
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
7 ], U. T. i& z. h4 G. M
;;否则可能导致无解
6 w) c F# X+ A% K( W. n! `( V
(while (not amax)
) r: g4 D8 a3 H2 Z' Z) [ L1 W! w0 N
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
& }4 G$ R3 X& l9 u- f1 c; `
(if lg_amax
6 }! E# W! ~7 U. w
;;存在默认值7 v4 J9 W9 a Y2 }% z6 w2 K y
(progn9 u' \# c! ?0 @- \$ G1 B
;;用户输入时接受空回车,不接受0和负数& v" l9 N' _$ n2 r/ H
(initget 6), T! H n# D/ B& f7 a
(setq amax (getdist basepoint
' i& k) H+ b# \
(strcat "\n指定A段最大长度<"
8 i+ c* C& {% [
(rtos lg_amax 2): o: v. \. g5 O4 o' m, K# ~! I
">:": `0 \5 S6 w8 ?1 W2 B* h3 ?
)
V4 D, T$ ?% J
)
* m% y$ H( P; S& {) d
)1 Z, P4 s/ Z, _: [4 [2 i. B$ s
;;空回车时A段最大长度使用默认值4 \( w0 A( l6 p& `
(if (not amax)+ l+ E' n# f# c6 o1 b; `2 ?
(setq amax lg_amax)4 H+ k# n w9 s8 m1 m$ h4 [' I+ \
)8 l: U# S# w: u7 C1 e8 c2 ?
)% D! J3 ]- m0 l+ ~: x) ?# F
;;不存在默认值
4 n# m4 A$ R+ M6 N: J- f+ u- u
(progn3 j' {: L( d2 k9 x# t
;;用户输入时不接受空回车,0和负数7 @- m0 _+ Z( g& h! N6 W: m
(initget 7)6 S" u. [0 k1 |& c5 J3 t+ z; G
(setq
8 M7 d0 e5 K! y5 }0 x
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
$ A9 u2 }9 i" _0 G3 W6 d
)
" G( ?+ y6 q$ O$ P0 r
)
# H5 _" G2 I! R/ L9 Z! D9 D9 M
)
5 x7 V6 ?& q* c$ F6 `: p( b4 u
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定! v4 G" J: r8 `+ i0 A' u2 w8 i4 [
(if (< amax (* lg_width 1.5))
; b4 c" Q( \) r4 K# a) g
(progn8 c2 O b7 O8 Y2 q6 j6 W
(prompt (strcat "\n指定的A段最大长度不能小于"
' H, g+ o* b0 M' N8 S! d
(rtos (* lg_width 1.5) 2)3 ^, U, Y$ q' Q3 j6 ?; f f
)
- P+ @( w' ]9 T/ e7 L- v) L+ y
)! w( T( R, X0 ~) A' T
(setq amax nil)$ c/ M8 Z: v7 P7 B5 C- b
)# |8 j {, D, ^* @( [% T
)7 r* ^2 @+ L/ ?, a: t
)9 t$ Q: A5 R7 j0 n+ @( u4 ?+ y
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值2 R: _' a/ {# F" w7 Y# N) P# k; c
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
. y8 u @( K* @$ e: L
(setq
: I; f1 y3 G+ U- i8 i. _
lg_amax amax
4 \. y+ x/ h0 }. x/ _" z
n (1+ (/ (- len (* amax 2) lg_width)7 k" Z l% b3 I O
(+ (* amax 2.5) (* lg_width 3))# k4 m j" K4 A. _
)% m8 j$ f3 t6 j- o$ Z
)7 b+ m- p6 a* p' _" }9 ^; \7 B& \
)
, o6 O0 u t' S) h8 N- I: B$ _8 y
(if (> n (fix n))+ D v; c( B/ b
(setq n (1+ (fix n)))' i4 n \; U \
)1 y' }+ y- g9 n1 t- R! \
(if (< n 1)$ u* l4 r ?) j$ R
(setq n 1)
& T' `$ [- A( w2 G& [
)% o# A+ E& z* j
)$ @- E* R: \' _6 ^
)- }+ o; z6 K2 H" J4 Y7 r
)
9 N$ J8 h& l- d! v' l4 A6 A; `2 P
;;画图3 q# p0 p: |! Y: @. \6 r. N
;;记住原来的对象捕捉设置, G, z/ }5 Z% T
;;按花形数量计算A值
9 N% c3 q' w4 r9 k1 E( ]% e2 [+ t7 K
(setq
! e6 ?/ e! ^5 D' n9 `, t( l6 v5 ?" v, L
oldosmode (getvar "osmode")9 C8 z. Q+ s8 U+ T: k+ w
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
( q3 f# B& O5 L7 N+ I$ K/ Z
(+ (* (1- n) 2.5) 2)" y* N: g, U3 f" F$ S, C
)
, ^2 f2 Y6 `; [7 e/ B- B8 ]
)
5 N: Y/ x/ ~+ K
;;暂时关闭对象捕捉
7 ~5 `/ Q) k; ?" v/ G7 A5 x
(setvar "osmode" 0)
9 i2 C' d% Q) F _
;;屏蔽命令回显
- h$ b3 c z: X7 _$ w5 M
(setvar "CMDECHO" 0)
# O; P. J% q4 J
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
& C0 x$ a6 b5 e6 H0 q- @8 \
(command "rectang"
/ c0 f4 j6 t, Q( t! k5 K: l; t S
basepoint
6 k; @2 G. t9 z+ o2 j0 ?
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))9 Y( U$ }& p& U9 ^
)
9 B! F" G. \( o4 X
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
g# y+ m/ i" z
(command "rectang") X) \) X) x2 ?6 j, k
(list (- (car basepoint) lg_width)
2 ]6 E: ^4 ^2 G1 l7 \. q' m1 a8 a
(- (cadr basepoint) lg_width)3 K( B( O) u$ R" b* U4 [
)
' k y: p3 u0 e; |+ v# h
(list (+ (car basepoint) len lg_width)2 `4 ]! B$ m2 D) o' @0 i
(+ (cadr basepoint) lg_high lg_width)
( }3 F; L/ T& f, t) h
)
1 {5 h x5 E) H a
)
+ ]& L- q8 u4 X3 g9 z
;;将指定点移到其右侧A距离处 L1 Y. O# O, Y
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))% w* X3 v. O% J4 H. S
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
0 ^% s) p# e$ a+ ?) A
(command "rectang"" c d" }+ ~1 q6 v0 g
basepoint0 K/ D. b, E1 z
(list (+ (car basepoint) lg_width)
% I0 O1 R9 g/ P/ p) G
(+ (cadr basepoint) lg_high)# y5 U+ V' a1 M' y0 y* ]
)
8 z6 [) d$ R' m! n7 P( L$ V
)
& q/ H. `& U6 w+ v F+ D
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
E8 t" v# ^. u6 F: T
(repeat (1- n)
% ^+ z" ~2 `1 @8 p9 ~/ N
(setq
# l. A8 w i% b9 q4 S1 M F
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
. C$ N0 Y2 k$ v; r$ j. _7 Y
)
* w4 X3 R. y" |) \ ]
(command "rectang"1 P( d$ e5 X5 `. d- @) }- ]. p, {
basepoint* n% k5 s" v* B! X
(list (+ (car basepoint) lg_width)$ N! ~; o% v. e1 @
(+ (cadr basepoint) lg_high)
' n% `' T1 v: x) `2 _" l/ u7 h. \
)
. P" N, g& I h9 J* H h3 L
)
: a1 u. y' K9 y$ x8 U9 w
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)6 c' L# ^9 D: L1 a
(cadr basepoint)
7 G/ [( l" X l0 _# M& V
)) E# T2 v9 C& ~ q/ ^
)$ ] z7 c0 A/ F$ ], B+ j2 ^/ X
(command "rectang"
' v) A( N4 F' g. n$ p/ A4 h. w$ D& C
basepoint6 L7 I' E7 x; O% l2 }6 e- H
(list (+ (car basepoint) lg_width)
0 k, m9 N3 \1 a( ]1 @, O: B/ _2 k
(+ (cadr basepoint) lg_high)
a8 O9 |" `. {
)
- g; j; z2 x& a* g3 c
)2 X/ e6 C5 g6 {& Y5 ^4 J; A
(setq
9 s: G; i1 q$ o8 n
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
6 g! ^3 ~( h$ O- H
)/ F1 V' S! A# M! v% h6 }1 o
(command "rectang"
3 [+ b- n3 E0 `3 ?+ S
basepoint- }4 f7 B( o6 ^* R1 F% @# Z
(list (+ (car basepoint) lg_width)9 j3 e T6 ?% k! I0 y* n; A9 N
(+ (cadr basepoint) lg_high)# k) b/ {" q/ W3 {0 P
): _' e5 Z: J. [
); u* W! J) f1 R7 ^% l
)* w; }8 L- C* j x* ^
;;恢复对象捕捉设置
/ h! I- F# J/ K! T" o2 [* a; v
(setvar "osmode" oldosmode)" @3 X: Q, I/ r. G! s* I/ E
;;打开命令回显: q4 [2 @4 V% `. v! F
(setvar "CMDECHO" 1)5 R/ q1 c% M* e- Q* k9 u8 A
(princ)
( U, f1 h/ M2 p/ b
)
3 E: u0 I( N* T; j

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源