分...分....分！...不妨看看！

Question

如何用VB 编程绘制“正态分布图”？？
比如做一个机械零件加工尺寸“误差测量分析实验”，怎么用VB编程实现“实验数据的分析”，得出分析结果，并用VB绘制图象，如绘制“正态分布图”，“波形图”等...主要是用哪些控件可以绘制出“正态分布图“......

Answer 1

就在picturebox里画，自己写函数，让程序根据函数画线

Answer 2

1、定义以x坐标为参数的函数函数算法，实现计算y=f(x)
2、根据数据产生x坐标序列
3、将x序列经过第一部定义的函数计算出y序列，这时候你就得到了一系列点的坐标
4、然后就是根据这些点画图了，比如直接将相邻的点连起来，或者用贝塞尔曲线连接等等

Answer 3

写了一个例子给你，具体的东西自己去完善了
建立一个窗体，然后贴入下面代码：Option Explicit
Const PI = 3.1415926Private Function MySin(ByVal x As Double) As Double
    MySin = 500 * Sin(x)
End FunctionPrivate Sub Form_Load()
    Dim x As Double
    Dim y As Double
    Dim i As Integer
    Form1.AutoRedraw = True
    Form1.Width = 5500
    Form1.Height = 4000
    Form1.Line (10, 1000)-(5010, 1000)
    Form1.CurrentX = 10
    Form1.CurrentY = 1000
    For i = 10 To 5010
        DoEvents
        x = (i - 10) / 5000 * 2 * PI
        y = MySin(x)
        Form1.Line -(i, y + 1000)
    Next
    
    Form1.Line (10, 3000)-(5010, 3000)
    Form1.CurrentX = 10
    Form1.CurrentY = 3000
    For i = 10 To 5010 Step 100
        DoEvents
        x = (i - 10) / 5000 * 2 * PI
        y = MySin(x)
        Form1.Line (i, 3000)-(i, y + 3000)
    Next
End Sub

Answer 4

只要把Private Function MySin(ByVal x As Double) As Double换成你的正态分布函数在作适当调整就可以了，起码能画出图形来，给你两个效果，一个适用于连续分布，另一个适用于离散分布

Answer 5

对阿，mschar很好，不但图形形象，而且你可以修改任意点的坐标，图形随着坐标变化

Answer 6

为什么在VB中只能访问旧版本的Acess库，而不能访问新版本的Acess！！？？？大家发现这个问题了吗？？

Answer 7

不是吧﹐你難道用2003版本﹐那偶沒有試。但是xp的Acess可以連接。
但是要用4.0

Answer 8

这要看你的Jet引擎的版本了~~老伴本当然访问不了新版本了~~