blob: 48295bdb9fc74ee96208193fb4868547a4ac317b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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));
|
