%------------------------------------------------------------------------------ % Arcsine % % Author: David Lester, Manchester University % % Version 1.0 18/2/09 Initial Release Version %------------------------------------------------------------------------------
% asin x = if x0 > 0 then piBy2 - atan (s/x) else % if x0 == 0 then atan (x/s) else % {- x0 < 0 -} atan (s/x) - piBy2 % where (CR_ x') = x; x0 = x' 0; s = sqrt (fromInteger 1 - x*x)
cauchy_asin(cx):cauchy_real
= LET t = cx(0),
s = cauchy_sqrt(cauchy_sub(cauchy_int(1),cauchy_mul(cx,cx))),
p2 = cauchy_div2n(cauchy_pi,1) INIF t = 0 THEN cauchy_atan(cauchy_div(cx,s)) ELSELET a = cauchy_atan(cauchy_div(s,cx)) IN IF t > 0 THEN cauchy_sub(p2,a) ELSE cauchy_sub(cauchy_neg(p2),a) ENDIFENDIF
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.1Bemerkung:
Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.