第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
' @ s. [6 n# Z( D; b2 m+ j$ i0 pSub PaoWuXian() P" N" k4 r1 o: T- O/ K3 w2 h
Dim p(0 To 101) As Double
" S6 u2 L; k2 J* {- MDim a As Integer9 u+ U% [ ^8 x3 e2 W3 e9 ]
Dim i, j As Integer& R0 [8 w2 X+ Y' m/ J3 m
0 T7 l5 I& j+ _% b# N# u$ U For j = 1 To 100 Step 1
+ K) [7 I) W' V8 l: G) T- v a = -50 + j1 R9 @5 F- x1 b" d
p(j) = a
8 n s/ I* R1 Z* s! T) _6 Y+ J p(j + 1) = 0.5 * a * a + 3
4 ?: ?/ |9 B7 C1 u8 `. w2 ^ Next j7 Z/ S8 r9 j* [2 {6 z8 S3 N6 h! [
$ Y! K) R5 z, }
ThisDrawing.ModelSpace.AddLightWeightPolyline (p)
" B# e+ D" i9 yZoomExtents$ i' u4 Q: D* `4 h: O0 f& h
& Q7 L. C% C/ b, B
End Sub |
发表于 2008-2-6 09:48
