توابع مورد استفاده در ويژوال بيسيک

[The.Ghost]

سلام:

کد:

Degree(x) = x * 180 / Pi    //  تبديل راديان به درجه
  Rad(x) = x * Pi / 180   //  تبديل درجه به راديان

  Sec(X) = 1 / Cos(X)                سکانت

  Cosec(X) = 1 / Sin(X)              کسکانت

  Cotan(X) = 1 / Tan(X)              کتانژانت

  Arcsin(X) = Atn(X / Sqr(1-X * X ))   آرك سينوس

  Arccos(X) = Atn(-X / Sqr(1-X * X)) + 2 * Atn(1)   آرك کسينوس

  Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) -1) * (2 * Atn(1))  آرك سکانت

  Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))   آرك کسکانت

  Arccotan(X) = Atn(X) + 2 * Atn(1)    آرك کتانژانت

  HSin(X) = (Exp(X) - Exp(-X)) /2     سيونس هيپربوليک

  HCos(X) = (Exp(X) + Exp(-X)) /2     کسينوس هيپربوليک

  HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))    تانژانت هيپربوليک

  HSec(X) = 2 / (Exp(X) + Exp(-X))    سکانت هيپربوليک

  HCosec(X) = 2 / (Exp(X) - Exp(-X))   کسکانت هيپربوليک

  HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))    کتانژانت هيپربوليک

  HArcsin(X) = Log(X + Sqr(X * X + 1))    آرك سينوس هيپربوليک

  HArccos(X) = Log(X + Sqr(X * X -1))    آرك کسينوس هيپربوليک

  HArctan(X) = Log((1 + X) / (1 - X)) /2     آرك تانژانت هيپربوليک

  HArcsec(X) = Log((Sqr(1-X * X) + 1) / X)   آرك سکانت هيپربوليک

  HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)     آرك کسکانت هيپربوليک

  HArccotan(X) = Log((X + 1) / (X - 1)) /2     آرك کتانژانت هيپربوليک
  
  LogN(X) = Log(X) / Log(N)      N لگاريتم بر مبناي

[PEA]

این هم بخشی از توابع پایانی کتاب قمی:

کد:

Sin (X) 'Sin
Cos (X) 'Cos
Tan (X) 'Tan
Atn (X) 'Arc Tan
Int(X) 'Ghesmate Sahih Adade Ashari
Round (X,n) 'Gerd Kardane Adad ashari bar asase N
Abs(X) 'Ghadre Motlagh
Sgn(X) 'Taein Alamat
Log (X) 'Log
Rnd (X) 'Adade Tasadofi bar asase X
Sqr (X) 'Jazre Adade Mosbat
Fix(X) 'Ghesmate Sahih