Датотека:Acoustic weighting curves.svg
Пређи на навигацију
Пређи на претрагу
Величина PNG прегледа за ову SVG датотеку је 600 × 600 пиксела. 5 других резолуција: 240 × 240 пиксела | 480 × 480 пиксела | 768 × 768 пиксела | 1.024 × 1.024 пиксела | 2.048 × 2.048 пиксела.
Оригинална датотека (SVG датотека, номинално 600 × 600 пиксела, величина: 39 kB)
Опис
| Опис |
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 |  This W3C-invalid trigonometry was created with Mathematica. |
| Изворни код | Mathematica codea[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 творац овог дела дозвољава свакоме да користи ово дело за било коју намену, без било каквих услова, осим услова које намеће закон. |
{{Rename image}} {{Rename media}} ← these tags have been added on en:Image:Lindos2.svg
Првобитан дневник отпремања
Оригиналан опис странице је био овде. Сва наведена корисничка имена воде на 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
Историја датотеке
Кликните на датум/време да бисте видели тадашњу верзију датотеке.
| Датум/време | Минијатура | Димензије | Корисник | Коментар | |
|---|---|---|---|---|---|
| тренутна | 01:28, 17. фебруар 2009. | | 600 × 600 (39 kB) | wikimediacommons>Inductiveload | new version, based on File:Weighting curves.png, which hopefulyl doesn't have rendering issues. |
Употреба датотеке
Следећа страница користи ову датотеку:
