1 files changed, 15 insertions, 0 deletions
diff --git a/2666/CH8/EX8.3/Ex8_3.sce b/2666/CH8/EX8.3/Ex8_3.sce
new file mode 100755
index 000000000..f7a1069eb
--- /dev/null
+++ b/2666/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+clear
+ihp= 500 //ihp
+w= 300 //rpm
+p= 80 //per cent
+r=2
+P1= 250 //psia
+P2= 30 //psia
+df= 0.82
+//CALCULAATIONS
+tm= 0.5*P1*(1+log(r))-P2
+D= (ihp*33000*(p/100)*12*4/(2*df*tm*%pi*w))^(1/3)
+//RESULTS
+printf (' Bore = %.1f in',D)