SVT Datation

Aller en bas

SVT Datation

Message par Jérémy le Dim 5 Oct 2008 - 22:54

Sujet : Programme qui calcule l'age d'un élément à partir de différentes données. Fonctionne avec les couples 14C/14N, 40K/40Ar et 87Rb/87Sr

Historique des Modifications :

Stade : Version stable, améliorable (exemple : menu de navigation)
Contenu : Datation d'éléments à l'aides de données différentes selon les couples 14C/14N, 40K/40Ar et 87Rb/87Sr

Quelques Captures D'écran :


Code (réécrire de même dans la calculatrice.) : Télécharger au format 82P (pour TI 82, 82 Stats, et 82 Stats Fr, si vous avez le cable.)
Code:
:ClrHome
:Disp "P=P0*e^-LT"
:Disp "14C :"
:Output(3,1,"T=ln P/P0)/-L")
:Disp ""
:Disp ""
:Disp ""
:Input "PERES 0:",P
:Input "PERES T:",T
:Input "LAMBDA:",L
:ln P/T)/(-L)->A
:Disp A
:Pause
:ClrHome
:
:Disp "F=(P0-P)+F0"
:Disp "40K/40AR :"
:Output(3,1,"F=P(e^LT-1)+F0")
:Output(4,1,"T=(1/L)[ln (F/P+1)] CAR F0=0")
:Disp ""
:Disp ""
:Disp ""
:Input "PERES:",P
:Input "FILS:",F
:Input "LAMBDA:",L
:ln F/P+1)/L->A
:Disp A
:Pause
:ClrHome
:
:Disp "F=(P0-P)+F0"
:Disp "87RB/87SR :"
:Output(3,1,"F=P(e^LT)-1)+F0")
:Pause
:ClrHome
:Output(1,1,"CALCUL DE R7/S6 and S7/S6 or S6 CSTE and MESUREE. GRAPH de S7/S6 SELON R7/S6 : S7/S6=A*R7/S6+S70/S6")
:Pause
:ClrHome
:Disp "A=e^LT-1"
:Disp "T=ln (A+1)/L"
:Input "A:",A
:Input "LAMBDA:",L
:ln A+1)/L->T
:Disp T
:Pause
:ClrHome
avatar
Jérémy
Admin

Masculin
Nombre de messages : 145
Age : 27
Ancienne Classe : 1°S3
Date d'inscription : 02/09/2008

Voir le profil de l'utilisateur http://ts-2.forumactif.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum