File: freqdev.m

package info (click to toggle)
hf 0.7.3-4etch1
  • links: PTS
  • area: main
  • in suites: etch
  • size: 3,684 kB
  • ctags: 3,156
  • sloc: ansic: 26,447; cpp: 4,909; sh: 3,785; makefile: 309
file content (4 lines) | stat: -rw-r--r-- 211 bytes parent folder | download | duplicates (3) 
1
2
3
4
 
for j=0:99, b(j+1) = (cos(2*1200*pi*(1:80)/8000)*cos(2*(1200+j)*pi*(1:80)/8000)')^2+(cos(2*1200*pi*(1:80)/8000)*sin(2*(1200+j)*pi*(1:80)/8000)')^2, end;
plot(0:99,10*log10(b))
pause
plot(0:19,10*log10(b(1:20)))