function enviar(porta,v,zeros,P_final);
%PE D
fwrite(porta,[64,zeros(1)+P_final(1),v, 65,zeros(2)-P_final(2),v,   66,zeros(3)-P_final(3),v]);
%PE E
fwrite(porta,[68,zeros(4)+P_final(4),v, 69,zeros(5)+P_final(5),v,   70,zeros(6)+P_final(6),v]);
%ANCA D
fwrite(porta,[72,zeros(7)+P_final(7),v, 73,zeros(8)+P_final(8),v,   74,zeros(9)+P_final(9),v]);
%ANCA E
fwrite(porta,[76,zeros(10)+P_final(10),v, 77,zeros(11)+P_final(11),v,   78,zeros(12)-P_final(12),v]);