It's very easy to draw an egg with the curve y^2=(x^2-1)*(x-π)
- PrivateSubForm_Click()
- Me.Caption="Drawanegg"
- DimXAsDouble
- Me.Scale(-1.5,-3)-(1.5,3)
- ForX=-1To1Step0.0005
- Me.Circle(X,-Sqr((X^2-1)*(X-4*Atn(1)))),0.01,vbRed
- Me.Circle(X,Sqr((X^2-1)*(X-4*Atn(1)))),0.01,vbRed
- Next
- EndSub
It returns:
5944

被折叠的 条评论
为什么被折叠?



