Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 640 → Rev 641

/programy/C/ix86/echo/SW/sonar/src/sonar.c
376,10 → 376,13
}
}
 
//spocitejj frekvencni spektrum pro levy kanal
for(i=delayl[1]; i < delayl[1] + chirp_size; i++) inchirp[i-delayl[1]] = L_signal[i];
fftw_execute(fft_plan_chirp);
for(i=0; i < frequency_bins; i++) lecho_spect[i] = sqrt(outchirp[i][0] * outchirp[i][0] + outchirp[i][1] * outchirp[i][1]);
 
 
// napln pole daty z praveho kanalu a spocitej frekvencni spektrum
for(i=delayr[1]; i < delayr[1] + chirp_size; i++) inchirp[i-delayr[1]] = R_signal[i];
fftw_execute(fft_plan_chirp);
for(i=0; i < frequency_bins; i++) recho_spect[i] = sqrt(outchirp[i][0] * outchirp[i][0] + outchirp[i][1] * outchirp[i][1]);