From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3526/CH16/EX16.9/EX16_9.sce | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 3526/CH16/EX16.9/EX16_9.sce

(limited to '3526/CH16/EX16.9/EX16_9.sce')

diff --git a/3526/CH16/EX16.9/EX16_9.sce b/3526/CH16/EX16.9/EX16_9.sce
new file mode 100644
index 000000000..fe9c18f29
--- /dev/null
+++ b/3526/CH16/EX16.9/EX16_9.sce
@@ -0,0 +1,13 @@
+clc;funcprot(0);//EXAMPLE 16.7
+//page 500
+//INITIALISATION OF VAREIABLES
+sig1=980;...............//Initial Stress of POlyisoprene in psi
+sig2=1000;.............//Fnal Stress of POlyisoprene in psi
+sig3=1500;.............// Stress of POlyisoprene after one year in psi
+t1=6;................//time in weeks
+t2=52;.............//time in weeks
+//CALCULATIONS
+Rt=-t1/(log(sig1/sig2));.....//Relaxation time in weeks
+sig=sig3/(%e^(-t2/Rt));........//Initial Stress to be placed in psi
+disp(round(Rt),"Relaxation time in weeks:")
+disp(round (sig),"Initial Stress to be placed in psi:")
-- 
cgit