1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
little_sophy 2003-12-16
- 打赏
- 举报
谢谢
northwolves 2003-12-14
- 打赏
- 举报
搞定了，呵呵：
Private Sub Form_Click() '描点
Me.Line (-3, 0)-(3, 0), vbBlue
Me.Line (0, -2)-(0, 0), vbBlue
Me.CurrentX = 0
Me.CurrentY = 0
Me.Print "0"
For i = -3 To 3 Step 0.01
PSet (i, -1 * norm(i, 0, 1)), vbRed
Next
End Sub
Private Sub Form_Load()
With Me
.Move 1000, 1000, 6000, 4000
.ScaleLeft = -3
.ScaleTop = -2
.ScaleHeight = 2.5
.ScaleWidth = 6
End With
End Sub
Function norm(ByVal x As Double, ByVal miu As Double, ByVal sigma As Double) As Double '均值miu,标准差sigma的正态曲线函数
norm = 1 / sigma / Sqr(8 * Atn(1))
norm = Exp((x - miu) ^ 2 / -2 / sigma ^ 2) * norm
End Function
Private Sub Form_Click() '描点
Me.Line (-3, 0)-(3, 0), vbBlue
Me.Line (0, -2)-(0, 0), vbBlue
Me.CurrentX = 0
Me.CurrentY = 0
Me.Print "0"
For i = -3 To 3 Step 0.01
PSet (i, -1 * norm(i, 0, 1)), vbRed
Next
End Sub
Private Sub Form_Load()
With Me
.Move 1000, 1000, 6000, 4000
.ScaleLeft = -3
.ScaleTop = -2
.ScaleHeight = 2.5
.ScaleWidth = 6
End With
End Sub
Function norm(ByVal x As Double, ByVal miu As Double, ByVal sigma As Double) As Double '均值miu,标准差sigma的正态曲线函数
norm = 1 / sigma / Sqr(8 * Atn(1))
norm = Exp((x - miu) ^ 2 / -2 / sigma ^ 2) * norm
End Function
little_sophy 2003-12-12
- 打赏
- 举报
up
flc 2003-12-09
- 打赏
- 举报
关注
请把公式什么的先写出来吧
请把公式什么的先写出来吧
northwolves 2003-12-09
- 打赏
- 举报
公式忘了着，咋写？
