File:Acoustic weighting curves.svg

DescriptionAcoustic weighting curves.svg	English: A, B, C and D acoustic weighting curves.
Date	1 December 2005 (original upload date)
Source	Own work (Original text: Own work. Mathematica, post-processed in Inkscape.)
Author	Lindosland at English Wikipedia. Image recalculated with Mathematica to match article definitions by Inductiveload
Other versions	Alternative version at Image:Weighting curves.png
SVG development InfoField	The source code of this SVG is invalid due to an error.   This W3C-invalid trigonometry was created with Mathematica.    This trigonometry uses embedded text that can be easily translated using a text editor.
Source code InfoField	Mathematica code a[f_] := Module[ {num, den}, num = (12200^2*f^4); den = (f^2 + 20.6^2)* Sqrt[(f^2 + 107.7^2)*(f^2 + 737.9^2)]*(f^2 + 12200^2); 2 + 20*Log[10, num/den] ]; b[f_] := Module[ {num, den}, num = (12200^2*f^3); den = (f^2 + 20.6^2)*Sqrt[(f^2 + 158.5^2)]*(f^2 + 12200^2); 0.17 + 20*Log[10, num/den] ]; c[f_] := Module[ {num, den}, num = (12200^2*f^2); den = (f^2 + 20.6^2)*(f^2 + 12200^2); 0.06 + 20*Log[10, num/den] ]; d[f_] := Module[ {a, h, b}, a = f/(6.8966888496476*10^-5); h = ((1037918.48 - f^2)^2 + (1080768.16* f^2))/((9837328 - f^2)^2 + (11723776*f^2)); b = Sqrt[h/((f^2 + 79919.29) (f^2 + 1345600))]; 20*Log[10, a*b] ]; LogLinearPlot[ {a[f], b[f], c[f], d[f]}, {f, 10, 100000}, PlotRange -> {-80, 20} ]

a[f_] := Module[
   {num, den},
   num = (12200^2*f^4);
   den = (f^2 + 20.6^2)*
     Sqrt[(f^2 + 107.7^2)*(f^2 + 737.9^2)]*(f^2 + 12200^2);
   2 + 20*Log[10, num/den]
   ];
b[f_] := Module[
   {num, den},
   num = (12200^2*f^3);
   den = (f^2 + 20.6^2)*Sqrt[(f^2 + 158.5^2)]*(f^2 + 12200^2);
   0.17 + 20*Log[10, num/den]
   ];
c[f_] := Module[
   {num, den},
   num = (12200^2*f^2);
   den = (f^2 + 20.6^2)*(f^2 + 12200^2);
   0.06 + 20*Log[10, num/den]
   ];
d[f_] := Module[
   {a, h, b},
   a = f/(6.8966888496476*10^-5);
   h = ((1037918.48 - f^2)^2 + (1080768.16*
         f^2))/((9837328 - f^2)^2 + (11723776*f^2));
   b = Sqrt[h/((f^2 + 79919.29) (f^2 + 1345600))];
   20*Log[10, a*b]
   ];
LogLinearPlot[
 {a[f], b[f], c[f], d[f]},
 {f, 10, 100000},
 PlotRange -> {-80, 20}
 ]

This work has been released into the public domain by its author, Lindosland at English Wikipedia. This applies worldwide. In some countries this may not be legally possible; if so: Lindosland grants anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.Public domainPublic domainfalsefalse

{{Rename image}} {{Rename media}} ← these tags have been added on en:Image:Lindos2.svg

• 2005-12-01 18:56 Lindosland 256×256 (68746 bytes)
• 2005-11-30 23:10 Lindosland 256×256× (63564 bytes) A,C and D weighting curves, created by lindosland using OpenOffice Draw