summaryrefslogtreecommitdiff
path: root/2417/CH6/EX6.22/Ex6_22.sce
blob: 22a74043e1fcadc3cfd0fb40be4155466e4e5aa7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear;
clc;
printf("\t\t\tProblem Number 6.22\n\n\n");
// Chapter 6: The Ideal Gas
// Problem 6.22 (page no. 264) 
// Solution

//data
deltas=0.0743; //change in entropy //Unit:Btu/lbm*R
T1=460+100; //Fahrenheit temperature converted to absolute initial temperature
cv=0.219; //specific heat at constant volume //Btu/lbm*R
//Now,
//deltas=cv*log(T2/T1); 
T2=T1*exp(deltas/cv); //higher temperature //absolute temperature  //unit:R
printf("The higher temperature is %f R\n",T2)