summaryrefslogtreecommitdiff
path: root/2123/CH4/EX4.5/Exa_4_5.sce
blob: c66d557148b1c1b78582ea24757133b2be1ea9b6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Example No. 4.5
clc;
clear;
close;
format('v',6);

//Given Data : 
theta1=20;//degreeC
theta2=28;//degreeC
dthetaBYdt1=0.08;//degreeC/min
dthetaBYdt2=0.06;//degreeC/min
//theta=theta_f-(theta_f-theta1)*exp(-t/T)
//dtheta/dt=(theta_f-theta)/T
//dthetaBYdt1/dthetaBYdt2=(theta_f-theta1)/(theta_f-theta2)
theta_f=(theta2*dthetaBYdt1-theta1*dthetaBYdt2)/(dthetaBYdt1-dthetaBYdt2)
disp(theta_f,"Final temperature rise in degree C : ");
T=(theta_f-theta1)/dthetaBYdt1;//min
disp(T,"Heating time constant in min : ");