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

---
 683/CH10/EX10.1/PPJ_1.sce | 16 ++++++++++++++++
 683/CH10/EX10.2/PPJ_2.sce | 37 +++++++++++++++++++++++++++++++++++++
 683/CH10/EX10.3/PPJ_3.sce | 38 ++++++++++++++++++++++++++++++++++++++
 683/CH10/EX10.4/PPJ_4.sce | 32 ++++++++++++++++++++++++++++++++
 4 files changed, 123 insertions(+)
 create mode 100755 683/CH10/EX10.1/PPJ_1.sce
 create mode 100755 683/CH10/EX10.2/PPJ_2.sce
 create mode 100755 683/CH10/EX10.3/PPJ_3.sce
 create mode 100755 683/CH10/EX10.4/PPJ_4.sce

(limited to '683/CH10')

diff --git a/683/CH10/EX10.1/PPJ_1.sce b/683/CH10/EX10.1/PPJ_1.sce
new file mode 100755
index 000000000..946ab3b43
--- /dev/null
+++ b/683/CH10/EX10.1/PPJ_1.sce
@@ -0,0 +1,16 @@
+// sum 10-1
+clc;
+clear;
+sigta=140/2;
+nt=0.75;
+//Let the flow rate be Q
+Q=0.25;
+v=1.2;
+D=1.13*sqrt(Q/v);
+D=520;
+p=0.7;
+C=9;
+t=(p*D)/(2*sigta*nt)+C;
+
+  // printing data in scilab o/p window
+  printf(" t is %0.1f mm     ",t);
\ No newline at end of file
diff --git a/683/CH10/EX10.2/PPJ_2.sce b/683/CH10/EX10.2/PPJ_2.sce
new file mode 100755
index 000000000..50a3fc4ab
--- /dev/null
+++ b/683/CH10/EX10.2/PPJ_2.sce
@@ -0,0 +1,37 @@
+// sum 10-2
+clc;
+clear;
+p=3*8;
+sigta=60;
+d=150;
+t=d/2*sqrt(((sigta+p)/(sigta-p))-1);
+t=75*sqrt((84/36)-1);
+t=40;
+do=d+(2*t);
+D=d+(2*t)+20;
+w=10;
+Ds=d+(2*w);
+P=%pi*(Ds^2)*8/4;
+sigp=310;
+FOS=4;
+sigb=77.5;
+At=P/(sigb*2);
+At=1300;
+D=250;
+db=45;
+b=D;
+a=1.8*b;
+CD=D+(2*db*1.2);
+sigp=310;
+Pr=0.75*sigp*At;
+Pr=Pr*10^-3;
+t=40;
+D1=d+(2*t)+20;
+D2=D1+(4.6*31);
+CD=D2-((3*t)+20);
+
+  // printing data in scilab o/p window
+  printf("Pr is %0.2f kN     ",Pr);
+  printf("\n D1 is %0.0f mm     ",D1);
+  printf("\n D2 is %0.1f mm     ",D2);
+  printf("\n CD is %0.1f mm     ",CD);
\ No newline at end of file
diff --git a/683/CH10/EX10.3/PPJ_3.sce b/683/CH10/EX10.3/PPJ_3.sce
new file mode 100755
index 000000000..7e309de73
--- /dev/null
+++ b/683/CH10/EX10.3/PPJ_3.sce
@@ -0,0 +1,38 @@
+// sum 10-3
+clc;
+clear;
+p=14;
+d=50;
+sigyp=270;
+FOS=3;
+sigta=sigyp/FOS;
+pt=2*p;
+t=d/2*sqrt(((sigta+pt)/(sigta-pt))-1);
+t=10;
+D1=d+(2*t);
+Ds=D1+20;
+P=%pi*(Ds^2)*p/4;
+sigba=380/4;
+At=P/(4*sigba);
+At=245;
+db=20;
+Dd=70+(2*20)+5;
+R=db+2.5;
+B=(Dd/sqrt(2))+(2*(db+2.5));
+B=127;
+Y=Dd/(2*sqrt(2));
+Rm=34.12;
+M=(P*Y/2)+(P*Rm/%pi);
+sigfa=250/5;
+b=127/70;
+Z=b/6;
+tf=sqrt(M/(sigfa*Z));
+tf=44;
+
+  // printing data in scilab o/p window
+  printf("d is %0.0f mm     ",d);
+  printf("\n t is %0.0f mm     ",t);
+  printf("\n B is %0.0f mm     ",B);
+  printf("\n R is %0.1f mm     ",R);
+  printf("\n Y is %0.2f mm     ",Y);
+  printf("\n tf is %0.0f mm     ",tf);
\ No newline at end of file
diff --git a/683/CH10/EX10.4/PPJ_4.sce b/683/CH10/EX10.4/PPJ_4.sce
new file mode 100755
index 000000000..3418b1bbc
--- /dev/null
+++ b/683/CH10/EX10.4/PPJ_4.sce
@@ -0,0 +1,32 @@
+// sum 10-4
+clc;
+clear;
+p=1.25;
+D=200;
+nt=0.75;
+C=9;
+sigta=20;
+t=(p*D)/(2*sigta*nt)+C;
+t=18;
+D1=D+(2*t);
+dr=D1+10;
+sigp=310;
+sigba=sigp/4;
+db=16;
+Db=dr+32+5;
+Do=Db+(2*db);
+P=%pi*(251+db)^2*1.25/4;
+n=6;
+Y=(Db-dr)/2;
+M=P/n*Y;
+Z=dr*tand(30)/6;
+tf=sqrt(M/(sigta*Z));
+tf=22;
+Deff=dr+db+5;
+
+  // printing data in scilab o/p window
+  printf("D is %0.0f mm     ",D);
+  printf("\n t is %0.0f mm     ",t);
+  printf("\n Y is %0.1f mm     ",Y);
+  printf("\n tf is %0.0f mm     ",tf);
+  printf("\n Deff is %0.0f mm     ",Deff);
\ No newline at end of file
-- 
cgit