Hamza.S_modifié

ClrHome
1.013*10^(5)->P
298.15->U
3.169*10^(3)->S
.622->K
4399->D
8.3145->R
57073->A
43.893->B
18->V
29->M
Input "theta EN ^^oC :",C
Input "Phi EN /100 :",F
If not(F:Then
Input "R EN KG(E)/KG(AS) :",X
Else
Delvar X
End
C+273.15->T
S*(U/T)^(B/R)*e^((A/R)*(1/U-1/T))->N
If not(F:round((100*(X/(X+V/M))*P)/N,0)->F
If not(X:(K*F*S)/(100*P*(T/U)^(B/R)*e^((A/R)*(1/T-1/U))-F*S)->X
round(1.006*C+X(1.826*C+2500),2)->H
round((R*T)/P*(1/V*X+1/M)*10^(3),4)->V
ClrHome
"CFHVX->str1
For(A,1,5)
Output(A,4,expr(sub(str1,A,1
End
Output(1,1,"theta=   ^^oC"
Output(2,1,"Phi=    /100"
Output(3,1,"H=      KJ/KG"
Output(4,1,"VS=      M^3/KG"
Output(5,1,"R="
Output(6,1," KG(E)/KG(AS)"