作图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 发表 7 o6 n6 t' C; H4 M
直线分段方式，a=a=2b# \" s* G. D: c* j

`& q$ }" L5 }, r7 b: m% v5 U

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
1 l8 ^! N" ?1 K* N1 A* ?# U1 \- s/ }" e: C
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

1 P: w V: F& G2 P0 I$ X
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)) Z/ N8 Q; s9 l4 n- z
;;设置栏杆高度和方钢宽度默认值
$ @2 Q+ `1 a, r8 j
(if (not lg_high)
2 \5 b1 W* H) G$ F( n: {
(setq lg_high 500- }, }0 P0 e+ v# {8 b
lg_width 14
7 ~& z- T! @8 f4 U! N& s
)7 `- w2 N p. z9 K; R. q2 z5 t) Z
)+ l: k a, P, Z. [
;;指定图形插入点# x( a2 Z8 B! J# G" X' H, W
;;不接受空回车
/ z) ]& s, V" V/ j X+ Y) P
(initget 1)
- M5 t& R2 e5 t+ M- }
(setq basepoint (getpoint "\n指定插入点:"))
( h: v, D) g0 L" r7 f
;;指定栏杆长度和栏杆高度和(或)方钢宽度9 f4 M: t' [, @$ N& x: u
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定" \' I0 }' k" Y: C3 _' R
;;用关键字指定栏杆高度和(或)方钢宽度后) }& n- J& U8 M: z: O
;;需要重复运行指定栏杆长度的代码段3 [! [7 o2 N2 G% x! [* @ U
(while (not len)
1 b( f+ p# W5 E6 R
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值: C( ?& w+ B( F: e }( T
(if lg_length s `" I, T s% }8 J+ N+ v
;;存在默认值
! U/ f- B# O3 _4 `5 X
(progn
1 y, N. p5 W/ x( u8 v' ^) t
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
# m: Y1 B! V7 l
(initget 6 "h w")
) `9 ]: w! r! Z$ d Y# k
(setq len (getdist basepoint H5 U+ K- b0 j( r! V N {
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
( G$ H. `: R! I. j, o
(rtos lg_length 2)/ S r9 O3 t6 v( w& Z! ^
">:"; Y% b& o' m- X* N% w2 T; ?8 g
). i3 z' f/ A8 n% P' C
)
0 e& I5 H" F G( `" O+ p8 t2 Z" B
)
/ h$ n7 o7 E# d- M H% w" u/ C7 h
;;空回车时栏杆长度使用默认值
2 e6 i7 l% \6 R8 D" E
(if (not len)9 N: r1 q) Q& K0 C E1 m
(setq len lg_length)
: @1 \* W; C! y& K# H0 l1 b
)4 l- b* g" P7 N) p
)
$ D% X1 h* Y; F5 B9 |0 L0 i
;;不存在默认值/ L1 s# V, `/ g" |% J" {- Z5 N7 t
(progn7 W; `& `0 y% u/ e
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W": B+ |& `7 C2 p, A" q: h
(initget 7 "h w")
7 }. v' j- ?/ x* n
(setq
3 Q, j' A' c6 E5 v" c. q
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")7 `2 {% v$ Z0 R: m$ u, \2 k1 s# y
)
( D0 Y/ u. A! m1 z J9 X
)4 G' K, w! N* h
)9 W! G* l) Q6 R9 W
;;检查用户输入的是长度值还是关键字
# |+ A$ \: @+ U J3 i! y3 w( L/ {
(if (numberp len)' d, r! V {9 E& N0 |9 j% N
;;输入的是长度值
. j7 A v% K, K4 u
(if (< len lg_width)6 I0 F# R" q6 @4 C8 Q* j3 R
;;当长度值小于方钢宽度时清空输入值重新指定; C- w: x2 Z9 N2 m( i
(progn, T; t0 L3 r$ }" [
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))/ _" r9 g8 z& n* \
(setq len nil)
9 Z) w# k T+ F# F- b
)
: r, C' s& F" T0 e0 F
)
$ k9 @% P$ D$ g/ K
;;输入的是关键字
" E" m! C! J" B" ?: j
(progn$ r7 H' P! W4 `* M
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值8 T/ K0 N8 o9 m8 A
;;用户输入时接受空回车,不接受0和负数
7 Q, W1 N& [% ^7 O2 e
(initget 6). J7 G- M* h2 X6 f' m2 C3 v
;;检查用户输入的关键字是"H"还是"W"
0 \7 }- ?8 e+ t) p
(if (= len "h")
) r; _* ?* v) L* ~- r! N$ Y' r
;;用户输入的关键字是"H",指定高度" Y! N6 E5 d' q: x6 i0 e
(progn0 Y+ I# ]0 k5 Y
(setq high2 z0 }! X! A/ O3 {& W
(getdist basepoint
: Q1 ~0 N8 F F
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
, a" j; B/ _4 [, L, m
)2 d% z9 s/ f- E2 r# T3 M/ o
)6 O# S* b' V6 }9 r8 {1 t# _# o
;;用户输入新的高度时修改默认值
; a* Z1 ]) ^: w8 E+ k6 x0 o/ o! _
(if high
9 I& v: E/ s* T
(setq lg_high high); C8 ?, T; f G+ e; l8 R* d
)2 h: I/ J9 I& Y: O- n
)
2 s# f" k2 e. I# Z
;;用户输入的关键字是"W",指定方钢宽度
* k! A, w" e1 }; e% E! K
(progn
. B5 X, ?" ]& s x5 z7 _
(setq width
+ z: R+ Z% z( K) _. B' n4 F7 v
(getdist- B }3 g h a7 ^6 j6 {
basepoint4 t. U9 X6 A& E8 x1 d; I+ o) P
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")% X% B2 i) j0 k9 N/ [4 J' o
)+ J+ G2 E3 }2 z. L
)
7 r, p& I! k) R$ u
;;用户输入新的方钢宽度时修改默认值+ D* C) k8 i; ]
(if width
5 `5 K _/ O+ r, u& _' C6 b
(setq lg_width width)* x" C! F5 G2 w5 b; t
)1 U- C# @; V2 S5 u5 s- ~2 A: q
)
l j/ A1 I7 Z* p& a* M( Q8 K
)* t! _% z% `/ j5 F! d: l7 p
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
" H# W1 L$ v# a2 U
(setq len nil)3 H/ y6 R6 ]) V1 s, \% U
)
. e7 C/ a, r$ c6 U- g9 d2 M, a
)
)
6 O6 B& V+ `& J5 d, N+ L: f
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
* W8 v$ R# {: s' J9 c1 D) A
;;计算用户可以指定的花形数量的上限
( g4 `4 l/ [# b5 m1 ~: h( I
;;用于下一步检查用户指定的花形数量是否合理! _2 E6 l M- Q+ O
(setq lg_length len
- S* _3 t7 V; S2 K$ I
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
$ h0 l2 m2 e! @
)
2 K7 M1 A8 i, N' _
;;指定花形数量或A段最大长度2 @& l' I3 u5 _# X4 S f1 s1 c
;;如用户指定的是花形数量,则按用户指定的花形数量画图. S( O) }* b1 E& c$ O' t/ V
;;如用户指定的是A段最大长度& [- `% @; T: K1 R# b9 m) g2 C
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图8 p( s% c' A" y. a1 F) P9 k2 j8 O) _' _
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
: X1 d( \& W8 ]# H9 O
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解1 Z2 l. o9 Q5 c) R6 [
(while (not n)
6 P+ o% Z' s+ Y. i- u
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值* h( c, C5 M" s' ~$ Y& S5 v
(if lg_n; }) D( h- k" r6 P4 ^* B
;;存在默认值$ c: r* l+ R6 y* c- h t" ]: W6 ?
(progn
( N! p9 z$ b _9 t
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
; W! U5 q( E9 v% E& B( T$ S# S
(initget 6 "l")
. n0 c5 |2 E S+ G; d
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"/ b2 v9 ?) X3 W# r' |$ C" ?7 p. O
(rtos lg_n 2)# k) N# H4 ]7 q- |# w
">:"
" n; c. ?7 _- G. }
)
3 g7 B7 u, ^. R$ Q
)
# T& R& \ {7 \/ U* M* p5 i) n3 E# C
)
9 P3 D* F: S: Z8 m/ J' l
;;空回车时花形数量使用默认值% K) z+ M( z$ @
(if (not n)9 ~3 g% P9 X1 x& d O( u
(setq n lg_n)( M4 a/ e" e6 V* W
)
- L/ S1 }1 Z& g/ H
)& \: E- a N2 [4 W! t$ Y
;;不存在默认值
$ w, T. q: f$ @& e2 c9 |$ g
(progn
) P3 Z% D+ y, c7 u. `+ n
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
! w& w! n2 L! p+ r) B
(initget 7 "l")
B/ d, R3 t" s2 [
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))8 f% ?6 A2 K3 y, ^
)
, V l( l0 I! q
)1 u& C+ p1 d. H" o
;;检查用户输入的是花形数量值还是关键字
( _# P, S/ c3 L1 V# ]- l
(if (numberp n)
5 u: i; c% t& ^0 F0 y
;;输入的是花形数量值
) @2 {# u$ a- `7 y4 o
(if (> n nmax)4 d" [; v4 Y: Z7 Y+ ~; b
;;当花形数量值大于上限时清空输入值重新指定
* b; B, m4 O9 N5 r
(progn3 w. T. W! T6 D X7 H4 ^6 S
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))) y5 n; w7 @1 ]/ j
(setq n nil)% r5 T) |8 J+ g. k
)' p4 I+ e# V# u, W2 Y
;;当用户指定的花形数量合理时存入全局变量
! I% {3 W; h& V0 w
;;以便用做下次输入的默认值
1 }- d5 T" N3 K, ?8 |9 H9 T
(setq lg_n n)$ a; N" @" P7 a" h1 y! f
)& z0 B+ y- `1 d1 z
;;用户输入的是关键字5 }* {/ H, \. f' r6 s4 Q6 X
;;指定A段最大长度
" P: [' U- L6 _, {. c2 T1 b
(progn
3 c& I- h9 Q5 M' t& U' c
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍7 ^. n( h- Q$ N% B
;;否则可能导致无解! f3 s( S# T3 W) s) f x
(while (not amax)
9 e$ z: v$ W, ~( R- c
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
+ G4 z% h8 \. o' ?
(if lg_amax
! y1 J# ^. }/ Q7 a
;;存在默认值8 A; B4 m3 M. e0 Y- _
(progn+ c0 a/ } }- ^# Z# b7 k8 m- ?
;;用户输入时接受空回车,不接受0和负数5 n/ O/ q [" a+ i+ S4 L
(initget 6)
- w( I- M3 l+ u2 P3 v% B. q
(setq amax (getdist basepoint( ?# C8 d9 e9 V0 B
(strcat "\n指定A段最大长度<"- m2 Q* I6 @0 ^+ w
(rtos lg_amax 2) C" A) q4 a: ], ]" I3 y: u! Z
">:"# S/ V; ]2 z6 @/ C' j
)/ Z, u7 F2 ^4 M- u! r* R
)5 }' A* l7 i$ |
)8 y/ Y8 S% Z; Y( C- q
;;空回车时A段最大长度使用默认值
% w" ]2 o$ x, V
(if (not amax)
& Y& H- F$ y: T0 J# b: Q# q
(setq amax lg_amax)
" h3 m2 Y9 U2 ?0 P
)' Q/ l4 {+ a H4 V5 {
)8 G- S3 E; X' ?; y; ^: }" d$ \* @
;;不存在默认值) F# t( \2 @- u4 V3 p# h A. j/ e
(progn/ A+ X5 U1 K N
;;用户输入时不接受空回车,0和负数% B, W. A" j) V* x. F4 J
(initget 7)
% U$ K: t7 m) N/ X
(setq" o% h. o+ P; ?# e) u3 H+ L4 W$ `
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
; ~3 K( u5 f# b. {
)
) z8 K' i% m9 T1 n1 _
)) r N7 H& }4 A
)
% i, t, _% d0 j; k7 B
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
* U" |# H1 Z. n7 A7 |9 X
(if (< amax (* lg_width 1.5))
% o+ y* [! T& l s' \6 v
(progn
& q. p$ e/ N, ^- i
(prompt (strcat "\n指定的A段最大长度不能小于"
* \* r; s( V/ ^/ x
(rtos (* lg_width 1.5) 2): @9 ?0 T( i# o6 ^+ ]- X8 p1 c8 x
)$ s. ?# F" o& ]3 f% s
)
1 }) [' I" c, {$ a/ A( W8 K. f
(setq amax nil)! B' O4 S+ Y& J7 f$ \1 ^
)
3 N" Y& H2 o. Y" D* K+ c
)) Y( X9 V; y6 j7 B' b; O0 M; x' t
)/ F: e( c" i: U: O3 `, d
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
' B0 Q1 B+ T5 b! W5 m8 t3 E X V
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1& i& w! c$ O# Y& H$ f/ i. @
(setq! r! ?2 K; u* b- ^1 k1 a
lg_amax amax* g" Q) b. W2 s4 k4 l
n (1+ (/ (- len (* amax 2) lg_width)
; {8 z. p8 i4 u, C, N1 n
(+ (* amax 2.5) (* lg_width 3))
6 N9 }( A d- a! E
)
2 l2 b! S2 _ j7 z
)% [( c$ t. f8 o/ b* H+ u& S
)
5 G* u! }8 @+ z0 n( ~1 [, U
(if (> n (fix n))( `& |7 ]: G! A3 d9 p7 c
(setq n (1+ (fix n)))0 y0 {1 Z% i6 W7 J+ o; {
)
* R( ~9 h( v6 O7 }
(if (< n 1)
0 @: c& A; X c3 J: ^3 Z! }
(setq n 1)) v& u0 L! d8 l7 i5 t. z$ }1 H
)
. ?% L: b3 O5 P& u. C; N' [4 ~* s& |
)% P) J: E+ D8 \
)
+ j' j1 ]" p; k" u; Z: q! p, @
)
4 K0 ]# W. O5 o: Z2 {# J
;;画图
/ `+ P, k) [# O1 x& C9 `
;;记住原来的对象捕捉设置1 g9 }3 B. {* O, H) _
;;按花形数量计算A值# D6 B2 S; [- b$ I8 p" r% g/ h! g6 f
(setq! L, }3 F' v& ^3 f) V: {
oldosmode (getvar "osmode"). @" i Q8 ^! D3 a
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
+ _3 w. f. c6 C8 c+ T
(+ (* (1- n) 2.5) 2)( V' G0 x. q' N/ S
)$ N M! a0 e8 X
)6 r- B$ V+ F, [0 ~2 h2 o% V+ B, l
;;暂时关闭对象捕捉
8 |% J# a; l3 Y
(setvar "osmode" 0)
/ _. C% Q" g6 E1 Y$ d+ |! s; U
;;屏蔽命令回显 T; |9 o5 V/ M# r
(setvar "CMDECHO" 0)
$ @# q! |5 _- ^& X/ B( x
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
3 N ?# r' J8 W C9 ?& Y' k3 I7 }
(command "rectang"
# m& v. e( `: N! n( Q
basepoint
' m$ F/ l3 k4 j
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))6 M: b! V/ D: A x; @$ j, w) c
)
2 T; I3 D! e& o
;;在第一个矩形外侧一个方钢宽度处画第二个矩形8 s2 f" f0 c- R$ ]. _" g
(command "rectang"
' K2 m( s) L9 a! {
(list (- (car basepoint) lg_width)
$ K; N2 E3 ^( p: u: \" O l$ f
(- (cadr basepoint) lg_width)
* B/ @" n* G K3 H& ^9 t
) B( [, z! w" L$ ~
(list (+ (car basepoint) len lg_width): E) U _) F" @7 R
(+ (cadr basepoint) lg_high lg_width)
" m- Y4 O. a0 B
)
7 y! O! `' @' T1 z6 y
)
' n1 X4 m4 g- _; S$ Y
;;将指定点移到其右侧A距离处
1 V1 t% ]$ L F. o- f. i
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))1 H, F+ C# v" ?# O; M
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
( q$ S5 M9 x' a4 f
(command "rectang"
9 A( f6 |* n' L0 N
basepoint
+ P' e1 Y6 ~! v) d3 N! Y0 c* t
(list (+ (car basepoint) lg_width)
! P1 u6 I! O3 i* P. _
(+ (cadr basepoint) lg_high)
9 r* |. T% {6 W1 n ~
)
0 o: t, @5 q) r! G$ g3 m9 _8 K, x# V
)
$ Z1 E$ W7 S1 v* k$ L8 Y
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
5 f6 n. O6 x8 ~$ e" p! j
(repeat (1- n)
- M' E* n E! Y! T
(setq
3 q) V$ T" Y% n7 V6 g
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))6 x( I7 W% [! b# Y9 G R
)
" ^) p V. P6 e$ N, b
(command "rectang"# P2 J- t* N) R/ U# O0 V
basepoint! M; q" f: W) i7 c
(list (+ (car basepoint) lg_width)3 G& F/ J) @# k" \1 M
(+ (cadr basepoint) lg_high)
r# f2 g2 v, Y1 a! [0 L
). U5 W/ L! @) y4 C0 p. ~
)3 @3 U0 X1 D. s6 p5 `
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
! U( v: _: @1 B1 L3 c& ^4 N f
(cadr basepoint)+ G3 y# z5 W- C7 |
); G" s+ i4 p: r1 U) _; E
)
! u; I! @* F/ `8 j
(command "rectang"+ `2 @% G7 t: X* a B1 @/ v0 g- F
basepoint
' ?+ V0 S' G# I% ?. h! w' b& {% ?
(list (+ (car basepoint) lg_width)# q$ o; B2 w/ l8 t$ ?
(+ (cadr basepoint) lg_high)7 B6 H( |( V; K% c
)
8 U" e* _3 l1 u; g' I; z4 a
)4 @+ O0 B T/ i& X% I
(setq: G" x7 _3 B% D4 Q# H& M- J
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
) W: B" m1 r' q% ~ ^8 K3 T
)
7 M ?+ X3 u4 n8 S2 X6 N
(command "rectang"! u% J' Z3 a+ q! l1 g. }
basepoint
" U" j* G) S9 d- B
(list (+ (car basepoint) lg_width)
. k# F* y1 T* _$ z
(+ (cadr basepoint) lg_high)1 \6 R6 T4 Z% ^: h6 j* T |
), v- P' T9 k! E$ _
)3 X% u6 J! f. ]; G
)9 |/ ^ m' q4 T# c
;;恢复对象捕捉设置) l) ?% S" E w, s* m
(setvar "osmode" oldosmode)
7 h! O- b. ^$ Y# d/ w
;;打开命令回显1 f+ `3 h) |' u" w' k8 ]0 x' h
(setvar "CMDECHO" 1)
; @) ^$ E) }5 W# r- D
(princ)( ^' ~$ q2 G+ }1 [3 o f
)
: \- C) C) ?; M# Q5 L

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源