File:Acoustic weighting curves.svg

From Wikimedia Commons, the free media repository

• File
• File history
• File links

Description	Acoustic weighting curves.svg English: A, B, C and D acoustic weighting curves.
Date	2005-12-01 (first version); 2005-11-30 (last version)
Source	Own work. Mathematica, post-processed in Inkscape.
Author	Original uploader was Lindosland at en.wikipedia. Image recalculated with Mathematica to match article definitions by Inductiveload
Permission (Reusing this image)	Released into the public domain (by the author).
Other versions	Alternative version at Image:Weighting curves.png

[edit] 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}
 ]

[edit] License information

This image has been (or is hereby) released into the public domain by its author, Lindosland at the wikipedia project. This applies worldwide. In case this is not legally possible: Lindosland grants anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. العربية | Català | Česky | Dansk | Deutsch | Ελληνικά | English | Eesti | Suomi | Français | עברית | Italiano | 한국어 | Lietuvių | Македонски | Plattdüütsch | Nederlands | Polski | Română | Русский | Српски / Srpski | Svenska | ไทย | Vèneto | 中文 | ‪中文(简体)‬ | ‪中文(繁體)‬ | +/−

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

[edit] Original upload log

The original description page is/was here. All following user names refer to en.wikipedia.

• 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

File history

• Edit this file using an external application (See the setup instructions for more information)

File links