File: MTRE.FC of Tape: Various/ETH/fc4
(.FC,.FO Focal format converted to 'WRITE' listing)
C-OS/8 FOCAL, 1972 01.02 I (LG)LG,1.03,LG 01.03 D 31;G 2.01 01.04 C STRICT=0 TORQUE=1 01.05 C FAST MESS 01.10 S Z=KI+J*DK*1E-3;S H=1/Z;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((H-Z)/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.72 F I=0,35;T "- 01.74 S TV=FSQT(TQ/(N-1))*1.25 01.76 S TM=(TM-TE)*1.25+TI 01.77 T " TM= "%5.03,TM,"[K] +/- ",TV 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 02.31 S PR=FITR(DK*10*HF*HF)/1E4;T !"SW.SPEED =",%2,PR*1E4/4,"[G/S]";C 4 SEC LOOP 02.32 T " V(IND) <=",%5.02,52*PR/(4*.1472),"[V]" 02.33 S X=(HI-HF)*4/PR;T !"SWEEP TIME",%3,X/60," [MIN]",%2,X-FITR(X/60)*60," [SEC]" 02.34 I (1E-4-PR)2.35;S PR=1E-4 02.35 A ">>> ONLY TORQUE=1",ST 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 4;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 TM=0;S TQ=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 EN CHAMP ZERO! " 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.04,!" TS=",TS," VA=",VA," VE=",VE," VD=",VD," SET EXT! SET CW! " 05.70 S TI=TS;S TE=VE 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.4;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.10 D 25 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 TQ=TQ+(VE-TM)^2*J/(J+1) 23.80 S TM=TM+(VE-TM)/(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 26.01 C TEST 26.10 S Z=FIOP(-4095);S Z=FIOP(Y);S Z=FADC(TT) 26.20 S Z=FADC(Q) 26.30 I (-FABS($-199))26.2;S $=2000;S Z=FIN() 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:PD1T01 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:PD1T01 30.93 O I TTY:,E 30.95 I (-ST)30.99;S ST=1;G 29.05 30.99 Q 31.01 C INIT 31.02 L P FOUPIC 31.03 E 31.04 S $=2000;S U=0;S V=0;S X=0;S Y=0;S Z=0;S H=0;S PR=0;S I=0 31.05 S DK=0;S TS=0;S TQ=0;S TM=0;S J=0 31.08 T !"###: ";S MD(1)=FIN();S MD(2)=FIN();S MD(3)=FIN();S MD(4)=196 31.10 S TP=1;S TT=0;S LG=2.01 31.12 T !!"-KLAMM KLAMME KLAMMER !!!!! ";D 27 31.15 T !"-PAR: 1 & 2 : -TAU >=100MSEC ";D 27 31.20 T !"-TURN INSTR. AMP.(GAIN 2) ON ";D 27 31.25 T !"-TURN FIELD MEASURING DEVICE ON ";D 27 31.30 T !"-MUX #11 =INST.AMP.OFFS .TEST ";S Y=2^11;D 26 31.33 T !"-MUX #0:1=AL-BR INPUT TEST ";S Y=2^0+2^1;D 26 31.34 T !"-MUX #6 =SRTIO3 EXP INPUT TEST ";S Y=2^6;D 26 31.36 T !"-MUX #6:7=SRTIO3 DIF INPUT TEST ";S Y=2^6+2^7;D 26 31.37 A !"-TEMP COEFF " ?XX(0)?,?XX(1)?,?XX(2)?,"TEST VAL ",X;S X=FLOG(X);D 25.30;T "TS="%4.03,TS 31.38 T !"-MUX #0 =DILA INPUT TEST ";S Y=0;D 26 31.40 T !"-MUX #4:5=TORQ INPUT TEST, COIL INT ";S Y=2^4+2^5 31.41 T !" -UPPER C ";D 27;D 26.1;D 26.2;S V=Z 31.42 T !" -LOWER C ";D 27;D 26.1;D 26.2 31.43 S SG=FSGN(V-Z);S TT=1 31.62 A !"-KRISTALLLAENGE IN CM ",KL 31.65 A !"-KRISTALLDURCHMESSER IN CM ",KD 31.66 A !"-KRISTALLVOLUMEN IN CCM ",KV 31.70 R