summaryrefslogtreecommitdiff
path: root/2252/CH13/EX13.1/Ex13_1.sce
blob: 6a42809c598c13be3d8763efbd6d8a811bd963ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

//temp. rise at any time t is theta=theta_f-(theta_f-theta_1)*exp(-t/T)
theta_1=0//initial temperature
//theta =25 degree C when t=1 hr; theta =37.5 degree C when t=2 hr
//on solving for T
T=1/log(2)
mprintf("Heating time constant=%f hr\n", T)
//on solving for theta_f
theta_f=25/(1-exp(-1/T))
mprintf("Final steady full load temperature rise theta_f=%f degree C\n", theta_f)
//Temp. fall at any time t is theta'=theta_f'+(theta_2-theta_f')*exp(-t/T')
//As the transformer is disconnected now, theta_f'=0
theta_2=theta_f
theta_dash=40-30
t=1.5
T=t/log(theta_2/theta_dash)
mprintf("Cooling time constant =%f hr", T)
//The answers vary from the textbook due to round off error