-
Notifications
You must be signed in to change notification settings - Fork 48
Expand file tree
/
Copy pathmatlab_ict_plot_points.m
More file actions
45 lines (36 loc) · 1.06 KB
/
matlab_ict_plot_points.m
File metadata and controls
45 lines (36 loc) · 1.06 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
visa_brand = 'ni';
visa_address = 'TCPIP0::134.62.36.74::inst0::INSTR';
buffer = 20 * 1024; %20 KiB
record = 10000;
DpoMsoMdo = instrfind('Type', 'visa-tcpip', 'RsrcName', visa_address , 'Tag', '');
if isempty(DpoMsoMdo)
DpoMsoMdo = visa(visa_brand, visa_address, 'InputBuffer', buffer, ...
'OutputBuffer', buffer);
else
fclose(DpoMsoMdo);
DpoMsoMdo = DpoMsoMdo(1);
end
% Connect to instrument object
fopen(DpoMsoMdo);
%% Write
fwrite(DpoMsoMdo, 'VERBose 0');
fwrite(DpoMsoMdo, 'acq:state 0');
fwrite(DpoMsoMdo, 'head 0');
fwrite(DpoMsoMdo, 'acq:mod sam');
fwrite(DpoMsoMdo, 'hor:mode man');
fprintf(DpoMsoMdo, 'hor:reco %i', record);
fwrite(DpoMsoMdo, 'acq:state 1');
fwrite(DpoMsoMdo, 'curve?');
%% Read
fread(DpoMsoMdo, 1);
a = char(fread(DpoMsoMdo, 1));
bytes = char(fread(DpoMsoMdo, str2double(a))');
samples = zeros(record, 'int8');
samples = fread(DpoMsoMdo, record, 'int8');
fread(DpoMsoMdo, 1);
%% Close connection
fclose(DpoMsoMdo);
delete(DpoMsoMdo);
clear DpoMsoMdo;
% plot samples
plot(samples);