第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
5 X* v- O k3 \* L! d0 R: USub PaoWuXian()7 H. F, ~" x7 q7 `+ G( v
Dim p(0 To 101) As Double/ e: G* J( Y) y& g
Dim a As Integer
9 \5 o! [: L$ @ @ d; dDim i, j As Integer
8 H/ \$ ~1 R/ f5 a* d1 V% F* Q" x6 Q! \3 u
For j = 1 To 100 Step 1, h1 {( C1 {5 C1 A/ C5 X7 I
a = -50 + j
- C3 Y4 L* a& W* J9 s2 } p(j) = a2 d1 u' X2 x8 K0 J! M' J" c4 ~
p(j + 1) = 0.5 * a * a + 3
7 ^) W' a+ i6 ]7 C. u7 l Next j( O) t) F* S: D, \7 A0 Z
* f' O+ e) E( ]1 X( n7 BThisDrawing.ModelSpace.AddLightWeightPolyline (p)
8 F; z$ H% i {# g% kZoomExtents
5 A" I/ d) X" s3 t; P, U* M9 y9 H4 D5 q- z; L* y) }
End Sub |
发表于 2008-2-6 09:48
