Trigonometric functions: Difference between revisions
Content added Content deleted
m (oct) |
No edit summary |
||
Line 702: | Line 702: | ||
(newline) |
(newline) |
||
</lang> |
</lang> |
||
=={{header|Tcl}}== |
|||
The functions only take radian arguments. |
|||
<lang tcl>package require Tcl 8.5 |
|||
proc PI {} {expr {4*atan(1)}} |
|||
proc deg2rad d {expr {$d/180*[PI]}} |
|||
proc rad2deg r {expr {$r*180/[PI]}} |
|||
namespace path ::tcl::mathfunc |
|||
proc trig degrees { |
|||
set radians [deg2rad $degrees] |
|||
puts [sin $radians] |
|||
puts [cos $radians] |
|||
puts [tan $radians] |
|||
set arcsin [asin [sin $radians]]; puts "$arcsin [rad2deg $arcsin]" |
|||
set arccos [acos [cos $radians]]; puts "$arccos [rad2deg $arccos]" |
|||
set arctan [atan [tan $radians]]; puts "$arctan [rad2deg $arctan]" |
|||
} |
|||
trig 60.0</lang> |
|||
<pre>0.8660254037844386 |
|||
0.5000000000000001 |
|||
1.7320508075688767 |
|||
1.0471975511965976 59.99999999999999 |
|||
1.0471975511965976 59.99999999999999 |
|||
1.0471975511965976 59.99999999999999</pre> |