blob: 0fef49ef0c950a2967cbd8b153d9a5c406bc3c32 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
clc;
clear all;
disp("Maximum temperature rise")
a=1.25*10^(-5);//m^2/s
k=54;// W/(m.C)
A=4*360*10^(-4);//m^2
m=1600;//kg
v=90;// km/h
tau=9;//seconds
KE=0.5*m*v*v*(1000/3600)^2;
Q=KE/tau;
Qs=Q;
disp("W",Q,"heat flow rate at surface Qs =")
//Qs=-k*(ti-ta)/(3.1416*a*tau)^0.5;
delT=Qs*((3.1416*a*tau)^0.5)/(k*A);
disp("degree C",delT,"temperature rise ta-ti =")
|
