第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？. @% n1 B+ O$ E( a4 M
Sub PaoWuXian()3 I6 ]4 x! @6 A
Dim p(0 To 101) As Double; G3 \% P% }% C# [6 o
Dim a As Integer
1 [. o4 `" ?7 p0 w. n! o+ gDim i, j As Integer
( }. `, F3 ]* B& M' ^; o, S* V
. o X( r2 s" Q8 N For j = 1 To 100 Step 16 K. _% e1 c4 t9 {/ \" @! d
a = -50 + j# r# z" c, ~- q1 w7 T. y) n4 R( ?
p(j) = a
) x# X- _ }' U7 o) { p(j + 1) = 0.5 * a * a + 35 }% |0 P( Y! V" u' G; L
Next j
7 D5 ]& G: y4 y7 G3 C8 P; B
/ Y2 s; d/ {* B5 G# a7 }ThisDrawing.ModelSpace.AddLightWeightPolyline (p)
- N8 A6 F/ p+ q) AZoomExtents
- ?- h8 j. ^3 m) j) q5 F3 w4 e
$ r* s- s# J! a/ ]. ^5 ~' AEnd Sub |
发表于 2008-2-6 09:48
