Mercurial > hg > audiostuff
diff spandsp-0.0.3/spandsp-0.0.3/tests/echo_dump.m @ 5:f762bf195c4b
import spandsp-0.0.3
author | Peter Meerwald <pmeerw@cosy.sbg.ac.at> |
---|---|
date | Fri, 25 Jun 2010 16:00:21 +0200 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/spandsp-0.0.3/spandsp-0.0.3/tests/echo_dump.m Fri Jun 25 16:00:21 2010 +0200 @@ -0,0 +1,60 @@ +% echo_dump.m +% David Rowe 23 Dec 2006 +% +% Plots echo can dump file values + +load dump.txt +load level.txt +st = 1; +en = length(dump); +%st=8000*0+1; en=8000*2; +tx = dump(st:en,1); +rx = dump(st:en,2); +ec = dump(st:en,4); +Ltx = dump(st:en,5); +Lrx = dump(st:en,6); +Lec = dump(st:en,7); +dtd = -9900 + 800*dump(st:en,8); +adapt = -9900 + 800*dump(st:en,9); +Lbgec = dump(st:en,10); + +figure(1); +plot(tx,"r;tx;", rx,"g;rx;", ec,"b;ec;", dtd,"g;dtd;"); +%plot(tx,"r;tx;", rx,"g;rx;", dtd,"w;dtd;"); +axis([0 en-st -1E4 1E4]); + +%__gnuplot_set__ terminal png size 450,338 +%__gnuplot_set__ output "~/Desktop/fxo_oslec.png" +%__gnuplot_set__ terminal png size 800,600 +%__gnuplot_set__ output "~/Desktop/fxo_oslec_large.png" +%replot; + +LtxdB = 20*log10(Ltx+1); +LrxdB = 20*log10(Lrx+1); +LecdB = 20*log10(Lec+1); +LbgecdB = 20*log10(Lbgec+1); + +figure(2); +plot(LtxdB,"r;LtxdB;", LrxdB,"g;LrxdB;", LtxdB-LrxdB,"w;LtxdB-LrxdB;", LtxdB-LecdB,"b;LtxdB-LecdB;", 80+5*dump(st:en,9), "w;adapt;", LtxdB-LbgecdB,"c;LtxdB-LbgecdB;", 90+5*dump(st:en,8), "r;dtd;"); +axis([0 en-st 0 100]); +grid; + +%__gnuplot_set__ terminal png size 800,600 +%__gnuplot_set__ output "~/Desktop/levels.png" +%replot; + +figure(3); +LRin = level(st:en,1); +LSin = level(st:en,2); +LSout = level(st:en,3); +LSgen = level(st:en,4); +axis([0 en-st -100 0]); +plot(LRin,"r;LRindB;", LSin,"g;LSindB;", LSout,"w;LSoutdB;", LSgen,"b;LSgendB;"); + +figure(4) +plot(dump(st:en,11), "r;Pstates;") +axis +figure(5) +plot(dump(st:en,12), "g;factor;") +figure(6) +plot(dump(st:en,13), "g;shift;")