第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
$ H3 m) E4 p% E9 J& H8 M3 _Sub PaoWuXian()
4 M* K4 O2 l( x% W' {# p6 UDim p(0 To 101) As Double3 u4 k& @4 k9 S. ?+ U3 W' C
Dim a As Integer2 R, [$ x* f9 W/ [5 z) P/ ]6 n3 x
Dim i, j As Integer
9 H' s& G* E ~' d' o6 c2 _
" K, ]6 C" g k7 q; H- z- p For j = 1 To 100 Step 1
* w7 ]) P3 e$ O a = -50 + j
6 z8 F# S, d* n6 r# B' F! n p(j) = a9 t5 ~( j+ V5 k: `. V
p(j + 1) = 0.5 * a * a + 3
/ F8 A# _% x( n# i: T Next j
9 U2 Y! t! s( `$ ~. p5 k8 C& I g9 ]/ g8 d' X" `8 z
ThisDrawing.ModelSpace.AddLightWeightPolyline (p)
# M5 w/ U0 U" z n7 jZoomExtents5 i2 Q; s- }$ s$ \( U$ ]
7 ?9 ]! ]" ~5 n; t' m* p
End Sub |
发表于 2008-2-6 09:48
