termodinamica
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: ElJefazo_
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.72 Ko KB
Mis en ligne Uploaded: 14/07/2025 - 21:27:28
Uploadeur Uploader: ElJefazo_ (Profil)
Téléchargements Downloads: 4
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4795972
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.72 Ko KB
Mis en ligne Uploaded: 14/07/2025 - 21:27:28
Uploadeur Uploader: ElJefazo_ (Profil)
Téléchargements Downloads: 4
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4795972
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Define thermodynamics() Prgm Local P1,V1,T1,P2,V2,T2,n,R,Cp,Cv,process,Q,W,DE,DS,gamma R := 8.314 Request "n (mol):", n Request "T1 (K):", T1 Request "V1 (L):", V1 Request "P1 (atm):", P1 Request "Tipo de proceso (isoP/isoV/isoT/adiab):", process If process = "isoP" Then Request "V2 (L):", V2 T2 := T1 * V2 / V1 W := P1 * (V2 - V1) * 101.325 -- atm·L a J Cv := 20.8 -- para diatómico, ejemplo DE := n * Cv * (T2 - T1) Q := DE + W Disp "T2=", T2, "W=", W, "DE=", DE, "Q=", Q EndIf If process = "isoV" Then Request "T2 (K):", T2 W := 0 Cv := 20.8 DE := n * Cv * (T2 - T1) Q := DE Disp "W=0", "DE=", DE, "Q=", Q EndIf If process = "isoT" Then Request "V2 (L):", V2 W := n * R * T1 * ln(V2/V1) Q := W DE := 0 Disp "W=", W, "Q=", Q, "DE=0" EndIf If process = "adiab" Then gamma := 1.4 Request "V2 (L):", V2 T2 := T1 * (V1/V2)^(gamma - 1) W := (n * R * (T2 - T1)) / (1 - gamma) Q := 0 DE := n * Cv * (T2 - T1) Disp "T2=", T2, "W=", W, "Q=0", "DE=", DE EndIf EndPrgm Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Define thermodynamics() Prgm Local P1,V1,T1,P2,V2,T2,n,R,Cp,Cv,process,Q,W,DE,DS,gamma R := 8.314 Request "n (mol):", n Request "T1 (K):", T1 Request "V1 (L):", V1 Request "P1 (atm):", P1 Request "Tipo de proceso (isoP/isoV/isoT/adiab):", process If process = "isoP" Then Request "V2 (L):", V2 T2 := T1 * V2 / V1 W := P1 * (V2 - V1) * 101.325 -- atm·L a J Cv := 20.8 -- para diatómico, ejemplo DE := n * Cv * (T2 - T1) Q := DE + W Disp "T2=", T2, "W=", W, "DE=", DE, "Q=", Q EndIf If process = "isoV" Then Request "T2 (K):", T2 W := 0 Cv := 20.8 DE := n * Cv * (T2 - T1) Q := DE Disp "W=0", "DE=", DE, "Q=", Q EndIf If process = "isoT" Then Request "V2 (L):", V2 W := n * R * T1 * ln(V2/V1) Q := W DE := 0 Disp "W=", W, "Q=", Q, "DE=0" EndIf If process = "adiab" Then gamma := 1.4 Request "V2 (L):", V2 T2 := T1 * (V1/V2)^(gamma - 1) W := (n * R * (T2 - T1)) / (1 - gamma) Q := 0 DE := n * Cv * (T2 - T1) Disp "T2=", T2, "W=", W, "Q=0", "DE=", DE EndIf EndPrgm Made with nCreator - tiplanet.org
>>
