Gruppenlaufzeit

> p1 := semilogplot(eval( -diff(evalc(argument( butterworth1(I * y))), y), y = x )/(2 * Pi), x=0.01..100,color=black, labels=[`Frequenz`,`Gruppenlaufzeit`], title=`Butterworth Tiefpass 1.,3.,10. Ordnung`,titlefont=[HELVETICA,BOLD,9], numpoints=200,thickness=2,axes=boxed,linestyle=1, view=[0.01..100,0.0..2]):

> p2 := semilogplot(eval( -diff(evalc(argument( butterworth3(I * y))), y), y = x )/(2 * Pi), x=0.01..100,color=red, numpoints=200,thickness=2,axes=boxed,linestyle=1, view=[0.01..100,0.0..2]):

> p3 := semilogplot(eval( -diff(evalc(argument( butterworth10(I * y))), y), y=x )/(2 * Pi), x=0.01..100,color=blue, numpoints=200,thickness=2,axes=boxed,linestyle=1, view=[0.01..100,0.0..2]):

> plots[display]({p1,p2,p3});



Copyright by Othmar Marti and Alfred Plettl, 2007-08-14