作图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 发表
$ i) B' j0 @$ E4 u! B7 {) S& o1 K直线分段方式，a=a=2b& r- f. _' F4 X$ k7 i6 F* z
. m0 A7 ?1 ]; J' [; H

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 : C1 H; W- z5 z( L9 P- j7 n. S
8 s B# N/ n$ f- z1 [/ q/ b
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

( i: U2 e" _' f7 m* j
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)+ n0 V9 v7 T( G9 A# L
;;设置栏杆高度和方钢宽度默认值, b6 J1 x* n: e; o: L* r8 p* O
(if (not lg_high)
& R+ P/ P; B) t; f# @4 Z7 \$ e
(setq lg_high 500& K& d9 L! n3 ~4 A
lg_width 14
5 w% Y5 ~* K) y3 n. V! F* T$ O; m
)
6 s" a9 G1 {) U+ K$ m
)
* G7 [: t5 P' R; j
;;指定图形插入点
& |: s8 q; P" |5 s
;;不接受空回车5 E4 r9 O$ e( S5 W( p
(initget 1)4 M: Y# G7 z& t# Z' D4 z
(setq basepoint (getpoint "\n指定插入点:"))1 C+ m) ?1 `7 k Q5 w& v
;;指定栏杆长度和栏杆高度和(或)方钢宽度
2 ~. }8 r& `* f7 ^
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
' v8 F9 y$ e% W3 L
;;用关键字指定栏杆高度和(或)方钢宽度后
' v# _8 i0 H! c7 }9 f. P
;;需要重复运行指定栏杆长度的代码段
4 B6 E6 x4 g4 r
(while (not len)
- K3 T/ j( u6 v: R C
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
9 F( r! t. m7 Z; I3 S7 F
(if lg_length
" \* w/ n r2 Y& O- w
;;存在默认值" l8 ~1 \% X @, n K8 \
(progn
0 ?9 H" D$ ?* e: y- d6 X
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W") P i2 }0 O9 W
(initget 6 "h w")
/ U% F. h0 \- b# E2 e
(setq len (getdist basepoint
# x7 s8 G, Y# {
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
3 ?+ E( m. W, L! q+ q: ]
(rtos lg_length 2)
6 r3 H" u2 |$ y+ h: t- ?
">:"
7 e/ ^+ w; p I
)# [# P2 T. k4 g" [2 j, \6 ^; G
)& V2 L0 G2 C2 l. p# e. K- h
)
/ z X0 o$ L1 a( q h
;;空回车时栏杆长度使用默认值
' s, _1 M% Q' |& w$ r! `
(if (not len)# ~ d; f' H! y6 C1 M$ v9 y: q
(setq len lg_length)7 T% T9 z) P+ P- ~1 z/ _: b7 S
)
, [1 x! }* a' K
)
# {& l% O8 N$ g- R' V0 H
;;不存在默认值0 c4 i% @! M R6 c0 t* d
(progn4 E( I; [2 D& G7 |- n B- `
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
" y" \9 w- i0 P$ z
(initget 7 "h w")
" w5 `2 s8 U% a% z. j4 y9 o
(setq
4 A. |% K+ k. O& @9 E& o2 a2 ~
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")/ g+ z# v1 y. B4 t! |* z, @* Y
); a% x& _5 C2 Z
)
+ ?5 k$ o" x( L$ n6 p: f8 p
)% w" p8 n( @- K& G; p
;;检查用户输入的是长度值还是关键字! f4 v X- I% \/ G5 V( S
(if (numberp len)) P* c* O/ C% x! C1 R* @# X) W
;;输入的是长度值
' T; t4 X6 T g' j5 ~1 ~. |
(if (< len lg_width)+ [+ B8 {9 e5 i) P! V
;;当长度值小于方钢宽度时清空输入值重新指定
+ m6 a% p" k# [0 o- M
(progn
. V3 A/ E) T- R7 }( Q9 ~# ?
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))& D6 U% O+ ^) C: {
(setq len nil)
* f, c, j6 n, k% o, C$ ?
)* N+ {& O- n, W! b5 Y1 v8 U
)
- `4 m/ X$ X* W5 h6 f" s( J4 O
;;输入的是关键字! Y. ?' u* }% X b" N
(progn. x! M' \7 n4 n9 j3 E9 A0 ?
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
* P- W, Z" F) [# ^/ L; _
;;用户输入时接受空回车,不接受0和负数
, X" Z' B4 Z; |$ R9 [1 J8 E
(initget 6)' o4 n! @' m6 R7 ?) {8 T) ^
;;检查用户输入的关键字是"H"还是"W"
/ ]* y6 l+ v- d$ S& s7 X
(if (= len "h")$ [8 |' S `8 b. k6 ?6 t
;;用户输入的关键字是"H",指定高度: v4 I" X# n) X
(progn( ^7 }, @6 g/ D" {, z# K9 S
(setq high7 l& C+ x3 V$ H m3 ~
(getdist basepoint
" G- E+ D. G% p7 }% y
(strcat "\n指定高度<" (rtos lg_high 2) ">:")$ N- C+ {# I- o2 k$ P
)
/ }3 s- x. d) N
)4 b8 H6 X- D8 Y" [; H% Q" Y1 j1 X1 ~
;;用户输入新的高度时修改默认值8 U' x3 \, Z# C4 l* [ S
(if high
4 \% N9 w) R+ t1 F
(setq lg_high high)1 T# K5 N3 q* e4 r3 x* G6 @
)
# M7 _% s' M) w2 t# ~4 K
)6 g: N7 y5 B( H! ?
;;用户输入的关键字是"W",指定方钢宽度4 W N1 |- i. o$ D+ |
(progn
, d" j$ Q* p$ ^8 a
(setq width
& J# Y1 g- f' @0 M4 m4 N5 d
(getdist
* P$ G$ z/ n& r" R% w% K, @
basepoint3 Y- N _. y% E7 M# F9 M' z
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")- t& ^4 o- k) `
)
: Z9 w& n% Y2 r9 A8 q9 ~, n
)* M1 y/ u1 z8 E2 J) t6 X# a' [
;;用户输入新的方钢宽度时修改默认值) r3 \$ M. M* ^ v0 s% `) m
(if width9 m" A& L3 k* U! l
(setq lg_width width)
( D1 N1 B: ~8 E1 u: ^* g" q& |3 r
); L0 y: z6 G' N( M4 N( y9 _- ?/ N
)
7 s, U# X6 Z4 ]( K8 o( r# I S
)
1 q7 H/ w: S, Q
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
3 m7 e- Z- [1 a3 B
(setq len nil)# l: s! h: t1 r1 J& z
)4 _7 q; p. s; Y: T& o6 e
) S4 n3 V m S
)5 D F9 l% w7 m c' O. S7 B" f& l
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值9 w# ~% c4 d# o0 L1 ~- A4 C
;;计算用户可以指定的花形数量的上限# {7 V; u* B7 X# D y+ ^2 `
;;用于下一步检查用户指定的花形数量是否合理" s+ [ ^% [8 \: y" n: _& J
(setq lg_length len7 }8 a- V- w5 P8 }0 h5 x: @
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
5 |; |9 k3 _4 z0 c! ]: T
)
& @5 y* C+ P$ f! [0 p2 ]6 }! ~* a
;;指定花形数量或A段最大长度" _* U5 R4 f2 B
;;如用户指定的是花形数量,则按用户指定的花形数量画图
5 W0 p1 v7 |' i& ^
;;如用户指定的是A段最大长度
' H8 @1 q$ A" Y1 f" ]# K
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
% y( B& U0 n# [. n; G8 x1 u
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解( B# e+ }) G! ^* G. a# [: k2 j
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解+ p1 Z0 D3 m c* G
(while (not n); I' H/ W( W' Z: M( ]
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
! A# f& e; U: B7 W p9 ?" h
(if lg_n. [* K; P2 d1 h6 s
;;存在默认值
8 \& I5 N8 a6 d# s' C
(progn' X: _$ F7 @, `
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"$ O: J; C% H: h5 R# ]
(initget 6 "l")
( Q# {# t* ~& P) |2 p: c: {
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
3 d2 ^; w& I* ~: `# \/ ?% h
(rtos lg_n 2)- g8 e6 o3 ]5 f [4 S$ e _
">:"
- N) C3 w" m" m) O
)$ ^& \1 T# R. ?. ~$ q
). U% B3 u8 I( x
)
5 c" X; W# b9 E2 P
;;空回车时花形数量使用默认值8 p& Q9 a$ u( V: [) b$ X$ `& C. ~9 {
(if (not n)4 G" z% q3 b- r
(setq n lg_n)" C% r! [. y% L4 W9 K
)2 S& V: o) N( N6 }) D% v2 W$ t, o2 x$ U
)
9 |0 L! x5 s, y: i1 }7 c0 W: P
;;不存在默认值* P) W3 x2 {' d$ y; q
(progn
2 N6 v# f' U0 B: f0 H
;;指定花形数量不接受空回车,0和负数;可输入关键字"L") f( [; D+ n6 l/ `+ x1 i
(initget 7 "l")+ k; V2 k3 h# x& U, _
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
. v5 I9 p/ {- u" M0 O1 A c
)
9 Q- ?) ~! e' K: n* E
)
. z. e x. p, ]4 [
;;检查用户输入的是花形数量值还是关键字
1 D( Y, ~; \, q: o8 t" D5 e
(if (numberp n)' H C) e2 |5 X0 @( W
;;输入的是花形数量值
& _; x6 ^; S9 o! X3 d; V/ U
(if (> n nmax)" n* L I+ {$ s$ z" c
;;当花形数量值大于上限时清空输入值重新指定
) I E7 l% s% {3 n; O% L/ @' B( V* }
(progn
9 x# H4 K- Q x2 C- ? [: S
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2))); y! Z y- ~8 {5 {
(setq n nil)
2 e; f0 n1 b5 D" y; _; u- T
), u! S; y+ q% V" @+ ?# B7 G4 d [
;;当用户指定的花形数量合理时存入全局变量
6 U/ C' J# A2 O6 z. J. X' J2 l3 G
;;以便用做下次输入的默认值
3 l, P. ^) s2 v$ V& l
(setq lg_n n)
! \; v. i4 x# ]! ]7 X7 u F; J' l
)" g5 S4 x: w$ }3 x, o
;;用户输入的是关键字
/ l, G9 `, Y7 X
;;指定A段最大长度
M1 q. i7 N/ N" i
(progn U( _1 o8 T% E! c
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
. j5 x) F0 _* N( `
;;否则可能导致无解
: o# w4 g9 J: d, {7 E: d, v
(while (not amax)
6 }6 w7 w: H6 s& y
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值; ~3 i+ a; h! D9 @4 v
(if lg_amax
2 H; V$ @) `: r, r
;;存在默认值
# C" e0 n) Q5 M( j" T+ T
(progn
' s! U3 a( P# f* T! K& X
;;用户输入时接受空回车,不接受0和负数
$ [$ C- \ S$ M6 J
(initget 6)
' Y' @7 Y5 x/ l6 t
(setq amax (getdist basepoint
+ ?# Z1 m9 u* n% t+ b
(strcat "\n指定A段最大长度<"
$ Y$ _! Z: ?1 e6 P/ ^
(rtos lg_amax 2)
. i4 ?! E( M7 J: f
">:"6 U9 k8 j& [2 F j1 }- `
)
2 |" f# U3 c/ X7 p
)
. h5 r2 B% B) U' i6 Q& N+ c- i' |
)
' {" C- t. B& p" E9 Z
;;空回车时A段最大长度使用默认值
0 i1 b- O( ~ P5 s0 d. n
(if (not amax)
. l& P1 h( m0 v% _ b
(setq amax lg_amax)
/ G$ ~+ J7 O2 s0 ?3 D" m4 f- n' h# W4 Q
)
: U* i) p; [" `7 ?+ N
), p4 x' \- F. _, }9 z1 h7 B
;;不存在默认值. X: k( E( u7 F
(progn* F3 I k6 G3 d, L! ~1 W
;;用户输入时不接受空回车,0和负数
0 e4 ?: e- A3 y4 z, q# f
(initget 7)8 ?* s3 b. N+ u" m0 R" p
(setq
8 _2 _8 T0 C! [- Z1 T% m- T+ e4 W+ @
amax (getdist basepoint (strcat "\n指定A段最大长度:"))5 k# o; }+ F! C ^* |) n
)
7 z$ G7 [8 `- W# }
)
5 J* o9 k+ d; }* T P# p$ Q/ _
)
& T5 f7 g9 X% w, N- V' |4 t
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
2 c0 Y, a( y* w9 D' Z$ @
(if (< amax (* lg_width 1.5))
' b* k: @. }: Z! a6 x
(progn: W/ f, Y4 a: p6 a! z5 E
(prompt (strcat "\n指定的A段最大长度不能小于"5 B0 Z. l; i, s: T% Z; F0 b
(rtos (* lg_width 1.5) 2)
+ \) D) B0 G& H& a' z' s
)
: @& ]: H, V! W5 d6 h4 d _
)
9 |4 x" g- U" f+ h: c
(setq amax nil)
1 g* {0 v" p# P
)
* R0 c$ x S/ I2 c% |
)5 ^8 ^- y Y7 F% N* N
)
5 p" K) p0 G. S5 T" n
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值, A, a s5 q; ~
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1+ O1 e6 ]: l9 c( `- T
(setq! B: x; \% T) G) Z9 v( O
lg_amax amax
n (1+ (/ (- len (* amax 2) lg_width); ^) D( T- L) Q9 J) p; G' z
(+ (* amax 2.5) (* lg_width 3)) R& a# x3 n+ H# U/ H, ?8 p7 O
)( b# F- t4 p3 U2 w: ^8 M' O2 \
)
& ?, x" e+ k# H- _! t4 k/ L* l
)
* e2 V, S, q0 |
(if (> n (fix n))* W' Y& W8 J/ S$ C7 \8 |5 @
(setq n (1+ (fix n))), D9 ^9 w. P% V1 {
)
0 }, I3 B6 I# a9 }. i
(if (< n 1)
7 r( y6 x9 _9 i* W* l
(setq n 1)! z) _7 {3 l) E) p/ [
)( j3 w" M& x* q
)
# ~3 [& A* ^' f" N7 W" z
)
% b7 q2 i Z6 B& x4 n
); Q- O9 ?$ y1 E7 j, _1 a
;;画图
: e( m. y* T/ Z! w3 U
;;记住原来的对象捕捉设置
/ R6 ^, b+ o+ {2 C
;;按花形数量计算A值1 A6 Z+ }+ M2 `$ s8 J
(setq
3 [! m. x1 K4 u+ ^$ O: O) w
oldosmode (getvar "osmode")5 U1 P& }, j: e. b5 k- a: S
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
$ S! |8 V! j0 q! v
(+ (* (1- n) 2.5) 2)0 H$ M( i( t" _/ {
)6 j6 W' Q3 w6 B: t
)" V( z6 q6 \& H' X) O
;;暂时关闭对象捕捉7 F0 _+ \6 L: e7 c( `$ l
(setvar "osmode" 0)- z/ A' o! C7 {8 B- J
;;屏蔽命令回显& f$ r8 O. x. \! Z2 u. ^
(setvar "CMDECHO" 0)* s+ E" T3 D' `# c( ?3 x
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
* b6 [5 {1 i6 z7 S r% G b8 k' s
(command "rectang"
& D3 a$ d1 a( `' j5 {
basepoint
9 m4 k5 s3 j3 q S# F4 S
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
8 p6 x1 ?, h" K* y) W& W- ~4 Z- y" h
)
3 @! g$ T& @' e% Z7 x
;;在第一个矩形外侧一个方钢宽度处画第二个矩形3 O& l" E& }- b8 D9 e
(command "rectang"! r/ n- G: n. p. ~
(list (- (car basepoint) lg_width)
* B2 N: p( }4 B6 }; U. j' b7 b
(- (cadr basepoint) lg_width)2 x% Z% {1 M' A
)3 H( ~( z- C/ A9 \4 R) ^
(list (+ (car basepoint) len lg_width)
" _6 I7 P6 U8 l0 o, k4 O
(+ (cadr basepoint) lg_high lg_width) G/ {8 K; F% N% F
)2 X& F! B8 _3 D4 J9 D& J
)
8 T0 t0 _) d2 i/ k8 U
;;将指定点移到其右侧A距离处7 }: [( A5 x* h; w% s
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint))). O9 e% Z' j& m) j9 V/ M4 }
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆) ?: J* [) C/ R4 D
(command "rectang"( O" {3 d* d# }4 u5 W4 d4 I
basepoint
- f0 e. G" R, l: K. j+ O0 T3 W
(list (+ (car basepoint) lg_width)
4 l# ]: D) f# T* H
(+ (cadr basepoint) lg_high)( B9 T5 Q9 ~/ R4 l/ o4 }
); M0 N( X1 U: a: n$ | Q1 _" r
)& Z8 {8 `7 M! O' Q5 m2 L- h- v
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
5 e5 G* N$ e0 U
(repeat (1- n)
: n$ O; d; V, c3 a
(setq1 W$ w' X6 y/ c( N( w+ D
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
( V1 e6 k0 G/ b5 s
)2 Z1 h( q/ T4 Q; {! A* S) b; I! q
(command "rectang": n. C6 y* Y- Z
basepoint8 |9 {! z8 c/ C: C6 [" Q& ~
(list (+ (car basepoint) lg_width)- Q1 C8 r. U2 @# p( V& O. v! y) H
(+ (cadr basepoint) lg_high)
( s( c( K& o s5 z5 |
)6 e% |' s4 s8 L6 V0 Y- r. [4 x6 I5 d
)
/ \7 e6 e/ d' v; |, {3 y
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
2 K* h" ^ t) \& |
(cadr basepoint)* l3 r* G5 e2 a) j2 D) o
)
E# o8 u% t2 c5 c2 ?
)
3 L4 O! O f! k0 Q7 R* A7 [5 b
(command "rectang"+ _3 {( T2 \; L; c& u3 D" e; D
basepoint9 B- c5 R& ^, W- P
(list (+ (car basepoint) lg_width)' n' [; u+ J; o9 l1 V+ ]- [. f
(+ (cadr basepoint) lg_high)- ?7 a; M" S& w! s {# P( H) G7 n8 o
); d* x. Z* K% n
)
- R7 i/ w* ~: E+ I2 m d9 @% k# {
(setq8 J7 V6 C6 U! o, y" q% u! w
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
; h' q; a: V- u8 Z
)/ C. `$ K" F: [& Q6 M
(command "rectang"* B V, m6 M' Q; w. c$ F
basepoint5 L7 V+ x. x3 ]8 c' x
(list (+ (car basepoint) lg_width)
) ?$ ?1 g' w8 |& l( Q
(+ (cadr basepoint) lg_high)
3 o; G' n% P; M8 `4 q8 z2 k' c
)
. Z* f m7 p( j* H8 T
)
" r, }/ p! v3 |% |2 U4 z2 m, N; o
)
+ S7 n/ M4 V$ d# d$ P( y' Y. a
;;恢复对象捕捉设置
: J2 e' Q, N2 q. i y" E' d3 g
(setvar "osmode" oldosmode)1 v5 M# @ e1 Z. I0 W
;;打开命令回显 x, a) e& Q: B8 b
(setvar "CMDECHO" 1)
) K7 e& s+ K: C, c3 p6 u- w# g
(princ)% f( m% f% P; H# M( Y6 ]) s
)
# _" K" a- l( g

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源

浏览过的版块