PG = 3.141593#

INPUT "SFASAMENTO=", W

INPUT "ERRORE MAX=", E

INPUT "ANG.DI ERRORE MAX=", F

PRINT "VUOI LA STAMPA DETTAGLIATA? (S/N)"

4 A$ = INKEY$: IF A$ = "" THEN 4

IF A$ = "N" THEN 10

LPRINT "SFASAMENTO=", W: LPRINT "ERRORE MAX=", E

LPRINT "ANG.DI ERRORE= "; F: LPRINT

LPRINT CHR$(13); "ANG.REALE", "ANG.LETTO", "ERR.DA COMP.",

LPRINT "ANG.CORRETTO", "ERRORE"

10 READ A, Y

IF Y = 1000 THEN 25

X = A + W

F(1) = 2 * PG * F / 360

X(1) = 2 * PG * X / 360

E(1) = E * SIN(X(1) - F(1))

Z = X + E(1)

D = ABS(Y - Z)

S = S + D

K = Y - Z

H = H + K

IF A$ = "N" THEN 5

LPRINT Y, A, Y - A, Z, K

5

DATA 325,360,332,367.6,339,374.3,343,377.8,352,384.7,357,388,361

DATA 392.8,5.5,35.55,9.5,38.5,20,44.9,16,41.9,28,49.7,34,53.8,42

DATA 57.5,44,59.5,49,63.1,55,66,62,70,67,73.6,73,77.6,82,81.5,87

DATA 85.4,91,88,95,91.3,101.5,95.9,107,98,112,102.1,101.5,95.9

DATA 117,106.8,121,110,127,115.9,131,121.7,139

DATA 127.7,145,134.2,152,140.2,158,148,164,155.8,170,161.7,175

DATA 169.14,179,172.7,185,180.9,189,188.2,195,195.3,199,201.9

DATA 203,209,208,213.7,212,217.7,213,220,218,228,224,233.5,228

DATA 240.3,235,247.8,239,252.6,242,258.7,247,263.6,253,270,260

DATA 280.4,266,286.7,271,293.7,275,299.6,282,310.7,292,319.2,299

DATA 328.3,307,337.7,314,342,323,345.8,330,362.9,339,370.9

DATA 1000,1000

GOTO 10

25 IF A$ = "N" THEN 20

LPRINT CHR$(13); " ERR.ABS"; S, "ERR.TOT"; H

20 PRINT " ERR.ABS"; S, CHR$(13); "ERR.TOT"; H

END

Tab2: programma per ricavare i numeri da inserire nella eprom

Sostituire i numeri che seguono le istruzioni DATA coi gradi ricavati dal giro di bussola.Ogni angolo da correggere sarà seguito dal relativo angolo corretto. Nel caso le due misure fossero a cavallo dei 360°, occorrerà aggiungere 360 al numero minore (per esempio 360, 5 diventerà 360, 365). Ora fate girare il programma ponendo “errore max=0” e trovate per quale valore di sfasamento si avrà l’errore totale minore. Inserite ora lo sfasamento ricavato ed “errore max=5” e trovate per quale valore di angolo di errore si avrà l’errore totale minore. Ripetere la procedura trovando l’errore massimo ottimale. Siccome i dati ricavati dal giro di bussola avranno inevitabili imprecisioni, occorrerà provare a variare i tre parametri ricavati di un grado o due fino ad ottenere i valori d’errore più bassi possibile.

Inserite ora nella eprom i tre valori. E precisamente lo sfasamento andrà dalla locazione 3723 alla 3727, l’angolo d’errore massimo dalla 372D alla 3731 e l’errore massimo dalla 3732 alla 3736.