blob: ed14a011fbeba1d675b058f4ecc06217a5075b09 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
// sum 20-1
clc;
clear;
b=0.2;
P=50*10^3;
v=20;
m=1.95;
d=0.3;
D=0.9;
C=5.8;
u=0.4;
//Let density be rho
rho=1000;
E=40;
//Let T1-T2 = T
T=P/v;
//Let the centrifugal tension be Tc
Tc=m*v^2;
alpha=asind((D+d)/(2*C));
theta=180+(2*alpha);
theta=theta*%pi/180;
x = exp(u*theta);
T2=(((1-x)*Tc)-T)/(1-x);
//T1=T+T2;
T1=T+T2;
t=m/(b*rho)*10^3;
//Let maximum stress be sigmax
b=200;
d=300;
sigmax=(T1/(b*t)+((E*t)/d));
sigmin=(T2/(b*t));
// printing data in scilab o/p window
printf("T1 is %0.1f N ",T1);
printf("\n T2 is %0.1f N ",T2);
printf("\n t is %0.2f mm ",t)
printf("\n theta is %0.2f rad ",theta)
printf("\n sigmax is %0.2f N/mm^2 ",sigmax);
printf("\n sigmin is %0.3f N/mm^2 ",sigmin);
//The answer for T1 is miscalculated in the book.
|
