Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 640 → Rev 641

/programy/C/ix86/echo/SW/signal.gp
0,0 → 1,15
!./sonar/src/sonar
set pm3d map
#set parametric
#set terminal monochrome
#set size 1,1
#set origin 0,0
#set xrange [0:5]
#set yrange [0:2e9]
#set autoscale y
#set key on
#set ytics 1e9
 
splot "/tmp/sonar.txt" using 2, "" using 3
pause 1
reread
/programy/C/ix86/echo/SW/sonar/src/sonar
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/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]);