第五课有一个作业,画抛物线y=0.5*x*x+3 x[-50,50]。我写了一个程序如下,监测显示参数都没问题,可在autocad中画出来的图形不对,能看看问题出在哪儿吗?
4 `; b+ W! B6 j; DSub PaoWuXian()" v& @% y' `9 u# |, t C
Dim p(0 To 101) As Double
2 p* T$ W" g/ M" T$ {# o kDim a As Integer
: U. B3 ~& ?1 [4 J/ g5 V) @Dim i, j As Integer+ K, A. R0 {( \
$ d$ Q, H. Z8 |; d2 L
For j = 1 To 100 Step 1
" P6 C: M; L/ ] i( S- ~ a = -50 + j
6 f. l2 {4 I B U1 N$ ~3 I' f p(j) = a+ G5 S3 {; i- o' A" c9 i
p(j + 1) = 0.5 * a * a + 3+ J2 {3 F& `( H9 F8 J3 X# Y
Next j
1 e" E) h% S9 y& G' i [; @
2 R! V8 w, R# ?. vThisDrawing.ModelSpace.AddLightWeightPolyline (p)
l7 S/ p6 C( xZoomExtents( ^2 w, m' D3 z/ D
$ T9 g5 q9 H' C7 Z0 kEnd Sub |