第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？# Q. I' J) i& e( d* f
Sub PaoWuXian()( _1 i, |9 i* u, T# w
Dim p(0 To 101) As Double7 q: c/ o+ |+ m' {
Dim a As Integer
E+ f! Z8 T8 x% W8 p, {* @/ yDim i, j As Integer
# q1 u2 G9 }4 H6 E F8 q/ @; n* ]. ]/ [8 X7 Y
For j = 1 To 100 Step 1. u5 r9 m0 Q, O- w; R7 H% r
a = -50 + j( [8 Y' i& \( U+ v* f; I% x
p(j) = a- s- f1 C" \1 x& ]$ P- D9 [+ ~! u, z
p(j + 1) = 0.5 * a * a + 3
. l" B0 j A" Y Next j2 e4 j4 c( e, {$ O; G1 o$ j
3 ]2 B4 T5 E4 n0 t2 o1 wThisDrawing.ModelSpace.AddLightWeightPolyline (p)1 L: [" U% W2 N3 I
ZoomExtents
' y/ f0 F7 z0 Z) `
0 \" O4 |. p- }End Sub |
发表于 2008-2-6 09:48
