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

---
 3456/CH13/EX13.1/Ex13_1.sce  | 20 ++++++++++++++++++++
 3456/CH13/EX13.2/Ex13_2.sce  | 16 ++++++++++++++++
 3456/CH13/EX13.3/Exx13_3.sce | 12 ++++++++++++
 3 files changed, 48 insertions(+)
 create mode 100644 3456/CH13/EX13.1/Ex13_1.sce
 create mode 100644 3456/CH13/EX13.2/Ex13_2.sce
 create mode 100644 3456/CH13/EX13.3/Exx13_3.sce

(limited to '3456/CH13')

diff --git a/3456/CH13/EX13.1/Ex13_1.sce b/3456/CH13/EX13.1/Ex13_1.sce
new file mode 100644
index 000000000..48295bdb9
--- /dev/null
+++ b/3456/CH13/EX13.1/Ex13_1.sce
@@ -0,0 +1,20 @@
+//Example 13.1
+//Engineering Creep
+//Page No. 461
+clc;clear;close;
+
+sf=3;                 //no unit
+per=1/1000;           //in %
+T(1)=1100;            //in Fahrenheit
+T(2)=1500;            //in Fahrenheit
+C(1)=30000;                //from fig 13-17 in book
+C(2)=4000;                //from fig 13-17 in book
+W(1)=C(1)/sf;
+W(2)=C(2)/sf;
+W1(1)=W(1)*0.00689;
+W1(2)=W(2)*0.00689;
+printf('\n-----------------------------------------------------------------------------------\n');
+printf('Temperature\tCreep Strength, psi\tWorking Stress, psi\tWorking Stress, MPa\n');
+printf('-----------------------------------------------------------------------------------');
+printf('\n1100 F\t\t\t%i\t\t\t%i\t\t\t%g\n',C(1),W(1),W1(1));
+printf('\n1500 F\t\t\t%i\t\t\t%i\t\t\t%g\n',C(2),W(2),W1(2));
diff --git a/3456/CH13/EX13.2/Ex13_2.sce b/3456/CH13/EX13.2/Ex13_2.sce
new file mode 100644
index 000000000..46f65daf5
--- /dev/null
+++ b/3456/CH13/EX13.2/Ex13_2.sce
@@ -0,0 +1,16 @@
+//Example 13.2
+//Engineering Creep
+//Page No. 461
+clc;clear;close;
+
+deff('y=C(f)','y=(f-32)*(5/9)');
+R=1.987;               //in cal/mol K
+T2=1300;            //in Fahrenheit
+T1=1500;            //in Fahrenheit
+T2=C(T2)+273.15;
+T1=C(T1)+273.15;
+e2=0.0001;            //no unit
+e1=0.4;             //no unit
+Q=R*log(e1/e2)/(1/T2-1/T1);
+printf('\nActivation Energy = %g cal/mol',Q)
+printf('\n\n\nNote: Calculation Errors in book');
diff --git a/3456/CH13/EX13.3/Exx13_3.sce b/3456/CH13/EX13.3/Exx13_3.sce
new file mode 100644
index 000000000..cb70baa6c
--- /dev/null
+++ b/3456/CH13/EX13.3/Exx13_3.sce
@@ -0,0 +1,12 @@
+//Example 13.3
+//Prediction of long time properties
+//Page No. 464
+clc;clear;close;
+
+t=10^5;             //in hr
+C1=20;               //in no unit
+T1=1200;            //in Fahrenheit
+T2=1600;            //in Fahrenheit
+P_1200=(T1+460)*(log10(t)+C1);
+P_1600=(T2+460)*(log10(t)+C1);
+printf('\nAt T = 1200 F, P = %g\nAt T = 1600 F, P = %g\nAnd from the master ploy of Astroploy, corresponding stress required are sigma = 78000 psi and sigma = 11000 psi',P_1200,P_1600);
-- 
cgit