作图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 发表
- Q4 U" o: O6 [6 X$ ]直线分段方式，a=a=2b
* m( m. v. q# n, U3 b5 Z( \, E
" I0 |# v# E8 O

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 1 }1 t. m- e: q" {
! |% |) l. ]; ^8 Z) g: s" {
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

3 m5 h8 |6 n- W+ d
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
" i7 R6 U# x( [: a) P
;;设置栏杆高度和方钢宽度默认值
: C a- R- `0 R/ Y
(if (not lg_high)+ _( b& l4 }5 Y% g& n3 V j
(setq lg_high 500
% L& \4 S* p$ V- ^
lg_width 14" N/ S8 { c; v
)
- n- Z$ T( U5 V/ Y- t- a
)
& b) c: M0 n% b9 }; A
;;指定图形插入点
;;不接受空回车 {7 C4 k1 k, r6 O
(initget 1)! ^+ ]0 o6 A! b" a
(setq basepoint (getpoint "\n指定插入点:"))
( B4 L& t7 j2 j. f1 l
;;指定栏杆长度和栏杆高度和(或)方钢宽度
9 D4 s4 ], D6 V
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
T& b# k, s2 X, e% I$ @' z
;;用关键字指定栏杆高度和(或)方钢宽度后
2 G8 C, J' q! y* z# L: l
;;需要重复运行指定栏杆长度的代码段! m& s' {9 _8 g1 |$ H/ J
(while (not len)
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
5 U1 \. c& K9 Z# c* K
(if lg_length
, p- q% i9 T" x& F
;;存在默认值
, x$ D+ l6 g; b) \) o
(progn% m/ b$ V5 }7 Q) Z- v/ J2 G, W
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"& B: L. q: z3 t; D4 X3 c
(initget 6 "h w")
! d/ z4 ?4 z* R$ l! e0 W
(setq len (getdist basepoint
7 Y. ^+ @) u3 `1 K3 h, h7 L4 s
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"2 l; w+ m& I0 k# h
(rtos lg_length 2)
7 T7 H4 p0 M4 A+ \3 M' g/ n
">:"
( S. O1 y F# o0 ~ \, t' S( W
)
; a, D$ W7 Y5 v1 N
)
$ [7 q2 a$ l E& e8 j6 H' T8 P4 T0 y
)
: R/ M& ~8 t- U$ c5 x
;;空回车时栏杆长度使用默认值6 h6 P: }) C _( Q
(if (not len)7 p, A8 m3 z' c
(setq len lg_length)
' x C0 x; ?6 E% x- t' e
)0 w7 @- m3 l$ q1 j) \
)8 _% `" `. V# `! I" z) j* n
;;不存在默认值+ `) C( |: F. S) s4 C! h
(progn! J- t, _4 A6 ?
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"( @3 j! l' s$ o, J
(initget 7 "h w")
: G2 N3 H" P, W8 s
(setq
1 z, x% |0 N- F4 I" T) ?( p& B
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
6 U# H, W$ [9 r0 T" x6 A7 x
)
/ T1 O& }* {* z
)7 l9 A# k) K2 L* B/ Z* s1 m
)
2 |. j( Y" W3 b& h
;;检查用户输入的是长度值还是关键字
6 j* a. J8 U$ n& o9 c! M7 a7 U
(if (numberp len)# |* i4 y* K* j5 [# `+ s: K' f
;;输入的是长度值
7 j. l! b3 e: q
(if (< len lg_width)
2 E2 ?4 N+ K w1 B# {' Y0 [( \
;;当长度值小于方钢宽度时清空输入值重新指定. p2 G* }$ d# F2 k. ]) \, e7 i8 J
(progn
. p5 K' ~7 z9 G
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
2 }8 ?+ m( p) I/ u
(setq len nil)
; c& |9 i. h0 C$ V) m. m- P3 \
)" X+ F& z8 b, q
)% M( {- ^, F0 B- V* S! c
;;输入的是关键字
& ?9 H2 c$ l: d! H% R
(progn0 X* S- l+ v+ G9 q
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
# B# q4 J$ _; _" \0 u% |8 w& \
;;用户输入时接受空回车,不接受0和负数. x! N8 [# ?; n0 H1 H! T
(initget 6)9 v4 l5 p% t/ Y) [) R$ B7 s
;;检查用户输入的关键字是"H"还是"W"! ?9 W3 I" V& ~7 ~! g/ w- ~
(if (= len "h")
3 S; v8 W& b! ^1 J g s" P
;;用户输入的关键字是"H",指定高度
L5 u3 `8 Z( i9 e* c* h' a
(progn( y- ^; _' G- p
(setq high
2 H1 @9 } Z) x9 ~, x# g
(getdist basepoint# q- q( W! w0 e4 c& y
(strcat "\n指定高度<" (rtos lg_high 2) ">:")- \; g' D+ W. j6 g* N! E4 `+ ^
)
1 W9 V. ?1 B# u9 F
)
/ l5 \3 M6 ?1 \$ |$ h
;;用户输入新的高度时修改默认值
5 B1 Q& S; D' R4 Q1 Q: s) {- i/ y
(if high* B: w, K0 d1 v0 e
(setq lg_high high)
* h/ U% [! D# }' g
)+ M" L, G4 Q1 d! H' V
)
% g X2 ], S$ g- _1 x: ?
;;用户输入的关键字是"W",指定方钢宽度. A" K0 [" g5 E4 Y6 M
(progn
$ L$ K5 r4 K( R' j( v
(setq width
1 }* }2 ?! k( Z& P2 M# Y; X
(getdist2 F; X% q, Q1 \6 ? N7 t9 D- W
basepoint
& [! ^' E$ Q3 C; I6 v" i
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
0 Y/ d) h, I) d" W: u3 X+ b0 G9 C
)
# b: b& ? a, q( p% f1 w; u% C
)2 t# g8 c$ e; i" W. k5 Y* T
;;用户输入新的方钢宽度时修改默认值( d' v( c( w8 m) d$ J$ j' e6 F
(if width
V$ L5 T! q' J9 n
(setq lg_width width)
, S V$ ~/ H* p
)! [8 @. I3 i6 q @
)1 a; }3 L- S, B7 D; {
)8 a; z' `. k3 _0 h3 j- X: p
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度8 U4 `) z+ h7 S9 ], t- }
(setq len nil)
3 Z/ D9 a2 d \% {' @
)
! D+ Y& F5 u& ~8 m8 {5 \! J! w6 L
)
1 l+ Y+ F9 N" F7 k- W6 l: q
). e9 m' D, `' h: J( z+ Q) M$ Z6 l3 f
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
: b" E" J, \8 k& U( l1 f. K
;;计算用户可以指定的花形数量的上限
& u' V$ a; u# G' ~
;;用于下一步检查用户指定的花形数量是否合理
8 Q! h7 z, ^: F/ ]# {% t( C* ?
(setq lg_length len/ {) B1 l: D* Z4 [9 R2 R
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))$ p! o* \& D: R- U
)1 H! I+ m0 e: l% G+ u8 H
;;指定花形数量或A段最大长度
) z8 b( p4 R5 H/ \6 s; K5 g! W! O
;;如用户指定的是花形数量,则按用户指定的花形数量画图 m$ P; ~: y, N& S, c
;;如用户指定的是A段最大长度
. X, b3 _) x! y7 L. F8 n
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
3 ` C( a- k' Z7 k) e
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解0 R: C" u- A# U4 l6 V* W
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解# L. H/ Q3 E" [
(while (not n)
5 x# F3 E% f2 \" H3 L# Z, B3 ~
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值. y! s7 T8 u) A/ I( x/ Y i
(if lg_n6 [. i: F; W- G) r6 d
;;存在默认值
5 \$ W) O# W- N5 b
(progn" r6 w$ a0 t# A1 B. d
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"( j) s9 h- j. ~( X
(initget 6 "l")
6 C( B9 I. s1 D; S; P$ W/ a
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
! R2 K3 C9 c, A
(rtos lg_n 2)" H9 f: o8 G. b+ J1 t0 M
">:". F" r7 K6 E* w- Z7 H4 g5 t6 O2 ?
)6 K G* w: ~6 [" @7 u j8 @, H1 m
)
9 f5 R" X% [+ `
)
7 W, d( {8 l8 u) o* B7 `$ r
;;空回车时花形数量使用默认值+ {% S; v+ M* s2 P6 @
(if (not n)1 x4 U8 \0 ?1 l3 _
(setq n lg_n)% f3 `- F6 v; w/ Y/ _
)! O( _! f. {# T( W( K3 y! Y
): L0 x1 F. o+ E7 _, r
;;不存在默认值8 W( W0 \" z8 r( g
(progn
5 l1 n# M1 y) J% ?, Z7 i
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
. y% a3 O0 R& Z6 Z+ z2 m8 w. j; @9 z
(initget 7 "l")
% j! `5 x: d& k2 y7 N, A
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
$ U R$ t& }/ i) ]. [% I
)
9 w/ x) V9 ^# y/ ?, Q
)
$ a; [/ O' D# p r: E& t; W9 F
;;检查用户输入的是花形数量值还是关键字8 J# e( o% R. n; \ O/ B0 j
(if (numberp n)7 f+ G0 g, x( s3 ^* p3 p% V
;;输入的是花形数量值
) [9 Y M5 O) n9 k2 n2 k
(if (> n nmax)" Q2 S! V( j! |5 ~* n% ~9 b/ \5 i
;;当花形数量值大于上限时清空输入值重新指定
+ J3 p8 e# N0 b' h& A
(progn+ f- t6 G9 q3 u: A$ r
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))8 d0 [# S: m/ g7 V
(setq n nil)
. C0 E/ x5 d3 y" n
)
: W2 ?5 a( \) e: |) d
;;当用户指定的花形数量合理时存入全局变量
7 n3 x8 h2 H) Z+ O
;;以便用做下次输入的默认值
9 Q4 l6 B- `4 `; D: t9 f
(setq lg_n n)$ w: s: c; }( q
)
* ^% v+ `( @9 w* h( ?2 Y8 ^+ I
;;用户输入的是关键字
, D1 U. |: I2 ~* _9 M( E+ X% K
;;指定A段最大长度
' G" ~# W' }4 h6 z$ I) o" x
(progn, Y6 j8 K N+ l. ?
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍, e' b2 O$ v, J+ L8 ~ o& P
;;否则可能导致无解5 g! X8 k: y5 G9 Z2 x6 E
(while (not amax)
' K1 ]3 D, y" }1 D1 U
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
0 H# ]6 w8 f ^
(if lg_amax& y V' O. p) H# o' U4 N1 `
;;存在默认值. c+ A3 N, E& H! b: h, D3 _
(progn9 \- Z6 [3 O1 t: |7 r+ p( z7 z
;;用户输入时接受空回车,不接受0和负数' @) v! a" O4 {# \0 X1 _* B( u
(initget 6)
, l' r) ^& `% A8 U- p1 e) [' B
(setq amax (getdist basepoint# k& l; b% A5 ~4 ~ ]
(strcat "\n指定A段最大长度<"1 u. B) Z# y0 J6 Q$ R2 j
(rtos lg_amax 2)
' n7 B, |' S8 O% O; L
">:"' `6 X% Q+ t$ Y1 c( v( r0 W/ h' ^1 R
): b& w+ [1 O: e: g7 X9 F0 l
)
0 ^- H6 e3 `, \8 {' N
)
; T. x1 K6 W; y, y& q8 c+ W# _
;;空回车时A段最大长度使用默认值( p( E4 l6 ]) E- Z9 k" Z
(if (not amax)
% Z. I# ~% u6 b5 O' M
(setq amax lg_amax)- q4 g$ u/ e/ M+ j% G3 |- F
) L* ` M4 `0 C
)
2 }; B! Q7 x# K c8 S/ ^
;;不存在默认值2 V/ E& Q/ |" h1 V
(progn
) ~* n, R% q! _0 |3 d
;;用户输入时不接受空回车,0和负数8 a7 d) @, Y6 Q' a
(initget 7)4 W# F. x" J1 F
(setq+ r& O8 m$ X, ?" F. y% W, ?" X
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
* v! Y$ }4 @6 I5 v1 P3 l
)
6 S' [8 {, o" `2 w& z4 p
)+ x% Q: y {7 X! t& l
)" V. P# ~8 [. `
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
3 i6 b3 R! }8 H7 K' p
(if (< amax (* lg_width 1.5))+ K# A7 O9 b) @5 @5 D( h
(progn3 w& D* Z% g( D, ?5 D2 z5 ^: y- _/ J
(prompt (strcat "\n指定的A段最大长度不能小于"
) U8 h4 ?/ B$ x6 u9 L6 }
(rtos (* lg_width 1.5) 2) e; M; Y# c0 f' J! y
)
! h: l7 c& @; b+ F9 r/ u
)
6 ^5 L& ]: `9 @! G1 J' g! n
(setq amax nil)3 D' {+ {3 A# v' [& \' j
)
! M I* a, N+ j
)2 y0 |5 U2 \+ H7 G" r: h3 ]
)
# F7 B1 G8 S' N0 X8 c
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值% A8 m5 L& H# d Z
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
5 g0 r( U0 y) _: ~' w& [
(setq# q) M- m, |# D6 `# y8 ~
lg_amax amax* {& N/ s" _; T' ]0 K
n (1+ (/ (- len (* amax 2) lg_width)1 v3 t: T; m( @
(+ (* amax 2.5) (* lg_width 3))
: |! f0 S% X% ~: a/ k7 M9 w6 J h; m
); J7 f, a1 H/ {0 Y8 p' I' o% M
)) k$ W0 T9 U \4 J# N. Z1 u8 v
)
4 X$ A/ w6 }9 t; q: ~
(if (> n (fix n))6 W ^! }8 w+ A3 T! q, w# |
(setq n (1+ (fix n)))2 c' i9 M+ O0 p' G$ y. C% u
)
q! }) D+ L( _4 S; n C# j
(if (< n 1)( B7 C( Q' b- h
(setq n 1)
- S4 N& x4 L/ L' F
)6 S2 K5 h! o T
): S. r+ y4 j8 ^$ M: d/ I& `
)! E- T: t, }% |+ w
)
/ Z# n& D9 d7 N
;;画图
# P. U2 |' F/ r$ S" J
;;记住原来的对象捕捉设置
! \* p( D+ C, i y
;;按花形数量计算A值3 h, S2 _6 d" N# O8 L- j* k8 Q% \- j) D
(setq
5 \/ ~8 I3 V8 E
oldosmode (getvar "osmode")
; }& [0 C7 h7 Q" B
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))1 V$ L+ @9 `0 k
(+ (* (1- n) 2.5) 2)" w- s$ g- F9 Q* w) o" [
)8 z- _ T+ W9 ~: |; V8 V0 f
)
2 s/ s4 N7 ^* k1 n1 G O6 a
;;暂时关闭对象捕捉7 I0 @' j" \* l( z7 e' n
(setvar "osmode" 0)
1 Q; H/ h5 |+ d' b/ b
;;屏蔽命令回显! m9 t- C) S' N) H1 ^% k$ Q
(setvar "CMDECHO" 0)
. O( e$ r2 U5 w. U5 u
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形' T }- C$ c9 _; @# j, F3 G2 g
(command "rectang"
2 f$ q; p; S: {6 ^
basepoint. S7 c- o$ k* ^6 G
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
& d' v0 W5 j3 e; R" T4 x
)/ T# w. \/ f& P! `8 _ i$ k: t: K: U
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
1 j5 y, g4 x ^' I7 v- Z* C
(command "rectang"3 {5 r8 d' g. h1 [# l9 `
(list (- (car basepoint) lg_width)4 i6 k5 q. a2 D
(- (cadr basepoint) lg_width)
1 v2 O3 n) P7 S0 L6 {: j: Q
)
]% _. M7 X c1 |
(list (+ (car basepoint) len lg_width)
! x+ A3 E- i% B) Z i0 a
(+ (cadr basepoint) lg_high lg_width)
: q, }* |) w0 Z
)
$ G8 E; f" |- ?7 a; p
)
0 Z1 [8 G4 J1 v. @$ l6 H
;;将指定点移到其右侧A距离处5 T9 _/ V* N; b q, @, R# M
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
- M: g& x% d8 ~3 I; A" A5 X* s7 I; M
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆* O' ]. _; Z- {' j6 M E
(command "rectang"7 }( ~ f+ J/ y
basepoint
- _6 C* F2 y) b9 z' u# Z' q
(list (+ (car basepoint) lg_width)
+ Q% ^6 J4 m5 t+ k8 x8 c% Z0 ?$ ]
(+ (cadr basepoint) lg_high)
7 o2 X" X$ q. W0 t9 r0 ?) p
)
+ T, n2 r' ?; m' X' _
)
9 Z4 l+ w* b; \/ }$ n8 d
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)7 U' _) k7 c3 G+ m" H
(repeat (1- n)
) j$ n" {. H& w u
(setq: m. N4 {" p8 j$ {) E
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))) U: _ `( T4 g9 K0 L
)
+ Z* ?& N0 N ?7 p
(command "rectang"& X5 i" j! {: ]1 }. S' {' u% ]7 o w* L
basepoint
) [% s' v( s, k5 S( J
(list (+ (car basepoint) lg_width)
! }& _( }, d/ F
(+ (cadr basepoint) lg_high)' [+ D! m% I* p) {2 G4 g0 H# d
)
/ S. d% P# H- l
); C' F; ]$ D W) R) b; n; p, ]
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width). s" F& {8 w2 x. g0 p6 o
(cadr basepoint)& O$ G; f( o* w, x* }1 q' t
). X6 A5 M6 W; m5 P! F) h
); S+ `+ }# ^( w! V5 P; T7 V
(command "rectang"1 ?! {+ H6 i$ u# u" f+ u
basepoint
8 O, v& g2 w! F0 `
(list (+ (car basepoint) lg_width)
& M9 u* X6 i+ a0 A% R2 W2 T! Q
(+ (cadr basepoint) lg_high)
. X1 [- ^3 J- c7 }) g% p q8 G: R
), E0 M4 `" D) g& I
)4 A7 Q7 @1 b1 M, m
(setq
3 C, W2 a/ k$ o7 K1 @% i3 D
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))8 M" c' V* E2 x3 X5 q" E' ]2 l" s
)
$ ^- J4 d$ g/ W" R1 F* b+ {) e
(command "rectang"& Q' v" O, @1 z$ z
basepoint' Z4 K/ _: t, Y& c: Q9 p
(list (+ (car basepoint) lg_width)4 X! e: E$ d* C; Q, B9 T3 Q+ @: ?. m
(+ (cadr basepoint) lg_high)
8 _8 P0 y+ B* Y4 B0 r6 ^
)
* M" y ?% p& w
); V% w7 [& u; r' d2 I
)
+ N6 I, W1 _& A7 @2 ~6 u3 U
;;恢复对象捕捉设置
! _! a3 u3 _! d0 P& k1 c
(setvar "osmode" oldosmode)
& n2 y {0 v7 C5 R
;;打开命令回显4 e2 N; _4 p% ~' y" s
(setvar "CMDECHO" 1)
1 S) i5 }8 @+ O$ C6 X0 z* y
(princ)# {- N# W9 `0 S% V
)
+ o/ `. V( v& v( u3 O! ~3 r

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源