form3.frm

随机信号的课程设计

         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4560
      TabIndex        =   6
      Top             =   240
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "方差："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4560
      TabIndex        =   5
      Top             =   1200
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "期望："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4560
      TabIndex        =   4
      Top             =   720
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "请输入要产生高斯分布随机数的要求："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   4095
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim j As Integer
Dim a As Double
Dim b As Double
Dim m As Double
Dim v As Double
Dim n As Integer
Dim p As Double
Dim q As Double
Dim w(100000) As Double
Dim f(100000) As Double
Static c As Double
Static d As Double
n = Val(Text1.Text)
m = Val(Text2.Text)
v = Val(Text3.Text)
Dim xr(100000) As Double
Dim Y(100000) As Double
If n < 0 Or n = 0 Then
j = MsgBox("请输入个数大于0的数", 0, "错误")
If j = 1 Then
Text1.SetFocus
End If
Exit Sub
End If
If v < 0 Then
j = MsgBox("方差不能小于0", 0, "错误")
If j = 1 Then
Text3.SetFocus
End If
Exit Sub
End If
If (m < 0 Or m = 0) And (v = 0 Or v < 0) Then
j = MsgBox("期望和方差至少有一个大于0", 0, "错误")
If j = 1 Then
Text2.SetFocus
End If
Exit Sub
End If
Picture1.Cls
If v > 4 Then
Picture1.Scale (-1.5, (Abs(m) + v) * 7 / 5)-(11, -(Abs(m) + v) * 7 / 5)
Picture1.Line (-1, 0)-(10.5, 0)
Picture1.Line (0, -(Abs(m) + v) * 6 / 5)-(0, (Abs(m) + v) * 6 / 5)
Picture1.Line (-0.2, (Abs(m) + v) * 11 / 10)-(0, (Abs(m) + v) * 6 / 5)
Picture1.Line (0.2, (Abs(m) + v) * 11 / 10)-(0, (Abs(m) + v) * 6 / 5)
Picture1.Line (10.3, (Abs(m) + v) / 15)-(10.5, 0)
Picture1.Line (10.3, -(Abs(m) + v) / 15)-(10.5, 0)
Picture1.CurrentX = -0.2: Picture1.CurrentY = -(Abs(m) + v) * 2 / 15: Picture1.Print "0"
Picture1.CurrentX = 10.5: Picture1.CurrentY = 0: Picture1.Print "x"
Picture1.CurrentX = -0.3: Picture1.CurrentY = (Abs(m) + v) * 6 / 5: Picture1.Print "Y"
Picture1.Line (-0.1, (Abs(m) + v))-(0.1, (Abs(m) + v))
Picture1.Line (-0.1, -(Abs(m) + v))-(0.1, -(Abs(m) + v))
Picture1.Line (10, (Abs(m) + v) / 15)-(10, -(Abs(m) + v) / 15)
Picture1.CurrentX = -0.5: Picture1.CurrentY = (Abs(m) + v): Picture1.Print Abs(m) + v
Picture1.CurrentX = -0.5: Picture1.CurrentY = -(Abs(m) + v): Picture1.Print -(Abs(m) + v)
Picture1.CurrentX = 9.8: Picture1.CurrentY = -(Abs(m) + v) / 10: Picture1.Print n
Else
Picture1.Scale (-1.5, (Abs(m) + 2 * Sqr(v)) * 7 / 5)-(11, -(Abs(m) + 2 * Sqr(v)) * 7 / 5)
Picture1.Line (-1, 0)-(10.5, 0)
Picture1.Line (0, -(Abs(m) + 2 * Sqr(v)) * 6 / 5)-(0, (Abs(m) + 2 * Sqr(v)) * 6 / 5)
Picture1.Line (-0.2, (Abs(m) + 2 * Sqr(v)) * 11 / 10)-(0, (Abs(m) + 2 * Sqr(v)) * 6 / 5)
Picture1.Line (0.2, (Abs(m) + 2 * Sqr(v)) * 11 / 10)-(0, (Abs(m) + 2 * Sqr(v)) * 6 / 5)
Picture1.Line (10.3, (Abs(m) + 2 * Sqr(v)) / 15)-(10.5, 0)
Picture1.Line (10.3, -(Abs(m) + 2 * Sqr(v)) / 15)-(10.5, 0)
Picture1.CurrentX = -0.2: Picture1.CurrentY = -(Abs(m) + 2 * Sqr(v)) * 2 / 15: Picture1.Print "0"
Picture1.CurrentX = 10.5: Picture1.CurrentY = 0: Picture1.Print "x"
Picture1.CurrentX = -0.3: Picture1.CurrentY = (Abs(m) + 2 * Sqr(v)) * 6 / 5: Picture1.Print "Y"
Picture1.Line (-0.1, (Abs(m) + 2 * Sqr(v)))-(0.1, (Abs(m) + 2 * Sqr(v)))
Picture1.Line (-0.1, -(Abs(m) + 2 * Sqr(v)))-(0.1, -(Abs(m) + 2 * Sqr(v)))
Picture1.Line (10, (Abs(m) + 2 * Sqr(v)) / 15)-(10, -(Abs(m) + 2 * Sqr(v)) / 15)
Picture1.CurrentX = -0.5: Picture1.CurrentY = (Abs(m) + 2 * Sqr(v)): Picture1.Print Int(Abs(m) + 2 * Sqr(v))
Picture1.CurrentX = -0.5: Picture1.CurrentY = -(Abs(m) + 2 * Sqr(v)): Picture1.Print -Int(Abs(m) + 2 * Sqr(v))
Picture1.CurrentX = 9.8: Picture1.CurrentY = -(Abs(m) + 2 * Sqr(v)) / 10: Picture1.Print n
End If
For j = 0 To n - 1
a = Sqr(-2 * Log(Rnd()))
b = 2 * 3.1415926 * Rnd()
xr(j) = Sqr(v) * a * Sin(b) + m
Next j
For i = 0 To n - 2
Picture1.Line (i * 10 / (n - 1), xr(i))-((i + 1) * 10 / (n - 1), xr(i + 1))
Next i
For i = 0 To n - 1
c = c + xr(i)
Next i
c = c / n
Text4.Text = c
If m > 0 Or m < 0 Then
p = (Abs(m - c) / Abs(m)) * 100
Text5.Text = p
Else
Text5.Text = 0
End If
For i = 0 To n - 1
Y(i) = (xr(i) - c) * (xr(i) - c)
Next i
For i = 0 To n - 1
d = d + Y(i)
Next i
d = d / n
Text6.Text = d
If v > 0 Then
q = (Abs(v - d) / v) * 100
Text7.Text = q
Else
Text6.Text = 0
Text7.Text = 0
End If
For i = 1 To n - 1
w(0) = xr(0)
j = i
e = e + 1
w(i) = ((e - 1) / e) * w(i - 1) + (1 / e) * xr(j)
f(i) = ((e - 1) / e) * (f(i - 1) + (1 / e) * (xr(i) - w(i - 1)) * (xr(i) - w(i - 1)))
Next i
For i = 0 To n - 2
Picture1.Line (i * 10 / (n - 1), w(i))-((i + 1) * 10 / (n - 1), w(i + 1)), RGB(255, 255, 0)
Picture1.Line (i * 10 / (n - 1), f(i))-((i + 1) * 10 / (n - 1), f(i + 1)), RGB(0, 0, 255)
Next i
Picture1.CurrentX = 10: Picture1.CurrentY = w(n - 1): Picture1.Print "E"
Picture1.CurrentX = 10: Picture1.CurrentY = f(n - 1): Picture1.Print "D"
Label11.Visible = True
End Sub
Private Sub Command2_Click()
Form2.Show
Unload Form3

End Sub

Private Sub Command3_Click()
Form4.Show
Unload Form3
End Sub

Private Sub Command4_Click()
Form1.Show
Unload Form3
End Sub

Private Sub Command5_Click()
Form5.Show
Unload Form3
End Sub

Private Sub Form_activate()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Picture1.Cls
Picture1.Scale (-1.5, 3.5)-(11, -3.5)
Picture1.Line (-1, 0)-(10.5, 0)
Picture1.Line (0, -3)-(0, 3)
Picture1.Line (-0.2, 2.8)-(0, 3)
Picture1.Line (0.2, 2.8)-(0, 3)
Picture1.Line (10.3, 0.2)-(10.5, 0)
Picture1.Line (10.3, -0.2)-(10.5, 0)
Picture1.CurrentX = -0.2: Picture1.CurrentY = -0.1: Picture1.Print "0"
Picture1.CurrentX = 10.5: Picture1.CurrentY = 0: Picture1.Print "x"
Picture1.CurrentX = -0.3: Picture1.CurrentY = 3: Picture1.Print "Y"
Label11.Visible = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
n = Val(Text1.Text)
m = Val(Text2.Text)
v = Val(Text3.Text)
If KeyAscii = 13 Then
If n > 0 Then
Text2.SetFocus
Else
j = MsgBox("请输入大于0的数", 0, 错误)
If j = 1 Then
Text1.SetFocus
End If
Exit Sub
End If
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
n = Val(Text1.Text)
m = Val(Text2.Text)
v = Val(Text3.Text)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub