qgsls.m 419 Bytes
Newer Older
tilman.metz's avatar
tilman.metz committed
1 2 3 4 5 6 7 8 9 10 11 12 13

function q=qgsls(te,ts,L,w)
         
          % Q fuer den L-fachen standard linear solid:
            sumzQ=0;sumnQ=0;
            for l=1:L,
               d=1.0+w.*w*ts(l)*ts(l);
               sumzQ=((1.0+w.*w*te(l)*ts(l))./d)+sumzQ;
               sumnQ=(w*(te(l)-ts(l))./d)+sumnQ;
            end
          % Qualitaetsfaktor als Funktion der Frequenz fuer dem L-fachen SLS
           q=(1.0-L+sumzQ)./sumnQ;