Added new codeHEADmaster

9 files changed, 97 insertions, 0 deletions

diff --git a/3841/CH7/EX7.1/Ex7_1.sce b/3841/CH7/EX7.1/Ex7_1.sce
new file mode 100644
index 000000000..82896f0d7
--- /dev/null
+++ b/3841/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,16 @@
+clear
+//given
+//
+//find the brake horse power
+N=1150.
+Wt=151.
+l=4.
+Wo=22.
+//finding netforce
+//f=Wt-Wo
+F=Wt-Wo
+//then as
+R=4.
+//calculating Brake horse power
+Bhp=F*R*N/(5250.)
+printf("\n \n braking horse power %.2f bhp",Bhp)
diff --git a/3841/CH7/EX7.2/Ex7_2.sce b/3841/CH7/EX7.2/Ex7_2.sce
new file mode 100644
index 000000000..60ff1bb43
--- /dev/null
+++ b/3841/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,9 @@
+clear
+//given
+//find out what is torque produced by and engine
+N=850.
+bhp=62.
+//by writting terms in equation
+//5250 is dividing equation
+T=5250*bhp/(N)
+printf("\n \n torque produced by an engine %.2f lb-ft",T)
diff --git a/3841/CH7/EX7.3/Ex7_3.sce b/3841/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..6a0392d06
--- /dev/null
+++ b/3841/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,10 @@
+clear
+//given
+//find out brake mean effective pressure of a 6-cylinder
+D=5**0.75
+bhp=120.
+l=8.
+m=6.
+n=1000.
+bmep=1008000*((bhp/(D**2)*l*m*n))
+printf("\n \n brake mean effective pressure %.2f psi",bmep/2.95)
diff --git a/3841/CH7/EX7.4/Ex7_4.sce b/3841/CH7/EX7.4/Ex7_4.sce
new file mode 100644
index 000000000..b0d45893a
--- /dev/null
+++ b/3841/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,13 @@
+clear
+//compute brake mean effective pressure
+//given
+T=350.
+D=4**0.25
+L=5
+M=4
+//bmep for 4-cycle engine=192*t
+bmep=192*(T/(D**2)*L*M)
+//bmep for 2-cycle engine
+bmep2=bmep/2
+printf("\n \n bmep for 4-cycle %.2f psi",bmep)
+printf("\n \n bmep for 2-cycle %.2f psi",bmep)
diff --git a/3841/CH7/EX7.5/Ex7_5.sce b/3841/CH7/EX7.5/Ex7_5.sce
new file mode 100644
index 000000000..2b6dcf736
--- /dev/null
+++ b/3841/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,10 @@
+clear
+//given
+//find out mechanical efficency of an engine
+bhp=57.
+ihp=19.
+ihp1=ihp+bhp
+
+//computing according to equtaion
+Me=(bhp/ihp1)*100.
+printf("\n \n mechanical efficency %.2f percent",Me)
diff --git a/3841/CH7/EX7.6/Ex7_6.sce b/3841/CH7/EX7.6/Ex7_6.sce
new file mode 100644
index 000000000..74900ac7d
--- /dev/null
+++ b/3841/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,8 @@
+clear
+//find the mechanical efficency of the diesel engine
+//fid we set forth constant
+fhp=19
+bhp=57/2.
+ihp=bhp+fhp
+Bhp=(bhp/ihp)*100
+printf("\n \n mechanical efficeny %.2f bhp",Bhp)
diff --git a/3841/CH7/EX7.7/Ex7_7.sce b/3841/CH7/EX7.7/Ex7_7.sce
new file mode 100644
index 000000000..71e3a0d6f
--- /dev/null
+++ b/3841/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,12 @@
+clear
+//find the brake thermal efficency of an engine
+//given
+w=16.2
+t=20.
+p=126.
+q=19300.
+//during 20 minutes period of the test 126 bhp for a period 1/3 hour 126*(1/3.)
+btu=42.*2544.
+hi=16.2*19300.
+bth=(btu/hi)*100.
+printf("\n \n brake thermal efficency %.2f percent",bth)
diff --git a/3841/CH7/EX7.8/Ex7_8.sce b/3841/CH7/EX7.8/Ex7_8.sce
new file mode 100644
index 000000000..368d41dde
--- /dev/null
+++ b/3841/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,9 @@
+clear
+//find the brake thermal efficency
+//given
+f=0.44
+q=19500
+//for each bhp output is 2544
+hi=f*q
+bth=(2544./hi)*100.
+printf("\n \n brake thermal efficency %.2f bhp",bth)
diff --git a/3841/CH7/EX7.9/Ex7_9.sce b/3841/CH7/EX7.9/Ex7_9.sce
new file mode 100644
index 000000000..a30e90758
--- /dev/null
+++ b/3841/CH7/EX7.9/Ex7_9.sce
@@ -0,0 +1,10 @@
+clear
+//find fuel consumption when using fuel 18
+//given
+bth=38.
+//calculating heat input
+//1 bhp 2544
+hi=(2544./bth)*100.
+printf("\n \n heat input %.2f btu per hp",hi)
+F=hi/18390.
+printf("\n \n fuel consumption %.2f lb",F)