diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /3456/CH13 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '3456/CH13')
| -rw-r--r-- | 3456/CH13/EX13.1/Ex13_1.sce | 20 | ||||
| -rw-r--r-- | 3456/CH13/EX13.2/Ex13_2.sce | 16 | ||||
| -rw-r--r-- | 3456/CH13/EX13.3/Exx13_3.sce | 12 |
3 files changed, 48 insertions, 0 deletions
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);
|