Trigonometric functions: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: updated program code, elided STYLE from PRE html tag.) |
m (→{{header|REXX}}: updated the .sinCos subroutine.) |
||
Line 3,152: | Line 3,152: | ||
if abs(x)=pi | x=0 then return 0; return .sinCos(x, x, +1) |
if abs(x)=pi | x=0 then return 0; return .sinCos(x, x, +1) |
||
.sinCos: parse arg z |
.sinCos: parse arg z,_,i; x=x*x |
||
do k=2 by 2; _=-_*x/(k*(k+i));z=z+_; |
do k=2 by 2 until p=z; p=z; _=-_*x/(k*(k+i)); z=z+_; end /*k*/ |
||
return z |
|||
sqrt: procedure; parse arg x,i; if x=0 then return 0; d=digits(); m.=11 |
sqrt: procedure; parse arg x,i; if x=0 then return 0; d=digits(); m.=11 |