summaryrefslogtreecommitdiff
path: root/3289/CH8/EX8.6/Ex8_6.sce
blob: 0fcdb75cd64828817c86e4946bfe7e85ea1d7e40 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
clc

b=0.25 //m
w=6900*(2*%pi/60) //rpm
t1=0.075 //m
t2=0.015 //m
row=7.8*10^3//Ns^2/m^4
c1=t1

x=t2/t1
disp(x)

//(t2/t1)==(c1*exp(-(row*w^2/2*sigma)*b^2))/c1
//exp(-(row*w^2/2*sigma)*b^2)=x
//log(x)=-(row*w^2*b^2/2*sigma)
y=2*log(x)
disp(y)
sigma=-(row*w^2*b^2)/y
disp(sigma,"in Pa is= ")

//t=c1*exp(-row*(w^2/2*sigma)*r^2)
z=row*(w^2/(2*sigma))
disp(z)