第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
6 _ s6 B8 q4 g" e$ ^0 bSub PaoWuXian()1 q2 l/ D- n$ R; I/ h( z+ M
Dim p(0 To 101) As Double
3 }' G; R7 V8 E+ h, c7 J" }Dim a As Integer
, L/ e! d( m8 o( rDim i, j As Integer0 h; P" F1 ^0 @; M" `* C( S
. v! v( u0 ?0 p" Y
For j = 1 To 100 Step 1
. M2 T: j0 h, b( k% K( k a = -50 + j) } A4 k" A* x6 j5 G# S! g7 V
p(j) = a
4 Z8 k8 t& l* w# j8 ~% T p(j + 1) = 0.5 * a * a + 3
+ n0 `8 J& a( G: w Next j
2 i6 m$ P$ B( f) G! U" O, _' t/ S7 S* r
; N2 w& M7 A! a/ J' BThisDrawing.ModelSpace.AddLightWeightPolyline (p); v4 g. g1 j8 @8 v9 M" b
ZoomExtents6 A" Q0 |- R; S7 t: x2 p# W
5 Z C& \* ?) G( p1 V7 ~; }& u
End Sub |
发表于 2008-2-6 09:48
