Computazioni sul rumore del mare

Le computazioni e il pannello di controllo

Pannello di comando del sistema

Le computazioni sul rumore del mare mirano 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 (SS = Sea-State):

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:

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 text1_KeyPress(KeyAscii As Integer)
If InStr("-+.0123456789" + Chr(&H8), Chr(KeyAscii)) = 0 _
Then KeyAscii = 0
End Sub

Sub calcolomare()
x = Val(Text1.Text)
Rem calcolo del livello spettrale del rumore del mare
k = 5 / (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
Label1.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 in $kHz$ - dimensioni e caratteristiche da stabilire-
• combo1: selezione stato del mare SS -valori espressi con SS maiuscoli-
• Command1:avvio calcolo
• Label1: presentazione dato calcolato - dimensioni e caratteristiche da stabilire: in$\ dB/\mu Pa/{\sqrt {Hz}}$

• altri label: liberi

Esempio di valutazione

La schermata di valutazione:

Schermata 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.

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

• 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, 1991

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