第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
5 [8 X# R4 {, }4 \: h. I: o5 qSub PaoWuXian()
" |3 E4 [# @2 ]: O) hDim p(0 To 101) As Double' A) i. @8 ]# `. h- x* H
Dim a As Integer
2 A% k/ M& H6 r4 s; QDim i, j As Integer9 G, w, e8 w. G5 T6 R
! i, x, U [4 Z& b For j = 1 To 100 Step 1
, h& r# ^% N9 H7 s! r a = -50 + j
( a6 `; P* T2 e p(j) = a
4 _5 N4 p) E, k" I p(j + 1) = 0.5 * a * a + 3
3 x0 |& {: v) q4 C9 E( I: | Next j
) L% Y% E B6 x# z+ A
) }/ w/ [8 R$ H' X0 AThisDrawing.ModelSpace.AddLightWeightPolyline (p)$ S: c S, H% w2 z3 k0 _/ [/ A
ZoomExtents0 e( e6 q7 _. j9 U) B
$ {$ ? I* |6 L. {6 sEnd Sub |
发表于 2008-2-6 09:48
