File: MESHAL.FC of Tape: Various/ETH/fc2

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C-MESHAL.FC APR-77

01.01 C HALL AND MAGNETO PROG
01.02 I (LG),1.03,LG
01.03 D 31
01.60 S M=3;S Z=FELD(M);S Z=FELD(SH);S Z=FELD(H)

02.01 C PRIMER
02.05 S SH=1
02.10 D 6
02.11 S Z=FADC(TP);T !
02.17 S DK=(HF-HI)/N;T "DK="%4.03,DK," GAUSS"
02.20 S H=HI;D 1.6
02.33 T !">>>   TEMP OK ? ALL ON 'PDP'?";D 31.99
02.35 T !" M-RANGE=",%3,MF,"?",%6.03;D 31.99;T "..THEN: GO"!;S LG=2.4;Q
02.40 D 13.8;L N FOCCOM.ZE;S Z=FX(0,500)
02.41 D 4
02.43 T !"RUN BEGINS";S Z=FOUT(135)
02.44 S J=0;D 10;S Z=FIOP(-4095)
02.45 S TQ=0;S TM=0
02.50 S Z=FIOP(3);S Z=FADC(TT);S Z=FADC(S);S #=-1

03.01 C MAIN LOOP
03.10 S H=HI+J*DK
03.20 I (#)3.2;S Y=FADC(R);S X=Y/.99;S X=FLOG(FABS(X))
03.22 S TS=5.93377/X-2.33970+.24788*X;S TS=1/TS;D 11
03.23 S TQ=TQ+TS*TS;S TM=TM+TS
03.30 D 4
03.40 S V=0;F K=1,KM;D 25
03.45 S V=V*PS/(IN*HM*KM*5.15*10^(4-TP));D 2.5
03.50 S Z=FCOM(J,V-FCOM(J));S Z=FX(0,500);D 7
03.60 S J=J+1;D 10;I (J-N)3.1
03.63 I (HM-3)3.7
03.65 I (SH)3.7,3.7;S SH=-1;S H=HI;G 2.41
03.70 S N=J;S SH=1
03.72 S TM=TM/N;S TV=FSQT((TQ-N*TM*TM)/(N-1))
03.74 T %4.03,!"TM=",TM,"  TV=",TV,:24
03.76 F I=0,35;T "-"
03.77 S IP=0;D 24;S H=0;D 1.6
03.78 F J=1,6;S Z=FOUT(MD(J))
03.80 S LG=2.01;G 29.01

04.01 C SET FIELD
04.10 I (-M)4.2;S M=MF
04.20 S Z=FELD(M)
04.30 S M=0;D 14
04.40 I (FELD(R)*SH)4.6,4.6
04.50 S Z=FELD(H);G 4.95
04.60 S X=H;S H=0;S Z=FELD(H)
04.70 I (-FABS(FELD(R)))4.7
04.80 T !"SET FIELD ";S Z=FOUT(172-SH);D 31.99
04.90 S H=X;S Z=FELD(SH);S Z=FELD(H)
04.95 I (-FABS(FELD(R)*SH-H))4.95;R

05.01 C ROTATE; SET 3.30 D 5
05.10 S X=J*6+HR
05.20 T !"SET AT ANGLE          ",%3,X,%6.04
05.30 D 31.99

06.01 C PARAMETERS
06.03 S MD(4)=200
06.05 A !"RUN          ",D,"HALL=4,MAGR=2         ",HM
06.07 I (3-HM)6.1;S MD(4)=205
06.10 S MD(5)=176+FITR(D/10);S MD(6)=1936+D-10*MD(5)
06.20 T !;D 30.45
06.40 A !"H INITIAL [GAUSS]          ",HI,"H FINAL [GAUSS]          ",HF
06.50 A !"NUMBER OF POINTS          ",N,"RT TEMP [KOHM]          ",RT
06.60 A !"KEITHLEY SENS [MICRO VOLTS]          ",PS,"FIELD DIRECTION         ",HR
06.70 A !"MAGNET SPEED [1,2,3]          ",MF,"MEASURING CURRENT [AMPS]         ",IN
06.80 A !"NUMBER OF MEASUREMENTS PER FIELD POINT          ",KM

07.01 C CHECKS
07.10 I ($-211)7.2;S Z=FIN();D 7.9;S LG=2.5;Q
07.20 S Z=FIOP()-2048;I (-Z)7.3;R
07.30 I (Z-9)7.4;T "M";R
07.40 T "T";R
07.90 T !"BACKUP SWEEP";S TM=TM-TS;S TQ=TQ-TS*TS

10.01 C J IN DISPLAY
10.10 S A=J/100;F X1=137,139;D 11.2

11.01 C TS IN DISPLAY
11.10 S A=FABS(TS);S X1=127;D 11.2;S X1=129;D 11.2;S X1=130
11.15 D 11.2;S X1=131
11.20 S X=FITR(A);S Z=FDIS(X1,X-80);S A=10*(A-X)+1E-6

13.01 C DIS SWITCH
13.40 S Z=FDIS(0,0)
13.50 S Z=FX(0,500)
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

14.01 C H(REAL) TO H(BRUKER) / H IN GAUSS
14.10 D 16;S H=H/1000
14.20 I (H-20)14.4;I (H-22)14.6,14.8,14.8
14.40 S DH=.011*FATN(H)-1.789E-3*H+1.0831E-3*H*H
14.41 S DH=DH-4.798575E-5*H*H*H+6.266462E-7*H^4
14.42 G 14.9
14.60 S DH=-4.61032E-1+5.5322E-2*H-1.289E-3*H*H;G 14.9
14.80 S DH=8.1269E-1-6.64736E-2*H+1.6159E-3*H*H
14.90 S H=FITR(1000*(H+DH));R

16.01 C H IN DISPLAY
16.10 S A=H/1E4;F X1=146,147;D 11.2
16.20 F X1=149,151;D 11.2

20.01 C CALC HALL COEFF
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*1E-2/(I*DK))
20.60 D 13.5

21.01 C CALC MAGNETO
21.10 A !"THICKNESS [M]          ",X
21.20 A !"CONTACT DISTANCE [M]          ",Y,"SAMPLE WIDTH [M]         ",W
21.30 F I=1,N-1;D 21.5;D 21.6
21.40 S Z=FCOM(0,0);D 13.5;Q
21.50 S Z=FCOM(I,(FCOM(I)-FCOM(0))*Y*W/X/FCOM(0))
21.60 D 13.5

24.01 C SET DAC
24.10 S I=256-FITR(IP*68)
24.20 S Z=FDAC(I)
24.40 F I=0,200;S Z=FSIN(I)
24.50 S Z=FADC(S);S #=-1

25.01 C ACCUM VOLTS
25.10 S Z=FIOP(-4095)
25.20 S Z=FADC(TP)
25.30 S IP=IN
25.40 D 24
25.50 I (#)25.5;S V=V+FADC(R)
25.60 S IP=-IN
25.70 D 24
25.80 I (#)25.8;S V=V-FADC(R)

26.01 C TEMP CHECK
26.10 D 2.5;D 3.2;D 3.22
26.20 I (-FABS($-211))26.1;
26.30 S $=2000;S Z=FIN()

27.01 C TEST
27.10 S Z=FIOP(-4095);S Z=FIOP(X);S Z=FADC(TT)
27.20 S Z=FADC(Q)
27.30 I (-FABS($-211))27.2;S $=2000;S Z=FIN()
27.40 S Z=FIOP(-4095)

29.01 C STORE
29.20 O O STEUER
29.30 T !"30.4 O O DKA1:";D 3.78
29.35 T !"30.92 O I DKA1:";D 3.78
29.40 T !"G 29.9"
29.50 T !
29.60 O C
29.70 O I STEUER
29.80 Q
29.90 O I TTY:,E

30.01 C MORE STORE
30.40 O O DKA1:MI1H21
30.45 F J=1,6;S Z=FOUT(MD(J))
30.50 T %2,D,!,%4,N,!;F I=0,N-1;T %7.05,FCOM(I),!
30.60 T "20",!,%7.05,DK,!,HR,!,HI/1E4,!,HF/1E4,!,IN,!,PS,!,KM,!
30.70 T RT,!,TM,!,TV,!,MF,!,HM,!,0,!,0,!,0,!,0,!,0,!,0,!,0,!,0,!
30.80 S Z=FOUT(140)
30.90 O C
30.92 O I DKA1:MI1H21
30.93 O I TTY:,E
30.99 Q

31.01 C MESSAGE
31.02 L P FOUPIC
31.03 E
31.04 S $=2000;S RA=1.9735;S SH=1;S X=0;S Z=0;S A=0;S X1=0;S H=0
31.05 S K=0;S DK=0;S Y=0;S TS=0;S TQ=0;S TM=0;S R=0;S J=0;S V=0
31.08 T !"M#:          ";S MD(1)=205;S MD(2)=FIN();S MD(3)=FIN();S MD(4)=200
31.10 S H=0;S TP=0;S TT=0;S LG=2.01
31.20 T !"-INST.AMP. ON?          ";D 31.99
31.25 T !"-DAC #3 CONNECTED?          ";D 31.99
31.27 T !"-CURRENT SOURCE ON?             ";D 31.99
31.30 T !"-FAN OFF?                 ";D 31.99
31.35 T !"-MAGNET ON 'PDP' AND '+'?            ";D 31.99
31.37 T !"-KEITHLEY OFF LINE?           ";D 31.99
31.40 T !"-TEMP TEST #1           ";S X=3;D 27
31.45 T !"-TEMP TEST #2            ";
31.50 T !"-INST.AMP. TEST (RANGE #2):           ";S X=2^11;D 27
31.55 T !"-DVM: 'FAST' AND '10 V'           ";D 31.99
31.60 T !"-CURRENT TEST 1,2,3 AMP           "
31.70 R
31.99 T " ^";S Z=FIN()

---