作图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 发表
, W% [2 |- Y, f0 t" |. a直线分段方式，a=a=2b
4 W( L1 u' @; W1 p% I3 U 1 O/ a% @) e( k) H' X; D

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 - J* h1 b+ v# c9 x6 L
6 G8 r$ t4 _4 g0 u7 c# Q* C/ Z9 Y' i
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

- m V" H5 W6 F6 Q. B; C
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode), p5 l6 z s+ e2 j4 r5 N( w5 G
;;设置栏杆高度和方钢宽度默认值
# Z5 S+ I; L4 l! W
(if (not lg_high)
1 O' R: \3 z5 L$ Z# {
(setq lg_high 500
& W/ k" W, D0 q" d' `
lg_width 144 d4 ]) r, d- I+ p# [0 M
)+ H6 F# Q$ A6 U! Y
)
! c2 o8 O$ {; r" u) k
;;指定图形插入点
# {# C6 `0 V7 z F$ u @: Z+ ^
;;不接受空回车% S7 z# r1 M4 F3 U4 ^
(initget 1)
2 P0 a, T0 d o4 r6 n- \ @
(setq basepoint (getpoint "\n指定插入点:"))9 U5 I T+ O7 ^, W8 g- {/ N
;;指定栏杆长度和栏杆高度和(或)方钢宽度! ]. `* E0 L. P M6 ]
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
3 |' c5 H! i% Y: u8 ^( H" Q
;;用关键字指定栏杆高度和(或)方钢宽度后/ `3 h/ |3 ]) Q A% W9 A: w3 S
;;需要重复运行指定栏杆长度的代码段
. a c; j8 R0 ]3 d y
(while (not len)
. g0 _; R1 G: f; G9 C1 ~" @) E
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值/ d9 t: G) k& ?
(if lg_length
( B5 ], F& z) u2 p
;;存在默认值
* J1 v$ {& `! ]
(progn6 G+ s1 N0 H9 ]6 {3 {5 Z# n; U
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W". Q0 z! G+ Z: b3 i4 M/ z
(initget 6 "h w")
3 ~+ r# ]/ E3 d3 R: ]
(setq len (getdist basepoint
8 T# ?% @ b# P, Z$ e
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"7 d, H8 m! u$ f
(rtos lg_length 2)
% p# n4 }( d! T% I
">:" K- N1 y) l6 L3 R l3 E
)! F" x! y0 l6 f) g1 o5 V
) v! D2 [! f, Y5 d! F2 t
)# Q9 l! z4 i' {8 D' P% d$ N+ Q
;;空回车时栏杆长度使用默认值$ u: o \6 C9 f8 s7 h t
(if (not len)
4 X& k; x9 D9 Y) g; G
(setq len lg_length)
2 f* q3 M) b* N" Y- M' l% J
)
; Q4 |; m9 M, { K7 }" R4 G, o
)
8 e3 A" d8 s* }( ]! t, T3 u7 ^3 r
;;不存在默认值
" f a" W( Q m* K1 |5 T
(progn0 `6 c1 u9 w: g! ?: a0 D
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
8 z7 A9 o* k* I( p
(initget 7 "h w")
( i# ^2 R6 I6 A* M, h& m
(setq
% C' q2 P# E0 T8 H. Q$ |
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")& D% p& W6 l4 o: ]; X) |1 Y
)9 g/ e/ n% e7 `* [) S$ R/ B
)+ N! u, a! I1 T! Y) i3 C* @( k% c
)
( F H; N5 {, `, S( D
;;检查用户输入的是长度值还是关键字+ u7 ?2 P" b: D# e7 G& ?1 ^5 k
(if (numberp len)
& N7 \8 p4 h4 u" t4 b# e! ^
;;输入的是长度值) I) i$ v5 V/ n' X2 T
(if (< len lg_width)
+ l' F: }& p+ i2 ~4 r" v
;;当长度值小于方钢宽度时清空输入值重新指定+ y- S" L: K! H, c
(progn+ w; j- _& `% L) n! r) D
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
2 T* T8 \7 o5 O0 ^6 i( u' _
(setq len nil): ?/ @7 E8 P# a' ~1 V, I; G
)
2 U8 {' o% \2 h+ _3 _( E
)
4 `4 I! u1 o( ?0 H
;;输入的是关键字
5 a- i, [0 \1 b/ K0 N! W" v
(progn
3 a; l. P& Q1 k5 ?$ h; ~
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值4 f$ x3 P) U* }9 t( t D
;;用户输入时接受空回车,不接受0和负数4 ^" O/ s+ G% U& I
(initget 6)
; C1 c& G! O6 Y) t7 S( n8 [+ H/ K. A
;;检查用户输入的关键字是"H"还是"W"
- @6 c# o' y) u+ n5 O
(if (= len "h")2 ]3 d/ j% d$ L
;;用户输入的关键字是"H",指定高度8 Y! y9 P, _: t, @+ u4 P
(progn
' W y% Y, d) J" G3 T
(setq high" G: d, M& W: u
(getdist basepoint
& E* M2 E$ x4 U" L0 a& c
(strcat "\n指定高度<" (rtos lg_high 2) ">:")7 P; {' y) C1 {
)4 q" E2 q9 g6 B" {7 ]8 ?
)
) v/ Z% q3 p; l, z2 o$ y2 ~8 k
;;用户输入新的高度时修改默认值' V& j0 \5 f) M
(if high+ k9 a9 Z4 {% b; y/ k( H
(setq lg_high high)
0 o& [6 s8 A! w/ x
)+ s* b L1 |' n% y, R
)
, [0 k" m# y( V3 |' j3 h! J" w
;;用户输入的关键字是"W",指定方钢宽度
% h: ^8 `" k% G7 N# d
(progn. S( L% A- n0 D( U# U% b
(setq width0 D- S" q* v, d6 G3 u, I
(getdist
7 O! x3 b5 }! E. F
basepoint
# A! i$ L7 a4 C- h) f( Y0 ?5 k
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")2 z$ s) |: _ f& B u
)* h" @9 y4 O/ V( @
)% X8 c7 J2 t+ J" O' m1 c# k
;;用户输入新的方钢宽度时修改默认值: p+ X$ z8 c* `) k2 j8 i7 d2 u
(if width
' K: i! {$ c1 \0 @: O( M
(setq lg_width width)
; w8 c" z$ D# }* X, n- J
). A k& Q/ _6 m3 Y4 R6 \
)
)
2 o+ S6 E3 K ^' a
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度, p% y0 v- l$ n2 ^0 k R; O% T
(setq len nil)) }% k3 O1 y) i9 [1 x" \5 I) r
)
, s! w; } n, w/ |. Q e. A2 L8 q
)
: L5 @( J4 l7 f/ L( i' i% Y
)6 q& d5 s k: J6 a4 B- y
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
) v# ?% l7 ?3 V: m4 `- C, f
;;计算用户可以指定的花形数量的上限9 w+ V, Y7 y1 e0 j
;;用于下一步检查用户指定的花形数量是否合理: G1 ~. H4 r& ~3 Y- m$ T' s- @
(setq lg_length len
" u/ C; C1 t& e6 Q
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
! G( l4 S3 U- I% s! Q
)" K) d7 q: F1 i: I% V- C; u
;;指定花形数量或A段最大长度2 K& u, {: }) h4 g; h+ M' N
;;如用户指定的是花形数量,则按用户指定的花形数量画图' m0 f% I' e. X( [
;;如用户指定的是A段最大长度: {. Y2 h5 R: z7 j* j
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图7 R" |% y! Q% x: N! Z. G
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
9 D5 u# J2 V; B V) i1 X% R# Y
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解6 l! Z$ Q& |' A7 C; {4 O7 @
(while (not n)
* M: X: @: j+ o/ }& v2 S
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
% o) P4 {. K/ ^4 {
(if lg_n
& o: D" w) B& G, [) z
;;存在默认值5 c8 ?% I% V! X+ y$ | c. j
(progn
7 G7 ^4 f$ t6 M
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
/ O& o$ f! K' q$ V- T6 }
(initget 6 "l")
* p7 I( s- G* z: W; g
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"$ P% A/ o Z7 a1 u5 V7 x
(rtos lg_n 2)
|1 W7 K. b+ R/ M+ S
">:"
' }3 h- l) y" t: X
)
: ^$ H: n' x3 S4 q. W4 g" |+ J, P
)
- e8 V$ \9 A& p% R7 {( t, i5 _
)
( ?9 L( g" a9 Y q
;;空回车时花形数量使用默认值: r+ c8 V8 r: L6 @+ C
(if (not n): b9 V8 _: L) C8 g6 A- Y4 F
(setq n lg_n)
1 C2 Z( U2 G+ k" }: c
): w! ]4 {2 m6 N( r
)
6 j( F) g. d2 u' T' b; c
;;不存在默认值
: k, g4 w( `1 a* _- l
(progn" u% C7 h6 G3 x0 S( d( y8 M
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
" l7 g f" G2 r+ ^8 N
(initget 7 "l"). J4 y6 }6 m* n1 L: ?
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))5 @! u0 C' N# _. x7 k
)
[* F) y8 M; R! l
)
% D0 \+ k' w. R; U7 D& M
;;检查用户输入的是花形数量值还是关键字4 l+ C1 ~) G$ @3 u) V) _! W
(if (numberp n)
2 l* J$ d5 e' `0 n& k* V+ I/ Q
;;输入的是花形数量值 I6 H2 P0 @* E' W: @
(if (> n nmax), R# f6 ^1 M( W% }8 k
;;当花形数量值大于上限时清空输入值重新指定5 D* f- H1 m9 A0 }/ E" Y3 [
(progn* i8 h$ @7 l5 r% z+ `2 ~
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
; k5 }: u8 r- S; g1 a7 Q# H0 q& G
(setq n nil)
, @3 u6 z: ?$ M2 ~( m7 Y4 n8 i
)4 o% a2 G. q3 D4 h9 d3 x4 a
;;当用户指定的花形数量合理时存入全局变量2 T! n l% R, l$ C; T7 f6 T
;;以便用做下次输入的默认值
0 w+ i* R- j4 I
(setq lg_n n)) `7 A6 d6 X' U- G8 O- Y- a
)
$ N0 W8 z$ w4 v- u: w
;;用户输入的是关键字7 w' `, p* n& X' a; `2 n3 \8 |
;;指定A段最大长度9 ~" W$ Q1 Y3 Q: o/ P7 u6 M* p& [
(progn
8 t. s( |' Q: G" v7 t/ w$ G
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍& r2 Q, W: F8 p9 R- V0 R- d! b
;;否则可能导致无解4 j! e4 O- a* I0 s1 j; B3 H
(while (not amax)
( e+ [/ }; \ D% ~; _, i P/ b
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
$ ?0 r0 s) x# N8 I: A" }
(if lg_amax6 G# S0 z! n" L& z: g* A
;;存在默认值# G* a* _! ~- [6 ]2 y1 m- ]
(progn
6 ?7 R" S+ [# Q( J' n6 d* o
;;用户输入时接受空回车,不接受0和负数
! H; m* A5 `& W. y
(initget 6)7 {: Z# m" {, j3 J8 z$ b
(setq amax (getdist basepoint6 C- g. f9 A; `, A
(strcat "\n指定A段最大长度<"
1 n" ^1 v) H% N3 E" w6 [# H
(rtos lg_amax 2)
* Z$ g9 S, B c! k& e' B w# \/ M
">:"- I& b, W+ F! ]
)
3 f3 w0 ?3 [! C- _, t7 ^
)
2 L- E m, W. E; D6 W, q
)
1 m% X; V1 _: r0 T* p( o3 G0 T R
;;空回车时A段最大长度使用默认值
; `8 W6 ^. s1 Z. C2 v. W: i/ q' F
(if (not amax)5 V, V/ m: o$ q1 T. c8 x
(setq amax lg_amax)( z0 o7 o1 V7 `5 M0 X; l, E) B
)
# t( |* P1 B# j
)
2 M% o: H% t; ?% n- h4 ~3 n
;;不存在默认值
: Q; G# ?& P$ s4 z" w; f1 H$ \
(progn
1 ~$ Y* u5 [& \ G
;;用户输入时不接受空回车,0和负数
% ? {/ j8 U2 e) w8 v+ ?# o& F
(initget 7)
8 [+ ?+ e, c% M* ?
(setq
, {# H( {$ L- K' F, I9 K0 P
amax (getdist basepoint (strcat "\n指定A段最大长度:")), o0 `6 ]7 E/ s! l/ Q
)7 F7 b8 }! N4 p! p2 ~/ `2 C$ D) L. }
)6 s# ?5 d0 I2 P" t1 o2 v# d3 `
)! c5 j/ g) ]7 U
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定- ?0 i" H' V( p7 Y7 r6 ~6 @
(if (< amax (* lg_width 1.5)): y8 z. l: o; x5 e' t6 ~
(progn
; h% {4 Z( U9 S4 X" _; e$ K
(prompt (strcat "\n指定的A段最大长度不能小于"% |# a6 I, f% A0 w& X
(rtos (* lg_width 1.5) 2)' j9 p& {0 r9 ?/ O+ B
)
# @9 x( Y" |7 v Y4 s y! s
)- s9 e) t. P% F' p- C' B
(setq amax nil)4 ~( R7 G' m( |+ @" ^, s8 t W
)
, K) ?8 Y. q3 z& I
)6 V: o% a+ {6 e5 m0 E/ [
)
. Q ~( K* q1 b# L: g0 e" {3 R
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
' O1 \& Y5 L- l; B
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
5 O1 Z! t# Y4 X
(setq
' U$ E3 ^$ k8 q: c
lg_amax amax# K( L- C" q3 \8 n, U9 M
n (1+ (/ (- len (* amax 2) lg_width)
9 P" z% v! T) {
(+ (* amax 2.5) (* lg_width 3))
# x" @- l f$ Y" e! I, E; L
)
5 C1 u" x$ M$ x5 u2 ?6 x) K
)
* R; l; J, f* J- a2 X+ b: j
)
3 z# r9 f" z9 M1 }
(if (> n (fix n))
/ Q& _1 z1 r) W; B; G5 T& [
(setq n (1+ (fix n)))1 c9 C; k( _8 o! ]6 v) o( ?
)
& ]" v% q; G# d4 m+ l1 {* a+ X9 h
(if (< n 1)" `3 D- r' I9 ~. X( @
(setq n 1)
4 {6 ]6 Q( a) K3 N0 j
)( K5 O5 h7 X) l. r# R
)- C h9 i, \* l/ `# r V
)& L- B2 S4 Y/ g- P8 ~
)- ^% w' j. z/ Q4 t
;;画图$ u- O6 B% V3 F/ n& t( e
;;记住原来的对象捕捉设置
6 J+ ~" E7 q7 y) J+ [, n3 W
;;按花形数量计算A值3 K; @1 ~' d/ ~+ ^4 k
(setq
' W$ ^" V- i. X+ Q( z* ]" ]
oldosmode (getvar "osmode")
9 u8 [) H+ c+ H! D
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
, Q& ?; }2 t, X" @( Q7 |
(+ (* (1- n) 2.5) 2)* X3 J9 w1 p4 V
)- G& U$ g' C5 l' H; s& L; `/ r
)
0 n$ y; D) E& E' S
;;暂时关闭对象捕捉6 Q3 w. `* H _: T9 E4 C8 u
(setvar "osmode" 0)
B9 `5 D/ @! C+ |. M$ F8 e. h
;;屏蔽命令回显- `. s& S) a" @( Q; d3 A
(setvar "CMDECHO" 0)" v1 P8 X4 {& s% h2 a; F! V3 d# o
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
' u; u3 T1 ?2 g. C3 h! U
(command "rectang"
. S! y! H+ B- h3 v0 m& g
basepoint& F5 I# Q- u- k! N$ F% ~
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))5 G& c3 c& }: g# A; e* M- q& w
)
3 P3 P/ Z# ^5 N0 o1 e- D
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
" A$ p8 x6 b2 l7 y$ X% K4 D- e* X
(command "rectang"8 t$ B) @. ]2 C* \
(list (- (car basepoint) lg_width)8 }4 [- v, d& F
(- (cadr basepoint) lg_width)
! G$ Q% _1 V: }6 e
)
$ V8 B* g, w* W+ I0 O$ Q' M& A
(list (+ (car basepoint) len lg_width)
! E5 T. y* I- b5 y2 m
(+ (cadr basepoint) lg_high lg_width)
" G5 a M z$ O) `6 P6 u, v
)% g& l S! g* w+ ?% U% [0 V
)
. [+ c$ u4 W; H, u
;;将指定点移到其右侧A距离处
) I3 b3 [+ I4 i3 b
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
( Q6 a# G$ o3 G8 i
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆6 T$ @) u; Z- p T5 R
(command "rectang"
( k3 _7 m, l, e A
basepoint
( L0 K2 K) B) _" O
(list (+ (car basepoint) lg_width)
; W) ~" c2 q! _6 @: l, m" |
(+ (cadr basepoint) lg_high)
0 }7 q$ S* F7 U" ~6 I! _# ~7 `
)! S6 Q x' J+ @( p. _ q% ]
)
2 _! @2 o, n7 V+ {- S
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)$ }* i# W+ x9 D( I0 U# H
(repeat (1- n)
3 [; \0 |4 }1 M" d& x* ^4 C
(setq
1 I O4 [" l5 ^/ i0 A! E
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))0 T" f* r; k" N9 J
)
. { V4 i" F( A; ?: s3 q" X
(command "rectang"
% K" E5 R( m0 j* u* o
basepoint
% ~ R' Z2 H* n9 j7 y# h
(list (+ (car basepoint) lg_width)
6 @: o( z" Y, s+ m, H
(+ (cadr basepoint) lg_high) E' L3 l- l3 W, W* y
)( ~2 f% q% e. n" w ]# J
)# n3 S- L; H; _0 B
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)/ W3 N5 @* F; G6 S5 L y! o
(cadr basepoint)
# x& F f/ g. [- m
)$ _% A4 J" q* S, Q5 Z. w- b
)) E9 ~3 n# D- g; H4 e* r: K
(command "rectang" P7 S5 E! m1 a4 ^$ p' f
basepoint
: ~ U1 R- l* j0 }
(list (+ (car basepoint) lg_width). D; S5 a4 ]+ b6 S
(+ (cadr basepoint) lg_high)
5 ~" e% u' Q6 D. D7 O( ]- z4 _
)
6 q/ h) S# O- B2 y9 N2 m
)
) @1 X) u8 G1 Z7 q9 s9 f
(setq
( g. z# c6 O2 y4 D- `6 \ T7 ^0 r( ?
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))- r: E4 m L! _; A4 X
)
# D6 J8 n4 m3 o, I
(command "rectang"$ v' b& N) B2 X
basepoint
; r* N2 l3 z& ~& H6 B
(list (+ (car basepoint) lg_width)
9 ?) P" a) {7 x4 c+ R/ I
(+ (cadr basepoint) lg_high)
! F2 K6 X+ }5 r3 \4 b" ` d
)
$ U, q2 H3 d; X1 }
)$ K: t9 E5 q7 J
)) I) J3 Y7 I1 K8 Z+ C
;;恢复对象捕捉设置
& X$ u! C8 T4 u: y5 q# n
(setvar "osmode" oldosmode)
+ o/ g2 Q o r$ b# R
;;打开命令回显1 B! C' {/ E4 r; P
(setvar "CMDECHO" 1)
) G4 q- |4 u# I D) `
(princ)
" g3 u, W4 V6 z0 _, b w
)
0 ]) b1 W0 \; |% H$ W6 q

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源