Valutazione del rumore del mare per le prestazioni del sonar

La valutazione del rumore del mare mira alla determinazione dei livelli del disturbo che ostacolano la scoperta dei bersagli con il sonar.

La valutazione in oggetto, fondamentale per comprendere come il rumore del mare subordini la scoperta sonar, un tempo era svolta con il Sonar Performance Calculator Submarine Signal Division, Portsmouth della Raytehon (in bibliografia), oggi grazie al computer e al Visual Basic si possono ottenere risultati più veloci e precisi.

L'operazione consente la pesatura del livello di pressione generato dal moto ondoso del mare.

Il pannello virtuale di controllo del sistema di valutazione è costituito da:

• un Textbox per l'inserzione della frequenza di calcolo in $kHz$.
• un combo per l'impostazione dello stato del mare: Sono disponibili per il calcolo sei valori:

$SS=0$ ; $SS=1/2$ ; $SS=1$; $SS=2$; $SS=4$; $SS=6$

• un pulsante Command1 per l'avvio del calcolo
• un label per la risposta numerica del calcolo in $dB/\mu Pa/{\sqrt {Hz}}$

come mostrato in figura 1:

figura 1 Pannello di comando del sistema

Impostazione del software

In ambiente di sviluppo Visual Basic inserimento degli oggetti nel Form come indicato in figura..

Azione di copia e incolla del programma:

Listato

Private Sub Command1_Click()
calcolomare
End Sub

Private Sub Command2_Click()
Form10.Show
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
If InStr("-+.0123456789" + Chr(&H8), Chr(KeyAscii)) = 0 _
Then KeyAscii = 0
End if
End Sub

Sub calcolomare()
x = Val(Text1.Text)
Rem calcolo del livello spettrale del rumore del mare
k = db / (20 * Log(2) / Log(10))
Y = 20 * Log((x) ^ k) / Log(10)
If Combo1.Text = "SS=0" Then livdB = 55 - Y - 10.8 'per ss=0
If Combo1.Text = "SS=1/2" Then livdB = 55 - Y - 4.7 'per ss=1/2
If Combo1.Text = "SS=1" Then livdB = 55 - Y + 0 'per ss=1
If Combo1.Text = "SS=2" Then livdB = 55 - Y + 6.8 'per ss=2
If Combo1.Text = "SS=4" Then livdB = 55 - Y + 11.6 'per ss=4
If Combo1.Text = "SS=6" Then livdB = 55 - Y + 15 'per ss=6
Label3.Caption = Format(livdB, "###.#")
End Sub

Private Sub Option1_Click()
Cls
End Sub

Valori da inserire nel List del combo:

SS=0
SS=1/2
SS=1
SS=2
SS=4
SS=6

Numerazione oggetti nel Form:

• text1: ingresso frequenza
• combo1: selezione stato del mare
• Command1:avvio calcolo
• Label3: presentazione dato calcolato
• altri label: liberi

Esempio di valutazione

Valutazione del livello della pressione del rumore del mare per le variabili:

frequenza $f=3\ kHz$

stato del mare: $SS=2$

• iserzione nel textbox del valore della frequenza di calcolo ( in $kHz$ ) : nell'esempio $3\ kHz$
• selezione nel combo dello stato del mare $SS=2$
• azione sul pulsante Command1.

La schermata di valutazione in figura 2:

figura 2 Schermata di valutazione

Il valore numerico della pressione risultante dal calcolo è: $53.9\ dB/\mu Pa/{\sqrt {Hz}}$

Bibliografia

• F. Balena, Visual Basic-il linguaggio-, Mondadori Informatica, 2008

• G.Frantz, Programmare con Visual Basic, Apogeo 1996

• M.Padovani, Visual Basic flash, Apogeo, 1997

• D. Inmann B. Albrecht Programmare in Quik Basic,McGraw-Hill, Marzo 1991

• C. Del Turco, La matematica con il personal computer- Metodi matematici e grafici in QBasic, Editrice MODERNA La Spezia, 1998

• Raytehon, Sonar Performance Calculator Submarine Signal Division, Portsmouth

• G. Pazienza, Fondamenti della localizzazione marina, La Spezia, Studio grafico Restani, 1970