2 files changed, 25 insertions, 0 deletions
diff --git a/698/CH15/EX15.11/11_heat_from_brake_drive.txt b/698/CH15/EX15.11/11_heat_from_brake_drive.txt
new file mode 100644
index 000000000..a4c269122
--- /dev/null
+++ b/698/CH15/EX15.11/11_heat_from_brake_drive.txt
@@ -0,0 +1,2 @@
+Hd=C*(T_surf-T-atm)*Ar
+Hd = 52.8 kW
+\ No newline at end of file
diff --git a/698/CH15/EX15.11/P11_heat_from_brake_drive.sce b/698/CH15/EX15.11/P11_heat_from_brake_drive.sce
new file mode 100644
index 000000000..40cb9357c
--- /dev/null
+++ b/698/CH15/EX15.11/P11_heat_from_brake_drive.sce
@@ -0,0 +1,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--------------------------------
+\ No newline at end of file