form5.frm

随机信号的课程设计

ap(k) = 20 * ((Log(ax(k)) / Log(10)))
Next k
Picture2.Cls
Picture2.Scale (-1.5, 90 * 2 / 5)-(11, -90 * 7 / 5)
Picture2.Line (0, -90)-(10.5, -90)
Picture2.Line (0, 90 / 5)-(0, -90)
Picture2.Line (-0.2, 90 / 10)-(0, 90 / 5)
Picture2.Line (0.2, 90 / 10)-(0, 90 / 5)
Picture2.Line (10.3, -(90 - 90 / 12))-(10.5, -90)
Picture2.Line (10.3, -(90 + 90 / 12))-(10.5, -90)
Picture2.Line (10, -85)-(10, -95)
Picture2.Line (-0.1, 0)-(0.1, 0)
Picture2.Line (-0.1, -45)-(0.1, -45)
Picture2.CurrentX = 9.5: Picture2.CurrentY = -95: Picture2.Print "2π"
Picture2.CurrentX = -0.5: Picture2.CurrentY = 10: Picture2.Print "0"
Picture2.CurrentX = -0.8: Picture2.CurrentY = -35: Picture2.Print "-45"
Picture2.CurrentX = -0.8: Picture2.CurrentY = -85: Picture2.Print "-90"
Picture2.CurrentX = 0.2: Picture2.CurrentY = -92: Picture2.Print "0"
Picture2.CurrentX = 10.4: Picture2.CurrentY = -95: Picture2.Print "ω"
Picture2.CurrentX = -1.5: Picture2.CurrentY = 90 / 5: Picture2.Print "S(ω)dB"
For j = 0 To 48
Picture2.Line (j / 5, ap(j))-((j + 1) / 5, ap(j + 1)), RGB(0, 255, 0)
Next j
b = Array(-3.18, -1.8, 0.97, 2.36, 6.24, 8.45, 10.95, 14, 13.44, 13.16, 11.22, 9.56, 6.24, 1.53, -2.91, -7.06, -11.22, -13.71, -13.99, -14.27, -13.44, -11.77, -10.39, -9.28, -7.62, -6.51, -4.85, -4.29, -4.85, -4.57, -4.02, -3.74, -2.91, -1.52, 1.8, 3.74, 6.79, 10.12, 13.16, 14, 13.72, 13.44, 10.67, 7.9, 5.68, 0.14, -4.85, -8.45, -11.77, -12.88)
For i = 0 To 49
For j = 0 To 50 - i - 1
 br(i) = br(i) + b(j) * b(i + j)
 Next j
br(i) = br(i) / 50
Next i
Picture3.Cls
Picture3.Scale (-5.5, br(0) * 7 / 5)-(5.5, -br(0) * 7 / 5)
Picture3.Line (-5.25, 0)-(5.25, 0)
Picture3.Line (0, -br(0) * 6 / 5)-(0, br(0) * 6 / 5)
Picture3.Line (-0.2, br(0) * 11 / 10)-(0, br(0) * 6 / 5)
Picture3.Line (0.2, br(0) * 11 / 10)-(0, br(0) * 6 / 5)
Picture3.Line (5.15, br(0) * 1 / 10)-(5.25, 0)
Picture3.Line (5.15, -br(0) * 1 / 10)-(5.25, 0)
Picture3.CurrentX = -0.4: Picture3.CurrentY = -br(0) * 2 / 15: Picture3.Print "0"
Picture3.CurrentX = 5.25: Picture3.CurrentY = -0.2: Picture3.Print "m"
Picture3.CurrentX = -1.1: Picture3.CurrentY = br(0) * 13 / 10: Picture3.Print "R(m)"
Picture3.Line (-0.15, br(0))-(0.15, br(0))
Picture3.CurrentX = -1: Picture3.CurrentY = br(0): Picture3.Print Int(br(0))
Picture3.Line (5, br(0) / 10)-(5, -br(0) / 10)
Picture3.CurrentX = 4.5: Picture3.CurrentY = -br(0) / 10: Picture3.Print 50
For j = 0 To 49
Picture3.Line (j / 10, 0)-((j) / 10, br(j)), RGB(255, 0, 0)
Picture3.Line (-j / 10, 0)-(-(j) / 10, br(j)), RGB(255, 0, 0)
Next j
m = 0
For k = 0 To 49
 bi(k) = 0
 bj(k) = 0
For j = 0 To 49
 bi(k) = bi(k) + b(j) * Cos(2 * PI * k * j / 50)
 bj(k) = bj(k) + b(j) * Sin(2 * PI * k * j / 50)
Next j
bx(k) = (Sqr(bi(k) * bi(k) + bj(k) * bj(k))) / 50
bp(k) = 20 * ((Log(bx(k)) / Log(10)))
Next k
Picture4.Cls
Picture4.Scale (-1.5, 50 * 2 / 5)-(11, -50 * 7 / 5)
Picture4.Line (0, -50)-(10.5, -50)
Picture4.Line (0, 50 / 5)-(0, -50)
Picture4.Line (-0.2, 50 / 10)-(0, 50 / 5)
Picture4.Line (0.2, 50 / 10)-(0, 50 / 5)
Picture4.Line (10.3, -(50 - 50 / 12))-(10.5, -50)
Picture4.Line (10.3, -(50 + 50 / 12))-(10.5, -50)
Picture4.Line (10, -45)-(10, -55)
Picture4.Line (-0.1, 0)-(0.1, 0)
Picture4.Line (-0.1, -25)-(0.1, -25)
Picture4.CurrentX = 9.5: Picture4.CurrentY = -55: Picture4.Print "2π"
Picture4.CurrentX = -0.5: Picture4.CurrentY = 5: Picture4.Print "0"
Picture4.CurrentX = -0.8: Picture4.CurrentY = -20: Picture4.Print "-25"
Picture4.CurrentX = -0.8: Picture4.CurrentY = -45: Picture4.Print "-50"
Picture4.CurrentX = 0.2: Picture4.CurrentY = -52: Picture4.Print "0"
Picture4.CurrentX = 10.4: Picture4.CurrentY = -55: Picture4.Print "ω"
Picture4.CurrentX = -1.5: Picture4.CurrentY = 50 / 5: Picture4.Print "S(ω)dB"
For j = 0 To 48
Picture4.Line (j / 5, bp(j))-((j + 1) / 5, bp(j + 1)), RGB(0, 255, 0)

Next j
c = Array(5.16, 4.62, 4.35, 3.8, 4.89, 4.62, 3.8, 4.35, 3.8, 4.62, 3.26, 2.98, 3.8, 4.62, 5.16, 5.71, 6.25, 6.8, 8.16, 8.43, 8.7, 8.7, 8.7, 8.43, 8.7, 7.34, 7.07, 6.8, 5.98, 6.52, 6.52, 5.43, 4.89, 4.35, 5.71, 4.89, 5.16, 4.07, 4.35, 4.62, 4.07, 4.35, 4.07, 4.89, 5.71, 5.43, 5.71, 6.8, 5.98, 8.16)
For i = 0 To 49
For j = 0 To 50 - i - 1
 cr(i) = cr(i) + c(j) * c(i + j)
 Next j
cr(i) = cr(i) / 50
Next i

Picture5.Cls
Picture5.Scale (-5.5, cr(0) * 7 / 5)-(5.5, -cr(0) * 7 / 5)
Picture5.Line (-5.25, 0)-(5.25, 0)
Picture5.Line (0, -cr(0) * 6 / 5)-(0, cr(0) * 6 / 5)
Picture5.Line (-0.2, cr(0) * 11 / 10)-(0, cr(0) * 6 / 5)
Picture5.Line (0.2, cr(0) * 11 / 10)-(0, cr(0) * 6 / 5)
Picture5.Line (5.15, cr(0) * 1 / 10)-(5.25, 0)
Picture5.Line (5.15, -cr(0) * 1 / 10)-(5.25, 0)
Picture5.CurrentX = -0.4: Picture5.CurrentY = -cr(0) * 2 / 15: Picture5.Print "0"
Picture5.CurrentX = 5.25: Picture5.CurrentY = -0.2: Picture5.Print "m"
Picture5.CurrentX = -1.1: Picture5.CurrentY = cr(0) * 13 / 10: Picture5.Print "R(m)"
Picture5.Line (-0.15, cr(0))-(0.15, cr(0))
Picture5.CurrentX = -1: Picture5.CurrentY = cr(0): Picture5.Print Int(cr(0))
Picture5.Line (5, cr(0) / 10)-(5, -cr(0) / 10)
Picture5.CurrentX = 4.5: Picture5.CurrentY = -cr(0) / 10: Picture5.Print 50
For j = 0 To 49
Picture5.Line (j / 10, 0)-((j) / 10, cr(j)), RGB(255, 0, 0)
Picture5.Line (-j / 10, 0)-(-(j) / 10, cr(j)), RGB(255, 0, 0)
Next j
m = 0
For k = 0 To 49
 ci(k) = 0
 cj(k) = 0
For j = 0 To 49
 ci(k) = ci(k) + c(j) * Cos(2 * PI * k * j / 50)
 cj(k) = cj(k) + c(j) * Sin(2 * PI * k * j / 50)
Next j
cx(k) = (Sqr(ci(k) * ci(k) + cj(k) * cj(k))) / 50
cp(k) = 20 * ((Log(cx(k)) / Log(10)))
Next k
Picture6.Cls
Picture6.Scale (-1.5, 50 * 2 / 5)-(11, -50 * 7 / 5)
Picture6.Line (0, -50)-(10.5, -50)
Picture6.Line (0, 50 / 5)-(0, -50)
Picture6.Line (-0.2, 50 / 10)-(0, 50 / 5)
Picture6.Line (0.2, 50 / 10)-(0, 50 / 5)
Picture6.Line (10.3, -(50 - 50 / 12))-(10.5, -50)
Picture6.Line (10.3, -(50 + 50 / 12))-(10.5, -50)
Picture6.Line (10, -45)-(10, -55)
Picture6.Line (-0.1, 0)-(0.1, 0)
Picture6.Line (-0.1, -25)-(0.1, -25)
Picture6.CurrentX = 9.5: Picture6.CurrentY = -55: Picture6.Print "2π"
Picture6.CurrentX = -0.5: Picture6.CurrentY = 5: Picture6.Print "0"
Picture6.CurrentX = -0.8: Picture6.CurrentY = -20: Picture6.Print "-25"
Picture6.CurrentX = -0.8: Picture6.CurrentY = -45: Picture6.Print "-50"
Picture6.CurrentX = 0.2: Picture6.CurrentY = -52: Picture6.Print "0"
Picture6.CurrentX = 10.4: Picture6.CurrentY = -55: Picture6.Print "ω"
Picture6.CurrentX = -1.5: Picture6.CurrentY = 50 / 5: Picture6.Print "S(ω)dB"
For j = 0 To 48
Picture6.Line (j / 5, cp(j))-((j + 1) / 5, cp(j + 1)), RGB(0, 255, 0)

Next j
d = Array(-14.06, -10.19, -10.25, -9.25, -7.69, -7.5, -8.44, -4.75, -3.56, -2.31, -2.25, -1.44, -1.94, -2.06, -2.56, -2.06, -3.12, -3.06, -3.06, -3, -3.25, -4.44, -5.31, -8.25, -11.69, -12.44, -11.81, -11.37, -10.62, -9.81, -10.75, -10.94, -11.12, -12.69, -12.12, -12.87, -12.37, -13, -13.81, -13, -9.31, -9.19, -9.56, -12.12, -11.19, -9.25, -8.5, -7.75, -6.31, -8.44)
For i = 0 To 49
For j = 0 To 50 - i - 1
 dr(i) = dr(i) + d(j) * d(i + j)
 Next j
dr(i) = dr(i) / 50
Next i
Picture7.Cls
Picture7.Scale (-5.5, dr(0) * 7 / 5)-(5.5, -dr(0) * 7 / 5)
Picture7.Line (-5.25, 0)-(5.25, 0)
Picture7.Line (0, -dr(0) * 6 / 5)-(0, dr(0) * 6 / 5)
Picture7.Line (-0.2, dr(0) * 11 / 10)-(0, dr(0) * 6 / 5)
Picture7.Line (0.2, dr(0) * 11 / 10)-(0, dr(0) * 6 / 5)
Picture7.Line (5.15, dr(0) * 1 / 10)-(5.25, 0)
Picture7.Line (5.15, -dr(0) * 1 / 10)-(5.25, 0)
Picture7.CurrentX = -0.4: Picture7.CurrentY = -dr(0) * 2 / 15: Picture7.Print "0"
Picture7.CurrentX = 5.25: Picture7.CurrentY = -0.2: Picture7.Print "m"
Picture7.CurrentX = -1.1: Picture7.CurrentY = dr(0) * 13 / 10: Picture7.Print "R(m)"
Picture7.Line (-0.15, dr(0))-(0.15, dr(0))
Picture7.CurrentX = -1: Picture7.CurrentY = dr(0): Picture7.Print dr(0)
Picture7.Line (5, dr(0) / 10)-(5, -dr(0) / 10)
Picture7.CurrentX = 4.5: Picture7.CurrentY = -dr(0) / 10: Picture7.Print 50
For j = 0 To 48
Picture7.Line (j / 10, 0)-((j) / 10, dr(j)), RGB(255, 0, 0)
Picture7.Line (-j / 10, 0)-(-(j) / 10, dr(j)), RGB(255, 0, 0)
Next j
m = 0
For k = 0 To 49
 di(k) = 0
 dj(k) = 0
For j = 0 To 49
 di(k) = di(k) + d(j) * Cos(2 * PI * k * j / 50)
 dj(k) = dj(k) + d(j) * Sin(2 * PI * k * j / 50)
Next j
dx(k) = (Sqr(di(k) * di(k) + dj(k) * dj(k))) / 50
dp(k) = 20 * ((Log(cx(k)) / Log(10)))
Next k
Picture8.Cls
Picture8.Scale (-1.5, 50 * 2 / 5)-(11, -50 * 7 / 5)
Picture8.Line (0, -50)-(10.5, -50)
Picture8.Line (0, 50 / 5)-(0, -50)
Picture8.Line (-0.2, 50 / 10)-(0, 50 / 5)
Picture8.Line (0.2, 50 / 10)-(0, 50 / 5)
Picture8.Line (10.3, -(50 - 50 / 12))-(10.5, -50)
Picture8.Line (10.3, -(50 + 50 / 12))-(10.5, -50)
Picture8.Line (10, -45)-(10, -55)
Picture8.Line (-0.1, 0)-(0.1, 0)
Picture8.Line (-0.1, -25)-(0.1, -25)
Picture8.CurrentX = 9.5: Picture8.CurrentY = -55: Picture8.Print "2π"
Picture8.CurrentX = -0.5: Picture8.CurrentY = 5: Picture8.Print "0"
Picture8.CurrentX = -0.8: Picture8.CurrentY = -20: Picture8.Print "-25"
Picture8.CurrentX = -0.8: Picture8.CurrentY = -45: Picture8.Print "-50"
Picture8.CurrentX = 0.2: Picture8.CurrentY = -52: Picture8.Print "0"
Picture8.CurrentX = 10.4: Picture8.CurrentY = -55: Picture8.Print "ω"
Picture8.CurrentX = -1.5: Picture8.CurrentY = 50 / 5: Picture8.Print "S(ω)dB"
For j = 0 To 48
Picture8.Line (j / 5, dp(j))-((j + 1) / 5, dp(j + 1)), RGB(0, 255, 0)

Next j
End Sub

Private Sub Command2_Click()

Form2.Show
Unload Form5
End Sub

Private Sub Command3_Click()

Form1.Show
Unload Form5
End Sub

Private Sub Command4_Click()

Form4.Show
Unload Form5
End Sub

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

Private Sub Form_activate()
Label7.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
Picture5.Cls
Picture6.Cls
Picture7.Cls
Picture8.Cls
Picture1.Scale (-11, 10 * 7 / 5)-(11, -10 * 7 / 5)
Picture1.Line (-10.5, 0)-(10.5, 0)
Picture1.Line (0, -10 * 6 / 5)-(0, 10 * 6 / 5)
Picture1.Line (-0.2, 10 * 11 / 10)-(0, 10 * 6 / 5)
Picture1.Line (0.2, 10 * 11 / 10)-(0, 10 * 6 / 5)
Picture1.Line (10.3, 1)-(10.5, 0)
Picture1.Line (10.3, -1)-(10.5, 0)
Picture1.CurrentX = -0.4: Picture1.CurrentY = -10 * 2 / 15: Picture1.Print "0"
Picture1.CurrentX = 10.5: Picture1.CurrentY = 0: Picture1.Print "x"
Picture1.CurrentX = -0.4: Picture1.CurrentY = 10 * 6 / 5: Picture1.Print "Y"
Picture2.Scale (-1.5, 20 * 2 / 5)-(11, -20 * 7 / 5)
Picture2.Line (0, -20)-(10.5, -20)
Picture2.Line (0, 20 / 5)-(0, -20)
Picture2.Line (-0.2, 20 / 10)-(0, 20 / 5)
Picture2.Line (0.2, 20 / 10)-(0, 20 / 5)
Picture2.Line (10.3, -(20 - 20 / 12))-(10.5, -20)
Picture2.Line (10.3, -(20 + 20 / 12))-(10.5, -20)
Picture2.Line (10, -19)-(10, -21)
Picture2.CurrentX = 9.5: Picture2.CurrentY = -21: Picture2.Print "2π"
Picture2.CurrentX = 0: Picture2.CurrentY = -20.5: Picture2.Print "0"
Picture2.CurrentX = 10.4: Picture2.CurrentY = -20.3: Picture2.Print "ω"
Picture2.CurrentX = -1.5: Picture2.CurrentY = 20 / 5: Picture2.Print "S(ω)dB"
Picture3.Scale (-11, 10 * 7 / 5)-(11, -10 * 7 / 5)
Picture3.Line (-10.5, 0)-(10.5, 0)
Picture3.Line (0, -10 * 6 / 5)-(0, 10 * 6 / 5)
Picture3.Line (-0.2, 10 * 11 / 10)-(0, 10 * 6 / 5)
Picture3.Line (0.2, 10 * 11 / 10)-(0, 10 * 6 / 5)
Picture3.Line (10.3, 1)-(10.5, 0)
Picture3.Line (10.3, -1)-(10.5, 0)
Picture3.CurrentX = -0.4: Picture3.CurrentY = -10 * 2 / 15: Picture3.Print "0"
Picture3.CurrentX = 10.5: Picture3.CurrentY = 0: Picture3.Print "x"
Picture3.CurrentX = -0.4: Picture3.CurrentY = 10 * 6 / 5: Picture3.Print "Y"
Picture4.Scale (-1.5, 20 * 2 / 5)-(11, -20 * 7 / 5)
Picture4.Line (0, -20)-(10.5, -20)
Picture4.Line (0, 20 / 5)-(0, -20)
Picture4.Line (-0.2, 20 / 10)-(0, 20 / 5)
Picture4.Line (0.2, 20 / 10)-(0, 20 / 5)
Picture4.Line (10.3, -(20 - 20 / 12))-(10.5, -20)
Picture4.Line (10.3, -(20 + 20 / 12))-(10.5, -20)
Picture4.Line (10, -19)-(10, -21)
Picture4.CurrentX = 9.5: Picture4.CurrentY = -21: Picture4.Print "2π"
Picture4.CurrentX = 0: Picture4.CurrentY = -20.5: Picture4.Print "0"
Picture4.CurrentX = 10.4: Picture4.CurrentY = -20.3: Picture4.Print "ω"
Picture4.CurrentX = -1.5: Picture4.CurrentY = 20 / 5: Picture4.Print "S(ω)dB"
Picture5.Scale (-11, 10 * 7 / 5)-(11, -10 * 7 / 5)
Picture5.Line (-10.5, 0)-(10.5, 0)
Picture5.Line (0, -10 * 6 / 5)-(0, 10 * 6 / 5)
Picture5.Line (-0.2, 10 * 11 / 10)-(0, 10 * 6 / 5)
Picture5.Line (0.2, 10 * 11 / 10)-(0, 10 * 6 / 5)
Picture5.Line (10.3, 1)-(10.5, 0)
Picture5.Line (10.3, -1)-(10.5, 0)
Picture5.CurrentX = -0.4: Picture5.CurrentY = -10 * 2 / 15: Picture5.Print "0"
Picture5.CurrentX = 10.5: Picture5.CurrentY = 0: Picture5.Print "x"
Picture5.CurrentX = -0.4: Picture5.CurrentY = 10 * 6 / 5: Picture5.Print "Y"
Picture6.Scale (-1.5, 20 * 2 / 5)-(11, -20 * 7 / 5)
Picture6.Line (0, -20)-(10.5, -20)
Picture6.Line (0, 20 / 5)-(0, -20)
Picture6.Line (-0.2, 20 / 10)-(0, 20 / 5)
Picture6.Line (0.2, 20 / 10)-(0, 20 / 5)
Picture6.Line (10.3, -(20 - 20 / 12))-(10.5, -20)
Picture6.Line (10.3, -(20 + 20 / 12))-(10.5, -20)
Picture6.Line (10, -19)-(10, -21)
Picture6.CurrentX = 9.5: Picture6.CurrentY = -21: Picture6.Print "2π"
Picture6.CurrentX = 0: Picture6.CurrentY = -20.5: Picture6.Print "0"
Picture6.CurrentX = 10.4: Picture6.CurrentY = -20.3: Picture6.Print "ω"
Picture6.CurrentX = -1.5: Picture6.CurrentY = 20 / 5: Picture6.Print "S(ω)dB"
Picture7.Scale (-11, 10 * 7 / 5)-(11, -10 * 7 / 5)
Picture7.Line (-10.5, 0)-(10.5, 0)
Picture7.Line (0, -10 * 6 / 5)-(0, 10 * 6 / 5)
Picture7.Line (-0.2, 10 * 11 / 10)-(0, 10 * 6 / 5)
Picture7.Line (0.2, 10 * 11 / 10)-(0, 10 * 6 / 5)
Picture7.Line (10.3, 1)-(10.5, 0)
Picture7.Line (10.3, -1)-(10.5, 0)
Picture7.CurrentX = -0.4: Picture7.CurrentY = -10 * 2 / 15: Picture7.Print "0"
Picture7.CurrentX = 10.5: Picture7.CurrentY = 0: Picture7.Print "x"
Picture7.CurrentX = -0.4: Picture7.CurrentY = 10 * 6 / 5: Picture7.Print "Y"
Picture8.Scale (-1.5, 20 * 2 / 5)-(11, -20 * 7 / 5)
Picture8.Line (0, -20)-(10.5, -20)
Picture8.Line (0, 20 / 5)-(0, -20)
Picture8.Line (-0.2, 20 / 10)-(0, 20 / 5)
Picture8.Line (0.2, 20 / 10)-(0, 20 / 5)
Picture8.Line (10.3, -(20 - 20 / 12))-(10.5, -20)
Picture8.Line (10.3, -(20 + 20 / 12))-(10.5, -20)
Picture8.Line (10, -19)-(10, -21)
Picture8.CurrentX = 9.5: Picture8.CurrentY = -21: Picture8.Print "2π"
Picture8.CurrentX = 0: Picture8.CurrentY = -20.5: Picture8.Print "0"
Picture8.CurrentX = 10.4: Picture8.CurrentY = -20.3: Picture8.Print "ω"
Picture8.CurrentX = -1.5: Picture8.CurrentY = 20 / 5: Picture8.Print "S(ω)dB"
End Sub