[WP-34S] DEG and RAD - diffs

[pito]

(06-05-2014 12:08 AM)pito Wrote:  With WP34S emulator v3.3.3605 and 9degree test (double) you get with DEG mode
..

A comparison 9 degree DEG/RAD "test" with WMat (34 digits precision requested):

Code:

"STANDARD DEG MODE TEST"
x = 9.0`34
pii = N[Pi, 34]
torad = N[pii / 180.0`34, 34]
todeg = N[180.0`34 / pii, 34]
s = N[Sin[x * torad], 34]
c = N[Cos[s * torad], 34]
t = N[Tan[c * torad], 34]
at = N[todeg * ArcTan[t], 34]
ac = N[todeg * ArcCos[at],  34]
as = N[todeg * ArcSin[ac],34]
d = N[as - 9.0`34, 34]

9.`34.
3.141592653589793238462643383279502884197169399375`34.
0.017453292519943295769236907684886127134428718885`33.69897000433602
57.295779513082320876798154814105170332405472466611`33.69897000433602
0.156434465040230869010105319467166892313899892082`33.526471382542105
0.999996272742885024117516205011350248686695280675`34.
0.017454999855488660791394140928348469199263126371`33.5227905465791
0.999996272742885024117516205011350248686695280612`33.30102999566398
0.15643446504023086901010531946716689231`28.173449397729776
9.00000000000000000000000000000000000016`28.169855476156346
0``27.215612324562617

Code:

"EXPERIMENTAL RAD MODE TEST"
x = 9.0`34
pii = N[Pi, 34]
y = N[x * pii / 180.0`34, 34]
s = N[Sin[y], 34]
c = N[Cos[s], 34]
t = N[Tan[c], 34]
at = N[ArcTan[t], 34]
ac = N[ArcCos[at], 34]
as = N[ArcSin[ac], 34]
r = N[as * 180.0`39 / pii, 34]
d = N[r - 9.0`39, 34]

9.`34.
3.141592653589793238462643383279502884197169399375`34.
0.157079632679489661923132169163975144209858469965`33.52287874528034
0.156434465040230869010105319467166892313899892082`33.526471382542105
0.987789061484321026592245971856886355356443043866`34.
1.516357552591207213695274523631412761647072139176`33.66771030391201
0.987789061484321026592245971856886355356443043874`34.
0.156434465040230869010105319467166892313899892038`32.39222789922116
0.157079632679489661923132169163975144209858469919`32.38863526195939
8.999999999999999999999999999999999999999999997149`32.378135882061486
0``31.4238932688884

UPDATE: with 39 digits precision requested:

Code:

"STANDARD DEG MODE TEST"
x = 9.0`39
pii = N[Pi, 39]
torad = N[pii / 180.0`39, 39]
todeg = N[180.0`39 / pii, 39]
s = N[Sin[x * torad], 39]
c = N[Cos[s * torad], 39]
t = N[Tan[c * torad], 39]
at = N[todeg * ArcTan[t], 39]
ac = N[todeg * ArcCos[at], 39]
as = N[todeg * ArcSin[ac], 39]
d = N[as - 9.0`39, 39]

[9.0]  9.`39.
3.141592653589793238462643383279502884197169399375`39.
0.017453292519943295769236907684886127134428718885416636531`38.69897000433602
57.295779513082320876798154814105170332405472466566`38.69897000433602
[SIN]  0.156434465040230869010105319467166892313899892085655293893`38.526471382542​105
[COS]  0.999996272742885024117516205011350248686695280675540360027`39.
[TAN]  0.017454999855488660791394140928348469199263126372188621527`38.522790546579​1
[ATAN] 0.999996272742885024117516205011350248686695280675`38.30102999566398
[ACOS] 0.156434465040230869010105319467166892313899897994`33.17344939772978
[ASIN] 9.000000000000000000000000000000000000000000342759`33.16985547615635
0``32.21561232456263

This is the result I would expect