作图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 发表 2 D ]% H o8 X& [9 `
直线分段方式，a=a=2b
/ u7 N' @9 V- v1 w " p+ @& X: k7 u; J5 a8 L0 L+ @

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
! r+ p% s' A) |
% [* ^% n2 l y, E) L) h7 C9 L2 \距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

" m& n! R" ]% \. H
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)! I$ o$ c6 I+ U
;;设置栏杆高度和方钢宽度默认值
/ G6 x' M1 N7 {1 y7 U7 n
(if (not lg_high)
, O1 F. O& r6 q5 a
(setq lg_high 500
8 K( i& A/ X/ u, }% ^
lg_width 14
. }0 l8 Z! b* R1 G W2 [& @
)- ~9 B5 U: i; Z9 [" E
)( ~' }* ^: l1 J9 |# n' j
;;指定图形插入点4 Y/ V, p: L- m7 o4 i% D
;;不接受空回车
( G: v1 c1 e% h+ U. P" ]$ @
(initget 1)
+ F1 `+ B4 ]+ m5 E
(setq basepoint (getpoint "\n指定插入点:"))
* y+ B& L# z3 l! N9 t5 Q% u
;;指定栏杆长度和栏杆高度和(或)方钢宽度1 e* X U1 \6 z9 a
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定% o; H! C# ]- z2 w
;;用关键字指定栏杆高度和(或)方钢宽度后! g! \0 O7 w$ A! u, Q, d, k
;;需要重复运行指定栏杆长度的代码段
3 S8 C% O; x8 X8 k* f& B; ~$ D
(while (not len)
+ f: ]4 l+ w, J+ S
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值9 }( E* X. F6 n6 W5 p5 p. {
(if lg_length
3 P- `$ C8 w B4 H1 a% W/ S
;;存在默认值! W" A, ?/ }& D8 r% z+ i* q
(progn
5 P, ^+ q/ H: Z& o' X
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
9 H @+ T5 Z8 z& D) A9 \: w
(initget 6 "h w")
: N1 r4 _5 p0 L }3 C% M/ I1 f
(setq len (getdist basepoint5 @! K! j( N4 I
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"6 x8 u' E% G3 J- s& u
(rtos lg_length 2)1 u! W" Y- f$ u/ @7 _. q
">:"9 @& p" i* J7 O8 R
)! A6 p# x$ ]: I; Q* Y+ p4 r; P
)9 h+ Z* v, W# v1 G# S
). ~* f W. y& x* z, u f8 D
;;空回车时栏杆长度使用默认值: }1 U" |- k# i. a3 X
(if (not len)9 L) U# U0 w2 A i" ~6 u6 q
(setq len lg_length)9 W+ a, q$ a2 y( z& P; U# N
)
( K- t* l2 d$ D/ S
)
0 f, ^6 z C5 K4 r3 d- m( o$ r
;;不存在默认值
, R% F+ d' n3 ]5 H1 e& P9 Q; U, A
(progn
" @2 A8 W! u7 T) h4 d1 m
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
. C1 t: U q! F" o7 Q3 [
(initget 7 "h w")2 S0 J7 S6 p% g. F" O' U
(setq
; [0 ?1 C0 G( T) O) @1 q
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")3 w. c( E$ }! w" y9 F
), }0 y$ |) E# a1 J# y3 ?
)5 W) B3 l" u; a' ^
)
8 p% l' d1 s1 W/ b5 C6 [
;;检查用户输入的是长度值还是关键字
% i5 Z6 }& c D" r% G
(if (numberp len)9 i: u8 J* j' T0 u; c" {
;;输入的是长度值
4 P2 T+ {* p5 w& _# K/ {$ m3 i5 }
(if (< len lg_width)
) n5 i- M+ |0 x" t
;;当长度值小于方钢宽度时清空输入值重新指定7 \8 a) c2 ?5 z' I: f
(progn
7 h( |( t) I7 V8 t
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))! W3 _5 j0 S0 @ ~( Y
(setq len nil)& x- q# f, T2 l! j
). y" G; }4 M j: {
)- n5 U4 y, h0 _, Q( S$ m% E
;;输入的是关键字
& h( q: O8 V! l6 g7 p
(progn
9 A9 K; x/ M4 o- Q7 b: L# o
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
9 n9 {' e& E/ U. w
;;用户输入时接受空回车,不接受0和负数
; i# r7 m- R- Y+ \4 X
(initget 6)# X2 w6 e+ ]' U4 U3 G5 q3 n
;;检查用户输入的关键字是"H"还是"W"
' d9 x$ C) t/ ^0 [2 {2 `. {$ g
(if (= len "h"), ?) C, u, s* U" q- @9 d
;;用户输入的关键字是"H",指定高度 c0 @/ x6 [% c& @# R% g. M
(progn; L7 k7 {" u$ b8 ~
(setq high
$ c! p% p5 {, T/ ^- b
(getdist basepoint
* F) Z" x5 X: |; t
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
6 t. t9 e @8 p6 [
)
. V n$ R I& r4 S5 O
)
) a) ?* p6 x+ u$ |
;;用户输入新的高度时修改默认值; E5 ] h1 W5 @7 M4 k& ^6 o3 _6 Z* M
(if high
. M3 Y: T, U2 p* g
(setq lg_high high)7 F+ y9 L: x: q1 C/ W; V
)1 a4 y3 B; h, S. J8 `/ q
)
9 \, w6 m: r8 I+ R! v9 f7 q
;;用户输入的关键字是"W",指定方钢宽度* w6 {) u. M/ l; _) c1 e ~
(progn5 L" [$ p+ o/ U, W/ K
(setq width! g6 @! i, O* _1 r
(getdist2 L7 u6 X) x. {5 o. e
basepoint3 Z/ V& N- y5 ]% G, V, a' g5 Z
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")9 _. l! y7 [8 v. @$ D$ I' B
)3 m" R7 y# ^* o/ A& k1 \% `
)
& s) K) \& g0 X9 b3 e
;;用户输入新的方钢宽度时修改默认值- _$ M" W6 u9 [! G) @6 {( j
(if width2 k, |: }5 g6 o1 a
(setq lg_width width)
5 H/ f& y. j1 K$ a
)
' y8 e# h& a8 {: T( W3 n2 Z- x7 t
)
$ ]; i) y0 j- z' T1 k9 J
)% \; E/ u* k# y9 h5 L
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度: D0 m- I- _; H+ z7 L& g( Z
(setq len nil). s# W% L, N9 p- G* e+ u' Z
): `9 x/ u4 W) d7 v* s' @& j' P
)
0 h5 s: I8 I Y1 X1 r" M6 D6 _
)8 N3 |5 u; H% g5 c4 V, R2 c
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
- a/ F2 |+ z6 g5 M1 i; {: I8 a! j
;;计算用户可以指定的花形数量的上限
0 m" s, z( Y8 S6 n. S" w8 M
;;用于下一步检查用户指定的花形数量是否合理5 Q' W. Z% w3 J" a- j# N' A
(setq lg_length len
4 Q1 B! ^$ @* K4 b5 c6 X6 i( r
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))8 l8 \+ X1 i0 l1 h8 j
)4 h+ f4 Z5 [0 L$ o# ]4 n |
;;指定花形数量或A段最大长度& K/ h- L) y2 u( f
;;如用户指定的是花形数量,则按用户指定的花形数量画图
+ r% |9 d9 D m2 a; w# D. b
;;如用户指定的是A段最大长度
' D$ L! v7 Q: I+ R" D& }) o/ G2 z
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
9 P4 q9 u, p- a
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
) E- H2 k. a5 Q) m
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解. D. ]/ [; W6 Y7 v7 S2 c* |
(while (not n)' V( c7 Q0 D- Q. t3 b
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
$ `4 j2 _2 a2 f! E' j
(if lg_n; P s G; P; m" y5 h1 h! l( Z
;;存在默认值
( S& J: P# \8 |
(progn/ t# ^8 o$ A6 v& G; j; k8 o
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L", n) Q1 z+ u* V% v
(initget 6 "l")) ]$ c" M0 A! r
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"% [4 \7 d2 u, P# h7 b' ~5 e( k
(rtos lg_n 2)7 A/ O) o; E1 b; a
">:"
) W8 C. ^; M+ ~1 ?& u
)3 y j6 T t! Q5 y! \" j! |' }
)
)
. i% Y" x6 k5 o, B. p
;;空回车时花形数量使用默认值/ N) g- V" z# o2 b) d6 T
(if (not n)$ N5 j, T# W: h9 _2 j% R% g& H+ C
(setq n lg_n)
% @7 o* z& B( c$ E8 ]! H
)
* q W8 G3 n& J% Y$ M! F
)
& j% t' p0 Y/ x: m
;;不存在默认值
& P/ l) ^: w' W/ n9 I, O1 y7 B: x
(progn
# Y! h z, f9 ]5 x+ h3 m
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
+ _$ F: f5 k |. e/ T' H
(initget 7 "l")
+ k8 R" b" e: s! Q& V6 y! U& _$ X
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
- d2 A5 v& r1 m$ t5 c, r
)
, _4 F1 g0 W3 N3 L! ?4 E
)
3 Y& j# c2 [2 o0 w
;;检查用户输入的是花形数量值还是关键字
n% S/ i; Q! o0 g% `
(if (numberp n)
5 L" k3 O- ]# M0 s4 a
;;输入的是花形数量值 A! _7 Q$ C: V; b* F+ \0 e- W
(if (> n nmax)
w8 m. G! l8 l; f( P: C8 L
;;当花形数量值大于上限时清空输入值重新指定6 a8 B7 P! Z+ Y4 I
(progn
+ y5 y9 a5 s( B
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))8 D6 K- d8 c, h
(setq n nil)5 Z* H" {# ?3 [; T9 G/ C+ O3 n
)/ b$ ?) W% r$ x. w' l$ G9 k ]
;;当用户指定的花形数量合理时存入全局变量
+ v. ]) `! m& T
;;以便用做下次输入的默认值+ ]2 O; K5 \% r* H( Z" L+ J
(setq lg_n n)
; Q0 n4 i, z" v7 ~
): m! G L$ [4 }9 X* M
;;用户输入的是关键字
0 M5 d! `3 n/ U3 |
;;指定A段最大长度. g5 }0 P" [* M' E' U
(progn
6 ?+ C, J7 T1 R) x$ v8 B
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍. _; N& v# _! F1 v* u
;;否则可能导致无解% ^$ l' H6 w4 S+ q( {
(while (not amax)! s' [4 a! t: @- L& o
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值3 }3 H, |* E. I. m" K
(if lg_amax
" i, v" E: y0 ~1 J4 n2 h
;;存在默认值' ]4 K' M8 u% f: G
(progn
9 b9 g1 F6 d' ?% F) @2 q. t
;;用户输入时接受空回车,不接受0和负数* d5 j2 S- o% v; K8 ^1 {
(initget 6)( \+ \3 P. U( r$ R7 h$ x
(setq amax (getdist basepoint) x1 G6 d- S+ B0 Z8 r) y/ V, e/ e
(strcat "\n指定A段最大长度<"" v' h! S8 E+ g( x7 {8 p) k
(rtos lg_amax 2) y `5 N) L4 y1 O
">:"
/ y6 k2 y3 A; D5 ?, o9 R
)
5 X: G* Y3 s7 D: u/ Z
)1 L5 B( { b* t+ o9 p" T9 ` z
), c+ ^" M2 W2 N% N2 z/ ^
;;空回车时A段最大长度使用默认值- p1 h+ W" A6 ^0 X" y) F) x0 ?/ d
(if (not amax)
# P8 A5 O2 g& J) s7 Y( |4 ~, z
(setq amax lg_amax)
* U5 u1 Z2 c# d4 Y) [1 p
)
)( R5 i: D7 a$ N
;;不存在默认值
/ Z* d P/ Y8 x; @9 V- A3 {4 y
(progn( J+ ~+ U8 o, A% A
;;用户输入时不接受空回车,0和负数
& E5 i! b4 h) y9 K9 N+ R$ S6 y
(initget 7)
3 q3 G4 t% g2 N0 \& a* |6 Q
(setq
2 \. i' F2 h& i j
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
& h5 V; K. S3 j
)
& j7 T4 a9 Y" u3 s
)$ s; l2 k. x9 H7 N. G. T. j
)( P# J6 P8 [( y/ G
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定; f, ]9 {, ^ c( Q8 ?
(if (< amax (* lg_width 1.5))5 e: y4 ?% L1 L- g+ N: N
(progn3 R( l1 j" H% L) ~
(prompt (strcat "\n指定的A段最大长度不能小于"
* t- p: m5 m( d5 h: X
(rtos (* lg_width 1.5) 2)+ T8 w/ j8 P8 M: D
), \+ B' K; n& I
)7 l! r( T( M6 E( f
(setq amax nil)
- Z8 E* |! y& A4 ^8 c
)& k, s1 t" o4 [3 z, ^( O: _
)1 N: d f1 [+ `/ X/ A& ?
)6 N( N: a% {. a4 n- v: n
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值8 ^' p- X& O1 n2 d& ?4 B) @' }
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1 v8 ]" C- @( A2 H, N, \
(setq
( q/ |5 f: |9 ~' }0 f6 |
lg_amax amax% D) g8 A5 u7 s( Y1 U# Z2 s0 w
n (1+ (/ (- len (* amax 2) lg_width)
& W; W, i$ {& }6 T* V" k0 e
(+ (* amax 2.5) (* lg_width 3))
C/ J+ _% T D. F3 A" o6 x
)
# e) y8 o- p: b7 f0 w9 r
)2 F7 p1 U. Y/ z9 j! |. K, S$ M
)9 F: ~ i0 m2 v; E
(if (> n (fix n))# Z9 U4 k4 ?! [! |( Z2 B
(setq n (1+ (fix n)))3 Z" F0 a: Q6 {5 f5 G8 ]- E
)( X6 y/ @4 k% r( l+ b+ W
(if (< n 1)6 [' f3 p' ^# i# Q
(setq n 1)
. ?9 A# H6 y9 i" R) `6 F+ m0 Y2 M1 G/ Q
)
' ~% M ~: F$ J4 n+ E2 j
)
6 L3 o" L# d( Z( ^) ~. H
)0 K1 l8 H9 f5 q3 @+ [$ G
): C4 J) D/ J' Z8 ]7 ?
;;画图
4 z* z* M {9 D! [
;;记住原来的对象捕捉设置) L5 J* C$ R4 {- ^8 v# y$ }7 }# G
;;按花形数量计算A值$ U G0 j5 ~' x, n6 i
(setq
& h1 s# t t$ q
oldosmode (getvar "osmode")) @/ k5 X6 f8 Z, @( n- h0 L
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
9 V2 T- G$ R# T. B" J& `3 v8 J
(+ (* (1- n) 2.5) 2)
5 L$ D1 r( @- [% o& ^9 Q! P
)
* U1 ]2 b+ E1 z
)
# W. x: z% t& P) r# [+ g
;;暂时关闭对象捕捉* _; g& z8 G H0 e
(setvar "osmode" 0)
: L! G) X8 ?6 Q8 B# V6 s+ G
;;屏蔽命令回显9 A- }. [' ^* Y& k, i! H
(setvar "CMDECHO" 0)
7 O4 I' n1 U( a: {
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
5 A: ~8 t! S- m0 D2 H
(command "rectang"
# M2 \2 g) t* ^$ R
basepoint8 ^1 R( I) ~/ L+ }1 ?
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))% y$ T! I* Q) ~- _8 w+ m& p
)( n( B% B. z) E: p! g' X( H- V' v) u
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
: f7 i% I$ O& I* ?- k+ ?
(command "rectang"
, n2 m7 Y6 B- X6 Q
(list (- (car basepoint) lg_width)* C' r& B }/ O$ I! w. d
(- (cadr basepoint) lg_width)
; d/ U! @" p) |' O* ~
)
+ H5 g3 {4 m: }) S; X" G# j! y
(list (+ (car basepoint) len lg_width) l6 X: m" t4 z3 q9 G0 [- M' E
(+ (cadr basepoint) lg_high lg_width)4 S' J0 X% _( |! ^/ n) g ^4 r
)
# i, e% z8 |, O/ c6 H4 d. j% T6 w
)5 m: u& O* |4 w& w. W5 b( y" q
;;将指定点移到其右侧A距离处* Z' \5 G8 s1 P1 a0 o
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))6 L# U& ]7 P) ^
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
) s4 _3 }% J5 ~5 z
(command "rectang"
: g9 _4 y$ v+ K
basepoint
- I& s# |0 T8 C7 e
(list (+ (car basepoint) lg_width)
' u4 I8 ` s* z& _# t" U
(+ (cadr basepoint) lg_high)1 [7 k1 g7 Q, d5 D$ J$ ]1 H3 t
)
$ q, p( u: C+ K+ ?9 |) d6 R( }
)
# F. E$ G# A) Y
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
( A3 A4 {: u# b/ q
(repeat (1- n)
. i9 G% y3 Q' S6 }; I( |
(setq
5 P" g" h: F+ q8 Z7 \
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
, w" \- d, K( i D
)
4 J; l3 J. ^# b' a; X# _+ x {
(command "rectang"& A# f& d3 f" v, z0 V* x
basepoint
* V0 Y/ T! a7 L3 p. d
(list (+ (car basepoint) lg_width)$ E& ^' _. u+ e9 G' w- q
(+ (cadr basepoint) lg_high)- i: W L4 T& q
)4 t2 Y( A, P0 b- ~2 N
)
: v1 Y3 x( W6 B, V" G( H) x
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
, Y9 X& @9 e) B! G4 l
(cadr basepoint)/ t( z4 K7 R+ Q+ }
)* v y0 p8 {7 Q% x5 h6 x; k ^
)
2 c5 @3 m. L8 k+ Y3 a
(command "rectang"
, U5 \% {9 L; [) H
basepoint! M) u9 i: i+ ^! q
(list (+ (car basepoint) lg_width)9 d3 g; G5 k1 B
(+ (cadr basepoint) lg_high)' X/ n8 }! P+ D& n6 P6 W" u# A
)
)
: d8 b* F$ g: d
(setq
2 ?- I0 U' N5 ?0 R. j' S9 U
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))6 P6 E. M+ ~7 _# x$ ~
)5 v4 M/ \* y; i) O
(command "rectang"
$ m" r8 X! V3 R8 ~3 ?1 Q0 f2 t
basepoint
, E& B. |2 g# m8 Q% f
(list (+ (car basepoint) lg_width)
1 }4 Q- j; [! p; }+ N Y
(+ (cadr basepoint) lg_high)4 E- v5 G+ r! k7 i8 c/ O3 ]- f
)& `& i) p! x- Z7 N( D
), a0 w- B( c7 j, {/ p
)
" {2 `2 M4 u0 R3 Y( u1 @6 p5 I
;;恢复对象捕捉设置
8 [# w, C1 K5 v& r( C
(setvar "osmode" oldosmode)
5 C8 ~+ w9 B% e: v5 J- z1 a \( _
;;打开命令回显9 q% s9 |/ }0 I
(setvar "CMDECHO" 1)4 R1 \& H1 Q, y' N$ x" ]& l
(princ)
" f# A1 h& [" ? q# ^: h
)

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源