第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
" N+ @: s5 K8 U/ S4 aSub PaoWuXian()
! W- ]) }. Q" [4 m! JDim p(0 To 101) As Double- A& v0 u' S, g0 t- h3 x1 {4 E
Dim a As Integer7 H2 K3 D, @# g5 T0 Y. O5 T
Dim i, j As Integer
# F: D" D, M2 x J" ~6 P" k: Z
! L' ~$ G* ]" H/ a/ r For j = 1 To 100 Step 1 Q! n0 X5 z2 P# z; A9 p
a = -50 + j3 a% a" X6 o+ N k8 N* B. B% J
p(j) = a) _& H( H+ g4 t7 n" S; z% l2 {$ v
p(j + 1) = 0.5 * a * a + 3/ i/ _4 k8 h9 N% g! e, Z' [
Next j3 Y6 O( M8 l! `: d7 h
! ?; z9 W/ ?* z: p) g
ThisDrawing.ModelSpace.AddLightWeightPolyline (p)
. `! {3 v/ q0 R& }' UZoomExtents
* p! ^9 |+ J2 v/ G- F% I8 @3 Q1 r- y+ o E; b6 [' y
End Sub |
发表于 2008-2-6 09:48
