File: MDT2.FC of Tape: Various/ETH/prog1

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

---

C-MDT2  .FC FEB-72

01.02 I (LG)LG,1.03,LG
01.03 L R INIT2
01.04 C                             STRICT=0       TORQUE=1
01.05 C FAST MESS
01.10 S Z=KI+J*DK*1E-3;S H=FITR(1E4/Z+.5)/1E4;D 23
01.25 S Z=FADC(TP)
01.26 F I=1,10;S Z=FELD(ST)
01.27 S !=-1
01.30 S Z=FELD(ST)
01.32 I (!)1.32
01.33 S Z=FELD(R)*10
01.34 I (FITR(2*(1/Z-1/H)/PR))1.27,1.35;T %3.1,(H-Z)*1E4;G 1.27
01.35 I (-ST)1.5
01.40 D 3;S ST=1;D 3;S ST=0;G 1.6
01.50 D 3
01.60 S J=J+1;I (J-N)1.1
01.70 S N=J
01.71 S VV=FSQT(VV/(N-1));S PV=FSQT(PV/(N-1))
01.72 T !" VM="%7.04,VM," [V] +/-",VV," PM=",PM," [TORR] +/-",PV
01.73 A !"T1          ",X,"P1          ",Y,!"T2          ",V,"P2          ",Z
01.74 S Z=(V-X)/(Z-Y)
01.75 S TM=X+(PM-Y)*Z;S PV=PV*Z;S TV=VV*1.25
01.76 T !" TM="%7.04,TM," [K] +/-",TV," EXP +/-",PV," BARA"
01.77 T !;F I=1,80;T "-"
01.78 F J=1,6;S Z=FOUT(MD(J))
01.80 S LG=2.01;G 29.05
01.90 T !!"SET FIELD AT:",%6.04,H,"[T],SET DVM FAST!          "

02.01 C PRIMER
02.05 S LG=2.1
02.10 D 6
02.14 A !,"DK[1E-3/T]       ",DK;I (-FABS(DK))2.18;A "HF[T]         ",HF
02.17 S DK=1E3*(HI-HF)/(HI*HF*N);T !"DK="%4.03,DK,"[1E-3/T]";G 2.25
02.18 S HF=HI/(1+N*DK*1E-3*HI);T "HF=",%6.04,HF,"[T]"
02.25 S H=HI;S LG=2.30
02.30 A !"PRECISION OF DK IN % (MAX 12%)",PR;S PR=DK*PR*1E-3/100;C 4 SEC LOOP
02.31 S Z=2*PR*HI*HI;T !"1/H-SWEEP:  INITIAL SWEEP SPEED =",%2,Z*1E4,"[G/S]"
02.32 T  "   V(IND)  <=",%5.02,52*Z/.1472,"[V]"
02.33 S X=N*DK*1E-3/(2*PR);T !"MIN SWEEP TIME",%3,X/60," [MIN]",%2,X-FITR(X/60)*60," [SEC]"
02.35 A ">>> ONLY TORQUE=1",ST
02.36 D 4
02.37 S LG=2.37;D 5;S LG=2.38
02.38 D 23;D 9.1;I (-FABS($-199))2.38;S X=FIN();S $=2000
02.40 D 13.8;L N FOCCOM.ZE;S Z=FX(0,500)
02.41 D 23;I (.0002-FABS(DP))2.41
02.42 S VM=0;S VV=0;S PM=0; S PV=0;S H=HI+.01;D 16;D 1.9;D 27
02.50 T !"RUN BEGINS, START SWEEP          ";T ""
02.60 S J=0;G 1.1

03.01 C DVM DOUBLE MEAS
03.10 I (ST),3.3;S Z=FIOP(2^4+2^5)
03.30 S #=-1;S Z=FADC(ST)
03.39 D 10
03.40 I (#)3.4;S Z=FADC(R);S V=Z/1000;C TP!!
03.41 I (-FABS(V))3.45;T "0"
03.45 S V=V-6
03.47 I (ST-1)3.5;S V=V*(KI*H)
03.50 S Z=FCOM(J,V);S Z=FX(FITR(J/256),500)
03.60 D 7

04.01 CALIBRATE
04.03 I (-ST)4.35
04.05 S Z=FADC(TT)
04.09 A !"EICHUNG IN 1E-03 PF        ",Y
04.10 T !"UPPER C          ";D 27;S Z=FIOP(-4095);S V=FADC(Q)*1E-4
04.20 T !"LOWER C          ";D 27;S Z=FADC(Q)*1E-4
04.21 T %5.04,V,Z
04.25 S X=8.859*KD^2*PI*1000/(4*PF*PF)
04.30 S ES=Y*X/(Z-V);T !%5.04,ES,"[ANGSTROEM/V]"
04.35 A !"SHUNT NUMBER          ",Y
04.36 S Z=FITR((Y-1)/3);S X=Y-3*Z
04.37 I (X-3)4.38;S X=5
04.38 S Y=X*10^(Z+1)
04.39 T "   R-SHUNT = ",%6,Y," [OHM]";S Y=Y*5.19;C GAIN 2
04.40 A !"COIL NUMBER 1,2       ",Z
04.45 S V=12.63;S X=85;I (1-Z)4.5;S V=37.55;S X=0
04.50 S X=V*FABS(FSIN((HR-X)*PI/180))*HI*1E-4;C CM^2
04.55 S ES(1)=SG*1E7*X/Y;T !,%5.04,ES(1),"[NM/V*10^-7]"

05.01 C CONTROLLER INIT
05.02 T !"TAQUINER LE FRIGO!"
05.05 D 9.1
05.10 D 23;S DS=VE
05.30 S DI=VD
05.40 S Z=FIOP(-4095);S Z=FDAC(51.2*VD)
05.50 I (-FABS($-199))5.05;S $=2000;S Z=FIN()
05.60 T %6.03,!" PS=",PS," VA=",VA," VE=",VE," VD=",VD,"    SET EXT! SET CW!       "

06.01 C PARAMS
06.05 A !!"RUN              ",R
06.10 S MD(5)=176+FITR(R/10);S MD(6)=1936+R-10*MD(5)
06.40 A !"HI[T]            ",HI;S KI=1/HI
06.50 A !"N                ",N,"HR            ",HR
06.55 A !"DILA: PS         ",PS,"PT            ",PT,"PF            ",PF
06.57 A !"TORQ: PS         ",PS(1),"PT            ",PT(1),"PF            ",PF(1)

07.01 C CHECKS
07.10 I (-FABS($-211))7.2;S Z=FIN();D 7.9;S LG=2.36;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";D 7.9;S LG=1.1;Q
07.90 T !"BACK UP          "

08.01 C DATA*SQRT(H/HI)
08.10 D 13.8;S KI=1/HI;S Y=FSQT(HI)
08.20 F I=0,N-1;S Z=KI+I*DK*1E-7;S H=1/Z;D 8.3
08.25 R
08.30 S Z=FCOM(I,FCOM(I)*FSQT(H)/Y);D 13.5

09.10 S Z=FELD(ST);S H=FELD(R)*10;D 16
09.20 D 25;G 9.1

10.01 C DISPLAY J
10.10 S Z=J/100;F U=137,139;D 11.2

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

13.01 C DIS SWITCH
13.40 S Z=FDIS(0,0)
13.50 S Z=FX(0,500)
13.60 S Z=FX(ST,500)
13.70 S Z=FDIS(Z,FABS(FDIS(Z)));S Z=FDIS(Y,-FABS(FDIS(Y)))
13.80 S Z=4;S Y=5;D 13.7
13.90 S Z=5;S Y=4;D 13.7

16.01 C DISPLAY H
16.10 S Z=H;F U=146,147;D 11.2
16.20 F U=149,151;D 11.2

18.01 C ALIAS
18.10 S I=0;T "FREQS IN [T] AND DK IN [1E-3/T]"
18.12 S I=I+1;T !"FREQ",%2,I,:10;A A(I);I (A(I))18.12,18.15,18.12
18.15 S U=I-1;T !
18.20 A !"DK",DK;I (-DK)18.25,18.8
18.25 F I=512,567;S Z=FCOM(I,160)
18.30 S V=500/DK
18.50 F I=1,U;S X=A(I);D 19;S X=X*55/V;S Z=FCOM(X+512,FCOM(512+X)+16+I)
18.60 F I=1,4;T :I*14,"'"
18.65 T #,:14;F I=0,55;S Z=FOUT(FCOM(I+512))
18.70 T :50,"'",%4.02,V;G 18.2
18.80 S DK=500/V;T !"     DK IS NOW",%5.03,DK,"*1E-3[T]"!

19.01 C ALIAS SR
19.10 S Z=0
19.20 S X=X-V;I (X)19.4,19.4;S Z=Z+1;G 19.2
19.40 S Z=Z/2;S Z=FITR(Z)-Z
19.50 I (Z)19.6;S X=FITR(V+X);R
19.60 S X=FITR(-X)

23.01 C INTEGRATE DEVIATION
23.05 D 24
23.10 S Z=FIOP(-4095)
23.15 S Z=FADC(TP)
23.20 S Z=FIOP(2^6);S Z=FADC(ST);S #=-1;D 16
23.30 I (#)23.3;S VE=FADC(R)/1000;S V=VE-DS
23.32 S Z=FIOP(2^6+2^7);S Z=FADC(ST);S #=-1
23.34 I (#)23.34;S VD=FADC(R)/1000
23.35 S Z=FIOP(-4095)
23.36 I ((1-VD)*(4-VD))23.38;R
23.38 S DP=-V/10
23.40 S DI=DI-V/10;
23.45 S DV=DP+DI;C DI+DP:2-4
23.46 I (1-DV)23.47;S DV=2
23.47 I (DV-4)23.50;S DV=4
23.50 S Z=FDAC(51.2*DV)
23.70 S VV=VV+(VE-VM)^2*J/(J+1)
23.80 S VM=VM+(VE-VM)/(J+1)

24.01 C MEASURE P BARATRON
24.05 S Z=FIOP(-4095)
24.10 S Z=FIOP(2^6+2^9);S Z=FADC(TT);S Z=FADC(ST);S #=-1
24.15 I (#)24.15;S PS=FADC(R)/1000
24.20 S PV=PV+(PS-PM)^2*J/(J+1)
24.25 S PM=PM+(PS-PM)/(J+1)

25.01 C MEASURE T OXFORD AB
25.10 S Z=FIOP(3);S Z=FADC(TT);S Z=FADC(ST);S #=-1
25.20 I (#)25.2;S VA=FADC(R)/1000;S X=FLOG(VA)
25.30 S TS=XX(0)+XX(1)*X+XX(2)*X*X;S TS=1/TS
25.40 C-S TQ=TQ+(TS-TM)^2*J/(J+1)
25.50 C-S TM=TM+(TS-TM)/(J+1)
25.60 D 11

27.01 C WAIT
27.05 S X=FIOP();S X=0
27.10 I (10-X) 27.15;S X=X+1;G 27.2
27.15 T "";S X=0
27.20 I (-FABS($-199))27.3;S X=FIN();S $=2000;R
27.30 I (FABS(FIOP())),27.1;R

29.01 C STORE
29.05 S MD(4)=196+ST*16
29.20 O O STEUER
29.30 T !"30.4 O O RKB1:";D 1.78
29.35 T !"30.92 O I RKB1:";D 1.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 FALL THRU
30.30 S MP=0
30.40 O O RKB1:AL1T11
30.45 F J=1,6;S Z=FOUT(MD(J))
30.50 T %2,R,!,%4,N,!;F I=0,N-1;T %5.03,FCOM(I),!
30.60 T "20",!,%6.04,,DK,!,HR,!,HI,!,HF,!,PF(ST),!,PS(ST),!,PT(ST),!
30.70 T ST,!,TM,!,TV,!,SH(ST),!,MP,!,ES(ST),!,KL,!,KV,!,%5.03,,0,!,0,!,0,!,0,!,0,!
30.77 F I=1,8;T 0,!,0,!,0,!,0,!
30.80 S Z=FOUT(140)
30.90 O C
30.92 O I RKB1:AL1T11
30.93 O I TTY:,E
30.95 I (-ST)30.99;S ST=1;G 29.05
30.99 Q

---