REM BASIC-Programm Kupferspule in Brückenschaltung
REM 1 Messpunkt pro Stunde, Ausgabe in Tagen
Rem beste Variante: Sinus für Elektronen und Protonen
Defdbl a-h,k-z
Defint i,j
N1=82: N2=94: Elem=29: REM Potenz Grundwellen E, P; Kupfer
stime =-350: phas1=1440*1: phas2=0: REM Phasenverschiebungen in Minuten
schritt=4: xf=0.6: ymax=16: Null=5: REM Daten für Grafik
clicht=2.99793E+11 *60 : REM Lichtgeschwindigkeit in mm/min
lambdae=2.42611E-9: REM Comptonwellenlänge Elek. in mm
lambdap=1.32144E-12: REM Comptonwellenlänge Prot. in mm
P1=lambdae/clicht*Elem*2^N1: REM Hauptperiode Elektronen in Min.
P2=lambdap/clicht*Elem*2^N2: REM Hauptperiode Protonen in Min.
PT=24*60 : zpi=8*ATN(1): REM Tagesrhythmus Temperatur in Min.
s5=sqr(5): ff=s5: A0=ymax/2: REM s5=2.236; ff= 2 bis 2.618034
WE=zpi/P1: WP=zpi/P2: WT=zpi/PT: REM Frequenzen für E, P, und T
WE1=WE: WE3=WE1*4: WE5=WE1*16: WE7=WE1*64: WE0=WE1/4
WP1=WP: WP3=WP1*4: WP5=WP1*16: WP7=WP1*64: WP0=WP1/4
AE0=A0/2: AE1=AE0/ff: AE2=AE1/ff: AE3=AE2/ff: AE4=AE3/ff: REM Amplitude E
AP0=A0: AP1=AP0/ff: AP2=AP1/ff: AP3=AP2/ff: AP4=AP3/ff: REM Amplitude P
ATemp=(AP2+AP3)/2: REM Amplitude T
Screen 12: xmax=P2*xf: CLS: Window (0,ymax)-(xmax,0)
For x=xanf to xmax Step schritt
yT = Null + ATemp*sin(WT*(x+stime)): Pset (x,yT-3.5),12
xx=x+phas1
y0 = Null - AE0*sin(WE0*(xx-5*P1/2)): Pset (x,y0),3: REM Ne=84
y1 = Null - AE1*sin(WE1*xx): Pset (x,y1),3: REM Ne=82
y2 = Null + AE2*sin(WE3*xx): Pset (x,y2),3: REM Ne=80
y4 = Null + AE3*sin(WE5*xx): Pset (x,y4),3: REM Ne=78
y6 = Null + AE4*sin(WE7*xx): Pset (x,y6),3: REM Ne=76
xx=x+phas2
yP0 = Null - AP0*sin(WP0*(xx-P2/2)): Pset (x,yP0),14: REM Np=96
yP1 = Null - AP1*sin(WP1*xx): Pset (x,yP1),14: REM Np=94
yP2 = Null + AP2*sin(WP3*xx): Pset (x,yP2),14: REM Np=92
yP4 = Null + AP3*sin(WP5*xx): Pset (x,yP4),14: REM Np=90
yP6 = Null + AP4*sin(WP7*xx): Pset (x,yP6),14: REM Np=88
sumE=y0+y1+y2+y4+y6: sumP=yP0+yP1+yP2+yP4+yP6
sum = (yT+sumE)/6+9.8: Pset (x,sum),3
sum = (yT+sumP)/6+7.8: Pset (x,sum),14
sum = (yT+sumE+sumP)/7+1: Pset (x,sum),15: REM Gesamtsumme
Next x
Line (xanf,Null)-(xmax,Null),15
x0=320+stime+1440*1: REM 1 Tag=1440 Minuten
For i=0 to 15
For j=1 to 24
x=x0+(i*24+j)*60: READ Mess
Mess=Mess/8+5.5: REM Ausgabe Messkurve
if (j>12 or i>0) then Pset (x,Null+Mess),15
Next j
line (x-1380,Null+2)-(x-1380,Null+11),12
Next i
END
Data 0,0,0,0,0,0,0,0,0,0,0,0: REM Eichlinie zum Anfangswert
DATA -0.3,-0.8,-1.8,-2.5,-3.0,-3.1,-3.5,-4.2,-4.3,-4.1,-4.0,-4.0
DATA -3.8,-3.1,-2.9,-2.5,-2.0,-1.5,-1.2,-1.0,-0.3,-0.8,-1.0,-1.3
Data -1.5,-2.0,-2.1,-2.2,-2.5,-2.8,-2.5,-2.5,-3.1,-4.0,-4.8,-4.9
DATA -4.8,-4.5,-4.0,-3.7,-3.1,-2.8,-2.5,-2.2,-2.2,-2.3,-2.5,-2.35
Data -4.0,-4.5,-4.8,-5.0,-4.0,-3.4,-3.0,-4.1,-4.8,-4.8,-4.6,-4.4
DATA -4.3,-4.0,-3.8,-3.8,-3.4,-3.3,-3.2,-3.1,-2.9,-2.8,-3.2,-3.6
Data -4.0,-4.2,-4.8,-5.5,-6.1,-6.6,-7.3,-7.8,-8.4,-8.8,-9.5,-10.0
DATA -10.1,-10.2,-9.8,-9.2,-8.4,-7.9,-7.4,-6.5,-5.7,-5.6,-5.6,-5.5
Data -5.2,-6.8,-7.4,-8.3,-8.9,-9.0,-9.0,-9.1,-9.0,-9.0,-8.8,-8.6
DATA -9.0,-9.4,-9.3,-9.0,-8.5,-7.8,-7.4,-6.9,-6.6,-6.3,-6.2,-5.8
Data -5.9,-6.2,-6.0,-5.8,-5.7,-5.7,-5.9,-6.1,-6.5,-6.6,-6.8,-6.7
DATA -6.3,-6.1,-5.6,-5.1,-4.5,-4.0,-3.7,-3.4,-3.2,-3.5,-3.4,-3.5
Data -3.4,-3.5,-3.6,-3.7,-4.0,-4.1,-4.4,-4.6,-4.9,-5.3,-5.1,-5.0
DATA -4.8,-4.5,-4.2,-3.8,-3.4,-3.0,-2.6,-2.0,-1.2,-0.8,-1.0,-1.3
Data -1.6,-1.6,-2.0,-2.5,-2.8,-3.4,-3.9,-4.5,-5.1,-5.3,-5.2,-4.9
DATA -4.4,-4.0,-3.4,-2.8,-2.2,-1.6,-1.0,-0.5, 0 , 0.3, 0.4, 0
Data -0.2,-0.3,-0.1, 0.1, 0.6, 0.4,-0.1,-0.5,-0.9,-1.5,-1.8,-1.8
DATA -1.8,-1.8,-1.8,-1.7,-1.5,-1.4,-1.3,-1.1,-1.0,-1.0,-1.3,-1.6
Data -1.8,-1.9,-2.2,-2.7,-2.9,-3.0,-3.1,-3.3,-3.5,-3.6,-3.7,-3.6
DATA -3.6,-3.3,-3.0,-2.6,-2.4,-2.1,-1.9,-1.7,-1.5,-1.3,-1.4,-1.4
Data -1.6,-2.2,-3.9,-5.0,-5.8,-6.0,-6.3,-6.6,-6.8,-6.9,-6.8,-6.9
DATA -6.8,-6.6,-6.4,-6.1,-5.9,-5.6,-5.4,-5.1,-4.8,-4.3,-3.9,-3.8
Data -3.6,-3.5,-3.7,-3.9,-4.2,-4.6,-4.9,-5.3,-5.5,-5.7,-6.0,-6.2
DATA -6.2,-6.1,-5.9,-5.6,-5.3,-4.9,-4.5,-4.0,-3.6,-3.3,-3.1,-3.3
Data -3.7,-4.3,-5.3,-5.9,-6.1,-6.2,-6.2,-6.3,-6.1,-5.7,-5.0,-4.4
DATA -3.5,-3.1,-2.7,-2.4,-2.1,-1.9,-1.8,-1.7,-1.5,-1.5,-1.6,-1.7
Data -2.0,-2.5,-3.1,-3.3,-3.2,-4.0,-3.5,-2.6,-1.8,-1.0,-0.3, 0.3
DATA 0.8, 1.1, 1.0, 1.0, 0.9, 0.8, 0.8, 0.7, 0.5, 0.3, 0 ,-0.4
Data -0.8,-1.5,-2.4,-3.5,-4.3,-4.9,-5.5,-5.8,-5.6,-5.0,-4.1,-3.4
DATA -2.7,-2.0,-1.4,-0.8,-0.1, 0.3, 0.7, 1.1, 1.6, 1.4, 1.1, 0.7
Data -0.1,-0.7,-1.3,-1.8,-0.6,-0.9,-1.2,-1.5,-1.5,-1.8,-0.3,-0.1