Anonymous user
Trigonometric functions: Difference between revisions
Ada example
(Created page with Java example.) |
(Ada example) |
||
Line 1:
{{task}}
If your language has a library or built-in functions for trigonometry, show examples of sine, cosine, tangent, and their inverses using the same angle in radians and degrees. If your language does not have trigonometric functions available or only has some available, write functions to calculate the functions based on any [http://en.wikipedia.org/wiki/Trigonometric_function known approximation or identity].
=={{header|Ada}}==
Ada provides library trig functions which default to radians along with corresponding library functions for which the cycle can be specified. The examples below specify the cycle for degrees and for radians. The output of the inverse trig functions is in units of the specified cycle (degrees or radians).
with Ada.Numerics.Elementary_Functions;
use Ada.Numerics.Elementary_Functions;
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_Io; use Ada.Text_Io;
procedure Trig is
Degrees_Cycle : constant Float := 360.0;
Radians_Cycle : constant Float := 2.0 * Ada.Numerics.Pi;
Angle_Degrees : constant Float := 45.0;
Angle_Radians : constant Float := Ada.Numerics.Pi / 4.0;
begin
Put(Item => Sin(Angle_Degrees, Degrees_Cycle), Aft => 5, Exp => 0);
Put(" ");
Put(Item => Sin(Angle_Radians, Radians_Cycle), Aft => 5, Exp => 0);
New_Line;
Put(Item => Cos(Angle_Degrees, Degrees_Cycle), Aft => 5, Exp => 0);
Put(" ");
Put(Item => Cos(Angle_Radians, Radians_Cycle), Aft => 5, Exp => 0);
New_Line;
Put(Item => Tan(Angle_Degrees, Degrees_Cycle), Aft => 5, Exp => 0);
Put(" ");
Put(Item => Tan(Angle_Radians, Radians_Cycle), Aft => 5, Exp => 0);
New_Line;
Put(Item => Cot(Angle_Degrees, Degrees_Cycle), Aft => 5, Exp => 0);
Put(" ");
Put(Item => Cot(Angle_Radians, Radians_Cycle), Aft => 5, Exp => 0);
New_Line;
Put(Item => ArcSin(Sin(Angle_Degrees, Degrees_Cycle), Degrees_Cycle), Aft => 5, Exp => 0);
Put(" ");
Put(Item => ArcSin(Sin(Angle_Radians, Radians_Cycle), Radians_Cycle), Aft => 5, Exp => 0);
New_Line;
Put(Item => Arccos(Cos(Angle_Degrees, Degrees_Cycle), Degrees_Cycle), Aft => 5, Exp => 0);
Put(" ");
Put(Item => Arccos(Cos(Angle_Radians, Radians_Cycle), Radians_Cycle), Aft => 5, Exp => 0);
New_Line;
Put(Item => Arctan(Y => Tan(Angle_Degrees, Degrees_Cycle), Cycle => Degrees_Cycle), Aft => 5, Exp => 0);
Put(" ");
Put(Item => Arctan(Y => Tan(Angle_Radians, Radians_Cycle), Cycle => Radians_Cycle), Aft => 5, Exp => 0);
New_Line;
Put(Item => Arccot(X => Cot(Angle_Degrees, Degrees_Cycle), Cycle => Degrees_Cycle), Aft => 5, Exp => 0);
Put(" ");
Put(Item => Arccot(X => Cot(Angle_Degrees, Degrees_Cycle), Cycle => Radians_Cycle), Aft => 5, Exp => 0);
New_Line;
end Trig;
=={{header|Java}}==
| |||