diff options
Diffstat (limited to '1367/CH7/EX7.5/7_5.sce')
-rwxr-xr-x | 1367/CH7/EX7.5/7_5.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/1367/CH7/EX7.5/7_5.sce b/1367/CH7/EX7.5/7_5.sce new file mode 100755 index 000000000..833324e44 --- /dev/null +++ b/1367/CH7/EX7.5/7_5.sce @@ -0,0 +1,15 @@ +//Find Stress
+//Ex:7.5
+clc;
+clear;
+close;
+n=3;
+a=300;
+v_cr=2.8*10^-8;// in cm/cm/hour creep rate
+x=log(v_cr)-n*log(a);
+a1=exp(x);
+t=365*24;//in hours
+e=2*10^6;//kgf/sqcm
+ai=750;//in kgf/sqcm
+a_tf=sqrt(1/((1/ai^(n-1))+(a1*e*(n-1)*t)));
+disp(a_tf,"Stress Remaining (in kgf/sq cm) = ");
\ No newline at end of file |