Új hozzászólás Aktív témák

• #761 Diskcopy tag Metalwarrior #760

  Új Válasz 2005-11-10 06:54:53 #761

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Metalwarrior #760 üzenetére

  function arccos(x : real) : real;
  begin
  if x < 0 then arccos := pi - arccos(-x)
  else
  if x = 0 then arccos := pi / 2
  else arccos := arctan(sqrt(1 - x * x) / x)
  end;
  
  function arcsin(x : real) : real;
  begin
  if x < 0 then arcsin := -arcsin(-x)
  else
  if x = 1 then arcsin := pi / 2
  else arcsin := arctan(x / sqrt(1 - x * x))
  end;
  
  figyelj a radiánra, illetve, a sima szögre, gondolom tudod hogy hell átváltani..
  ha mégsem, akkor Szog2Radian := szog * (pi / 180); illetve Radian2Szog := radian * (180 / pi);
  

Új hozzászólás Aktív témák