- refactored

2022-06-30 13:32:40 +02:00
parent 77cd5261b1
commit 776932e5d1
144 changed files with 0 additions and 38 deletions
@@ -0,0 +1,85 @@
+% dtdet3
+function [a,rxds,xs,xl,es,clm,dtf] = dtdet(x,d,e,dti)
+nstates = 9;
+xsi  = 1;
+xli  = 2;
+dtsi = 3;
+esi  = 4;
+nli  = 5;
+eli  = 6;
+rxdi = 7;
+psxi = 8;
+psdi = 9;
+dtalki  = 10;
+
+% ------------------------------------------------------------------------
+% Double-Talk-Detector params
+ar = 0.05;
+af = 0.005;
+arrxd = 0.0004;
+afrxd = 1.0;
+al = 0.0001;
+pa = 0.7;
+pl = 2.0;
+po = 0.93;
+htime = 80;
+
+% ------------------------------------------------------------------------
+if (lge(dti) == 1);
+  dti = zeros(nstates,1);
+  dti(xli)=0.01;
+  dti(nli)=0.01;
+  dti(eli)=0.1;
+  dti(dtalki) = 0;
+end;
+% ------------------------------------------------------------------------
+
+fa = 8000;
+fc = 800;
+L = lge(x);
+M = 4;
+% ------------------------------------------------------------------------
+
+%d = iirtp(fa,fc,1,8,d);
+%x = iirtp(fa,fc,1,8,x);
+
+d = dosa(d,fa,M);
+x = dosa(x,fa,M);
+e = dosa(e,fa,M);
+
+
+%[xs,dti(xsi)] = phxs(x,ar,af,dti(xsi));
+%[xl,dti(xli)] = phxl(x,xs,al,pl,dti(xli));
+
+
+
+rxd = max(abs(corrph(x,d,40/M)));
+
+%[es,dti(esi)] = phxs(e,0.008,0.005,dti(esi));
+%[el,dti(eli)] = phxl(e,es,0.0001,pl,dti(eli));
+%[rxds,dti(rxdi)] = phxs(rxd*ones(L,1),arrxd,afrxd,dti(rxdi));
+
+%[nl,dti(nli)] = phnl(e,es,el,xs,xl,al,pl,dti(nli));
+%a = alpha(xs,xl,nl,pl,es,(rxd > po),pa);
+
+
+if (rxd > po)
+  if(dti(dtalki)==1)
+    a = [zeros(htime,1);ones(L-htime,1)];
+    dti(dtalki)=0;
+  else
+    a = ones(L,1);
+  end;
+else
+  a = zeros(L,1);
+  dti(dtalki)=1;
+end;
+rxds=ones(L,1)*rxd;
+    
+dtf = dti;
+xs=1;
+es=1;
+xl=1;
+clm=1;
+
+% ------------------------------------------------------------------------