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/CH30/EX30.1/CD_1.sce | 17 +++++++++++++++++
 683/CH30/EX30.2/CD_2.sce | 20 ++++++++++++++++++++
 683/CH30/EX30.3/CD_3.sce | 32 ++++++++++++++++++++++++++++++++
 683/CH30/EX30.4/CD_4.sce | 20 ++++++++++++++++++++
 4 files changed, 89 insertions(+)
 create mode 100755 683/CH30/EX30.1/CD_1.sce
 create mode 100755 683/CH30/EX30.2/CD_2.sce
 create mode 100755 683/CH30/EX30.3/CD_3.sce
 create mode 100755 683/CH30/EX30.4/CD_4.sce

(limited to '683/CH30')

diff --git a/683/CH30/EX30.1/CD_1.sce b/683/CH30/EX30.1/CD_1.sce
new file mode 100755
index 000000000..b5030a9c4
--- /dev/null
+++ b/683/CH30/EX30.1/CD_1.sce
@@ -0,0 +1,17 @@
+// sum 30-1
+clc;
+clear;
+n1=17;
+n2=51;
+C=300;
+p=9.52;
+Ln=(2*C/p)+((n1+n2)/2)+((((n2-n1)/(2*%pi))^2)*(p/C));
+x=(Ln-((n2+n1)/(2)))^2;
+y=8*(((n2-n1)/(2*%pi))^2);
+z=Ln-((n1+n2)/2);
+C=(p/4)*(z+(sqrt(x-y)))
+
+
+  // printing data in scilab o/p window
+  printf("C is %0.2f mm ",C);
+  
diff --git a/683/CH30/EX30.2/CD_2.sce b/683/CH30/EX30.2/CD_2.sce
new file mode 100755
index 000000000..6bcc9db02
--- /dev/null
+++ b/683/CH30/EX30.2/CD_2.sce
@@ -0,0 +1,20 @@
+// sum 30-2
+clc;
+clear;
+G=4;
+n1=17;
+n2=n1*G;
+N1=2300;
+Kc=1.2; //from table 30-2
+p=12.7; //fom table 30-1
+D1=p*n1;
+D2=p*n2;
+phi=2*10.6;
+x=tan(phi/2); //phi/2 = 10.6deg, from table 30-3
+Da1=(p/x)+(0.6*p);
+Da2=(p/x*4)+(0.6*p);
+Cmin=Kc*((Da1+Da2)/2);
+Ln1=(2*Cmin/p)+((n1+n2)/2)+((((n2-n1)/(2*%pi))^2)*(p/Cmin));
+Ln1=80;
+  // printing data in scilab o/p window
+  printf("Ln is %0.0f  ",Ln1);
diff --git a/683/CH30/EX30.3/CD_3.sce b/683/CH30/EX30.3/CD_3.sce
new file mode 100755
index 000000000..c0f3bdd1f
--- /dev/null
+++ b/683/CH30/EX30.3/CD_3.sce
@@ -0,0 +1,32 @@
+// sum 30-3
+clc;
+clear;
+N1=1000;
+N2=500;
+P=2.03*10^3; //from table 30-8
+K1=1.26;
+Ks=1;
+//let Pc be the power transmitting capacity of the chain
+Pc=P*K1/Ks;
+p=9.52;
+n1=21;
+n2=42;
+V=n1*p*N1/(60*10^3);
+//Let the chain tension be T
+T=Pc/V;
+//Let the breaking load be BL
+BL=10700;
+FOS=BL/T;
+C=50*p;
+Ln=(2*C/p)+((n1+n2)/2)+((((n2-n1)/(2*%pi))^2)*(p/C));
+L=Ln*p;
+Pc=Pc*10^-3;
+
+  // printing data in scilab o/p window
+  printf("Pc is %0.2f KW  ",Pc);
+  printf("\n V is %0.3f m/s  ",V);
+  printf("\n T is %0.1f N  ",T);
+  printf("\n FOS is %0.2f   ",FOS);
+  printf("\n L is %0.2f mm  ",L);
+
+//The difference in the value of L and T is due to rounding-off the values.
diff --git a/683/CH30/EX30.4/CD_4.sce b/683/CH30/EX30.4/CD_4.sce
new file mode 100755
index 000000000..baffdd600
--- /dev/null
+++ b/683/CH30/EX30.4/CD_4.sce
@@ -0,0 +1,20 @@
+// sum 30-5
+clc;
+clear;
+G=2;
+P=5000;
+Ks=1.7;
+Pd=P*Ks;
+K2=1.7;
+p=15.88;
+n1=17;
+n2=n1*G;
+D1=n1*p;
+D2=n2*p;
+C=40*p;
+Ln=(2*C/p)+((n1+n2)/2)+((((n2-n1)/(2*%pi))^2)*(p/C));
+L=Ln*p;
+
+  // printing data in scilab o/p window
+  printf("L is %0.2f mm  ",L);
+//The difference in the value of L is due to rounding-off the values.
-- 
cgit