Sonar: Routine in Visual Basic per la determinazione grafica della portata R di un apparato idrofonico

[C. Del Turco]

Per comprendere al meglio il contenuto di questo post si consiglia la lettura di Procedura di calcolo automatico delle variabili che definiscono il sonar passivo in Betasom (tecnica).

 

La portata R  di un sonar passivo si calcola con la risoluzione in R del sistema trascendente sotto indicato:

 

 

Il sistema può essere risolto o con metodi grafici o con processi matematici iterativi.

 

Per la prima soluzione è agevole la compilazione di una routine in Visual Basic con la quale si calcolano e si tracciano le curve caratteristiche che risolvono il problema dato.

La routine d’interesse è riportata nel file zip di seguito e  può essere copiata ed incollata in ambiente Visual Basic con l’aggiunta di un pulsante d’avvio:

zipbts.zip

Il processo grafico per la determinazione della portata sonar passivo richiede:

'Indicazione Prop sferica o cilindrica (con la sigla hhh=20 sferica, con  hhh=10 Sfer/cil.)
'Freq. inferiore della banda
'Freq. superiore della banda
'd  Parametro probabilistico (curve ROC)
'rc Costante d'integrazione del rivelatore
'SL Livello del rumore emesso dal bersagglio (dB/microPa)
'NL Livello del rumore del mare (dB/microPa/Hz)
'DI Guadagno della base ricevente (dB)

 

Le variabili che compaiono nel sistema trascendente devono essere digitate nella sezione inserimento variabili.

 Il listato del programma comprende le variabili di un esercizio d’impiego con:

 hhh = 10 ' per prop sferico cil. 

f1 = 8000 'Freq. inferiore della banda

f2 = 15000 'Freq. superiore della banda

 d = 2 'Parametro probabilistico (curve ROC) 

RC = 1 'Costante d'integrazione del rivelatore

 SL = 112 'Livello del rumore emesso dal bersagglio (dB/microPa)

NL = 48 'Livello del rumore del mare (dB/microPa/Hz)

 DI = 24.5 ' Guadagno della base ricevente (dB) 

Il risultato del calcolo e della grafica della figura a seguire vede due curve che s’intersecano, l’ascissa del punto d’intersezione è il valore della portata R che risolve il sistema dato: R = 26 km:

Modificato 10 Marzo da C. Del Turco