Complément de fonction Trigonométrique

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Guimauve
Messages : 1015
Inscription : mer. 11/févr./2004 0:32
Localisation : Québec, Canada

Complément de fonction Trigonométrique

Message par Guimauve »

Voiçi le code à compiler.

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Cosec

ProcedureDLL.f Cosec(theta.f)
  
  ProcedureReturn 1/Sin(theta)
  
EndProcedure 

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Sec

ProcedureDLL.f Sec(theta.f)
  
  ProcedureReturn 1/Cos(theta)
  
EndProcedure 

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Cotan

ProcedureDLL.f Cotan(theta.f)
  
  ProcedureReturn Cos(theta)/Sin(theta)
  
EndProcedure
Et voiçi le texte d'aide pour ces 3 commandes

Code : Tout sélectionner

Syntaxe 
Resultat.f = Cosec(theta.f)


Description 
Calculs de la Cosecante de l'angle Thétâ spécifié.

!! Attention !! L'angle theta doit être en radian. 

--------------------------------------------------------------------------------

Syntaxe 
Resultat.f = Sec(theta.f)


Description 
Calculs de la Secante de l'angle Thétâ spécifié.

!! Attention !! L'angle theta doit être en radian. 

--------------------------------------------------------------------------------

Syntaxe 
Resultat.f = Cotan(theta.f)


Description 
Calculs de la Cotangente de l'angle Thétâ spécifié.

!! Attention !! L'angle theta doit être en radian. 
A+
Guimauve