summaryrefslogtreecommitdiff
path: root/1328/CH6/EX6.2/6_2.sce
blob: 1a46a354d4f6016b779cec601ef6a28e9509884e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
printf("\t example 6.2 \n");
printf("\t approximate values are mentioned in the book \n");
T1=300; // inlet hot fluid,F
T2=200; // outlet hot fluid,F
t1=190; // inlet cold fluid,F
t2=220; // outlet cold fluid,F
n=6; // number of parallel streams
P=((T2-t1)/(T1-t1));
printf("\t P is : %.3f \n",P);
R=((T1-T2)/((n)*(t2-t1)));
printf("\t R is : %.3f \n",R);
gama=((1-P)/((2.3)*((n*R)/(R-1))*log10(((R-1)/R)*(1/P)^(1/n)+(1/R)))); // using eq.6.35a
printf("\t gama is : %.3f \n",gama);
delt=(gama*(T1-t1)); // true temperature difference,F
printf("\ true temperature difference is : %.1f F \n",delt);
//end