78d4
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: jamessecco
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.50 Ko KB
Mis en ligne Uploaded: 01/10/2024 - 23:25:40
Mis à jour Updated: 01/10/2024 - 23:25:51
Uploadeur Uploader: jamessecco (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4232945
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.50 Ko KB
Mis en ligne Uploaded: 01/10/2024 - 23:25:40
Mis à jour Updated: 01/10/2024 - 23:25:51
Uploadeur Uploader: jamessecco (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4232945
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Define clapeyron()= Prgm Local P1, P2, Hvap, R, T1, T2 R := 8.314 // Gas constant in J/mol·K Request "Enter P1 (leave blank if unknown): ", P1 Request "Enter P2 (leave blank if unknown): ", P2 Request "Enter Hvap: ", Hvap Request "Enter T1: ", T1 Request "Enter T2 (leave blank if unknown): ", T2 If P1 = "" Then P1 := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), P1) Disp "P1 = ", P1 ElseIf P2 = "" Then P2 := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), P2) Disp "P2 = ", P2 ElseIf Hvap = "" Then Hvap := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), Hvap) Disp "Hvap = ", Hvap ElseIf T1 = "" Then T1 := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), T1) Disp "T1 = ", T1 ElseIf T2 = "" Then T2 := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), T2) Disp "T2 = ", T2 Else Disp "Error: No variable to solve for." EndIf EndPrgm Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Define clapeyron()= Prgm Local P1, P2, Hvap, R, T1, T2 R := 8.314 // Gas constant in J/mol·K Request "Enter P1 (leave blank if unknown): ", P1 Request "Enter P2 (leave blank if unknown): ", P2 Request "Enter Hvap: ", Hvap Request "Enter T1: ", T1 Request "Enter T2 (leave blank if unknown): ", T2 If P1 = "" Then P1 := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), P1) Disp "P1 = ", P1 ElseIf P2 = "" Then P2 := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), P2) Disp "P2 = ", P2 ElseIf Hvap = "" Then Hvap := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), Hvap) Disp "Hvap = ", Hvap ElseIf T1 = "" Then T1 := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), T1) Disp "T1 = ", T1 ElseIf T2 = "" Then T2 := solve(ln(P2/P1) = -(Hvap/R)*(1/T2 - 1/T1), T2) Disp "T2 = ", T2 Else Disp "Error: No variable to solve for." EndIf EndPrgm Made with nCreator - tiplanet.org
>>