作图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 发表 ( |- X' `3 Q4 W9 L* K7 l
直线分段方式，a=a=2b7 x* W+ q, Q- D- l* V- }

u+ ^& A8 D7 J- F9 \

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
+ ^$ E: Q, A4 y1 Q$ N2 @3 r/ M2 [! X, K, r' S+ u
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

% Y9 s& K* y! i1 s! L; ?$ |
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)7 e# p- d! y8 Z( Q# z- }' l3 o/ X
;;设置栏杆高度和方钢宽度默认值0 O$ i! @% ]6 z) b
(if (not lg_high)' M6 I$ f7 \. @6 \- K$ z5 l
(setq lg_high 500
% B& f5 K% }3 T/ S4 o2 D9 y
lg_width 14( X) d, Z8 Z# k9 \3 ?5 \* I; P
)7 X5 b6 m$ x( P/ j) A5 {
)5 U* W6 ~( Q: ^2 T6 |" h3 l
;;指定图形插入点
' {5 n6 j7 z# ^! x
;;不接受空回车" D5 ]0 y* a* |+ o: F7 M
(initget 1)2 l7 \( }" H# _" ~
(setq basepoint (getpoint "\n指定插入点:")): W1 e! ~$ D- S$ N8 e
;;指定栏杆长度和栏杆高度和(或)方钢宽度
6 t4 h( b2 n6 V, c0 H
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定% @6 Q C" @9 Z# v: @
;;用关键字指定栏杆高度和(或)方钢宽度后* y4 Z: `/ K" V( ?6 d4 B
;;需要重复运行指定栏杆长度的代码段
. R: L- m! a; m6 z' k* V4 d" G( a
(while (not len)9 S' ]1 S$ h$ Z! N
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
0 t _3 q* ~7 S, \
(if lg_length& v0 Q+ q6 N' Z( _% Z6 A
;;存在默认值
% v0 S, a* o8 W L
(progn
' D: t' O' J- P6 K/ M' a# f
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
* j' s% O h! C2 k, k+ y; ]
(initget 6 "h w")
$ I5 D+ A9 B, A& U& E: |& A/ {; X
(setq len (getdist basepoint- F7 ]; X. i# e/ w! h2 X q$ i
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
2 M5 ^) a9 q4 D9 \, ^! l
(rtos lg_length 2)4 q4 }$ A& x2 {, ]; ~. [
">:"
/ W4 l$ k4 C( k6 g3 f4 o0 v
)( ~ G: s- d7 G' [
)
; P( S: ?" e* Y2 N- c( d7 x6 M
)4 ~3 V' M) J8 A1 x2 ]6 ?: E
;;空回车时栏杆长度使用默认值
* s9 c! ~: Z; J& y2 y- c
(if (not len)
7 C7 u; s3 C. j \7 y6 }
(setq len lg_length)
; q( W" S0 }/ N) m/ u8 ^: d
)
0 n2 l' @' y! ]# M
)
) @/ {6 y" H; k: F3 g
;;不存在默认值 H1 d3 K9 Y+ A
(progn
# v. v- a/ m9 y: z
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"/ j2 y* ?8 B( ]* \! j7 _
(initget 7 "h w")+ H/ m. B4 C0 J5 Z6 ?% p; G6 U
(setq
6 e: @" z0 ~. A. l
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
9 z% I9 k3 Z0 F. a8 p
)
- H3 J* G& x# @- O$ E9 g: ^ A
)( }, o: _6 }9 j' t5 [
)
0 _4 N+ n0 J/ D$ _
;;检查用户输入的是长度值还是关键字$ S7 l1 |+ n% r' N) D9 H
(if (numberp len)
( z, U# B. X$ l! V; d' Q' m
;;输入的是长度值" J* i5 D. W* U; N- ^ P
(if (< len lg_width)
# I8 r: R8 ~ R0 X
;;当长度值小于方钢宽度时清空输入值重新指定
# P7 p( }, k* E! [( Q- s: P
(progn; U8 U3 E2 B: Z" u4 a
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))+ b: A+ q/ s$ G7 `$ V
(setq len nil)1 w4 E. H/ G, z1 i% O3 d8 w
)
0 c! g7 z4 W/ w: l& F1 K
)
0 Y. w* b0 m$ P1 o+ r
;;输入的是关键字: g( u1 b- ?& f& b6 Q
(progn
* i' W" P- y& T
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
: i( S" { o( d" i" z* H C
;;用户输入时接受空回车,不接受0和负数
9 l9 X" `+ n) e, j5 a! H. [- A& w
(initget 6)
! ~) D4 I2 z R% y
;;检查用户输入的关键字是"H"还是"W"
: }' ^4 m4 q" T
(if (= len "h") Z- d" B C+ ^ t9 W1 F8 h
;;用户输入的关键字是"H",指定高度
1 e) E% [# ], k1 r4 f. a& ^0 x
(progn u, l" y6 J5 \% p2 T
(setq high
( H$ s& x, ~5 |. l9 g
(getdist basepoint
( v7 {1 o* d# u7 [, Z" C
(strcat "\n指定高度<" (rtos lg_high 2) ">:")6 e3 j' o4 ~9 _4 F
)
2 q6 D) ~! n6 r5 P
)
, B# [2 h& i4 t9 A. ~, ]" ]
;;用户输入新的高度时修改默认值
% h" G7 c! c: \" x/ n* t) B
(if high: S8 ~; l( ]! R: z( K5 q2 ~
(setq lg_high high)8 }1 n5 I, C' U
)
* E+ @, B$ H( d, k
)
+ A2 u3 e' I n- t
;;用户输入的关键字是"W",指定方钢宽度
) ?3 o0 f: i2 E
(progn
) `+ B: A# y9 W) ^8 B
(setq width2 F3 o9 R. ^- v0 n
(getdist0 \, a' e, ], o' O" B$ w
basepoint
# J# \5 }4 \( j" ~3 @
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
8 b$ v8 A& p& X, ~- a! N" [
)* A( W: ?/ |' B. ^
)4 y: Z: \9 `. m4 Z2 @& W
;;用户输入新的方钢宽度时修改默认值
3 _, E4 L f. C# {$ G
(if width
7 K: F2 F4 r9 n* T1 V$ Q- S
(setq lg_width width). W0 m" H' _3 m2 M$ u# G0 l
)
, m3 I# d8 \# r6 F2 { \5 k0 C
)
/ R6 k6 o+ y4 {5 v8 i
)' y5 m2 g' z" B
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
. p0 @3 R8 H1 B; a7 S
(setq len nil)
1 P( e q: g/ u# {3 w( U- n$ ^
)
7 p0 r2 t1 B/ k; M, s( F
)
0 o; ~( G7 h L# j
)
- r$ c% @7 e. i* A5 |! @( Y
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
& h% @# M( V% w# L5 p
;;计算用户可以指定的花形数量的上限
3 l. L6 c/ ~( @8 I9 ]
;;用于下一步检查用户指定的花形数量是否合理 m1 N4 @( p& r7 e* c) N
(setq lg_length len
?3 G- M6 U* T
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))% R1 ^3 Y- [8 O( S7 j; r/ A8 V- X- b) J
)
0 y/ l5 L% Q' N. m8 b
;;指定花形数量或A段最大长度
/ A0 q$ u; u7 A2 O2 I1 |* D5 V
;;如用户指定的是花形数量,则按用户指定的花形数量画图
& s' `7 V2 H8 t; _; E" h' Z
;;如用户指定的是A段最大长度
# \% y2 R" Y7 l# ^$ ~
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
* x# R% v& U6 O8 ?4 S7 w
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解( x) |$ Q: h2 g* j* V+ M& x6 Z# n4 h
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解3 R% @: r6 P6 P8 `
(while (not n)
4 q0 I4 y$ u8 L+ }$ ?. L1 C( o
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
9 v- v2 X2 Z! D$ J6 U2 b; e9 ?& [4 G
(if lg_n7 g" ~9 @! w7 v1 |; k- e
;;存在默认值: U4 z; q1 W5 ?6 k' k( ~
(progn
$ I- _8 q( e) v6 E- @. h+ h+ Z2 }
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
x, P# X0 [: A K2 O# J
(initget 6 "l")2 i6 A+ K3 ~8 u1 |
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
& m! z1 p: s' j4 }. S) N& |, P
(rtos lg_n 2)
6 l) m8 G& [0 j; o
">:"- s) W# v6 g N! {, I; l7 }
)
8 i7 R: X0 }% ^4 Y+ X+ ~$ z; ]7 m
), b$ u( D0 H3 j1 c
)
% Y9 M6 ~7 P! k
;;空回车时花形数量使用默认值8 k& h6 C8 Z0 {2 }
(if (not n)8 }3 O& C. \1 W3 c
(setq n lg_n)
* f0 R/ C W! `9 R- T0 `
)! x' q# K, B. l0 d h; p
)
2 z' g4 a7 i3 N' x2 J" P- J
;;不存在默认值
$ g" m& N- T- T) D% }- R
(progn4 x0 R, h+ e7 }" G- c0 D
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
; g& J# j2 w* n9 b9 k
(initget 7 "l")
3 K. B% ^/ F" r
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))" F! v: r, [ U; B/ z
)" n# I& e4 G! @3 W6 i. }+ u% n
)
) \. D8 `" A0 ~0 D; i
;;检查用户输入的是花形数量值还是关键字& T" C) u. ^ k8 ^% Y9 y
(if (numberp n)
$ O! `. u+ T. ~7 @/ e( U
;;输入的是花形数量值/ g, z8 k! X( z, G. J( ^8 F! ]! L5 ]
(if (> n nmax)
$ B; I* m' |' Y% ?* B% \( p! K
;;当花形数量值大于上限时清空输入值重新指定
- T. L7 Q8 i5 @; \
(progn
! }9 `) {0 m1 G/ T" N X8 }! }" U$ X
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
8 O, a4 k* ]) a+ Q$ f1 T0 H) T; s
(setq n nil)
9 ~) s4 t& H( g3 K7 F- D
)
3 P5 K% ]" \* ?, I, b# x
;;当用户指定的花形数量合理时存入全局变量! F, g4 V. P, T+ r7 g& S
;;以便用做下次输入的默认值6 x7 Y5 s% U( C1 S
(setq lg_n n)
4 r/ r8 x: l3 b& V; H
)* c% |+ C1 W% \1 H; [4 u
;;用户输入的是关键字
5 q7 y! j$ C7 K7 X1 n7 s! {1 R
;;指定A段最大长度, U5 G; f1 J1 s4 v
(progn
* l+ W& _/ G% s4 I) }: N
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍. [' P; I, k; G+ a! h. K. D6 F
;;否则可能导致无解
0 E1 {% s" [$ W5 t
(while (not amax)
' o) w1 p4 N) X' f: c: |9 z; k
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值7 e# B" q# U' C6 K% j
(if lg_amax
/ H, h5 y7 @$ Z
;;存在默认值
+ M6 P, e9 n; R5 W
(progn
- K& A% @+ m b% y4 [7 G4 Q) i
;;用户输入时接受空回车,不接受0和负数( Z7 I" k. I! p, z+ Y6 S2 t
(initget 6)8 n9 b+ e/ a- U2 m# d( t5 \2 R
(setq amax (getdist basepoint+ X$ A E+ ~0 u# T5 D! Z4 Y: n5 S
(strcat "\n指定A段最大长度<"
+ p: U8 _# A3 F" E6 R# k
(rtos lg_amax 2)
( ~/ w* l0 S; S* L
">:"+ Y% n( P1 @9 l
)1 H. n3 ]- Z9 S# Q( |& l
)
2 {! p" J3 a5 \- D# C
)
; e6 j- A/ W6 p# G4 ^; H! N( r
;;空回车时A段最大长度使用默认值
) ~. q+ l8 ^+ G7 R
(if (not amax)
3 v. Y% p6 i& r b1 I8 C$ e2 i
(setq amax lg_amax)
) \$ S5 C( L" L1 j* [
): O g. O/ b& v3 h( `4 U: Q$ z6 m: o
)3 O9 v4 ]( [6 @& i# F
;;不存在默认值
4 X; h$ ^4 }* F6 Y5 \# d4 y
(progn
! U4 W7 g' h4 f& c* c9 U- s8 n4 x
;;用户输入时不接受空回车,0和负数
7 a; K/ m4 E$ u' @5 {( _
(initget 7). D7 e+ i, }: O" w
(setq
# v7 j: ^3 a& J9 [% j
amax (getdist basepoint (strcat "\n指定A段最大长度:"))9 X& P. V Y' \9 t3 d( c
)
9 Z# t2 Y4 J1 J9 s
)" L. a+ ?+ i& c5 @
)3 c6 F& j# R/ @; [" x
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
' ]% a9 r9 z2 t0 e9 }/ Y4 V) s8 @
(if (< amax (* lg_width 1.5))0 a( J& ]- ]: g6 Y; x8 l$ W+ } W& v
(progn- H4 ?# C/ P$ @$ N
(prompt (strcat "\n指定的A段最大长度不能小于"
5 r/ B5 G- J3 D! L3 X* |
(rtos (* lg_width 1.5) 2)
6 C4 s# }$ C* D. J
)8 Y# e3 `7 S& Q$ P% ?
)
# }( E0 b7 E1 X/ h
(setq amax nil)5 G) ^2 b; {- \
)
. q! `1 K1 t4 M9 O" B" o2 }; K
)
+ V; ]& p1 p( O/ V8 M
)
; R) [% b8 B4 _3 j4 Q( [4 N
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
% d \( |1 p7 a- x& J! w1 j9 N
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为10 F# M9 x b Y0 C+ p
(setq
4 K' x% x0 ]+ X/ A4 W F- L
lg_amax amax
7 e# s6 d, d% L
n (1+ (/ (- len (* amax 2) lg_width)7 E9 A( g+ V0 J4 a3 \
(+ (* amax 2.5) (* lg_width 3))8 Z2 e/ s% g* k/ c% M
)
) \! R% L9 B4 U2 R* m
)
- C7 ?( Q, Q& K5 {
)
7 q. ?" i+ d5 s, k
(if (> n (fix n))# R5 s# S6 N5 ?7 o1 r" j
(setq n (1+ (fix n)))
/ O$ R; E3 @$ S
)3 P$ \% u/ g [# T
(if (< n 1)% R# }5 s* d- o# X
(setq n 1)7 r! H1 H" M; N! a& s5 `: b6 U
)
' ~) K* B/ x. P7 R4 e+ p- f+ _
)
: m' k- @7 t5 A$ M6 W
)
$ m0 m E) y/ u
)
0 N! ]+ U0 C6 }$ {( z _+ U6 }* n; J
;;画图9 k2 d' q, v- t8 G* A9 B
;;记住原来的对象捕捉设置: q; G- i2 p0 m. ~
;;按花形数量计算A值 t! _# a: H+ \9 Z; P* T& J
(setq' @" c/ I% r2 h) [4 ^* j
oldosmode (getvar "osmode")* \& z" N8 J1 k& l- W0 L$ r
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
; Z" v: o8 K3 n5 i/ Y, |
(+ (* (1- n) 2.5) 2)
7 f; R" O. `; F, U
)
3 U) x2 h( ^; n1 {0 ?- z ]
)
. Q3 h1 d6 {/ c" f0 M/ A1 G9 v
;;暂时关闭对象捕捉
- e5 t% A5 j; f
(setvar "osmode" 0)" b* R3 l0 a* O& a! G; A: y
;;屏蔽命令回显# [# V7 f' [6 B6 u
(setvar "CMDECHO" 0)
3 K% |" S, z8 U- O
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
6 w/ ]5 [/ _2 j& l8 S
(command "rectang"
/ a- e& J; v! g4 ?
basepoint6 e* d. Q* |7 w% y/ w& z* U/ A
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))* T, c; I5 ? s9 z) L
)
& g8 r, m6 }# t
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
4 s& P$ w$ R4 T
(command "rectang": P$ P8 L, }2 m, P
(list (- (car basepoint) lg_width)
5 ?$ @6 |/ A5 g% S1 k
(- (cadr basepoint) lg_width)+ ^8 I- F b9 l
)2 z7 H6 P- I; @# r* c
(list (+ (car basepoint) len lg_width)* B, d0 H2 e' U e) ?% f2 Q+ l6 w$ }6 A
(+ (cadr basepoint) lg_high lg_width)* r6 x4 `" d" M8 q }% m+ L( z
)% u4 _4 d2 j# U8 K
)
! |- W0 f, L' G7 @2 W+ m# N5 t
;;将指定点移到其右侧A距离处
9 \% o9 K6 n, h# D4 ^
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))" E ]2 w, d( [, T1 ~
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
+ N! \# U3 c) v7 D# y
(command "rectang"
& A+ z/ O5 l, @8 a+ i
basepoint0 r; C& g4 Y7 C! Z7 v
(list (+ (car basepoint) lg_width)
5 q$ C0 Y/ A0 H5 ~# i1 m
(+ (cadr basepoint) lg_high)8 k9 z1 |4 N4 j' N; ^2 s' Y
)
# P6 f. K: A7 v" }) ~$ W& A
)! B' L' u t, y6 P
;;用循环语句,依次移动指定点并画出其余矩形(栏杆). \( d; @) g# G/ M7 q5 l5 A9 l
(repeat (1- n)$ p0 v! @; t1 Q6 Q( J( ~
(setq
* A l1 m- x3 O7 S# |) H& c* I
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))" a! ]! |& ~7 k- s
)
v. v9 ?/ ?: a/ `
(command "rectang"
: w$ g5 h# t6 q
basepoint% {( q1 _3 b3 z1 x( ?3 x
(list (+ (car basepoint) lg_width)
! Y1 j, N/ l+ `, P8 n5 s$ [6 X
(+ (cadr basepoint) lg_high)0 j ]! b0 q, Q1 v5 h# S
)
+ Z/ {% D B6 }; `' U0 b+ o
)
1 T+ z; }2 Z$ P. ^
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
" f2 t7 q: g# S/ z" k3 `9 ^! R- `
(cadr basepoint): I# a% P- T+ T5 u: ]
)7 Y& P# |% \: }, u- W8 l
)
4 i+ O6 O" O. v6 _9 j$ X
(command "rectang"
. T1 d! j0 O; ^/ R& a
basepoint
; \) v5 b: W! G$ |4 O
(list (+ (car basepoint) lg_width) b. f7 d7 l5 V7 _
(+ (cadr basepoint) lg_high)9 ^9 _7 k) |, _0 O
)9 I' j- a0 ~3 [. _* M& l2 C: S1 u
)
8 L! @4 h$ Z4 r! E6 r( o$ K
(setq2 ~9 ^ h. c1 L" y+ [0 a7 V
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))4 N) k7 E! {( p/ M3 r% T! f
)7 n+ p# q6 V' ^8 b* m- k0 l
(command "rectang"
9 J, p3 Z t1 U" X/ n; Y& d
basepoint7 o# R( {8 _/ [* j3 j( D: l
(list (+ (car basepoint) lg_width)8 ]: u2 S+ I" F! a+ d1 V( y
(+ (cadr basepoint) lg_high)( {2 w1 X; n* F, F$ |
)
/ M( h* c) {7 T- d
)
3 e4 b# N! ?: \9 c
)
$ ]; `7 w) |: e$ B+ w% p
;;恢复对象捕捉设置
$ M& E2 l: N7 D/ J2 f/ I O8 B/ J
(setvar "osmode" oldosmode)& g/ U' s) o: B9 i
;;打开命令回显
8 \6 {; w) f J# ~* z; U- {
(setvar "CMDECHO" 1)
+ a; F g! ^, A" B, J
(princ)* A. y5 R" }, f" k' k. L
)
5 \5 a. y: f; e- e- a% D

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源