`
ihuashao
  • 浏览: 4562967 次
  • 性别: Icon_minigender_1
  • 来自: 济南
社区版块
存档分类
最新评论

Draw an egg

 
阅读更多
It's very easy to draw an egg with the curve y^2=(x^2-1)*(x-π)
  1. PrivateSubForm_Click()
  2. Me.Caption="Drawanegg"
  3. DimXAsDouble
  4. Me.Scale(-1.5,-3)-(1.5,3)
  5. ForX=-1To1Step0.0005
  6. Me.Circle(X,-Sqr((X^2-1)*(X-4*Atn(1)))),0.01,vbRed
  7. Me.Circle(X,Sqr((X^2-1)*(X-4*Atn(1)))),0.01,vbRed
  8. Next
  9. EndSub

It returns:

分享到：
| SD--对于定价过程参考步骤 (Condition Step ...
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

Magicbox
Global site tag (gtag.js) - Google Analytics