summaryrefslogtreecommitdiff
path: root/3772/CH8/EX8.14/Ex8_14.sce
blob: db5cda50973d0252fbf26e6098a1a4fdfaa22827 (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
42
43
44
45
// Problem 8.14,Page no.215

clc;clear;
close;

L=70 //cm //Length of Longest plate
n=10 //Number of turns
b_1=5 //cm //width of plates
P=3.5 //KN //central Load
t=6 //mm //thickness of plates
L=75 //cm //Length of plates
y_c=1.8 //cm //central deflection
sigma=190 //MPa //allowable bending stress
//b=12*t
E=200 //GPa //Modulus of Elasticity

//Calculation
//The Above Equation is in the form of ax**2+bx+c=0
a=1
b=-2.93*10**-3
c=-2.93*10**-4

y_c=3*P*L**3*(8*n*E*b*t**3)**-1 //Deflection (//Equation 1)
sigma=3*P*L*(2*n*b*t**2)**-1 //stress
//Dividing Equation 1 by Equation 2 we get
//y_c*sigma**-1=L**2*(4*E*t)**-1
//After substituting values in above equation and further simplifying we get
t=190*10**6*0.7**2*(1.8*10**-2*4*200*10**9)**-1*10**3 //thickness of plate
b=12*t //Width of plates

//sigma=3*2**-1*P*L*(n*b*t**2)**-1 //stress
//After substituting values in above equation and further simplifying we get
n=3*3.5*10**3*0.7*(2*190*10**6*0.077583*(6.465*10**-3)**2)**-1

//Now sigma*y**-1=E*R**-1 
//simplifying above equationwe get
R=200*10**9*6.465*10**-3*(2*190*10**6)**-1 //Radius of Curvature
a=L*10**-2*(2*n)**-1*10**3 //Overlap

//Result
printf("size of the plate is: %.2f",b);printf(" mm")
printf("\n                     : %.2f",t);printf(" mm")
printf("\n Overlap of plates is %.2f",a);printf(" mm")
printf("\n Number of plates is %d",ceil(n))
printf("\n The Radius of curvature is %.3f m",R)