summaryrefslogtreecommitdiff
path: root/698/CH15/EX15.11/P11_heat_from_brake_drive.sce
blob: 40cb9357ca83191968e0353c6b40dc8deeeecdb0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
clc
//Example 15.11
// Heat from brake drive

//------------------------------------------------------------------------------
//Given Data:

T_atm=28
T_surf=228
Ar=6
C=44

res11= mopen(TMPDIR+'11_heat_from_brake_drive.txt','wt')

Hd=C*(T_surf-T_atm)*Ar
mfprintf(res11,'Hd=C*(T_surf-T-atm)*Ar\n')
mfprintf(res11,'Hd = %0.1f kW',Hd * 1e-3)

mclose(res11);
editor(TMPDIR+'11_heat_from_brake_drive.txt')

//------------------------------------------------------------------------------
//--------------------------------End of program--------------------------------