File: CURVE.FC of Tape: Various/ETH/fc1

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

---

C-OS/8 FOCAL, 1972

01.01 C CURVE / RECONSTRUCTION BY INTERPOLATION OF DATA POINTS
01.02 C 21.5.74
01.03 C LETZTE AEND.: 5.8.75
01.04 C (FORMERLY IN PROG. "DATA")
01.05 C ROUTINE INTERPOLATES BETWEEN 64 POINTS IN FCOM(2)

02.01 C DIVERSE SR FOR OTHER GROUPS
02.02 Q
02.10 S A=0;F J=0,20;S A=A+SX(J)*<FCOM(I-J)+FCOM(I+1+J)>
02.20 S A=0;F J=0,20;S A=A+SX(J)*<FCOM(I-2*J)+FCOM(I+2*(J+1))>
02.30 S Z=FX(1,500)
02.40 S Z1=FX(0,500)

03.01 C GET DATA FROM FILE
03.02 C MODIFY 3.1
03.10 O I M23D05
03.20 A D,D,N;D 13.8;F I=0,N-1;A X;S Z=FCOM(I,X);D 2.4
03.25 F I=N,255;S Z=FCOM(I,0);D 2.4
03.80 O I TTY:,E

04.01 C RECONSTRUCTION GANZER DATENKURVEN
04.02 C FILENAME IN 3.1
04.10 D 3;D 6
04.20 S XI=0;D 17;S LG=4.4;G 8.11
04.40 S XI=64;D 17;S LG=4.5;G 8.12
04.50 S XI=128;D 17;S LG=4.6;G 8.13
04.60 S XI=192;D 17;S LG=4.7;G 8.14
04.70 T "FERTIG MIT D",%2,D
04.80 Q

06.01 C TRANSFER FCOM(0) TO FCOM(2)
06.10 F I=0,255;S Z=FCOM(I+512,FCOM(I))

07.01 C CURVE AUF SAMMELFILE (DATA)
07.02 C NAME IN 7.1
07.10 O O FIG5PT.WW
07.20 L N CURV1
07.22 T %7.03
07.25 D 7.9
07.30 L N CURV2
07.35 D 7.9
07.40 L N CURV3
07.45 D 7.9
07.50 L N CURV4
07.55 D 7.9
07.60 O C
07.70 O I TTY:,E
07.80 Q
07.90 F I=0,255;T FCOM(I),!

08.01 C STORE FILES
08.11 L N CURV1,E;G 8.2
08.12 L N CURV2,E;G 8.2
08.13 L N CURV3,E;G 8.2
08.14 L N CURV4,E;G 8.2
08.20 G LG

10.01 C ROUTINE FUER 64 PUNKTE
10.02 C ANFANGSFUNKT = XI
10.10 A ?XI?;D 17

13.01 C DIS SWITCH
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.10 S PA=2;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))
16.99 S Z=FDIS(0,0)

17.01 C INTERPOLATION ON DATA IN FCOM(2)
17.02 D 13.8
17.05 I (-SX(0))17.1;F J=0,30;S SX(J)=FSIN(PI*(J+.5))/PI*(J+.5)
17.10 I (XI-192)17.2;S XI=192
17.20 F I=0,63;S Z=FCOM(320+2*I,FCOM(512+XI+I));D 2.3
17.25 I (XI-31)17.35;F I=0,31;S Z=FCOM(256+2*I,FCOM(480+XI+I));D 2.3
17.30 I (XI-160)17.4;I (191-XI)17.5,17.45
17.35 F I=1,XI;S Z=FCOM(320-2*I,FCOM(512+XI-I));D 2.3
17.40 F I=0,31;S Z=FCOM(448+2*I,FCOM(576+XI+I));D 2.3
17.42 G 17.5
17.45 F I=0,191-XI;S Z=FCOM(448+2*I,FCOM(576+XI+I));D 2.3
17.50 F I=0,63;S Z=FCOM(4*I,FCOM(320+2*I));D 2.4
17.60 F I=300,2,468;D 2.2;S Z=FCOM(I+1,A);D 2.3
17.70 F I=0,2,126;S Z=FCOM(2*I+2,FCOM(321+I));D 2.4
17.80 F I=320,448;D 2.1;S Z=FCOM((I-320)*2+1,A);D 2.4

20.01 C MAX. VON FCOM(1) 
20.10 S I=0;S X=0
20.20 I (FCOM(I)-X)20.3;S X=FCOM(I)
20.30 S I=I+1;I (I-255)20.2;T %6.03,X

---