summaryrefslogtreecommitdiff
path: root/3428/CH5/EX1.5.3/Ex1_5_3.sce
blob: ec5a92ca876879946c0d6d75985654cf788fedf5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Section-1,Example-3,Page no.-AC.440
//To predict tensile strength parallel to fibres.
clc;
Q_f=3200*10^6
E_f=230*10^9
Q_m=60*10^6
E_m=2.4*10^9
V_f=0.4
Q_fu=3.20
e_f=Q_f/E_f       //faliure strains of fibres
e_m=Q_m/E_m         //faliure strains of matrix
Q_m=E_m*e_f
Q_cu =((Q_fu*V_f)+((Q_m*(1-V_f)))
disp(Q_cu,'stress carried by composite at failure(GPa)')