第五课有一个作业,画抛物线y=0.5*x*x+3 x[-50,50]。我写了一个程序如下,监测显示参数都没问题,可在autocad中画出来的图形不对,能看看问题出在哪儿吗?# X. \7 P% P" x- _# p; y6 d" L3 n
Sub PaoWuXian()
" l8 k* |$ a6 ^/ ?Dim p(0 To 101) As Double
0 a' B* y: h" Z/ ^Dim a As Integer
$ H$ [, t4 S* f. A# _1 j3 _5 f6 _% oDim i, j As Integer
0 B9 b1 I+ L. a# N1 t% ?( ~2 G2 w
For j = 1 To 100 Step 18 f$ m. \6 e: x$ `2 j& i) q( K4 z1 X
a = -50 + j& s- D, V. V7 v2 d7 D
p(j) = a4 j1 e( I/ r& Z" x+ f1 U
p(j + 1) = 0.5 * a * a + 3
! f+ D: G% m3 ~9 b) O5 o Next j3 C. T; j3 H0 _! g; V
# N7 U; S6 l% C3 v7 {, l+ v" {ThisDrawing.ModelSpace.AddLightWeightPolyline (p)$ ?5 C% o) C+ u' b# [/ t. B
ZoomExtents
) ]5 b- L! L6 }% v7 o4 j$ q6 E8 Y2 U- @
End Sub |