Metropoli BBS
VIEWER: sam309.txt MODE: TEXT (ASCII)
apl>" <-APL2-------------------- sam309.txt ---------------------------->


apl>" <-Inverse sine for real numbers----------------------------------->


apl>L#v#y=z#-1Ox#1Oy#O(_`Rt),0,t#.25 .5 .6 1 1.1 1.9 2 2.1 2.9 3 3.1

0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 0 0


apl>(D/u),(S/u#v/y) " Range of y where y=-1O1Oy

-1.570796 1.570796

apl>y=((-1*|n)Xz)+On#(Xy)XD((|y)+O.5)%O1

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

apl>" <-Inverse cosine for real numbers--------------------------------->


apl>L#v#y=z#-2Ox#2Oy

0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0


apl>(D/u),(S/u#v/y) " Range of y where y=-2O2Oy

0 3.141593

apl>y=z+(_((2Xz)_pi)X2|n)+On#Dy%pi#O1

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

apl>" <-Inverse tangent for real numbers-------------------------------->


apl>L#v#y=z#-3Ox#3Oy#O(_`Rt),0,t#.25 .499 .6 1 1.1 1.9 2 2.1 2.9 3 3.1

0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 0 0


apl>(D/u),(S/u#v/y) " Range of y where y=-3O3Oy

-1.567655 1.567655

apl>&/y=z+OD(y+O.5)%pi#O1

1

apl>" <-Inverse sinh for real numbers----------------------------------->


apl>Lct#1e-10


apl>y#O(_`Rt),0,t#.25 .5 .6 1 1.1 1.9 2 2.1 2.9 3 3.1 5


apl>L#v#y=z#-5Ox#5Oy

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


apl>(D/u),(S/u#v/y) " Range of y where y=-5O5Oy

-15.70796 15.70796

apl>v,x,y,z,[1.5]y_z

1   -3317812.0   -15.707963   -15.707963   0  
1   -8482.8      -9.738937    -9.738937    0  
1   -6195.8      -9.424778    -9.424778    0  
1   -4525.4      -9.110619    -9.110619    0  
1   -366.6       -6.597345    -6.597345    0  
1   -267.7       -6.283185    -6.283185    0  
1   -195.6       -5.969026    -5.969026    0  
1   -15.8        -3.455752    -3.455752    0  
1   -11.5        -3.141593    -3.141593    0  
1   -3.2         -1.884956    -1.884956    0  
1   -2.3         -1.570796    -1.570796    0  
1   -0.9         -0.785398    -0.785398    0  
1   0            0            0            0  
1   0.9          0.785398     0.785398     0  
1   2.3          1.570796     1.570796     0  
1   3.2          1.884956     1.884956     0  
1   11.5         3.141593     3.141593     0  
1   15.8         3.455752     3.455752     0  
1   195.6        5.969026     5.969026     0  
1   267.7        6.283185     6.283185     0  
1   366.6        6.597345     6.597345     0  
1   4525.4       9.110619     9.110619     0  
1   6195.8       9.424778     9.424778     0  
1   8482.8       9.738937     9.738937     0  
1   3317812.0    15.707963    15.707963    0  

apl>" <-Inverse cosh for real numbers--------------------------------->


apl>Lct#1e-10


apl>y#O(_`Rt),0,t#.25 .5 .6 1 1.1 1.9 2 2.1 2.9 3 3.1


apl>L#v#y=z#-6Ox#6Oy

0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1


apl>(D/u),(S/u#v/y) " Range of y where y=-6O6Oy

0  9.73894

apl>v,x,y,z,[1.5]y_z

0   8482.7507   -9.738937    9.738937    -19.477874  
0   6195.8239   -9.424778    9.424778    -18.849556  
0   4525.4465   -9.110619    9.110619    -18.221237  
0   366.5736    -6.597345    6.597345    -13.194689  
0   267.7468    -6.283185    6.283185    -12.566371  
0   195.5636    -5.969026    5.969026    -11.938052  
0   15.8568     -3.455752    3.455752    -6.911504   
0   11.5920     -3.141593    3.141593    -6.283185   
0   3.3689      -1.884956    1.884956    -3.769911   
0   2.5092      -1.570796    1.570796    -3.141593   
0   1.3246      -0.785398    0.785398    -1.570796   
1   1.0000      0            0           0           
1   1.3246      0.785398     0.785398    0           
1   2.5092      1.570796     1.570796    0           
1   3.3689      1.884956     1.884956    0           
1   11.5920     3.141593     3.141593    0           
1   15.8568     3.455752     3.455752    0           
1   195.5636    5.969026     5.969026    0           
1   267.7468    6.283185     6.283185    0           
1   366.5736    6.597345     6.597345    0           
1   4525.4465   9.110619     9.110619    0           
1   6195.8239   9.424778     9.424778    0           
1   8482.7507   9.738937     9.738937    0           

apl>" <-Inverse tanh for real numbers-------------------------------->


apl>Lpp#7


apl>Lct#1e-10


apl>&/v#y=z#-7Ox#7Oy#(_`Rt),0,t#.5 1.5 2 3 4 10 15

0

apl>(D/u),(S/u#v/y) " Range of y where y=-7O7Oy

-4 4

apl>v,x,y,z,[1.5]y_z

0   -1.000000   -15.0   -14.9999   -0.0000832  
0   -1.000000   -10.0   -10.0000   0           
1   -0.999329   -4.0    -4.0000    0           
1   -0.995055   -3.0    -3.0000    0           
1   -0.964028   -2.0    -2.0000    0           
1   -0.905148   -1.5    -1.5000    0           
1   -0.462117   -0.5    -0.5000    0           
1   0           0       0          0           
1   0.462117    0.5     0.5000     0           
1   0.905148    1.5     1.5000     0           
1   0.964028    2.0     2.0000     0           
1   0.995055    3.0     3.0000     0           
1   0.999329    4.0     4.0000     0           
0   1.000000    10.0    10.0000    0           
0   1.000000    15.0    14.9999    0.0000832   

apl>)off

[ RETURN TO DIRECTORY ]