1 files changed, 16 insertions, 0 deletions
diff --git a/2666/CH8/EX8.1/8_1.sce b/2666/CH8/EX8.1/8_1.sce
new file mode 100755
index 000000000..d7eef7cd1
--- /dev/null
+++ b/2666/CH8/EX8.1/8_1.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+p1=53//psi
+p2=54//psi
+t=638//lb-ft
+d=275//rpm
+h1=50.26//sq in
+h2=49.48//sq in
+g=(10/12)//lb-ft
+h=33000//lbf
+//CALCULATIONS
+I=(p1*h1+p2*h2)*g*d/(h)//ihp
+P=2*%pi*d*t/h//bhp
+M=P/I*100//percent
+//RESULTS
+printf('the mechanical efficiency=% f percent',M)