第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
4 u0 w7 L* q7 {& q+ uSub PaoWuXian()
. Y2 d! K4 k, M9 \Dim p(0 To 101) As Double
( b7 r$ _* I% E" h6 @Dim a As Integer8 C6 I2 a& B# L' t4 h8 h3 k
Dim i, j As Integer
- X% j* x" r$ t
- b D1 l' f. T; e For j = 1 To 100 Step 1# F0 F- o- e6 i0 k3 P& J3 y9 c& Y
a = -50 + j
' w% k0 C' M/ p6 L2 D* W8 P) A p(j) = a
3 F% Z* \" j& M5 G" R& V0 G0 | p(j + 1) = 0.5 * a * a + 3! }- P; V' W: J# A3 E9 T
Next j% M2 D$ g% E0 v
) j: C# \7 q; c# M9 H+ k cThisDrawing.ModelSpace.AddLightWeightPolyline (p), F6 I) j. Q( j; @: Q7 a
ZoomExtents% ?' i) ]9 [( p a4 m8 ?1 C# x2 x
^( {) j0 y; d
End Sub |
发表于 2008-2-6 09:48
