summaryrefslogtreecommitdiff
path: root/1898/CH1/EX1.15/Ex1_15.sce
blob: e90c43fcb9599607c868b3c0c142c27c328952b5 (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
clear all; clc;

disp("Scilab Code Ex 1.15 : ")

//Given:
P= 20; //kN
d_hole = 40; //mm
normal_allow = 60; //MPa
shear_allow = 35; //MPa


//Diameter of Rod:
area1 = (P*10^3)/(normal_allow*10^6); //Area in m^2
d = ((sqrt((4*area1)/%pi))*1000); // Area = (%pi\4)d^2


//Thickness of disc:
V = P;
area2 = (V*10^3)/(shear_allow*10^6); //Area in m^2
thickness = (area2*10^6)/(d_hole*%pi);// A = pi*d*t
 

printf("\n\nThe cross sectional area of disc   = %.8f m^2",area1);
printf("\nThe diameter of rode               = %.2f mm",d);
printf("\nThe thickness of disc              = %.2f mm",thickness);

//------------------------------------------------------------------------END------------------------------------------------------------------------------------