Nel frammento di codice seguente il valore della variabile Cr calcolato non è corretto quando il valore in input AlfaR è piccolo. Addirittura il segno è diverso. Il valore intermedio alfa_rad è corretto, l’errore sembra nascere nel calcolo seno e coseno.
Come fare?
alfa_rad:=TO_REAL(AlfaR)*pigreco /18000.0;
Cr:=(TO_REAL(a[0])* COS(alfa_rad))/sin(alfa_rad);
Esempio1: AlfaR=51 –> Cr=-26217 (errato!!! deve essere positivo =39319,59)
Esempio2: AlfaR=68 –> Cr=29489 (esatto!!!)