Datoteka:Acoustic weighting curves.svg
Prijeđi na navigaciju
Prijeđi na pretragu
Veličina ovog PNG-pregleda ove SVG-datoteke: 600 × 600 piksela. Druge rezolucije: 240 × 240 piksela | 480 × 480 piksela | 768 × 768 piksela | 1024 × 1024 piksela | 2048 × 2048 piksela.
Izvorna datoteka (SVG fajl, nominalno 600 × 600 piksela, veličina fajla: 39 KB)
Sažetak
| Opis |
English: A, B, C and D acoustic weighting curves. |
| Datum | 1. decembra 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 | |
| Izvorni kod | 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}
]
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. |
{{Rename image}} {{Rename media}} ← these tags have been added on en:Image:Lindos2.svg
Izvorni dnevnik postavljanja
The original description page 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
Historija datoteke
Kliknite na datum/vrijeme da biste vidjeli tadašnju verziju datoteke.
| Datum/vrijeme | Minijatura | Dimenzije | Korisnik | Komentar | |
|---|---|---|---|---|---|
| aktualna | 17. februara 2009. u 01:28 | | 600 × 600 (39 KB) | wikimediacommons>Inductiveload | new version, based on File:Weighting curves.png, which hopefulyl doesn't have rendering issues. |
Upotreba datoteke
Sljedeća stranica koristi ovu datoteku:
