Vai al contenuto

Primario: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondario: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Sfondo: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
Corsi di Laurea










ROX @ Unisa - Forum degli studenti di Ingegneria utilizza i cookie. Se prosegui la navigazione accetti il loro uso.    Accetto l'uso dei cookie
-->
Foto

Programmi di esempio


  • Effettua l'accesso per rispondere
Questa discussione ha avuto 15 risposta/e

#1
westmere

westmere

    Admin

  • Amministratore
  • 755 Messaggi:
Per iniziare a programmare credo sia opportuno prendere spunto da altri programmi, in modo da poter verificare di persona qual è il risultato ottenibile sulla calcolatrice attraverso il codice scritto nel programma stesso.

Esempio: se scrivete


Dialog
Title "Schermo di prova"
Text "Programma di esempio per"
Text "calcolatrice TI-89 Titanium"
EndDlog

Sulla calcolatrice, avviando il programma, vi apparirà questo:

Immagine inviata

Spero che come inizio sia chiaro. Ecco il programma di esempio (perfettamente funzionante) per iniziare a capire un pò la metodica di programmazione:

Scarica main.antoine.89p


Immagine inviata

#2
diego

diego

    Admin

  • Utente
  • StellaStellaStella
  • 467 Messaggi:
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" :lol: :mrgreen:

Scarica

Ecco 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*

r0xitadminanimnv4.gif


#3
g.sessa21

g.sessa21

    Advanced Member

  • Utente
  • StellaStellaStella
  • 40 Messaggi:
Avreste qualche altro programmino xke mi sto cimentando con la programmazione e trovo qualche difficoltà fatevi sentire presto il tempo scorre :azz: vi ringrazio in anticipo

#4
westmere

westmere

    Admin

  • Amministratore
  • 755 Messaggi:
No, purtroppo per adesso queli che abbiamo a disposizione sono soltanto quei 2... :bounce:

Se magari trovi qualche altra cosa tu stesso puoi postarla qui :abb: :eye:

Cmq più precisamente qual è la difficoltà che hai? Magari riusciamo a risolvere insieme :eye:
Immagine inviata

#5
g.sessa21

g.sessa21

    Advanced Member

  • Utente
  • StellaStellaStella
  • 40 Messaggi:
su questo (http://www.ticalc.or.../basic/science/) puoi trovare tanta roba ma non troppo utile per i nostri fini cmq quando salvo un dato con expr (es. expr(a)->a) eseguendo il programma sulla calcolatrice nel Main rimane inizializzata la variabile e occupa spazio......secondo te alla fine del programma ci può essere un qualcosa da aggiungere bello script, tipo clearxxx, per evitare che la Main si riempia di letterine?

#6
westmere

westmere

    Admin

  • Amministratore
  • 755 Messaggi:
Per Main intendi la Home? Se si, puoi provare ad inserire
ClrHome
prima di
EndPrgm

Immagine inviata

#7
g.sessa21

g.sessa21

    Advanced Member

  • Utente
  • StellaStellaStella
  • 40 Messaggi:
nn intendevo la Home cmq se sulla t89 premi 2nd e poi VAR-Link compare la main, oltre ai programmi istallati ti compaiono tutte le variabili che usi nei programmi.....cmq ho risolto mettendo all'inizio e alla fine del programma tipo questo di sotto "DelVar":
()
Prgm
ClrIO
Delvar a,b,c,d,t1,t2,m
Dialog
Title "Cp[TOU]"
Request "Temp Iniziale[K]",t1,0
Request "Temp Finale[K]",t2,0
Request "A",a,0
Request "B",b,0
Request "C",c,0
Request "D",d,0
EndDlog
expr(t1)->t1
expr(t2)->t2
expr(a)->a
expr(b)->b
expr(c)->c
expr(d)->d
setMode("Display Digits","FIX 4")
Disp "/R = "
(a*t1*((t2/t1)-1)+(b/2)*(t1^2)*(((t2/t1)^2)-1)+(c/3)*(t1^3)*(((t2/t1)^3)-1)+(d/t1)*(((t2/t1)-1)/(t2/t1)))->m
Disp m
Pause
Delvar a,b,c,d,t1,t2,m
Lbl end
ClrHome
DispHome
EndPrgm

edit: ti ho modificato il codice mettendolo nello stile più appropriato,
westmere


#8
westmere

westmere

    Admin

  • Amministratore
  • 755 Messaggi:

se sulla t89 premi 2nd e poi VAR-Link compare la main, oltre ai programmi istallati ti compaiono tutte le variabili che usi nei programmi.


Purtroppo non avrei potuto aiutarti visto che me ne sono accorto anche io proprio adesso :denti:. Io solitamente il main ce l'ho sempre chiuso quindi non lo guardo mai.

Per fortuna cmq hai risolto :eye: :abb:
Immagine inviata

#9
g.sessa21

g.sessa21

    Advanced Member

  • Utente
  • StellaStellaStella
  • 40 Messaggi:
Ho appena fatto un programmino che calcola A12 e A21 delle Margules come te lo invio?

#10
westmere

westmere

    Admin

  • Amministratore
  • 755 Messaggi:
Lo puoi mettere come allegato al tuo messaggio (magari un .zip) oppure incollare qui direttamente il codice. Sarebbe più comoda la prima soluzione
Immagine inviata

#11
g.sessa21

g.sessa21

    Advanced Member

  • Utente
  • StellaStellaStella
  • 40 Messaggi:
e come lo allego?

#12
westmere

westmere

    Admin

  • Amministratore
  • 755 Messaggi:
Dobbiamo ripristinare la guida andata persa assieme al database...

Cmq se scorri in basso la pagina di inserimento del messaggio, troverai il modulo "invia allegato". Da lì scegli il file e poi clicchi su "aggiungi file". Non appena sarà caricato invii il messaggio :eye:
Immagine inviata

#13
h.sara

h.sara

    Newbie

  • Utente
  • Stella
  • 8 Messaggi:
Diego volevo chiederti una cosa riguardo la tf ke ho sulla calcolatrice,quando posso usarla??mi permette di calcolare la t finale cioè la t in uscita dal reattore con il procedimenti iterativo???...xkè fino ad adesso non l'avevo mai usata perchè nn sapevo con sicurezza cosa mi calcolava se xò è 1programma ke mi permette di fare quello ke ho appena detto cioè 1 calcolo così palloso e lungo in pokissimo tempo allora mi congratulo con te...ti ringrazio anticipatamente per la risposta...1 bacio :mrgreen: Sara

#14
diego

diego

    Admin

  • Utente
  • StellaStellaStella
  • 467 Messaggi:

mi permette di calcolare la t finale cioè la t in uscita dal reattore con il procedimenti iterativo???


Bhè si, il prog opera nel seguente modo :

Immagine inviata

Poi per provare il funzionamento, prima di arrivare all'esame ti consiglio di fare un esercizio, prima senza il prog e poi con, così ti rendi conto di come lavora !!


P.s. Fai attenzione qndo nel calcolo usi $ Sigma_i n_1 * A_i $ etc perchè in quel caso già tieni conto delle moli, e qndi alla richiesta di n dovrai inserire 1....


Ciaoo

r0xitadminanimnv4.gif


#15
diego

diego

    Admin

  • Utente
  • StellaStellaStella
  • 467 Messaggi:

mica è in grado di calcolarmi la t in uscita da un reattore adiabatico con il calcolo iterativo (esempio :la tf del secondo esercizio dell'esame)???


NO NO!! Per quel tipo di esercizio nn và bene...

Qsto programma calcola la T in uscita dal reattore conoscendo la Q e il numero di moli... in particolare l'ho scritto per risolvere questo tipo di problemi:

Esempio.
Calcolare la T finale di una portata pari a 30 $ (moli)/s $ di $ SO_2 $ che passa in uno scambiatore Stady Flow a P Atm. La T iniziale è 300 °C e allo scambiatore vengono forniti 1100 W di potenza termica.

Se controlli sugli appunti dovresti averlo.

Ciaoo

r0xitadminanimnv4.gif


#16
h.sara

h.sara

    Newbie

  • Utente
  • Stella
  • 8 Messaggi:
OK..grazie Diego...ora nn ho più dubbi...baci :yeah:




Leggono questa discussione 0 utenti

0 utenti, 0 ospiti, 0 utenti anonimi