10 ! ! SINH ! ! KEYED IN BY TIMOTHY SHANE MCCOY ! AT CENTRAL STATE UNIVERSITY ! ON PDP 11/45 ! VERSION RSTS/E V06C ! 20 INPUT X 30 A = 0 40 S = 0 50 FOR N = 1 TO 20 70 P = 1 80 F = 1 90 FOR J = 1 TO 2*N-1 100 P = P*X 110 F = F * J 120 NEXT J 130 S = S + P/F 140 IF ABS(S - A) < 1E -10 THEN 190 150 A = S 160 NEXT N 170 PRINT "DID NOT CONVERGE." 180 GOTO 200 190 PRINT "DID CONVERGE IN"N" INTERATIONS." 200 PRINT "SUM ="S,"SINH(X) =";(EXP(X) - EXP(-X))/2 210 GOTO 10 220 END