作图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 发表 5 j3 ^5 F; i8 D
直线分段方式，a=a=2b" ^1 q5 c5 C" v" W G) }5 Z, ?; r% m- B

' E* r. B6 h% K, P7 l

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 9 q* |8 U$ V) d) ]1 F" `# ~' x5 `

( L( |0 T4 T8 g$ p. c4 L距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

7 F3 Y2 ]2 x! |4 s# {
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)/ P1 }- ]& u4 r
;;设置栏杆高度和方钢宽度默认值0 `8 ]3 ], I9 H( ^( s( Y% i! F
(if (not lg_high)" F b2 q/ v' C- _) [. Z2 n
(setq lg_high 500) [* @# T, J7 X5 P
lg_width 14: _" p1 r. n5 r( {. S8 ]
)" U. T. e' X' ]. E1 L; z
)
5 k! O3 o$ j6 {( h0 A
;;指定图形插入点. A% Y! e9 h% m/ D1 W$ b
;;不接受空回车
7 R0 e+ r" L* J# Y f& h% J
(initget 1)( x' _/ Y q5 o# r: n% }
(setq basepoint (getpoint "\n指定插入点:"))' s# f% N8 n3 F T1 q8 d
;;指定栏杆长度和栏杆高度和(或)方钢宽度
% ?4 t, ~5 Q% A2 y+ ]
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
4 b1 j" p( F# `
;;用关键字指定栏杆高度和(或)方钢宽度后
3 A8 p4 i: A* }" a7 q* h
;;需要重复运行指定栏杆长度的代码段& u J$ @# _' i; a" o
(while (not len)4 A. k7 D& t- y5 r
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
* F7 U; e- a- m$ Q$ Q
(if lg_length
+ z: ^1 }/ ^9 v% q
;;存在默认值 e: m1 j y! k) X* z" g$ Q7 |% x
(progn+ V# d) P% o: c* ~4 u
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
$ A( z$ J& n% k# x6 C1 d: l
(initget 6 "h w")/ B& B% @) N- n1 V% i/ D* f
(setq len (getdist basepoint2 C* r7 t: @7 y. U
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
3 X( k* H- `+ J2 w' T
(rtos lg_length 2)" F* i' c5 }5 X) o/ Y' P D* Y
">:") k+ v' M1 |6 a, s2 J- V/ d2 r' Q
)
; J7 y& B; u D+ }& b/ L' l
)
4 A' c5 b" p7 E0 W) |$ E
)
! {8 f y. W& y# W" u% U) q8 m# F
;;空回车时栏杆长度使用默认值& d% ^5 a l5 C j# [
(if (not len), r- {3 c! s% X5 a8 ]1 ~& E
(setq len lg_length)3 P1 f# j+ W& \" {6 s+ P. g
)
- o( R$ y( i/ i& N* J) F* P
)2 b; M; ]& V0 j% d! ^" ?; O
;;不存在默认值# u% e' p5 U& B0 b# L5 |
(progn
* R& H# r5 V' F5 q7 [/ D$ X
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"3 t6 a4 a2 c2 E- p! m
(initget 7 "h w")
- L% ]: N& U, D
(setq
4 m% j2 J4 R; e
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
* n/ i5 Z% {- @+ t3 t+ E3 u
)8 ?6 B+ y' D$ w, e h
)
( F: ]) P. |9 r% S
)
3 K5 `0 [/ i; r! [% C& R* _- t9 Z
;;检查用户输入的是长度值还是关键字
* d# P) Y9 [/ e! R/ V8 G
(if (numberp len)
* d. |. A# d: I, o, {/ Y$ L9 ~0 s
;;输入的是长度值/ W3 R2 x, N5 E, V' D* f9 ^
(if (< len lg_width)
. z0 [) Q7 ~3 |6 ^. q
;;当长度值小于方钢宽度时清空输入值重新指定7 J) z+ n9 A: c% }( W1 f( _
(progn- w3 B% i. I3 M2 i3 U
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
+ D4 Q4 C9 d6 X4 [! h* _
(setq len nil)
& F7 }+ `8 s" B: k
)$ d. H: K# ]; E
)
8 c! F. D: {. i# C3 E2 F& k( W$ u( L
;;输入的是关键字
' }& ~+ E) M1 n: o" k
(progn
$ B! G' E2 z. A6 x) O2 d/ b- y3 t m
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值9 S) @) s- U1 z8 C1 o4 a
;;用户输入时接受空回车,不接受0和负数
. o3 c: |* @- w8 T- J
(initget 6)6 k0 M/ C# S9 v* k0 h' R
;;检查用户输入的关键字是"H"还是"W"
- E( O; |8 D/ G4 J* [" W3 q3 g& w
(if (= len "h")
0 e: v# y3 n) Z' F
;;用户输入的关键字是"H",指定高度6 ~$ ]+ ?: E' n
(progn' b! P V9 T) A6 S
(setq high# |# ~% m- s3 y, C- T5 Z1 v. Y7 \+ ?
(getdist basepoint
* c# F1 G7 E c/ o( Q7 T
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
! h5 @5 C1 g3 D& E F3 A5 F
)* A' o1 G$ L* {& ?3 @
)
* | K: C. g1 C- E2 [
;;用户输入新的高度时修改默认值" @! ^6 P$ _8 q, G& t! r' G$ r
(if high( G) F+ O1 G0 T+ j
(setq lg_high high)! b: x9 R% K% R" I o. q
)0 r1 r& H2 {% N; V4 N- A; x
)
2 j* A$ g2 [. v2 Z6 x
;;用户输入的关键字是"W",指定方钢宽度5 x5 X0 ^. a) N0 x' m4 i# m! C/ b
(progn
; \% n) ^1 M& p3 E7 c
(setq width
* k0 v& c. o4 I8 e0 Z% J
(getdist+ C( ] y/ L/ G' I s1 S
basepoint
+ \* l/ S* t, }7 V
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")) R, K/ q) l0 ]* w
)9 f* n6 e7 b+ P' [0 Y
)2 Q* p8 s. O- B
;;用户输入新的方钢宽度时修改默认值
5 c) `" y; g! B
(if width# A5 T# n) W6 g
(setq lg_width width)
! _8 t+ }. W* M( b2 J/ V
)
# q9 h2 I* r d! r, i1 J! h% _5 k
)& R! ~$ |# u/ n' a2 J5 e
)9 }" d* E% k9 h! a6 F# ?7 e9 T# E
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
$ H) \0 C) A, }' o! I1 M6 A
(setq len nil)) l& E8 f& X$ N3 e
)7 O( ~+ O. ^7 t3 N1 a; Y
)# _1 r8 _8 A( g) ^" u4 I" T3 }
)
4 A" A4 ^, v+ a
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
& L) L- c8 |3 R7 }1 Z, [; c
;;计算用户可以指定的花形数量的上限
+ d( N1 X7 i. I( Q
;;用于下一步检查用户指定的花形数量是否合理
; e$ q8 T; ~" W$ I n: d2 g2 P
(setq lg_length len4 l+ u( v5 ]+ q7 q
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))8 s% d: i, L, b/ w+ ]# ^
)+ F. p" B, _7 d$ s
;;指定花形数量或A段最大长度2 ~1 H3 I& G8 o9 P& W
;;如用户指定的是花形数量,则按用户指定的花形数量画图
+ {+ e7 Y) [. \; a
;;如用户指定的是A段最大长度. C6 Y$ x E& Z9 O G8 H% L7 I
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
" @8 x0 l; z K3 t W* k9 @
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解9 B% W ?: X! l' `, {2 W7 C }
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
! T; h' S6 o* I2 }8 `; ^
(while (not n)1 r6 D' c# I6 O- g* P
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值7 A5 D$ C( y" P* m7 x' h$ h
(if lg_n
6 B* j* g. y1 t3 A2 w
;;存在默认值
5 _* T8 C! A1 u4 O& e0 G6 ?
(progn
# w \/ P# j( h3 T7 |1 T
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
! A2 l: [- q1 k' I$ y
(initget 6 "l"): y6 R. f7 }% p2 J' F, }- p
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"8 m& O- R- U( c* @, w' G6 s7 v7 L# E
(rtos lg_n 2)2 M0 I$ b, ~- c* w3 Z% W9 j
">:"( D. \2 z: y) i6 K3 G# g" S) ~
)7 ~6 D6 ^; T ~5 Y ]
)* i3 F0 O- H/ S- N3 m
)0 `! i8 L5 V* o- e- _
;;空回车时花形数量使用默认值' G- V# j: W- _; M& d+ b
(if (not n)9 C1 ?4 E I0 [ p
(setq n lg_n)
! x- {7 \! S& ^" E
)( `, c# D8 p: z0 v. [6 D% ^
)$ R2 y5 O9 I# `
;;不存在默认值
% B# a" S+ `2 `$ L' p
(progn' l8 P4 x! I8 J& c0 e/ b% ^1 p
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"8 V8 f0 K* r4 F4 }& Q/ R% F, ^ Y0 ~
(initget 7 "l")
2 ]6 r4 E1 L$ Y5 l- v
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
. F* b" X& j5 w7 I, ?1 {) C0 v
)% V H: `4 H0 z" z( H
)
" ^$ {5 Q9 |' Z- Z `' \# S
;;检查用户输入的是花形数量值还是关键字
! k4 o# G" h; W. ?) x. R: @
(if (numberp n)# O- o/ C1 c. N Y3 k
;;输入的是花形数量值1 N: d8 g; |6 s4 j: D+ Z. h7 E
(if (> n nmax)
6 K1 n0 D& e' _7 H
;;当花形数量值大于上限时清空输入值重新指定/ `7 h: b( W7 \; J
(progn
( P6 M6 k' C* K
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))( `2 F8 a- I) G
(setq n nil)# d* J% c3 ~. @, |* N0 @
)! l9 t; N- ]1 k9 p+ y) U
;;当用户指定的花形数量合理时存入全局变量+ @7 [$ E! M D+ D6 ], ?# E" A% p
;;以便用做下次输入的默认值
4 Y+ s5 m0 k5 C& b, B
(setq lg_n n)
7 O/ l) o6 B, y' C
)
, Z- I) d* |2 B% v% ^
;;用户输入的是关键字5 |. a, f, q/ @/ Q2 Z
;;指定A段最大长度0 c' {: [1 t; H; ]8 I+ H
(progn* m& p1 h L. u- r3 o! M
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍4 M5 W5 K+ O( c9 z3 W
;;否则可能导致无解
; i" ^+ c8 j ~: t$ J
(while (not amax)% {0 I6 Z! k8 \$ {, P$ W5 d( [4 p/ @2 t
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值: S9 O, Z1 s& p \9 L. r
(if lg_amax
0 r) B U+ L1 H! r( u; j8 J- r
;;存在默认值
" Q" C0 G, e9 R/ U
(progn
5 s5 ~$ X6 I( l B8 I5 X
;;用户输入时接受空回车,不接受0和负数
/ T1 E% x$ @% g' C6 Q5 Q
(initget 6). P5 R/ I' ]) _: c
(setq amax (getdist basepoint3 s+ I3 d! W5 P$ S1 i& w" J9 O4 Q
(strcat "\n指定A段最大长度<"
2 ?7 I& i- }+ s( w! ~8 w) @
(rtos lg_amax 2)
( ~' V9 g; c3 y& f) a
">:"( b2 L) { W8 n
)" v$ ]! z; A! x1 c* I- Y
)
* v* s7 @0 h9 ]1 t9 |' A% P# V6 T
)8 _4 O2 J M! X% d1 o; q
;;空回车时A段最大长度使用默认值
# ?: `( G6 j1 G% h. I
(if (not amax)7 g7 N) [9 l2 W
(setq amax lg_amax)5 O( k' P" j! T! H* r, \1 `1 p
)
3 R% _ p8 l" \) p9 y' U
)7 U9 P' e. L! T; A( k4 q
;;不存在默认值
; c' V" s$ ]* b, K" O, N9 L
(progn
9 f3 e% `3 y- u! m( o2 M
;;用户输入时不接受空回车,0和负数/ |9 q( g6 r$ Z: S6 k2 D
(initget 7)7 K% g3 }4 }7 |4 T! k! |. T
(setq
0 E7 T. R+ n/ |6 E- @) m
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
4 {8 a- K" o' O P0 g0 p
)+ X9 e& ?, u( P8 E9 G4 w) U) B. t
)+ [' I8 D/ i! p! ~
)
: |8 e b6 c* Q* v- ]; g* @/ P
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
7 C! D2 Q/ S0 `9 ^7 P+ a: e
(if (< amax (* lg_width 1.5))8 i4 L/ @6 U2 f% E! ^0 n0 g6 P
(progn1 V) B! ? r! g/ R: v3 _$ ~! S1 W2 ]
(prompt (strcat "\n指定的A段最大长度不能小于"/ l& P% c5 K5 s [9 d
(rtos (* lg_width 1.5) 2)
/ m' ~* r9 E3 }7 U& L
)+ N8 m: p0 S! Z( j( Y0 N% n! I
)0 d8 C% i0 O* E
(setq amax nil)
. Y- P& g) Y3 q3 y W$ u" w
)
% N# [& L0 ?, |5 J( w
)
8 `4 p- a+ |5 q- [
)
0 ^: W$ I# k# ^2 V: m: b( }
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值9 V( Z* H/ v) p# G) l9 t
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1! Z/ c# r! [ q" h% T) d
(setq
+ E- a& O- P' c4 `* A
lg_amax amax4 |5 \+ L) |& i& S* ^
n (1+ (/ (- len (* amax 2) lg_width)
$ {" f% G) n3 W) B
(+ (* amax 2.5) (* lg_width 3))
; K' D3 X! y7 L% i( x) h8 ^
)
: H8 L2 n2 o5 p; T- \) E6 G
)1 c8 V- L j# j
)8 @) u4 R# T8 H
(if (> n (fix n))
8 L; |4 \; S& E
(setq n (1+ (fix n)))
1 V4 c5 ?1 @4 \/ f
)
( d- F& b0 O- ^3 b
(if (< n 1)
. e( K6 K5 A' X9 j. d. { R, ^
(setq n 1)
3 W3 @+ M; i' I* `1 K! C" B
)
+ L$ U! @8 F8 i7 f8 G4 N' o) b. p& h
)* H" v7 q1 D! v- S$ ?0 `
)1 K- o9 @! r: [" S1 G0 m' v
)
; g. @( P! m6 L$ ?
;;画图8 K8 |5 c' y- d2 b" f- @5 ^0 N: U8 o; d
;;记住原来的对象捕捉设置
% u8 I2 ], y3 U2 b5 u
;;按花形数量计算A值
0 E' w& K! y/ J& c
(setq+ P' C: v9 ]" K, S4 `0 H
oldosmode (getvar "osmode")
6 I! ^7 Y' a- B- E* q6 h
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
& ?6 b" Y- F7 c k1 [3 A
(+ (* (1- n) 2.5) 2)7 b- S0 c2 n& {; B& O
)
P0 ~* \3 M" |1 {8 j2 I
)
- |( o& Q9 s2 I# T) ]) ^
;;暂时关闭对象捕捉3 O8 |" v4 o! H6 ?( q( I
(setvar "osmode" 0)
2 `' k8 ]( z% v: e b5 X
;;屏蔽命令回显7 T& M2 G) K* A6 w! t# ~8 L
(setvar "CMDECHO" 0)- I! |# X1 h" Z
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
3 y5 u* P; j! C) ~+ V
(command "rectang"0 t; n* u9 W5 h# C2 g
basepoint6 y; E/ W P+ @4 v' W
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high)); i/ S2 P8 S3 B Z- v! F
) D5 }7 N- K+ J& v
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
4 Z/ g( Y( j3 V9 d5 C
(command "rectang"
/ `4 j; P! o1 d: ?$ k# L0 w
(list (- (car basepoint) lg_width)$ C5 X! M$ c7 e6 k% b
(- (cadr basepoint) lg_width)
! Z! a: f6 S( V1 A. P0 Y0 |0 b
)& y4 i8 i; u( b7 p! G
(list (+ (car basepoint) len lg_width)# H$ Q& D7 w$ g$ k3 Z5 r" j1 E
(+ (cadr basepoint) lg_high lg_width)# v q$ D! B) e0 ` N& U
)
3 U/ b. T: n/ F6 Q
)4 I& f5 @0 L: X" n
;;将指定点移到其右侧A距离处
5 k# y& t( a+ R, O7 \( H& t) i; _
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
9 {% m4 @% Q5 ]4 R( Y& A
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆' \3 b7 U) Y) c8 U8 ~' Y6 i
(command "rectang"- D$ u6 e3 e/ z/ c3 Z" k( v0 S
basepoint. H0 t0 Z$ E' y3 ~2 ~4 x
(list (+ (car basepoint) lg_width)
' V- p% W% ?$ ?& J+ Y* b
(+ (cadr basepoint) lg_high)
1 T4 Y% k: U: z5 V
)
: G6 Y# |5 G7 U4 A& j& T
)
- Z O3 l* s4 y) e( ]' d" P6 c
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
1 T. l: m2 ?0 \$ `
(repeat (1- n). ^% |# l+ G& b7 k/ _
(setq, {9 K$ \3 m2 `) R3 d' t7 o$ J
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))) E4 Z7 C/ {& [" n* y
)* H; U3 q, g$ b/ H) s9 C
(command "rectang"
; L% I7 ]% Y1 A0 I9 b
basepoint
8 R& a' R& e# q0 H- t$ W
(list (+ (car basepoint) lg_width), R8 E7 T' H. z. i
(+ (cadr basepoint) lg_high)# i" e, _0 D t3 v' {" e
)
( R, t* I, C7 @* y- O6 Z( R5 W
)5 C! ^9 ?: t: Q2 @
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)/ E6 m8 G( _& [/ q+ l
(cadr basepoint)
/ o- j* u5 o! ]0 z$ C8 Z) l% w. {
)
- R$ h) X1 x2 c
)( l, ^" z8 z( h& K
(command "rectang"
2 K4 y0 b9 k8 b( o2 X8 N4 l
basepoint2 J- w! R1 p* ^& \
(list (+ (car basepoint) lg_width)
$ x. g; J- C N- l2 A q* Y- y
(+ (cadr basepoint) lg_high)- g* B: @* K. l2 s G
)4 j/ r$ i6 c" d0 |. A6 N% @$ C
); O) H+ [$ l. r5 n2 D
(setq
* L6 n- S/ B, B$ M
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))7 W1 L, m* N" M% c
)$ L/ @$ R( z) @- @
(command "rectang"1 X! r9 w8 Q1 \! l* U. e
basepoint$ _1 d% E% g% V7 c1 V0 b& b0 P
(list (+ (car basepoint) lg_width)$ k2 n# H9 F/ ~
(+ (cadr basepoint) lg_high); T, M* x. _* H3 g- J
): ]' z7 b/ t# \/ F$ V* ~+ l
)& L ]* l, z u9 N' t8 S1 l/ t
)
1 s, X* R! C7 N, {) F: S7 [
;;恢复对象捕捉设置
: s H2 [) F2 A. O1 Z5 v! x3 G
(setvar "osmode" oldosmode)
( ?9 q) ~* b; S( t
;;打开命令回显- D$ [% A( h6 @5 U+ X+ K
(setvar "CMDECHO" 1): N$ j% d! D% B, A) Q3 J. r
(princ)
; }$ G/ ]( s6 L2 j' n
)5 s) c. M5 Z E

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源