HP Prime : Programmes scientifiques

Partagez vos grands ou petits programmes scientifiques pour HP Prime.
News, programmes, tutoriaux, forum sur les calculatrices TI, Casio, NumWorks... !
https://tiplanet.org/forum/
EXPORT FRANKLIN()
BEGIN
LOCAL N,D,V,C1;
1▶C1;
WHILE C1==1 DO
INPUT(N,"Nombre gouttes");
INPUT(D,"Diamètre disque");
PRINT;
PRINT("Expérience de Franklin");
PRINT(" ");
PRINT("N = "+N+" gouttes dans 1 cm^3");
PRINT("d = "+D+" cm");
PRINT("Vs = "+N^-1+" cm^3");
1/N/500▶V;
PRINT("V = "+V+" cm^3");
V/π/(D/2)²▶E;
PRINT("e = "+E+" cm");
PRINT(" ");
PRINT("Appuyer sur touche pour continuer...");
WAIT;
CHOOSE(C1,"autre calcul ?","oui","non");
END;
END;
EXPORT DiagEcran()
BEGIN
LOCAL c,rep,a,b,r;
PRINT;
INPUT(c,"Entrez diagonale de l'écran en pouces");
CHOOSE(rep,"Profil de l'écran","16/9","16/10","4/3","5/4");
CASE
IF rep==1 THEN 16/9▶r; END;
IF rep==2 THEN 16/10▶r; END;
IF rep==3 THEN 4/3▶r; END;
IF rep==4 THEN 5/4▶r; END;
END;
√(c²/(r²+1))▶a;
r*a▶b;
PRINT("Diagonale de l'écran = "+c+" pouces");
PRINT(" ");
PRINT("Diagonale de l'écran = "+c*2.54+" cm");
PRINT("sa hauteur = "+a*2.54+" cm");
PRINT("sa largeur = "+b*2.54+" cm");
END;