File: MESXDL.FC of Tape: Various/ETH/fc-files
(.FC,.FO Focal format converted to 'WRITE' listing)
C-MESDLT.FC AUG-76 01.01 C MESS HAND GESTEUERT 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 MESS ROUTINE 01.10 S K=KI+J*DK*1E-7;S H=1/K;S HJ=H*1E-5;D 10 01.25 S Z=FIOP(-4095);S Z=FADC(TP) 01.26 F I=1,10;S Z=FELD(S) 01.27 S !=-1 01.30 S Z=FELD(S) 01.32 I (!)1.32 01.33 S HS=FELD(R) 01.34 I (FITR((HJ-HS)/PX))1.27,1.38;T %3.1,(HJ-HS)*1E5 01.38 F ST=0,1;D 3 01.60 S J=J+1;I (J-N)1.1 01.70 S N=J 01.76 F I=0,35;T "-" 01.78 F J=1,6;S Z=FOUT(MD(J)) 01.80 S LG=2.01;S ST=0 01.81 S Z=FOUT(140) 01.82 O C 01.83 D 30.92 01.84 O I TTY:,E 01.85 Q 01.90 T !!"SET FIELD AT:",%6,H,"G " 02.01 C PRIMER 02.10 D 6 02.14 A !,"HF OR DK(1E-7/G) ",DK," THEN ";I (DK-100)2.18;S HE=DK 02.17 S DK=1E7*(HA-HE)/(HA*HE*N);T "DK="%4.03,DK,"(1E-7/G)";G 2.2 02.18 S HE=FITR(HA/(1+N*DK*1E-7*HA));T "HF=",%5,HE 02.20 S HF=HE/1E4 02.25 S H=HA 02.31 S PR=FITR(DK*1E-7*HE*HE);T !"SW.SPEED =",%2,PR/4," G/S" 02.32 S PX=PR*1E-5/(4*4);S VI=52*PR/(4*1472);T " V(IND) <=",%5.02,VI," V" 02.33 T !"SWEEP TIME",%4,(HA-HE)*4/PR," SEC" 02.34 I (1-PX*1E5)2.35;S PX=1E-5 02.35 T ">>> OK? THEN: GO"!;S LG=2.4;Q 02.40 D 4;D 13.8;L N FOCCOM.ZE;S Z=FX(0,500) 02.41 S H=HA+100;D 14;D 1.9 02.42 D 27 02.43 T !"RUN BEGINS, START SWEEP ";T "" 02.60 G 29.05 03.01 C DVM DOUBLE MEAS 03.30 S Z=FADC(S);S #=-1 03.35 I (-ST)3.39;D 16;G 3.4 03.39 D 11 03.40 I (#)3.4;S Z=FADC(R);S V=Z/10^(4-TP) 03.41 I (V)3.5,3.45,3.5 03.45 T "0";S V=0 03.50 S IP=J+256*(ST-FITR(J/256)) 03.55 S Z=FCOM(IP,V-5);D 13.6 03.56 O R O 03.57 T %5.03,FCOM(IP),! 03.58 O O TTY:,E 03.60 S Z=FIOP(48);D 7 04.01 C EICHUNG KAPAZITAET 04.05 S Z=FADC(TP) 04.09 A !"EICHUNG IN 1E-03 PF ",EI 04.10 T !"UPPER C ";D 27;S Z=FIOP(-4095);D 3.3;D 3.4;S EO=V 04.20 T !"LOWER C ";D 27;D 3.3;D 3.4 04.21 T %5.04,EO,V 04.25 S Z=8.859*KV*1000/(KL*PF*PF) 04.30 S ES=-EI*Z/(EO-V);T !%5.04,ES," ANGSTROEM/V" 04.35 A !"EICHSTROM IN MA ",EI 04.40 T !"0 MA ";D 27;S Z=FIOP(48);D 3.3;D 3.4;S EO=V 04.45 T !"EI MA ";D 27;D 3.3;D 3.4 04.50 S Z=10*FELD(Q);T %5.04,EO,V,Z 04.55 S ES(1)=-EI*Z*35.106*FSIN(HR*PI/180)/FABS(EO-V);T !,%5.04,ES(1)," DYN*CM/V" 05.01 C FOUR 05.10 A ?SI?,?SF?;S X=(SF-SI)/16;I (X-FITR(X)-.5)5.14;S X=X+.5 05.14 S SS=FITR(X)/16;S S2=SI+SS*128;S SF=SI+SS*256 05.16 T %3,"'"SS*32"'" 05.20 D 13.9;D 12 05.30 S Z=FOUR(SI,SS);S ZM=FX(1,760) 06.01 C MESSPARAMETER 06.05 A !!"RUN ",D 06.10 S MD(5)=176+FITR(D/10);S MD(6)=1936+D-10*MD(5) 06.40 A !"HI ",HA;S KI=1/HA;S HI=HA/1E4 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) 06.60 D 25;T !"TM = "%5.3,TM 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 MULT DATA WITH SQ.ROOT OF H 08.10 D 13.8;S KI=1/HA;S HN=FSQT(HA) 08.20 F I=0,N-1;S K=KI+I*DK*1E-7;S H=1/K;D 8.3 08.25 R 08.30 S Z=FCOM(I,FCOM(I)*FSQT(H)/HN);D 13.5 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 12.01 C FOURSCALE 12.10 S X=194;S A=SI/100;S Y=FITR(A) 12.12 I (-Y)12.14;S Z=FDIS(X+2,-96);G 12.16 12.14 S L=12.2;G 12.52 12.16 D 12.8;I (-Y)12.18;S Z=FDIS(X+1,-96);G 12.8 12.18 D 12.9;G 12.8 12.20 S X=201;S A=S2/100;S Y=FITR(A);S L=12.3;G 12.5 12.30 S X=212;S A=SF/100;S Y=FITR(A);S L=12.34;G 12.5 12.34 R 12.50 I (-Y)12.52,12.54 12.52 D 12.9;G 12.56 12.54 S Z=FDIS(X,-96);S X=X+1 12.56 D 12.8;D 12.9;D 12.8;D 12.9;G L 12.80 S A=(A-Y)*10+1E-4;S Y=FITR(A) 12.90 S Z=FDIS(X,Y-80);S X=X+1 12.92 G 12.2 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(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 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 18.01 C ALIAS RECHNER 18.10 S I=0;T "FREQS IN TESLA AND DK IN 1E-3 /G" 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 II=I-1;T !;S NM=DK 18.20 T !"DK";A NM;I (-NM)18.3,18.8 18.30 S NX=500/NM;F I=1,II;S X=A(I);D 19;S B(I)=B(I)*55/NX 18.40 F I=512,567;S Z=FCOM(I,160) 18.50 F I=1,II;S J=FITR(B(I));S Z=FCOM(J+512,FCOM(512+J)+16+I) 18.60 F I=0,3;T :10"'";F J=0,13;S Z=FOUT(FCOM(J+512+14*I)) 18.70 T "'",%4.02,NX;G 18.2 18.80 S DK=500/NX;T !" DK IS NOW",%5.03,DK,"E-3"! 19.01 C ALIAS SR 19.10 S M=0 19.20 S X=X-NX;I (X)19.4,19.4;S M=M+1;G 19.2 19.40 S M=M/2;S M=FITR(M)-M 19.50 I (M)19.6;S B(I)=NX+X;R 19.60 S B(I)=-X 22.01 C UNSHIFT 22.05 S SH=0 22.10 F I=0,N-1;S SH=SH+FCOM(I+ST*256) 22.15 S SH=SH/N 22.30 F I=0,N-1;S Z=FCOM(I+ST*256,FCOM(I+ST*256)-SH);D 13.6 22.40 T %6.04,!,"SHIFT ";S Z=FOUT(MD(4));T "=",SH 22.50 S SH(ST)=SH 23.01 C CALC LEGENDRE 23.05 S A0=0;S A1=0;S A2=0;S A3=0 23.10 F IX=0,N-1;D 24 23.20 T !,%6.04,"P0=",A0,"P1=",A1*3,"P2=",A2*5,"P3=",A3*7 24.01 C SUB OF 23 24.10 S UN=FCOM(IX)/N 24.20 S H2=IX/N 24.30 S L1=2*H2-1 24.40 S L2=6*H2^2-6*H2+1 24.50 S L3=20*H2^3-30*H2^2+12*H2-1 24.60 S A0=A0+UN 24.70 S A1=A1+L1*UN 24.80 S A2=A2+L2*UN 24.90 S A3=A3+L3*UN 25.01 C TEMPERATUR MESSUNG 25.10 S Z=FIOP(3);S Z=FADC(TT);S Z=FADC(S);S #=-1 25.20 I (#)25.2;S X=FLOG(FADC(R)/.988) 25.30 S TS=-0.18714/X-0.79322+0.15219*X;S TS=1/TS;S TM=TS 25.40 D 11;C ?????????? 26.10 S Z=FIOP(-4095);S Z=FIOP(X);S Z=FADC(TT) 26.20 S Z=FADC(Q) 26.30 I (-FABS($-199))26.2;S $=2000;S Z=FIN() 27.05 S Z=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 Z=FIN();S $=2000;R 27.30 I (FABS(FIOP())),27.1;R 29.01 C STORE 29.05 S MD(4)=216;C DOUBLE FILE!! 29.20 O O STEUER 29.30 T !"30.4 O O DKA1:";D 1.78 29.35 T !"30.92 O I DKA1:";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.30 I (-FABS(MP))30.4;S MP=1 30.40 O O DKA1:WPBX02 30.45 F J=1,6;S Z=FOUT(MD(J)) 30.50 T %2,D,!,%4,N,! 30.55 F ST=0,1;D 30.6;D 30.7 30.57 S J=0;O O TTY:,E;G 1.1 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.92 O I DKA1:WPBX02 31.01 C MESAGE 31.02 L P FOUPIC 31.03 E 31.04 S $=2000;S HJ=0;S PX=0;S HS=0;S S=0;S R=0;S I=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 !"W#: ";S MD(1)=215;S MD(2)=FIN();S MD(3)=FIN();S MD(4)=196 31.10 S H=15E3;S TP=1;S TT=0;S LG=2.01 31.12 T !!"-K KL KLA KLAM KLAMM KLAMME KLAMMER!!!!! ";D 27 31.15 T !"-PAR: 1 & 2 : -TAU >=100MSEC ";D 27 31.20 T !"-TURN MUX AND INSTR. AMP. ON ";D 27 31.25 T !"-TURN FIELD MEASURING DEVICE ON ";D 27 31.30 T !"-INSTR. AMP. OFFSET TEST ";S X=2^11;D 26 31.33 T !"-MUX #1=TEMP INPUT TEST ";S X=2^0+2^1;D 26 31.35 T !"-MUX #5=DILA INPUT TEST ";S X=-4095;D 26 31.40 T !"-MUX #6=TORQ INPUT TEST ";S X=2^4+2^5;D 26 31.55 T !"-DVM: 'FAST' AND '10 V' ";D 27 31.62 A !!"-KRISTALLLAENGE IN CM ",KL 31.65 A !"-KRISTALLDURCHMESSER IN CM ",KV;S KV=KV*KV*PI*KL/4 31.66 T !"-KRISTALLVOLUMEN IN CCM ",%5.04,KV 31.70 R