STFUNS|
begin comment library A0, A1, A5, A15;

real y, half pi, two pi, pi, x;

two pi := 6.283185307179588;
pi := two pi / 2;
half pi := two pi / 4.0;

open(30);

for y := 0.0, (y + 1.0) while y < 21 do
   begin
   x := y / 20.0;
   writetext(30, [[c_]x * =_]);
   write(30, format([+d.dddddddddddss_]), x);
   writetext(30, [ * pi.x * =_]);
   write(30, format([+d.dddddddddddss_]), pi × x);
   writetext(30, [ * sin(pi.x)* =_]);
   write(30, format([+d.dddddddddddss_]), sin(pi × x));
   writetext(30, [ * cos(pi.x)* =_]);
   write(30, format([+d.dddddddddddss_]), cos(pi × x));
   if cos(x) ± 0 then
      begin
      writetext(30, [ * x-arctan(sinx/cosx)* =_]);
      write(30, format([+d.dddddddddddº+dd_]),  x - arctan(sin(x)/cos(x)))
      end;
   end;

writetext(30, [[cc_]]);

for x := 0.0, x + 0.125 while x < 2.125, 4, x + 1.0 while x < 10.0 do
   begin
   writetext(30, [[c_]x * =_]);
   write(30, format([+d.ddddddddddd_]), x);
   writetext(30, [[ss_] * exp(x)* =_]);
   write(30, format([+d.ddddddddddº+dd_]), exp(x));
   if x ± 0 then
      begin
      writetext(30, [[ss_] * ln(x)* =_]);
      write(30, format([+d.ddddddddddd_]), ln(x));
      writetext(30, [[ss_] * exp(ln(x))-x* =_]);
      write(30, format([+d.ddddddddddº+dd_]), exp(ln(x))-x);
      writetext(30, [[ss_] * ln(exp(x))-x* =_]);
      write(30, format([+d.ddddddddddº+dd_]), ln(exp(x))-x);
      end;
   end;

writetext(30, [[cc_]]);

end
|
|