Trigonometric functions: Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) m (→{{header|ooRexx}}: add lang tag) |
Walterpachl (talk | contribs) (→{{header|ooRexx}}: added routine rxmhelp to rxm.cls) |
||
Line 1,640: | Line 1,640: | ||
* 24.04.2014 WP arcsin verbessert. courtesy Horst Wegscheider |
* 24.04.2014 WP arcsin verbessert. courtesy Horst Wegscheider |
||
* 28.04.2014 WP run ooRexxDoc |
* 28.04.2014 WP run ooRexxDoc |
||
* 12.05.2014 WP added routine rxmhelp |
|||
**********************************************************************/ |
**********************************************************************/ |
||
.local~my.rxm=.rxm~new(16,"D") |
.local~my.rxm=.rxm~new(16,"D") |
||
Line 2,611: | Line 2,612: | ||
End |
End |
||
return .my.rxm~tanh(x,xprec) |
return .my.rxm~tanh(x,xprec) |
||
::routine rxmhelp public |
|||
Use Arg xprec=(.my.rxm~precision),xtype=(.my.rxm~type) |
|||
Say 'precision='xprec |
|||
Say ' type='xtype |
|||
Parse source s; Say ' source='s |
|||
Parse version v; Say ' version='v |
|||
Do si=2 To 5 |
|||
Say substr(sourceline(si),3) |
|||
End |
|||
Say 'You can change the default precision and type as follows:' |
|||
Say " .locaL~my.rxm~precision=50" |
|||
Say " .locaL~my.rxm~type='R'" |
|||
return 0 </lang> |
|||
=={{header|Oz}}== |
=={{header|Oz}}== |