File: DATHAL.FC of Tape: Various/ETH/fc2
(.FC,.FO Focal format converted to 'WRITE' listing)
C-DATA .FC SEP-75
01.01 C FOR HALLEFFECT AND MAGNETORESISTANCE
01.02 CREATED JUNE 1977
01.90 F I=1,6;S Z=FOUT(MD(I))
01.95 Q
03.01 C DATAFILE
03.02 T "FILE:";F I=1,6;S MD(I)=FIN()
03.04 O O STEUER;T !"3.1 O I SDA0:";D 1.9
03.05 T !"8.1 O O ";D 1.9
03.06 T !"G 3.1"!
03.07 O C
03.08 O I STEUER;Q
03.10 O I SDA0:MI1M13
03.11 S MD(1)=FIN();I (-FABS(MD(1)-220))3.15;F I=1,12;S Z=FIN()
03.12 S MD(1)=FIN()
03.15 F I=2,6;S MD(I)=FIN()
03.20 A D,N;D 13.8;F I=0,N-1;A X;S Z=FCOM(I,X);D 13.5
03.25 F I=N,255;S Z=FCOM(I,0);D 13.5
03.30 A X;I (X-20)3.35,3.4,3.35
03.35 T "FEHLER"!;D 3.8;Q
03.40 A DK,HR,HI,HF,IN,PS,KM,RT,TM,TV,MF,HM,Z,Z,Z,Z,Z,Z,Z,Z
03.80 O I TTY:,E
03.90 T " ";D 1.9;T " IN"!;Q
08.01 C STORE
08.05 D 1.9;A " OK",Z;I (Z-0YES)8.06,8.1,8.06
08.06 D 3.02;O O STEUER
08.07 T !"8.1 O O ";D 1.9
08.08 T !"G 8.1"!;O C
08.09 O I STEUER;Q
08.10 O O MROT1A
08.20 D 1.9;T %2,D,!,%4,N,!;F I=0,N-1;T %7.05,FCOM(I),!
08.30 T "20",!,%7.05,DK,!,HR,!,HI,!,HF,!,IN,!,PS,!,KM,!
08.40 T RT,!,TM,!,TV,!,MF,!,HM,!;F I=1,8;T 0,!
08.90 S Z=FOUT(140);O C
08.92 O I TTY:,E
08.95 D 1.9;T " OUT"!;Q
13.01 C DIS SWITCH
13.40 S Z=FDIS(0,0)
13.50 S Z=FX(0,500)
13.60 S Z=FX(1,760)
13.70 S Z=FDIS(A,FABS(FDIS(A)));S Z=FDIS(B,-FABS(FDIS(B)))
13.80 S A=4;S B=5;D 13.7
13.90 S A=5;S B=4;D 13.7
16.01 C PLOT
16.02 C WITH AXES AND TEXT: PA=0, ELSE PA=2
16.05 S PA=2;A ?PA?
16.10 S PF=4;I (FDIS(5))16.2;S PF=5
16.20 F I=2,19;S Z=FDIS(I,-FABS(FDIS(I)))
16.70 S X=PF+PA;D 16.9;S Z=FDIS(21,1)
16.80 D 16.9;S X=PF;D 16.9;S $=1024;Q
16.90 S Z=FDIS(X,-FDIS(X))
17.01 C DATA VON SAMMELFILE ('MERGED')
17.15 A " RUN",D;S MD(4)=176+FITR(D/10);S MD(5)=176+(D/10-FITR(D/10))*10
17.17 O I DKA1:M32D
17.20 S Z=FIN();I (Z-220)17.2,17.3,17.2
17.30 F I=1,5;S W=FIN()
17.40 S Y=FIN();F I=1,6;S Z=FIN()
17.50 I (FITR(FABS(MD(4)-W)+FABS(MD(5)-Y)+.1))17.6,17.8,17.6
17.60 A D,D,N;F I=0,N+19;A Z
17.70 G 17.2
17.75 A D
17.80 A D;D 3.2;D 3.25;D 3.3
17.90 O I TTY:,E
20.01 C CALC HALL COEFF IN [1E-10 M^3/AS]
20.10 A !"THICKNESS [M] ",X
20.20 F I=1,N-1;D 20.5;D 20.6
20.30 S Z=FCOM(0,0);D 13.5
20.40 Q
20.50 S Z=FCOM(I,FCOM(I)*X*1E8/(I*DK))
20.60 D 13.5
21.01 C CALC MAGNETO
21.20 S M0=FCOM()
21.30 F I=0,N-1;D 21.5;D 21.6
21.40 Q
21.50 S Z=FCOM(I,(FCOM(I)-M0)/M0)
21.60 D 13.5
23.01 C SUB LEGENDRE
23.10 A ?P0 P1 P2 P3?
23.15 D 13.8
23.20 F I=0,N-1;S J=I/N;D 23.3;D 23.4;D 23.5
23.25 Q
23.30 S Z3=20*J*J*J-30*J*J+12*J-1
23.40 S Z1=2*J-1;S Z2=6*J*J-6*J+1
23.50 S Z=FCOM(I,FCOM(I)-P0-P1*Z1-P2*Z2-P3*Z3);D 13.5