polyml/libpolyml/reals.cpp

115     POLYEXTERNALSYMBOL POLYUNSIGNED PolyRealBoxedToString(PolyObject *threadId, PolyWord arg, PolyWord mode, PolyWord digits);
116     POLYEXTERNALSYMBOL POLYUNSIGNED PolyRealGeneral(PolyObject *threadId, PolyWord code, PolyWord arg);
118     POLYEXTERNALSYMBOL POLYUNSIGNED PolyRealBoxedToLongInt(PolyObject *threadId, PolyWord arg);
119     POLYEXTERNALSYMBOL double PolyRealSqrt(double arg);
120     POLYEXTERNALSYMBOL double PolyRealSin(double arg);
121     POLYEXTERNALSYMBOL double PolyRealCos(double arg);
122     POLYEXTERNALSYMBOL double PolyRealArctan(double arg);
123     POLYEXTERNALSYMBOL double PolyRealExp(double arg);
124     POLYEXTERNALSYMBOL double PolyRealLog(double arg);
125     POLYEXTERNALSYMBOL double PolyRealTan(double arg);
126     POLYEXTERNALSYMBOL double PolyRealArcSin(double arg);
127     POLYEXTERNALSYMBOL double PolyRealArcCos(double arg);
128     POLYEXTERNALSYMBOL double PolyRealLog10(double arg);
129     POLYEXTERNALSYMBOL double PolyRealSinh(double arg);
130     POLYEXTERNALSYMBOL double PolyRealCosh(double arg);
131     POLYEXTERNALSYMBOL double PolyRealTanh(double arg);
132     POLYEXTERNALSYMBOL double PolyRealFloor(double arg);
133     POLYEXTERNALSYMBOL double PolyRealCeil(double arg);
134     POLYEXTERNALSYMBOL double PolyRealTrunc(double arg);
135     POLYEXTERNALSYMBOL double PolyRealRound(double arg);
136     POLYEXTERNALSYMBOL double PolyFloatArbitraryPrecision(PolyWord arg);
142 static Handle Real_strc(TaskData *mdTaskData, Handle hDigits, Handle hMode, Handle arg);
186 POLYEXTERNALSYMBOL double PolyFloatArbitraryPrecision(PolyWord arg)
188     return get_arbitrary_precision_as_real(arg);
192 POLYUNSIGNED PolyRealBoxedToLongInt(PolyObject *threadId, PolyWord arg)
198     Handle pushedArg = taskData->saveVec.push(arg);
211 double PolyRealSqrt(double arg)
213     return sqrt(arg);
217 double PolyRealSin(double arg)
219     return sin(arg);
223 double PolyRealCos(double arg)
225     return cos(arg);
229 double PolyRealArctan(double arg)
231     return atan(arg);
235 double PolyRealExp(double arg)
237     return exp(arg);
241 double PolyRealLog(double arg)
245     if (arg > 0.0)
246         return log(arg);
247     else if (arg == 0.0) // x may be +0.0 or -0.0
253 double PolyRealTan(double arg)
255     return tan(arg);
258 double PolyRealArcSin(double arg)
260     if (arg >= -1.0 && arg <= 1.0)
261         return asin(arg);
265 double PolyRealArcCos(double arg)
267     if (arg >= -1.0 && arg <= 1.0)
268         return acos(arg);
272 double PolyRealLog10(double arg)
276     if (arg > 0.0)
277         return log10(arg);
278     else if (arg == 0.0) // x may be +0.0 or -0.0
283 double PolyRealSinh(double arg)
285     return sinh(arg);
288 double PolyRealCosh(double arg)
290     return cosh(arg);
293 double PolyRealTanh(double arg)
295     return tanh(arg);
298 double PolyRealFloor(double arg)
300     return floor(arg);
303 double PolyRealCeil(double arg)
305     return ceil(arg);
308 double PolyRealTrunc(double arg)
311     if (arg >= 0.0) return floor(arg);
312     else return ceil(arg);
315 double PolyRealRound(double arg)
318     double drem = fmod(arg, 2.0);
322         return ceil(arg-0.5);
323     else return floor(arg+0.5);
578 POLYSIGNED PolySetRoundingMode(PolyWord arg)
580     return TAGGED(setrounding((int)arg.UnTagged())).AsSigned();
583 Handle Real_strc(TaskData *mdTaskData, Handle hDigits, Handle hMode, Handle arg)
585     double  dx = real_arg(arg);
606 POLYUNSIGNED PolyRealBoxedToString(PolyObject *threadId, PolyWord arg, PolyWord mode, PolyWord digits)
612     Handle pushedArg = taskData->saveVec.push(arg);
686 POLYUNSIGNED PolyRealGeneral(PolyObject *threadId, PolyWord code, PolyWord arg)
693     Handle pushedArg = taskData->saveVec.push(arg);