From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1226/CH17/EX17.21/EX17_21.jpg | Bin 0 -> 92491 bytes
 1226/CH17/EX17.21/EX17_21.sce |  26 ++++++++++++++++++++++++++
 2 files changed, 26 insertions(+)
 create mode 100755 1226/CH17/EX17.21/EX17_21.jpg
 create mode 100755 1226/CH17/EX17.21/EX17_21.sce

(limited to '1226/CH17/EX17.21')

diff --git a/1226/CH17/EX17.21/EX17_21.jpg b/1226/CH17/EX17.21/EX17_21.jpg
new file mode 100755
index 000000000..a517f6fc7
Binary files /dev/null and b/1226/CH17/EX17.21/EX17_21.jpg differ
diff --git a/1226/CH17/EX17.21/EX17_21.sce b/1226/CH17/EX17.21/EX17_21.sce
new file mode 100755
index 000000000..fd55e95e4
--- /dev/null
+++ b/1226/CH17/EX17.21/EX17_21.sce
@@ -0,0 +1,26 @@
+clc;funcprot(0);//EXAMPLE 17.21
+// Initialisation of Variables
+n=4;.......................//No of cylinders
+D=0.075;.......................//Engine bore in m
+L=0.09;........................//Engine length in m
+err=39/8;.......................//Engine to rear axle ratio
+Dw=0.65;.........................//Wheel diameter in m
+pc=0.227;.......................//Petrol consumption in kg
+pmi=5.625;.........................//Mean effective pressure in bar
+C=43470;..............................//Calorific value of petrol in kJ/kg
+k=0.5;.............................//Four stroke engine
+sc=48;............................//Speed of the car in km/h
+d=3.2;.............................//Distance covered by car in km
+//Calculations
+sc1=sc*(1000/60);...................//Speed of the car in m/min
+Nt=sc1/(%pi*Dw);......................//Revolutions made by tire per min
+Ne=Nt*err;............................//Speed of engine shaft
+IP=(n*pmi*L*(%pi/4)*D*D*Ne*k*10)/6;........//Indicated power in kW
+disp(IP,"Indicated power (in kW):")
+sc2=sc/60;.......................//Speed of the car in km/min
+t=d/sc2;..........................//Time for covering 3.2 km in min
+fc=pc/(t*60);.....................//Fuel consumed per second in kg
+etait=IP/(fc*C);...............//Indicated thermal efficiency
+disp(etait*100,"Indicated thermal efficiency (%):")
+
+
-- 
cgit