clear all

vu = visa('tek','USB0::0x0699::0x0363::C065088::INSTR');

%incrementa el tamaño del buffer
set(vu,'InputBufferSize',20000)

%abre la sesión Visa de comunicación con el osciloscopio
fopen(vu)

%setea pendiente positiva de trigger
%fprintf(vu,'TRIG:MAI:EDGE:SLO RISE')

%pide el nivel de trigger
%tritri=query(vu,'TRIG:MAI:LEV?')


%fprintf(vu,':DAT:ENC ASCI')

fprintf(vu,'DATA:SOURCE CH1')

fprintf(vu,'DAT:ENC RPB')
fprintf(vu,'DAT:WID 1')

ji=query(vu,'WFMPRE:XZE?;XIN?;YZE?;YMU?;YOFF?;');


fprintf(vu,'CURV?');
%hh=fscanf(vu);
%probar: 
[hh,count]=binblockread(vu,'uint8');

fclose(vu)

%gg=str2num(hh) si o no? no sé qué devuelve binblockread
%la conversión es 'datos_y'=(gg-YOFF)*YMU + YZE
%                     xend=XZE+XIN*length(gg)
%                 'datos_x'=[XZE:XIN:xend]
%gg=str2num(hh);
figure(1),plot(hh)
er=str2num(ji);
kl=(hh-er(5))*er(4)+er(3);
figure(5),plot(kl)