Public Sub Main()
Dim awe As Float
awe = Aweighting(880.0)
Print awe
End
Private Function Aweighting(frec As Float) As Float
Dim aw, f2, f4 As Float
If frec > 0 Then
f2 = frec ^ 2
f4 = frec ^ 4
' Devulve el A-weighting por la frequencia eligida:
aw = 10 * Log(1.562339 * f4 / ((f2 + 107.65265 ^ 2) * (f2 + 737.86223 ^ 2))) / Log(10) + 10 * Log(2.242881E+16 * f4 / ((f2 + 20.598997 ^ 2) ^ 2 * (f2 + 12194.22 ^ 2) ^ 2)) / Log(10)
Else
aw = -1E+32
Endif
Return aw
End
Dim awe As Float
awe = Aweighting(880.0)
Print awe
End
Private Function Aweighting(frec As Float) As Float
Dim aw, f2, f4 As Float
If frec > 0 Then
f2 = frec ^ 2
f4 = frec ^ 4
' Devulve el A-weighting por la frequencia eligida:
aw = 10 * Log(1.562339 * f4 / ((f2 + 107.65265 ^ 2) * (f2 + 737.86223 ^ 2))) / Log(10) + 10 * Log(2.242881E+16 * f4 / ((f2 + 20.598997 ^ 2) ^ 2 * (f2 + 12194.22 ^ 2) ^ 2)) / Log(10)
Else
aw = -1E+32
Endif
Return aw
End
