Raga vi allego un programmino fatto da me.. dopo alcuni giorni di prove e controprove sul Ti-Edit.
Serve per il calcolo della temperatura finale conoscendo il calore di reazione la T iniziale e ovviamente le moli...
Mi raccomando "trattatemelo bene"
:mrgreen:
ScaricaEcco sviscerato il programma (così vi apparirà nel Ti-Edit)
A causa di caratteri "speciali" presenti nel Ti-Edit e nn in qsto tipo di linguaggio, ho dovuto modificarne alcuni :
il simbolo d'integrale, l'ho sostituito cn la parola integrale, e la freccetta verso destra l'ho creata io (->).
Qndi è inutile copiare qsto codice sperando ke giri senza modificare qsti due caratteri
()
Prgm
ClrIO
Dialog
Title "Termodinamica"
Text "Calcola Tfin Incognita"
EndDlog
Dialog
Title "Capacità termica GAS LIQ SOL"
Text "Cp/R=A+BT+CT²+DT^2"
Request "Temp Iniziale[K]",t,0
Request "Iserisci Q [J]",q,0
Request "Iserisci moli ",w,0
EndDlog
expr(t) ->t
expr(q) ->q
expr(w) ->w
Dialog
Title "Ingresar Datos"
Request "A",a,0
Request "B",b,0
Request "C",c,0
Request "D",d,0
EndDlog
expr(a)->a
expr(b)->b
expr(c)->c
expr(d)->d
Dialog
Title "Metodo di Calcolo"
Text "Scegli la formula con cui"
Text " calcolare il /R"
DropDown "Formula",{"Tam","Tau","Integrale"},j
EndDlog
Dialog
Title "Immetti Tf di prova"
Request "Temp fin[K]",u,0
EndDlog
expr(u)->u
Lbl iter
If j=3 Then
setMode("Display Digits","FIX 4")
Disp "/R = "
((integrale(a+b*f+c*f^2+d/(f^2),f,t,u))/(u-t))->m
Disp m
Elseif j=1 Then
setMode("Display Digits","FIX 4")
Disp "/R = "
(a+(b*((t+u)/2))+(c/3)*((4*((t+u)/2)^2) +u*t)+ d/(u*t))->m
Disp m
Elseif j=2 Then
setMode("Display Digits","FIX 4")
Disp "/R = "
(a*t*((u/t)-1)+(b/2)*(t^2)*(((u/t)^2)-1)+(c/3)*(t^3)*(((u/t)^3)-1)+(d/t)*(((u/t)-1)/(u/t)))->m
Disp m
Endif
setMode("Display Digits","FIX 2")
Disp "Tf* ="
(t+(q/w)*(1/8.314)*(1/m))->n
Disp n
Pause
Dialog
Title "Calcolo finito?"
Text " Se Tf=Tf* hai finito"
DropDown "Tf=Tf*",{"NO","SI"},j
EndDlog
If j=2 Then
Goto end
Else
n->u
Goto iter
Endif
Lbl end
EndDlog
ClrHome
DispHome
EndPrgm
GUIDA al funzionamento del programma:
1. Vengono richieste in input : Temp Iniziale,Q,Moli,A,B,C,D e salvate nelle rispettive variabili tramite il comando expr(var)->var
2.Il programma chiede all'utente con quale "formula" calcolare il
/R (integrale, Tam e Tau)
3.Viene richiesta la 1° T di prova necessaria per iniziare così il calcolo iterativo
4.Il programma Calcola /R che viene salvato nella variabile m e plottato a video :
setMode("Display Digits","FIX 4")
Disp "/R ="
Disp m Dove FIX è il numero di cifre decimali
5. Utilizzando il /R Calcola la Tf* salvata nella variabile n e plottata (in qsto caso cn solo due cifre decimali FIX 2)
6. A questo punto il programma richiede di verificare se T prova e Tf* coincidono.
Se questo è vero, il prog termina, altrimenti torna al punto 4 utilizzando la Tf*