第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
& }: Z- R( Y; c' [" n! M, l1 U, xSub PaoWuXian(); C% L9 R7 D3 f& v
Dim p(0 To 101) As Double( X& F8 W4 H5 B* B4 @. w0 {! o$ T
Dim a As Integer# }6 H. J. y+ ]4 S& w J+ ^6 P$ g9 X
Dim i, j As Integer8 d* M; w; W: F# L3 f
1 q- x' y! V* T% Q. y
For j = 1 To 100 Step 1# k) V. W* ?8 Z- ]( i* q
a = -50 + j8 c+ I! S5 I. \2 F0 W
p(j) = a
+ ^. M5 H4 M+ i) ? g p(j + 1) = 0.5 * a * a + 38 s9 t) a# Q" }# k N3 `
Next j
$ ]7 o4 p! o6 |* C% S, L 6 x0 F3 g& A/ D% |9 ], e" R
ThisDrawing.ModelSpace.AddLightWeightPolyline (p)3 H$ [+ d7 f! I$ |# J. i) e
ZoomExtents3 ^3 D3 o, U$ N
% o2 b1 m2 G) @8 P/ B, }3 [End Sub |
发表于 2008-2-6 09:48
