第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？2 w5 m/ \% R; X$ M
Sub PaoWuXian()
& M7 ~3 A. [& g# ^+ TDim p(0 To 101) As Double
* t `8 m: K" T: L! QDim a As Integer% b" ^0 G" w. @6 [8 R0 s' K
Dim i, j As Integer7 K2 D3 c% j! w2 `" P0 W
/ k, G% q; @0 D$ e+ E& {2 { T For j = 1 To 100 Step 14 d3 N/ @, j3 D2 Q8 P
a = -50 + j3 M, P& r5 e2 k9 j }, O2 S+ g. n& J
p(j) = a% o3 b- K- V6 k: z5 |) B1 t7 \
p(j + 1) = 0.5 * a * a + 31 H" e1 z! T4 U2 D& P
Next j) D; L `+ G5 a6 r# G% ~
: W) F7 }1 Q; c
ThisDrawing.ModelSpace.AddLightWeightPolyline (p)
. N0 X5 ?( a" X) T; yZoomExtents" w' v! W8 S; a4 n0 K) ]+ A. |
! R! u6 \) s; v: N; w1 ^
End Sub |
发表于 2008-2-6 09:48
