summaryrefslogtreecommitdiff
path: root/683/CH10/EX10.2/PPJ_2.sce
blob: 50a3fc4ab50b1e47ecd7b03b298e71fed63d6a60 (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
// sum 10-2
clc;
clear;
p=3*8;
sigta=60;
d=150;
t=d/2*sqrt(((sigta+p)/(sigta-p))-1);
t=75*sqrt((84/36)-1);
t=40;
do=d+(2*t);
D=d+(2*t)+20;
w=10;
Ds=d+(2*w);
P=%pi*(Ds^2)*8/4;
sigp=310;
FOS=4;
sigb=77.5;
At=P/(sigb*2);
At=1300;
D=250;
db=45;
b=D;
a=1.8*b;
CD=D+(2*db*1.2);
sigp=310;
Pr=0.75*sigp*At;
Pr=Pr*10^-3;
t=40;
D1=d+(2*t)+20;
D2=D1+(4.6*31);
CD=D2-((3*t)+20);

  // printing data in scilab o/p window
  printf("Pr is %0.2f kN     ",Pr);
  printf("\n D1 is %0.0f mm     ",D1);
  printf("\n D2 is %0.1f mm     ",D2);
  printf("\n CD is %0.1f mm     ",CD);