16,717
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zzmdegm 2005-03-22
- 打赏
- 举报
up
zzmdegm 2005-03-20
- 打赏
- 举报
zzmdegm@yahoo.com.cn
yohomonkey 2005-03-18
- 打赏
- 举报
邮箱？
zzmdegm 2005-03-17
- 打赏
- 举报
up
zzmdegm 2005-03-16
- 打赏
- 举报
up
zzmdegm 2005-03-16
- 打赏
- 举报
to：hamadou(闵峰)
像这样只能有几个有限的点啊！
While i <= 2 * pi
Dim j As Integer = Sin(i)
gp.AddEllipse(i, j, 1, 1)
i = i + 1
End While
如如何做出更多的点呢？
像这样只能有几个有限的点啊！
While i <= 2 * pi
Dim j As Integer = Sin(i)
gp.AddEllipse(i, j, 1, 1)
i = i + 1
End While
如如何做出更多的点呢？
hamadou 2005-03-16
- 打赏
- 举报
当然是多些好，不过可以放大处理，比如说将横纵坐标都扩大多少倍，这样看的清楚！
zzmdegm 2005-03-16
- 打赏
- 举报
如何获得这么多个点呢，而且到底要多少个点才能比较好的反应这个曲线呢？
就像hamadou(闵峰)一样做吗，那获得的点的数量太少，曲线都有点变形了啊！
就像hamadou(闵峰)一样做吗，那获得的点的数量太少，曲线都有点变形了啊！
syeerzy 2005-03-16
- 打赏
- 举报
函数都知道了，直接描点啊楼主
Toti 2005-03-15
- 打赏
- 举报
我公司最近做过画曲线，画圆柱
hamadou 2005-03-15
- 打赏
- 举报
简单的实现了一下，点太小，而且少，这样的绘制有些失真，不过原理大致如此！
Dim g As Graphics = Me.Panel1.CreateGraphics
Dim gp As New GraphicsPath()
Dim i As Integer = 0
Const pi As Integer = 3.14
While i <= 2 * pi
Dim j As Integer = Sin(i)
gp.AddEllipse(i, j, 1, 1)
i = i + 1
End While
g.DrawPath(Pens.Black, gp)
Dim g As Graphics = Me.Panel1.CreateGraphics
Dim gp As New GraphicsPath()
Dim i As Integer = 0
Const pi As Integer = 3.14
While i <= 2 * pi
Dim j As Integer = Sin(i)
gp.AddEllipse(i, j, 1, 1)
i = i + 1
End While
g.DrawPath(Pens.Black, gp)
zzmdegm 2005-03-15
- 打赏
- 举报
楼上的，那就给个思路啊！
zzmdegm 2005-03-14
- 打赏
- 举报
补：最好是有一个直角坐标系的！
zzmdegm 2005-03-14
- 打赏
- 举报
to： lbx1979(Love Arsenal)
你是说算出无数多个这个函数的坐标来再把它们用直线连起来吗？
比如做个for循环100次在一个区域内的吗？那样会不会有些失真？
to： heiding(黑麒麟)
就比如简单点的：sinx 区间在0～2pai 之间的曲线图该如何做呢
你是说算出无数多个这个函数的坐标来再把它们用直线连起来吗？
比如做个for循环100次在一个区域内的吗？那样会不会有些失真？
to： heiding(黑麒麟)
就比如简单点的：sinx 区间在0～2pai 之间的曲线图该如何做呢
Lmovie 2005-03-14
- 打赏
- 举报
UPUP
hamadou 2005-03-14
- 打赏
- 举报
up!
heiding 2005-03-14
- 打赏
- 举报
给我你的曲线函数，我给你做个画图的函数。dingqi_e@yahoo.com.cn
lbx1979 2005-03-14
- 打赏
- 举报
这个很难吗, 函数都知道了, 不能算出那些坐标吗, 然后画线不就行了
