File:Acoustic weighting curves.svg

BeschreibungAcoustic weighting curves.svg	English: A, B, C and D acoustic weighting curves.
Datum	1. Dezember 2005 (Original-Hochladedatum)
Quelle	Eigenes Werk (Originaltext: Own work. Mathematica, post-processed in Inkscape.)
Urheber	Lindosland in der Wikipedia auf Englisch. Image recalculated with Mathematica to match article definitions by Inductiveload
Andere Versionen	Alternative version at Image:Weighting curves.png
SVG‑Erstellung InfoField	Der Quelltext dieser SVG-Datei ist W3C-invalid wegen eines Fehlers.   Dieses W3C-invalide Diagramm wurde mit Mathematica erstellt.    Dieses Diagramm verwendet Text-Einbettung, die mit einem Texteditor leicht übersetzbar ist.
Quelltext 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}
 ]

Dieses Werk wurde von seinem Urheber Lindosland in der Wikipedia auf Englisch als gemeinfrei veröffentlicht. Dies gilt weltweit. In manchen Staaten könnte dies rechtlich nicht möglich sein. Sofern dies der Fall ist: Lindosland gewährt jedem das bedingungslose Recht, dieses Werk für jedweden Zweck zu nutzen, es sei denn, Bedingungen sind gesetzlich erforderlich.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