summaryrefslogtreecommitdiff
path: root/3864/CH7/EX7.1/Ex7_1.sce
blob: 98d6372dbd80a536c3dcef9f6f07899fea2ae760 (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
clear
//
//

//Initilization of Variables

sigma1=30 //N/mm**2 //Stress in tension
d=20 //mm //Diameter 
sigma2=90 //N/mm**2 //Max compressive stress
sigma3=25 //N/mm**2

//Calculations

//In TEnsion

//Corresponding stress in shear
P=sigma1*2**-1 //N/mm**2

//Tensile force
F=%pi*4**-1*d**2*sigma1

//In Compression

//Correspong shear stress
P2=sigma2*2**-1 //N/mm**2

//Correspong compressive(axial) stress
p=2*sigma3 //N/mm**2 

//Corresponding Compressive force
P3=p*%pi*4**-1*d**2 //N

//Result
printf("\n Failure Loads are: %0.2f  N",F)
printf("\n                  : %0.2f  N",P3)