def25=[0 1.081*10^(-3) 3.924*10^(-3) 5.890*10^(-3) 6.536*10^(-3) 7.664*10^(-3) 8.534*10^(-3) 0.01096 0.01143 0.01251 0.01373 0.01500 0.01600 0.01700 0.01800 0.01900 0.02000 0.02100 0.02200 0.02385 0.02600 0.02800 0.02999 0.03327 0.03600 0.03801 0.04000 0.04200 0.04401 0.04587 0.05364];
tens25=[0 0.028603 0.042290 0.043587 0.044733 0.046220 0.046987 0.049072 0.049473 0.050397 0.053860 0.055310 0.056445 0.057575 0.058710 0.059840 0.060980 0.062115 0.063245 0.065345 0.066160 0.066915 0.067665 0.068905 0.069380 0.069730 0.070080 0.070430 0.070780 0.071105 0.071105];
deformacion25=[0 6.794*10^(-4) 5.890*10^(-3) 6.536*10^(-3) 0.02385 0.03327 0.04587 0.05364]; %Deformación para los muros de 25 reducida
tension25=[0 0.027990 0.043587 0.044733 0.065345 0.068905 0.071105 0.071105]; %Tensión para los muros de 25 reducida
deforeps25=deformacion25/2; %Deformación normal para los muros de 25cm
plot(def25,tens25,'r','LineWidth',3); %Dibuja las leyes a cortante adoptada y la aproximada en los muros de 25cm
hold on;
plot(deformacion25,tension25,'g','LineWidth',3);
xlabel('Distorsión gamma');
ylabel('Cortante (MPa)');
title('Comparación entre ley aproximada y ley adoptada');
figure;
plot(deformacion25,tension25,'r','LineWidth',3); %Dibuja las leyes a cortante y a compresión de los muros de 25cm
hold on;
plot(deforeps25,tension25,'b','LineWidth',3);
xlabel('Deformación');
ylabel('Tensión (MPa)');
title('Leyes de comportamiento de los muros de 25cm');
def40=[0 6.476*10^(-4) 9.997*10^(-4) 1.115*10^(-3) 1.190*10^(-3) 1.231*10^(-3) 1.476*10^(-3) 1.694*10^(-3) 1.930*10^(-3) 2.195*10^(-3) 2.729*10^(-3) 3.192*10^(-3) 3.555*10^(-3) 4.000*10^(-3) 4.500*10^(-3) 5.000*10^(-3) 5.500*10^(-3) 6.000*10^(-3) 6.500*10^(-3) 7.000*10^(-3) 7.500*10^(-3) 8.000*10^(-3) 8.500*10^(-3) 9.000*10^(-3) 9.500*10^(-3) 0.01000 0.01050 0.01100 0.01150 0.01200 0.01259 0.01292 0.01421 0.01438 0.01500 0.01563 0.01597 0.01650 0.01700 0.01757 0.01800 0.01850 0.01891 0.01958 0.01996 0.02000 0.02050 0.02100 0.02133 0.02200 0.02250 0.02372 0.03385];
tens40=[0 0.041613 0.046583 0.048150 0.049146 0.049687 0.052720 0.054847 0.056860 0.059117 0.063000 0.065523 0.067027 0.068147 0.069160 0.070167 0.071333 0.071830 0.072600 0.073357 0.074870 0.075627 0.076383 0.077357 0.077900 0.078660 0.079410 0.078957 0.080927 0.081800 0.082340 0.083187 0.084020 0.084523 0.085433 0.086357 0.086880 0.087547 0.088193 0.088963 0.089377 0.089927 0.090433 0.090967 0.091270 0.091445 0.091880 0.092530 0.092900 0.093745 0.094350 0.094830 0.094860];
deformacion40=[0 1.476*10^(-3) 2.195*10^(-3) 2.729*10^(-3) 4.000*10^(-3) 7.000*10^(-3) 0.01422 0.01700 0.02200 0.02250 0.02372 0.03385]; %Deformación para los muros de 40 reducida
tension40=[0 0.052720 0.059117 0.063000 0.068147 0.073356 0.084020 0.088193 0.093745 0.094350 0.094830 0.094860]; %Tensión para los muros de 40 reducida
deforeps40=deformacion40/2; %Deformación normal para los muros de 40cm
figure;
plot(def40,tens40,'r','LineWidth',3); %Dibuja las leyes a cortante adoptada y la aproximada en los muros de 40cm
hold on;
plot(deformacion40,tension40,'g','LineWidth',3);
xlabel('Distorsión gamma');
ylabel('Cortante (MPa)');
title('Comparación entre ley aproximada y ley adoptada');
figure;
plot(deformacion40,tension40,'r','LineWidth',3); %Dibuja las leyes a cortante de los muros de 25 y 40cm
hold on;
plot(deformacion25,tension25,'b','LineWidth',3);
xlabel('Distorsión gamma');
ylabel('Cortante (MPa)');
title('Leyes de comportamiento a cortante');
figure;
plot(deformacion40,tension40,'r','LineWidth',3); %Dibuja las leyes a cortante y a compresión de los muros de 40cm
hold on;
plot(deforeps40,tension40,'b','LineWidth',3);
xlabel('Deformación');
ylabel('Tensión (MPa)');
title('Leyes de comportamiento de los muros de 40cm');
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
