Anonymous user
Trigonometric functions: Difference between revisions
no edit summary
m (→{{header|REXX}}: added REXX language.) |
No edit summary |
||
Line 594:
var arctan = Math.atan(Math.tan(radians));
window.alert(arctan + " " + (arctan * 180 / Math.PI));</lang>
=={{header|Liberty BASIC}}==
<lang lb>' [RC] Trigonometric functions.
pi = 4 *atn( 1)
' LB works in radians. All six functions are available.
mainwin 80 16
value =45
print
print " Trig. functions and their inverses."
print
print " Trig. for angle 45 in radians and degrees."
print
print , " 45 radians", "45 degrees"
print " Sin", sin( value), sin( degrees2radians( value))
print " Cos", cos( value), cos( degrees2radians( value))
print " Tan", tan( value), tan( degrees2radians( value))
print
print " Inverse trig. for result =0.5"
value =0.5
print " asn", asn( value); " radians", radians2degrees( asn( value)); " degrees"
print " acs", acs( value); " radians", radians2degrees( acs( value)); " degrees"
print " atn", atn( value); " radians", radians2degrees( atn( value)); " degrees"
end
function radians2degrees( r)
radians2degrees =r *360 /2 /pi
end function
function degrees2radians( degrees)
degrees2radians =degrees /360 *2 *pi
end function</lang>
=={{header|Logo}}==
|