第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？# z6 D# w' U8 Z' y% [
Sub PaoWuXian()
" d+ t' A! L% ^' ^3 _# GDim p(0 To 101) As Double
. }4 v4 l: Y5 S! F8 i. BDim a As Integer
, _- F5 u; J7 S/ @: i8 I9 lDim i, j As Integer
! d; ]1 ?# G. Y! z+ w% Z3 i1 C/ L9 o
For j = 1 To 100 Step 15 g' a# @; ~. z; r, {2 J: ?
a = -50 + j
# f7 p3 @' u+ w" ^ p(j) = a* X' ?( g9 A8 \3 b% n
p(j + 1) = 0.5 * a * a + 3! q, M8 }( x0 [/ L' h" e
Next j
3 F2 n' \/ z2 x7 c: `$ s5 q
% a: \2 x6 d1 ]& h5 u$ y2 UThisDrawing.ModelSpace.AddLightWeightPolyline (p)
" E& c/ h) t4 K* B2 j9 YZoomExtents3 Z( y" P) R3 J. m: \ {& U" g
. M) ]8 W/ ?& I* Q% d
End Sub |
发表于 2008-2-6 09:48
