Опис измене

ОписAcoustic weighting curves.svg	English: A, B, C and D acoustic weighting curves.
Датум	1. децембар 2005. (првобитни датум слања)
Извор	Сопствено дело (Original text: Own work. Mathematica, post-processed in Inkscape.)
Аутор	Lindosland на енглески Википедија. Image recalculated with Mathematica to match article definitions by Inductiveload
Остале верзије	Alternative version at Image:Weighting curves.png
SVG genesis 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.
Изворни код 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} ]

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

Лиценцирање

Ово дело је њен носилац ауторских права Lindosland на енглески Википедија предао у јавно власништво. Ово се односи на цео свет. У неким земљама, ово није законски могуће; у том случају: Lindosland творац овог дела дозвољава свакоме да користи ово дело за било коју намену, без било каквих услова, осим услова које намеће закон.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