作图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 发表
( S$ ^6 k u, v" j直线分段方式，a=a=2b
2 f+ ^9 B6 H. S9 K0 b$ X, l# J
% p8 s$ t3 z- T" }4 s5 ]- t

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
4 n |% K& k+ @; F
1 U8 V5 S) d1 r距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

: O* C! f- B( t: H
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode), }. s- K9 Y3 @& g
;;设置栏杆高度和方钢宽度默认值
0 t4 e2 H; |" f% P* Y9 `
(if (not lg_high)( h% R1 E: B [ t
(setq lg_high 5006 \/ c* s2 e+ B+ g
lg_width 144 }% J$ G; C4 V' I
)
2 Z! \8 p* o' W5 b
)
1 W1 d, r" a7 k. G8 g, y
;;指定图形插入点
( B& A2 v& S" l7 c2 e
;;不接受空回车/ i" X$ w6 K) b/ W1 A A! o8 U
(initget 1)
6 V/ G3 \ K7 f, n* \1 @
(setq basepoint (getpoint "\n指定插入点:")) k' q6 o- z5 q! {
;;指定栏杆长度和栏杆高度和(或)方钢宽度8 E' i, U) N5 N8 k$ I
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
% Q) K3 s$ p2 e. S8 d
;;用关键字指定栏杆高度和(或)方钢宽度后
& U1 \: K5 t# U7 B9 \6 X
;;需要重复运行指定栏杆长度的代码段$ t+ a/ n& k! w9 L0 N' ?& T
(while (not len)" [& Y6 z6 J% c/ r. `. N& M
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
7 j" R7 E8 @. i* ~) n, x( q
(if lg_length
. g: y! N# k. j- M4 O7 ]
;;存在默认值
) g, J8 _6 f4 F; i
(progn1 P7 K( Y' s' _* i" }
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
3 J3 o0 l# R" S8 M
(initget 6 "h w"): A7 c, Y+ {9 A$ c$ c+ s9 N
(setq len (getdist basepoint, t2 I; n- G: u) z2 C
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
5 b" z# ?7 Y- G1 b& |$ }
(rtos lg_length 2)
* A, ?: G1 O8 g0 t3 b+ Z. ?0 A* I/ }
">:"& k# K# E4 j* l; H: Q
)5 Z- \5 i0 v1 b
)
2 h! v# K8 I- t
)* }9 t$ ~! L6 J0 Y7 X' `. a7 H
;;空回车时栏杆长度使用默认值0 f) M0 ^) m' C, ]+ \. h( k
(if (not len)
# V. P$ P6 A: @$ b8 e2 x" O
(setq len lg_length)
6 n; |& l) M" n e, c. Y1 S& P
)1 u8 T4 T0 g2 F; n- ^3 M
)( u9 h3 Z1 s$ k$ d+ ]3 q7 Y, _
;;不存在默认值3 p4 E, z2 p9 ?, M% i( V
(progn, o9 O% z( H0 N' T
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
& k8 @" A2 A" J9 q" K# |9 [
(initget 7 "h w")$ f: C. \5 i; a; } I( A
(setq, p5 v% w! }- t3 m X/ V6 ?4 R
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
$ @) q$ [9 n' C' _! `# G; b
)
# j9 H" f# s& x2 q# j; ?* p
)1 B1 W0 o$ a, `/ a2 J
)& i+ ^( G, d3 F# E5 H
;;检查用户输入的是长度值还是关键字% X4 s& O! t3 f5 I. ?; c2 V4 F
(if (numberp len)0 @; E3 [ ^1 S) F+ l2 V
;;输入的是长度值2 Z4 e ~0 M$ @8 _+ F# a; o
(if (< len lg_width)
6 x! `3 v% c% r9 @$ h
;;当长度值小于方钢宽度时清空输入值重新指定
7 w+ L! A1 {9 _! R
(progn. E( [; V* P6 X, I+ [7 q
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))0 a) h( {$ [* H
(setq len nil)
- i% `8 R# I6 V0 F
)
( w' n4 Z" Z5 {0 l6 k7 |
)4 `2 r6 P5 [" ?" d6 D0 L
;;输入的是关键字
P1 i" ^! ?! \* ]8 h ^
(progn
# ?" m* d6 V3 z( C4 o0 L( z
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
3 Y: k$ F; t, q! r8 \- l7 |: P1 J
;;用户输入时接受空回车,不接受0和负数
" p: k/ l; {& @4 F; w
(initget 6)
) W$ _; I. Q: H( p
;;检查用户输入的关键字是"H"还是"W"0 P( B! V( M L7 v/ N9 V6 t
(if (= len "h")! N y- X, x) m
;;用户输入的关键字是"H",指定高度
& D7 C# A4 b2 H5 a6 \& U& b8 v
(progn0 e& I3 O7 `4 K! p* L7 e
(setq high
: q. n/ J0 Z) Q2 y* z
(getdist basepoint) K! Y3 Q. L; f$ L, s7 g
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
! `5 [4 ^' _% I, C- E4 I9 B
)
7 S) A+ b d: [; V: R6 g
)% h# \% e& n, B; b: B8 T
;;用户输入新的高度时修改默认值
; x& L1 ^9 n& B& _( K+ c8 s8 d
(if high
+ _8 e' e7 Y8 N
(setq lg_high high)- ?0 O8 y) l7 t. W) @, `7 {( a
)
7 A6 v3 e9 }) c/ ], U! j
)8 J k( O9 w" P; V2 u" P6 X" l& R8 K
;;用户输入的关键字是"W",指定方钢宽度0 y$ }8 l5 Z1 ]& n: Y t
(progn- R* L5 I& c5 K
(setq width& g- ?3 Y3 O" J# `0 l+ _
(getdist- O! g' r g) H! X
basepoint
v7 G8 ]( J/ ]+ n
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
& F( V8 t0 _$ F8 P& k2 |/ ]2 J
)
4 Y2 i$ i. w6 @
)
% ~; U w2 i4 V; |3 M
;;用户输入新的方钢宽度时修改默认值
( z1 S0 c3 T& s% {! Z8 E
(if width
+ X8 V) B6 e6 n. S$ O7 t' p l: U
(setq lg_width width)
9 f2 E4 L6 D1 M! S6 n5 l
)! A8 O" G& C- y: B# Y
)/ S' w4 _" P. N% z
)
p- J" l, z$ X* O- n! Z
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度% \4 Z) `7 v2 N) C5 C, E9 E
(setq len nil)
: \7 `. _9 R# S4 B, L
)" N, n7 B& C2 _; f; P# o
)
3 T2 U: W* W0 O
)
0 J4 ?2 C% f# v9 D; Y' q
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
( E; D! V. d5 P
;;计算用户可以指定的花形数量的上限4 k* L j3 k9 z" a1 i1 G
;;用于下一步检查用户指定的花形数量是否合理6 e3 d$ J1 ?* @7 H" S
(setq lg_length len! z0 R+ u: u4 z* X4 L1 t
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))- l! ^5 S. Z, F
)! u* y1 X1 K7 x7 t( n# U
;;指定花形数量或A段最大长度 X$ n6 d" c& N! b
;;如用户指定的是花形数量,则按用户指定的花形数量画图) M. c# O( F4 F
;;如用户指定的是A段最大长度5 N1 a0 }9 P9 v) n. T3 d
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
: Y- \$ M: X. v: i6 R7 T7 z
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解2 C+ h% @2 F$ u1 @, \
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
2 r9 _; n3 i6 R
(while (not n)9 E% A2 e! i$ n9 c
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
; Z O1 f: ^/ Q7 Q2 Z: I
(if lg_n, g; q$ S/ g' w" U8 h5 {' D0 C3 T
;;存在默认值
7 _, D W) d4 F, z
(progn2 s' N" e' [) o7 Z1 ^2 I
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"9 Y+ I1 S! r, r" _
(initget 6 "l")
! }) \- L4 f% B0 \2 p
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
- `+ X. u; Y$ D/ G
(rtos lg_n 2)
" T' Y# F @2 S g
">:"
0 w/ H( `$ {% q
)( a2 s. {9 y2 U# W# f7 Q1 w2 R
)* _5 o& W' D4 K
)
6 |. t) |& Z) O4 w
;;空回车时花形数量使用默认值5 j+ }) j9 P, g) }: e4 z& F
(if (not n)
! w4 k$ {. m7 q* C. F3 u
(setq n lg_n)
) }& n9 s! n/ ]' z4 t$ e" x$ b
)3 k% I7 Z" W2 g1 W% h1 u' T( U6 V
)
7 p2 C3 r' v/ P6 o
;;不存在默认值
' x% i3 G7 P, [ {, t5 b1 Z
(progn: H z* M, w' M h8 L. s
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
7 P. \5 j" K6 o& M5 ^3 E% s. X
(initget 7 "l")7 H! p% V8 x+ x2 m7 y \0 ?9 X
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))/ T _% b+ @& @) G1 n( e8 a
) z# q! W* z: q
): |& x/ `. U% o+ s4 l
;;检查用户输入的是花形数量值还是关键字
0 ^& u/ p9 |, K5 Y% n
(if (numberp n)
. z! d$ y0 x3 @# b/ Z" k
;;输入的是花形数量值
9 r$ g+ n- X( @2 a2 _
(if (> n nmax)
/ j; \4 Q$ N/ N k- C2 }# h; Z
;;当花形数量值大于上限时清空输入值重新指定
5 e6 _ W6 C2 M( x- v# B
(progn6 Y3 v. ^3 y/ ^
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
( m( E, X- I1 [! W
(setq n nil)+ n# c; i) K2 v) U
)# O9 C; ]# C. H, ~* n9 g9 I: Q& y
;;当用户指定的花形数量合理时存入全局变量2 D2 f+ M9 T. W( ], i
;;以便用做下次输入的默认值
+ x' m; m& B" w$ n
(setq lg_n n)# [8 F A# b: A! a. m$ G f
)
3 `/ {9 t& c& L* @
;;用户输入的是关键字
+ ~( Y% P2 |4 B
;;指定A段最大长度 n2 D/ `$ L& u; ?8 ^! l( {' B
(progn3 {* M9 {' x; O1 g- X) {3 Y
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
7 K- H5 V. r" x, A* z
;;否则可能导致无解
, x9 S$ Y- Y+ x% d. d' ]
(while (not amax)" L8 M5 s- f0 Y. Z ?" P* p
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值, }3 w+ ]- _$ _- s
(if lg_amax
6 \7 g5 K' q& ?! D) n! D7 z8 j
;;存在默认值5 C+ |; x1 {, r0 C2 V/ _
(progn: l" U6 |, W* f
;;用户输入时接受空回车,不接受0和负数
, J Z, ]( Q- W- N6 J$ g
(initget 6)0 r! N: S& }7 q& m6 |3 E% w/ N
(setq amax (getdist basepoint4 V$ q3 ~8 p7 X; a' W) E* t
(strcat "\n指定A段最大长度<", d4 Z/ \" ^6 b" Z! J, \5 Y
(rtos lg_amax 2) k9 Z" C; F6 \% X% q
">:"
' D1 D# C% |) {( t
)
) o' b; c. Q8 Q% e6 O
)
0 S! z/ ?$ i- p) F
): T. I1 ]) n5 X) v
;;空回车时A段最大长度使用默认值
% H; r/ Y: ?; G/ E" g! o5 } T
(if (not amax)9 T- Z9 e- o# t: H @+ h3 q5 O) z
(setq amax lg_amax)3 @' N+ A, C1 J V$ l
)+ ?; e8 o7 @: e/ o4 V' P6 N
)
" r) V$ S% U5 O q/ s' _/ _0 ]3 O
;;不存在默认值8 x w! Q3 P9 C/ j8 A$ r4 c; l! D
(progn
. @. F6 P$ w& W0 U
;;用户输入时不接受空回车,0和负数
7 ^. {, N% n0 j0 u# Y
(initget 7)9 v; g3 Y/ M. `6 L
(setq
. `) H% j7 c# ^* [3 \
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
: }- L( h; H' |4 t5 p* Z$ I( t/ H" j
)2 v! o0 A8 E; |: U6 _ \2 [% h
)
% q* D- v; P6 J
)
, T0 V/ v6 {% y9 I
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定) Z) @2 r. d' b% y g# |
(if (< amax (* lg_width 1.5))* s: ^: Y) k$ c, e* F M: E" Y7 c( p
(progn
/ s: M$ i* s4 Y
(prompt (strcat "\n指定的A段最大长度不能小于"* R1 k- n p6 R. `8 W
(rtos (* lg_width 1.5) 2)
$ Q2 `5 W) q( p, ]! T- z, ?3 B3 A
)
)
# [# Y3 X; w9 |; N$ T" [. j
(setq amax nil)' e3 e8 C d1 ]' q6 j
)
5 x: h/ Y0 N5 [
)
( B( c' L; ]) W2 f
)- X1 s/ a1 m; G; {( A3 g
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值0 [5 T2 d( ?3 v z: Z
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
6 H% c* w5 B, r0 i- N7 w
(setq
1 I3 ?1 P4 A8 k& v* I
lg_amax amax6 {) x5 Z+ ?$ T M
n (1+ (/ (- len (* amax 2) lg_width)/ i7 _6 u0 m; u9 T& h' ~8 x- w% B
(+ (* amax 2.5) (* lg_width 3))
V. E! b8 P: o3 q2 z
)
; M$ }( u: D i2 W0 R! j/ i2 ~
)
" n3 ]1 B+ [2 p
)
k5 y+ D! v0 V6 _, l9 q7 S0 _9 i, W
(if (> n (fix n))
; ]+ ?8 P- c3 n D8 g
(setq n (1+ (fix n)))8 N2 W; q& w9 D
)8 W* `; x1 D+ C& F8 B: t
(if (< n 1)
6 g- |% M4 E* _3 m( d
(setq n 1)
) E( `' E# O, V( [" p
)
5 S1 l+ ?! [( g- l; q9 l9 g- n5 u
). \, G( [6 j) n
)
2 p! x9 f X& f" c6 Q4 J
)
% v' Z; b4 \( q! d3 q* M
;;画图
7 U/ ?5 r: J: n8 ^) i6 W
;;记住原来的对象捕捉设置
- `6 j3 ~/ ?) |3 l: s
;;按花形数量计算A值
' G' N' T. w& h" v2 I8 @( L) @ [
(setq
$ m, s( H5 x4 Q7 r7 x, C& i8 W) }
oldosmode (getvar "osmode")
5 m- X$ p; I0 n3 q/ s: C
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))+ K9 K$ f. ^+ E& u' |+ ]( ~( `! s5 j
(+ (* (1- n) 2.5) 2)! Y" i! J, \; c) m: z/ h
)
- o% \. o$ y8 O; e1 W3 N/ Q
)
8 {, }. f6 f V2 L
;;暂时关闭对象捕捉' l f5 H1 h0 g- r3 ], B
(setvar "osmode" 0)
1 J# O9 u& q9 E4 H4 c9 r' @* h
;;屏蔽命令回显
5 R J8 ~3 }" Z7 o# F" ]+ F$ I
(setvar "CMDECHO" 0)
& ?+ j; l; o4 i8 Q
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形/ G+ N, T' n6 x! U9 `$ N7 e
(command "rectang"
, _% H1 u2 k3 I
basepoint/ d: f6 G9 Y, M9 X
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))2 `, ^; J: O+ I; `( }3 @
)2 z0 X2 z7 k) k" o8 z
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
% q( _. J5 m" P1 ^
(command "rectang"
. `: [8 L+ E* F8 o8 P
(list (- (car basepoint) lg_width)
7 Y9 ~: Y0 x- m7 K; ~. p2 q- j
(- (cadr basepoint) lg_width)
' o R3 J0 d* o! k6 s, R1 h, |
)$ N J, [/ Z/ a' @' V
(list (+ (car basepoint) len lg_width)
?1 s5 w" i6 a6 m. w5 K
(+ (cadr basepoint) lg_high lg_width)' l2 O/ J8 j6 E4 S7 W6 I
)6 H# {3 t. r+ }2 a. A
)( Q( W( ^( W' F" j
;;将指定点移到其右侧A距离处3 p7 J3 ]9 e! O6 I# \; g7 O
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
4 G2 v/ f: R* L4 c- }: ?' x. p* }
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆9 F1 X& Z/ C* j
(command "rectang"
. w3 e4 A/ [5 k& O/ }7 \% v2 j
basepoint; ]4 U* T; m7 W
(list (+ (car basepoint) lg_width)
|3 o/ K1 X2 M! r# D
(+ (cadr basepoint) lg_high)9 G1 t, d7 g4 m4 z) q% Z5 t" P; k
)4 A# L) p. ~; P' V8 s
)
( [! ^$ z# v8 W2 V0 |& z7 b3 M
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)- j6 [/ T0 H- `$ D* \8 @; B$ y
(repeat (1- n)
. Q p4 E- X& [6 q2 y" R- j' q$ J
(setq& [) ^$ g. h% {4 g& f0 [
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
4 x; M, v4 @0 b0 |% t& V L
)
0 b7 C% s! r* @, l: t0 g
(command "rectang"
$ t) N5 v' U+ I6 v5 L" O% e
basepoint. T# l! e+ ?$ g+ r0 j' V7 G
(list (+ (car basepoint) lg_width)- M; C) S! t# J! z
(+ (cadr basepoint) lg_high)
$ {- E( Q0 @7 M
)* G5 R+ x% a6 B1 ` X
)
8 O8 j/ t3 O3 b f3 W6 }3 R J
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
7 y; T" K" g/ I
(cadr basepoint)
( u+ V; G, M" X: ]
)& i% s s- h+ T p
)
4 i8 Q' w& f( I: x, X) Z
(command "rectang"
) B; X) ?$ ^" ?6 B' t$ s( k: _4 P
basepoint
( Q9 z R- ?( n' f: Y5 u$ t4 R, t
(list (+ (car basepoint) lg_width)* G* V* f4 b( r" B, q0 _3 e
(+ (cadr basepoint) lg_high)# e" }. H1 }) Z
)' b) U" P6 X, H" y8 i8 U+ J
)4 W- E. G, }, R) O
(setq
- t. m2 r. u8 j0 w* @* y5 V
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
5 c/ a1 t# Y. ]4 U, f# f
)" v6 V e/ N; Q3 [6 u; ?
(command "rectang"! P o: M* @; a* J& t) W9 o6 t
basepoint: N7 ^" ]; U( J4 k* {5 Q# n
(list (+ (car basepoint) lg_width)
2 m6 L; [ ~1 j3 ]. i" a! Y
(+ (cadr basepoint) lg_high), y/ _# k8 \: K) D
)7 l9 A% Z+ y7 M, ~% e7 e
)" E; U( Z" d0 ?5 k
)
7 M0 G, a3 D. i+ N0 M
;;恢复对象捕捉设置
, D2 x* i2 m A( ]7 H% a- ?
(setvar "osmode" oldosmode)$ H% |( U0 m% X" d: t j% ?& }5 y$ `
;;打开命令回显0 G5 _1 L! z) @: u( y d
(setvar "CMDECHO" 1)
! F0 c) t# l7 f- `8 V- B
(princ)6 C4 i5 T: ?8 X. [6 S
)4 y0 z" s0 I3 v4 T# f& R2 ]/ _

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源