blob: fe9c18f2942e55f4fd73d3c2e5c55633f131d48f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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:")
|
