Cos

Cos is a trigonometric function that calculates angles.

Cos uses radians, and returns the Cos (or cosine) of the value given in the parameter e.

e is a radian value, where one (1) radian is calculated as 180 over Pi, and is equivalent to an angle of 57.29577951 degrees.

Declaration: Function Cos(e : Extended) : Extended

Several examples follow.

procedure ScriptEvent (var Value : variant);
var
  aEx : extended;
begin
  LogInfo('');

 //Returns 'Cos 123 = -0.887968906691855'
  aEx:= Cos(123);
  LogInfo('Cos 123 = '+FloatToStr(aEx));

 //Returns 'Cos 180 = -0.598460069057858'
  aEx := Cos(180);
  LogInfo('Cos 180 = '+FloatToStr(aEx));

 //Returns 'Cos 1 = 0.54030230586814'
  aEx := Cos(1);
  LogInfo('Cos 1 = '+FloatToStr(aEx));

 //Returns 'Cos 2 = 0.416146836547142'
  aEx := Cos(2);
  LogInfo('Cos 2 = '+FloatToStr(aEx));

 //Returns 'Cos -1 = -0.54030230586814'
  aEx := Cos(-1);
  LogInfo('Cos -1 = '+FloatToStr(aEx));

  LogInfo('');
end;

Please also refer to Sin.