编程论坛 → VB6论坛

请教正态分布图怎么制作？

ictest 发布于 2023-01-12 16:27， 1390 次点击

我有一组数据，大约20万个数据，已知其“规格上限USL = 4.82”，“规格下限LSL = 3.62”，“目标值Target = 4.22”。想通过“MSChart”控件制作“正态分布图”。

我在网上已经搜寻了好久了，网上只有通过EXCEL制作正态分布图的方法，而且EXCEL中也没有直接制作正态分布图的公式和图标工具，要通过很多步骤才能最终组装生成“正态分布图”。

咱们的VB6就是这么和正态分布图无缘吗？正态分布图是分析数据的重要工具，但我在网上寻找很久，通过VB6制作正态分布图的资料都没有。

想烦请版主大大和路过的各位高手，能够协助制作一个通过VB6制作正态分布图的源码，以供留世。谢谢。

附件是数据，以及一个EXCEL制作正态分布图工具供制作参考（内有公式）。

只有本站会员才能查看附件，请登录

6 回复

#2

风吹过b2023-01-13 19:50

绘图倒是简单
问题是有些函数的实现。

如关键函数 NORMDIST ，不会。

#3

mrexcel2023-01-15 19:21

程序代码：

Function Normdist2(x, avg, sd, bool) As Double
        Dim normal As Double, t As Double
        If Not bool Then
        Normdist2 = 1 / (Sqr(8 * Atn(1)) * sd) * Exp(-(avg - x) ^ 2 / (2 * sd ^ 2))
        Else
            normal = (x - avg) / sd
            t = 1 / (1 + 0.33267 * normal)
            Normdist2 = 1 - Normdist2(normal, 0, 1, 0) * t * (0.4361836 - 0.1201676 * t + 0.937298 * t * t)
        End If
End Function

#4

mrexcel2023-01-15 19:22

bool=false 测试通过。

代码来源：
https://www.

#5

风吹过b2023-01-28 22:02

绘图做了一半的，数据怎么计算来的，还是没一点头绪，我这几天做完来再给绘图代码吧。

画完折线后，发现你要求提曲线，崩溃。。

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2023-1-29 08:17编辑过]

#6

cwa99582023-01-29 16:12

图形应该要用样条来画。

#7

风吹过b2023-01-29 21:34

样条不会，还没去看怎么计算的，就先拿折线吧，这个简单。
数据怎么计算来的，不知道，不愿去弄的，直接绘图了。

只有本站会员才能查看附件，请登录

代码

只有本站会员才能查看附件，请登录

1