summaryrefslogtreecommitdiff
path: root/1367/CH7/EX7.5/7_5.sce
diff options
context:
space:
mode:
Diffstat (limited to '1367/CH7/EX7.5/7_5.sce')
-rwxr-xr-x1367/CH7/EX7.5/7_5.sce15
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