Diff of /fourier/ffracft.m [ff23f8] .. [586fe9] Maximize Restore

  Switch to unified view

a/fourier/ffracft.m b/fourier/ffracft.m
...
...
90
    
90
    
91
    % chirp convolution
91
    % chirp convolution
92
    
92
    
93
    c = pi/L/sina/4;
93
    c = pi/L/sina/4;
94
    chrp2=fftshift(exp(i*c*((-2*L):(2*L-1))'.^2));
94
    chrp2=fftshift(exp(i*c*((-2*L):(2*L-1))'.^2));
95
    frf=(cconv(middlepad(chrp2,8*L),middlepad(f,8*L),8*L));
95
    frf=(pconv(middlepad(chrp2,8*L),middlepad(f,8*L)));
96
    frf(2*L+1:6*L)=[];
96
    frf(2*L+1:6*L)=[];
97
    
97
    
98
    % chirp multiplication
98
    % chirp multiplication
99
    
99
    
100
    frf=frf.*chrp;
100
    frf=frf.*chrp;