delete(instrfind(('Port'),('COM4')));
Puerto_serial=serial('COM4','BaudRate',115200);
set(Puerto_serial,'Terminator','LF/CR')
set(Puerto_serial,'Timeout',0.00000000001)
fopen(Puerto_serial);
%fwrite(Puerto_serial,ValorRef,'int8')
fscanf(Puerto_serial)%Puerto_serial.BaudRate=115200
ValorRef1=90;
ValorRef2=90;
ValorRef3=90;
while(1)
    fwrite(Puerto_serial,'F')
    %fscanf(Puerto_serial)
    fwrite(Puerto_serial,ValorRef1,'int8')
    %fscanf(Puerto_serial)
     fwrite(Puerto_serial,ValorRef2,'int8')
     %fscanf(Puerto_serial)
     fwrite(Puerto_serial,ValorRef3,'int8')
end
fclose all
fclose(Puerto_serial);
clear Puerto_serial