File: FUNCT1.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971
01.05 C FUNCT1.RE
01.10 L C FOCAL.TM
01.20 I (FITR(#/2)-#/2)1.8;S Z1=1.98;G 2.1
01.50 I (FITR(#/2)-#/2)1.7;D 13;D 6;D 5
01.55 I (FITR(#/2)-#/2),1.7;D 5.3;D 5.4;D 5.55
01.70 S Z1=1.98
01.75 T "REENTER PS/8 FOCAL AND RETAIN TRIG FUNCTIONS."!
01.80 D 1.7;D 2;D 3;D 4;D 7;D 9;D 11;D 12;D 14;G 15.1
01.98 T %6.04
02.10 T !!!!!!"***** FUNCTIONS:"!!!!
02.20 T "FOR MOST FUNCTIONS, A SAMPLE LINE IS SHOWN AND THEN EXECUTED:"!
03.10 T "FABS( ) ABSOLUTE VALUE"!
03.20 T %6.04,"EXAMPLE (WRITTEN THEN EXECUTED):"!
03.30 W 3.4
03.40 TYPE FABS(-3),FABS(2),!!!!
04.10 T "FADC( ) ANALOG TO DIGITAL INPUT FUNCTION"!;D Z1;W 4.22
04.20 T !!!;G 4.9
04.22 SET X=FADC( );TYPE !!!!
04.90 C
05.10 T "FATN( ) ARCTANGENT ARGUMENT RANGE: 0<A<10^6"!;D Z1;W 5.25
05.16 T "PRECISION DOES NOT EXCEED 6 DIGITS AND DROPS FOR NEAR-ZERO ARGUMENTS"!
05.25 TYPE FATN(1),!!!!;COM: OUTPUTS RADIAN ANGLE WHOSE TANGENT = 1.00
05.30 T "------- TANGENT 'FTAN( )' IS NOT AVAILABLE"!
05.40 T "TANGENT IS COMPUTED AS THE QUOTIENT (SINE/COSINE)"!;W 5.55
05.55 TYPE FSIN(1)/FCOS(1),!!!!;COMMENT: OUTPUTS TANGENT OF 1 RADIAN
06.10 T "FCOS( ) COSINE"!;D Z1;W 6.27
06.27 TYPE FCOS(1),FCOS(3/2),!!!!; COM: OUTPUTS COSINES OF 1 & 1.5 RADIANS
07.10 T "FDIS( ) DISPLAY FUNCTION FOR DEC TYPE 34D DISPLAY"!
07.15 T "EXAMPLE:"!;W 7.2
07.17 G 7.3
07.20 SET DU=FDIS(X,Y)
07.30 T "(PLOTS A POINT AT POSITION (X,Y) ON DISPLAY)"!
07.40 T "('DU' IS DUMMY VARIABLE)"!!
07.50 T "DISPLAY AND JOYSTICK FUNCTIONS FOR PS/8 FOCAL ARE AVAILABLE FOR THE"!
07.60 T "TEKTRONIX T-4002 GRAPHIC COMPUTER TERMINAL"!!!!
08.10 T "FEXP( ) EXPONENTIAL"!;D Z1;W 8.24
08.24 TYPE FEXP(1),FEXP(2.17),!!!!; COM: NATURAL BASE TO THE POWER (X)
09.10 T "FITR( ) INTEGER"!;D 9.15;D 9.16;D 9.17;D Z1;W 9.18
09.12 G 9.18
09.15 T "SERIOUS ROUNDING ERRORS OCCUR FOR NUMBERS OF MORE THAN 5 DIGITS."!
09.16 T "THE PROBLEM MAY BE HANDLED BY ADDING EMPIRACAL CONSTANTS TO THE"!
09.17 T "ARGUMENT."!
09.18 TYPE FITR(3/2),FITR(23.719),FITR(-2.99),!!!!
10.10 T "FLOG( ) NATURAL LOGARITHM"!;D Z1;W 10.14
10.14 TYPE FLOG(1),FLOG(4.237),FLOG(10),!!!!
11.10 T "FRAN( ) RANDOM NUMBER"!;D Z1;W 11.22
11.22 TYPE FRAN( ),FRAN( ),FRAN( ),FRAN( ),FRAN( ),!
11.30 T "THE PSEUDO-RANDOM NUMBERS PRODUCED ARE PART OF A VERY LONG AND WELL"!
11.40 T "DISTRIBUTED BUT DETERMINISTIC SERIES. YOU WILL USUALLY OBSERVE AN "!
11.50 T "ENTIRELY DIFFERENT SERIES EACH TIME FOCAL IS INITIALIZED. HOWEVER,"!
11.60 T "FRAN( ) DOES NOT GENERATE TRULY RANDOM NUMBERS."!!!!
12.10 T "FSGN( ) SIGN"!;D Z1;W 12.34
12.34 T %1.0 FSGN(2.78)," ",FSGN(-299)," ",FSGN(0)," ",FSGN(-1),!!!!
13.10 T "FSIN( ) SINE OF AN ANGLE GIVEN IN RADIANS"!;D Z1;W 13.52
13.52 TYPE FSIN(1),FSIN(0),FSIN(37-2.22),!!!!
14.10 T "FSQT( ) SQUARE ROOT OF A POSITIVE NUMBER"!;D Z1;W 14.4
14.40 TYPE FSQT(4),FSQT(391),FSQT(.0038953),!!!!
15.10 L R FUNCT2.RE 9.1