Home		Logithèque

TI83

Fonction Gamma

Code

Programme GAM

Ans->Z
If real(Z)>0
Then:Z:prgmLGAM:e^(Ans)->T
Else:1-Z:prgmLGAM:PI/(Ans*sin(PI(1-Z))->T:End:T

Programme LGAM

Ans->Z
If real(Z)<=0
Return"ERROR"
{76.1800917295,-86.5053203294,24.0140982408,-1.23173957245,.00120865097387,-5.39523938495e-6}->T
0->T:For(J,1,6)
T+LT(J)/(Z+J-1)->T:End
T+1.00000000019->T:DelVar LT
(Z-.5)*ln(Z+4.5)-Z-4.5+ln((2)T)

Attention la lettre "L" en 6 et 7ème lignes est le préfixe des listes (petit "L").

Mode d'emploi

Le programme GAM appelle LGAM.

Les deux réagissent comme des fonctions, prenant leur argument dans Ans et le rendant dans Ans.

On peut donc programmer ou taper des choses telles :

1/2:prgmGAM:Ans^2/PI

Mathématiques à l'oeuvre

Encore une approximation dont l'auteur m'est inconnu. S'il se fait reconnaître, je me conformerai à son choix quand à la diffusion de cet algorithme.

Fichiers

Voici les deux programmes pour chargement direct dans votre machine via le "GraphLink".

TI83-GAM.83p et TI83-LGAM.83p.