Forum TI-Planet.org

Partagez vos grands ou petits programmes scientifiques pour TI nspire.

Public concerné : élèves de seconde générale
Domaine : physique
Sujet : expérience de Benjamin Franklin concernant la taille d'une molécule d'acide oléique
Variables :
n est le nombre de gouttes contenues dans 1 mL d'une solution S d'acide oléique dilué au 1/500e dans l'acétone
d est le diamètre de la tache en cm
Vs est le volume en cm^3 d'une goutte de solution S
V est le volume en cm^3 d'acide oléique dans une goutte de solution S
e est l'épaisseur en cm de la tache donc la taille d'une molécule d'acide oléique

Listing

Code: Select all

Define franklin(n,d)=
Prgm
Local vs,v,e,c1: 1→c1
Loop
Disp "Expér. Franklin"
Disp "Nb de gouttes=",n
Disp "Diamètre d=",d
vs:=n^(−1)
v:=vs/500
e:=v/π/(d/2)^2
Disp "Vs=",approx(vs)
Disp "V=",approx(v)
Disp "e=",approx(e)
Request "autre calcul ? 0/1",c1
If c1≠1
Exit
EndLoop
EndPrgm


Fin de listing