Keysight E4428C ESG RF - Page 157

Keysight Signal Generators Programming Guide 149
Programming Examples
LAN Programming Interface Examples
invertedFreqDomain = 1./coeffs;
% convert to time domain (first placing the 0 frequency at the left edge)
timeDomain=ifft(ifftshift(invertedFreqDomain));
% put time domain 0 time in center
len=length(timeDomain);
if (mod(length(timeDomain), 2)==1) % odd
center=ceil(len/2);
centeredTime(1:(center-1)) = timeDomain(center+1:end);
centeredTime(center:len) = timeDomain(1:center);
else % even
topHalf = (length(timeDomain)/2)+1;
centeredTime(1:(topHalf-1)) = timeDomain(topHalf:end);
centeredTime(topHalf:len) = timeDomain(1:(topHalf-1));
end
% resample to desired rate if necessary
if (abs(destRate-rate)>1e-6)
% note that this resample function only works with integer rates
resampledTime = resample(centeredTime, destRate, rate, 30);
resampledTime = resampledTime.*(rate/destRate);
else
resampledTime = centeredTime;
end
% clip off the center 256 (if necessary)
if (length(resampledTime)>256)
% the peak point is assumed to be the center
[maxval, index] = max(abs(resampledTime));
center=index;
left = center-127;
right = left+255;
clippedTime=resampledTime((left):(right));
else
clippedTime = resampledTime;
end
corrFilter=clippedTime;
end
function array = readArrayOfDoubles(fid)
line = fgets(fid);
array = sscanf(line, '%g%*c');
end