function [vys]= gen_ref_prs(NID1,NID2,NRBDL,prepo)   
% Generování LTE Rámce pro buòku 
% NID1 0 až 167, NID2 0 až 2
CellID=3*NID1+NID2;
NRBPRS=NRBDL;
Nfft=2048/prepo;

%     CRS pro celý rámec
    crs=gen_crs(CellID,0,NRBDL);
    crs=[zeros(1,7); crs(37:72,:); zeros(55,7); crs(1:36,:)];

for a=3:5
    crs0=gen_crs(CellID,a,NRBDL);
    crs0=[zeros(1,7); crs0(37:72,:); zeros(55,7); crs0(1:36,:)];
    crs=[crs crs0];
end

%     PRS pro celý rámec
    prs=gen_prs(CellID,2,NRBDL,NRBPRS);
    prs=[zeros(1,7); prs(37:72,:); zeros(55,7); prs(1:36,:)];
    
for a=3:7
    prs1=gen_prs(CellID,a,NRBDL,NRBPRS);
    prs1=[zeros(1,7); prs1(37:72,:); zeros(55,7); prs1(1:36,:)];
    prs=[prs prs1];
end    
    frame=prs;

% pro vykresleni s DC uprostred
for i=1:length(frame(1,:))
    frame1(:,i)=fftshift(frame(:,i));
end

% pøevod do èasové oblasti
tx_t=(frame(:,1))'; %vybrání OFDM symbolu
tx_t=ifft(tx_t); %pøevod do èasové oblasti
tx=[tx_t(119:128) tx_t]; % pøidání CP

b=1;
l=(8:7:141);

for i=2:length(frame(1,:))
    tx_t=(frame(:,i))'; %vybrání OFDM symbolu
    tx_t=ifft(tx_t); %pøevod do èasové oblasti
    
    if i==l(b)
        b=b+1;
        tx_t=[tx_t(119:128) tx_t]; % pøidání CP
        
    else
        tx_t=[tx_t(120:128) tx_t]; % pøidání CP
    end

    tx=[tx tx_t];
end

vys=tx;

% a=frame1;
% figure
% [r,c] = size(~abs(a));                           %# Get the matrix size
% imagesc((1:c)+0.5,(1:r)+0.5,~abs(a));            %# Plot the image
% colormap(gray);                              %# Use a gray colormap
% axis equal                                   %# Make axes grid sizes equal
% set(gca,'XTick',0:(c),'YTick',0:(r),...  %# Change some axes properties 
%     'XLim',[1 c+1],'YLim',[1 r+1],...   
%     'GridLineStyle','-','XGrid','on','YGrid','on');
% title('generovaný LTE rámec')
end
