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
| clear all;
load stressdata3.mat
% données : v, B0, Frate, E, h, vp, Ep, Strain
z=length(Ep)
A=zeros(z,1);
B=zeros(z,1);
C=zeros(z,1);
D=zeros(z,1);
e=zeros(z,1);
Interp=zeros(z,1);
Sigma=zeros(z,1);
syms Z;
for i=1:z-1
Interp(i)=Ep(i)*(Time(i+1)-Time(i));
A(i)=((v-1)*B0*Frate(i))/(E*2*h)+(vp(i)-1)/Ep(i);
B(i)= 2*vp(i)*(1-v)*B0/(Ep(i)*E*2*h);
C(i)=(1-v)*B0*Strain(i)/2/h/E;
D(i)=-(1-v)*B0*2*vp(i)/(2*h*E*Interp(i));
e(i)=-Frate(i);
M(i)=A(i)*(Z+Sigma(i))/2+B(i)*((Z+Sigma(i))/2)^2+(Z-Sigma(i))/(Time(i+1)-Time(i))*C(i)+(Z-Sigma(i))/(Time(i+1)-Time(i))*D(i)*(Time(i+1)-Time(i))*sum(Sigma)+e(i);
Sigma(i)=double(Solve(M(i)));
end |
Partager