clear
%%%%%%%%%%%%%%%%%% TCL SCRIPT START %%%%%%%%%%%%%%%%%%
WIDTH = 64;
prb = ' ';
size_pkg_jesd     = num2str(3); % Размер пакта ЦМР 1024 range 1..3
size_mods         = num2str(55); % Режим работы РЛС
delay_zi_from_izp = num2str(0); % Задержка ЗИ от ИЗП
delay_zi_rx       = num2str(0); % Задержка начала передачи из МО
path_quartus = 'C:\intelFPGA\18.0\quartus\bin64\quartus_stp.exe -t write_read_ROM.tcl ';


comand = [path_quartus,size_pkg_jesd,prb,...
          size_mods,prb,...
          delay_zi_from_izp,prb,...
          delay_zi_rx
    ];
[~,cmdout] = system(comand);
disp(cmdout);
%%%%%%%%%%%%%%%%%% TCL SCRIPT STOP  %%%%%%%%%%%%%%%%%%

F=1;
dr='./dataram/CycloneRAM.hex';
fileID=fopen(dr,'r');
a1=(textscan(fileID,'%27s',8192,'Delimiter','\n'));
fclose(fileID);
c1=a1{1,1};
cnt=uint32(1);
yx1=zeros(1, (1024)*str2double(size_pkg_jesd)-1 );
yx2=yx1;
offset = 0;
c =0;

q=quantizer('fixed','floor','saturate',[WIDTH 0]);
for i=1:1:8192
        g1=cell2mat(c1(i));
        yx1(uint32(i))=(hex2num(q,g1((25-16)+1:25)));

 end

t=linspace(0,length(yx1)/F,length(yx1));

figure(66);
t_izi = 1:length(yx1);
S = yx1;
plot(t_izi(1:end)/F, S(1:end),'--o');grid on;

xt = find(yx2 == max(yx2));
yt = max(yx2);
str = [num2str(xt(end)),' Target'];
text(xt(end),yt(end),str)