mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-02 17:44:40 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
23 lines
1.7 KiB
Plaintext
23 lines
1.7 KiB
Plaintext
COMMENT PROCEDURE - DOUBLE PRECISION TAN, 00000100
|
|
CUBE LIBRARY NUMBER IS B100003. 00000200
|
|
THIS VERSION DATED 2/1/67; 00000300
|
|
PROCEDURE DTAN(XH,XL,TAN1,TAN2);VALUE XH,XL ;REAL XH,XL,TAN1,TAN2 ;BEGI00000400
|
|
N REAL PIH,PIL,HPI,LPI,PI1,PI2,Z,TH,TL,PH,PL,QH,QL,X1,X2 ;INTEGER TANB ;00000500
|
|
LABEL L1 ;IF ABS(XH)<1@-6 THEN BEGIN TAN1 ~XH ;TAN2 ~XL ;GO TO L1 END ;D00000600
|
|
OUBLE(,3.1415926535897932384627,~,PIH,PIL);DOUBLE(,1.570796326794896619200000700
|
|
313,~,HPI,LPI);DOUBLE(,0.78539816339744830961566,~,PI1,PI2);X1 ~XH ;X2 ~00000800
|
|
XL ;IF X1 <0 THEN BEGIN Z ~-1.0 ;X1 ~-X1 END ELSE Z ~1.0 ;DOUBLE(X1,X2,P00000900
|
|
IH,PIL,-,~,TH,TL);IF TH >0 THEN BEGIN DOUBLE(X1,X2,PIH,PIL,/,~,TH,TL);DO00001000
|
|
UBLE(X1,X2,PIH,PIL,ENTIER(TH),0,|,-,~,X1,X2)END ;DOUBLE(X1,X2,HPI,LPI,-,00001100
|
|
~,TH,TL);IF TH >0 THEN BEGIN DOUBLE(X1,X2,PIH,PIL,-,~,X1,X2 );IF X1 <0 T00001200
|
|
HEN BEGIN Z ~-Z ;X1 ~-X1 END END ;DOUBLE(X1,X2,PI1,PI2,-,~,TH,TL);IF TH 00001300
|
|
>0 THEN BEGIN TANB ~1 ;X1 ~TH ;X2 ~TL END ELSE TANB ~0 ;DOUBLE(X1,X2,X1,00001400
|
|
X2,|,~,TH,TL);DOUBLE(,0.000000029275455584636609011615,TH,TL,|,,0.00002800001500
|
|
825716567697401815447,-,TH,TL,|,,0.0039259753270289523023271,+,TH,TL,|,,00001600
|
|
0.13728926288316326720672,-,TH,TL,|,,1.0,+,X1,X2,|,~,PH,PL);DOUBLE(,0.0000001700
|
|
00013130263736120108270194,TH,TL,|,,0.00040301376679805766095783,-,TH,TL00001800
|
|
,|,,0.027466840732527819088008,+,TH,TL,|,,0.47062259621649660053858,-,TH00001900
|
|
,TL,|,,1.0,+,~,QH,QL);IF TANB =0 THEN DOUBLE(PH,PL,QH,QL,/,~,TAN1,TAN2)E00002000
|
|
LSE DOUBLE(PH,PL,QH,QL,+,QH,QL,PH,PL,-,/,~,TAN1,TAN2);TAN1 ~Z |TAN1 ;L1:00002100
|
|
END ; 00002200
|