Opis izmjene

OpisAcoustic weighting curves.svg	English: A, B, C and D acoustic weighting curves.
Datum	1. decembar 2005. (izvorni datum postavljanja)
Izvor	Vlastito djelo (Original text: Own work. Mathematica, post-processed in Inkscape.)
Autor	Lindosland na Wikipedia na Engleski. Image recalculated with Mathematica to match article definitions by Inductiveload
Ostale verzije	Alternative version at Image:Weighting curves.png
SVG genesis InfoField	Izvorni kôd ove SVG-datoteke nije valjan zbog greške.   Ova je vektorska slika napravljena programom Mathematica.    This trigonometry uses embedded text that can be easily translated using a text editor.
Izvorni kod 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}
 ]

Licenciranje

Ovaj rad je objavljen u javno vlasništvo od strane autora Lindosland na Wikipedia na Engleski. Ovo se primjenjuje širom svijeta. U nekim državama ovo zakonski nije moguće; u tom slučaju: Lindosland dopušta svima pravo korištenja ovog rada u bilo koju svrhu, bez ikakvih uslova, osim ako su takvi uslovi zakonski neophodni.Public domainPublic domainfalsefalse

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

Izvorna evidencija postavljanja

• 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