clc; clear; w= [5 2;5 54;7 5;7 88;7 22;7 4;9 2;15 6;15 7;15 8;15 9;15 70;25 2;]; aux=w(1,1); m=size(w); num=1; ga=1; z(1,1)=aux; z(1,2)=0.15; for i=1:m(1,1) z(num,2)=0.15; if w(i,1) ~= aux aux=w(i,1); num=num+1; z(num,1)=aux; z(num,2)=0.15; end end display('Nombre Elemento | Espesor |Altura | M+ | M- | Vmax '); z