第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？' [8 ?4 w8 b- j* |) Y2 T; U
Sub PaoWuXian()
4 r% R6 i1 k. [3 w% XDim p(0 To 101) As Double
8 \8 |, a( g: D+ C8 y0 x, q# zDim a As Integer
: r8 u$ L( l8 |9 U6 cDim i, j As Integer# A7 `) P; m( s7 Y2 `
# M1 O( R$ N3 V5 t7 I5 m
For j = 1 To 100 Step 1! s3 ]4 |4 F' |; b0 P
a = -50 + j
1 ?3 o, C5 M' Q% h* }0 y p(j) = a
" a+ e' ` E0 A p(j + 1) = 0.5 * a * a + 3- i" X% ^2 S5 p. W1 r3 v+ U
Next j" Z" ~3 `2 a2 L8 E1 Y8 O/ {( a; z' c
: h( |; q- R9 j& P
ThisDrawing.ModelSpace.AddLightWeightPolyline (p)- V# h* D4 U0 h# E/ c8 e9 J2 {6 B
ZoomExtents
; N- e. w' W$ h9 X4 t. p" @( B3 x: x) ~0 n
End Sub |
发表于 2008-2-6 09:48
