Trigonometric functions: Difference between revisions

=={{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>