N9NANAANANAaAANA 
20 
30 
10 
20 
N = N*l 
TANG = (90.*ANGLE) /57.22958 
ANG = ANGLE/s57,2958 
ST = SIN(TANG) 
cT = COS(TANG) 
S = STN(ANG) 
Cc = COS(ANG) 
00 30 I=leN 
IF (I.EQ.1) GO TO 20 
X = X*DELTAUSC 
Y = Y*DELTAU#S 
CALL PLOT (X9Yo2) 
IF (I-EQeN) GU TO 20 
XT = Xe(,1#CT#ISN) 
YT = Yo(, 1#ST#ISN) 
CALL PLOT (XTsYT92) 
KN = X*¢AYN#CT#ISN=BYN®C 
YN = YeAYN#ST#ISN=BYN#®S 
XNUM = XNUM*¢DELTAV 
CALL NUMBER (XNe YNoHT »XNUM»9 ANGLE 9 ND) 
CALL PLOT (X9Yo3) 
CONTINUE 
XSP = (( (AXLEN/HT) 72.) —( TABS (NCHAR) /2.)) #HT 
YSP = 3.5#HT 
XT = XPAGE * XSP#C ¢ ISN#YSP#CT 
YT = YPAGE * XSP#S + ISN#YSP#ST 
CALL SYMBOL (XT YT oHT»sIBCD, ANGLE 9 LABS (NCHAR) ) 
RETURN 
END 
FUNCTION NDIGIT (AMIN, AMAX 9 ANUM »ND) 
FINDS THE NUMBER OF DIGITS NECCESSARY TO PRINT 
EVEN INCREMENT OF THE FUNCTION ON THE AXIS 
NDIGIT THE NUMBER OF PLACES IN THE ENTIRE NUMBER 
ND THE NUMBER OF DECIMAL PLACES 
ANUM THE VALUE GIVEN TO EACH INCREMENT ON THE AXIS 
IF (ABS (AMIN) oLT.ABS(AMAX)) GO TO 20 
IF (A8S (AMIN) .EQ.ABS (AMAX) eANDeAMAX.NE.0) GO TO 20 
IF (ABS (AMIN) eGT.ABS(AMAX)) GO TO 10 
AMAX = 1, 
AMIN = -1. 
GO TO 20 
AMAX = ABS(AMIN) 
IF (AMAXeLE.1.) GO TO 50 
NOIV = 19 
I SB i 
IF (AMAX/NDIV.LT.1) GO TO 40 
I = I+] 
NDIV = NDIV#10 
= 
wou 
IF (AMAX#NDIV.GT.1.) GO TO 70 
I = [+l 
71 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NOIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDOIG 
NDIG 
