Code_Hamza.S_original

ClrHome
1.013*10^(5)->P
298.15->U
3.169*10^(3)->S
0.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 F=0:Then
Input "R EN KG(E)/KG(AS) :",X
Else
0->X
End
C+273.15->T
S*(U/T)^(B/R)*e^((A/R)*(1/U-1/T))->N
If F=0:Then
round((100*(X/(X+V/M))*P)/N,0)->F
End
If X=0:Then
(K*F*S)/(100*P*(T/U)^(B/R)*e^((A/R)*(1/T-1/U))-F*S)->X
End
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
Output(1,1,"theta=   ^^oC"
Output(1,3,C
Output(2,1,"Phi=    /100"
Output(2,3,F
Output(3,1,"H=      KJ/KG"
Output(3,3,H
Output(4,1,"VS=      M^3/KG"
Output(4,4,V
Output(5,1,"R="
Output(5,3,X
Output(6,1," KG(E)/KG(AS)"