Trigonometric functions: Difference between revisions

Content added Content deleted
No edit summary
Line 308: Line 308:
{{trans|C}}
{{trans|C}}


<lang arturo>pi 4*$(atan 1)
<lang arturo>pi: 4*[atan 1.0]


radians pi/4
radians: pi/4
degrees 45.0
degrees: 45.0


"sine"
print "sine"
print $(sin radians) + " " + $(sin degrees*pi/180)
print [sin radians] + " " + [sin degrees*pi/180]


"cosine"
print "cosine"
print $(cos radians) + " " + $(cos degrees*pi/180)
print [cos radians] + " " + [cos degrees*pi/180]


"tangent"
print "tangent"
print $(tan radians) + " " + $(tan degrees*pi/180)
print [tan radians] + " " + [tan degrees*pi/180]


"arcsine"
print "arcsine"
print $(asin $(sin radians)) + " " +$(asin $(sin radians))*180/pi
print [asin|sin radians] + " " + [asin|sin radians]*180/pi


"arccosine"
print "arccosine"
print $(acos $(cos radians)) + " " +$(acos $(cos radians))*180/pi
print [acos|cos radians] + " " + [acos|cos radians]*180/pi


"arctangent"
print "arctangent"
print $(atan $(tan radians)) + " " +$(atan $(tan radians))*180/pi</lang>
print [atan|tan radians] + " " + [atan|tan radians]*180/pi
</lang>


{{out}}
{{out}}


<pre>sine
<pre>sine
0.7071067811865475 0.7071067811865475
0.707107 0.707107
cosine
cosine
0.7071067811865476 0.7071067811865476
0.707107 0.707107
tangent
tangent
0.9999999999999999 0.9999999999999999
1 1
arcsine
arcsine
0.7853981633974482 44.99999999999999
0.785398 45
arccosine
arccosine
0.785398 45
0.7853981633974483 45.0
arctangent
arctangent
0.785398 45</pre>
0.7853981633974483 45.0</pre>


=={{header|AutoHotkey}}==
=={{header|AutoHotkey}}==