Fil:Acoustic weighting curves.svg
Hopp til navigering
Hopp til søk
Størrelse for denne PNG-forhåndsvisningen av denne SVG-filen: 600 × 600 piksler Andre oppløsninger: 240 × 240 piksler | 480 × 480 piksler | 768 × 768 piksler | 1 024 × 1 024 piksler | 2 048 × 2 048 piksler.
Opprinnelig fil (SVG-fil, standardstørrelse 600 × 600 piksler, filstørrelse: 39 KB)
Beskrivelse
| Beskrivelse |
English: A, B, C and D acoustic weighting curves. |
| Dato | 1. desember 2005 (original upload date) |
| Kilde | Eget verk (Original text: Own work. Mathematica, post-processed in Inkscape.) |
| Opphavsperson | Lindosland at engelsk Wikipedia. Image recalculated with Mathematica to match article definitions by Inductiveload |
| Andre versjoner | Alternative version at Image:Weighting curves.png |
| SVG utvikling | |
| Kildekode | 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}
]
Lisensiering
|
Dette verket har blitt frigitt til allmennheten av opphavspersonen Lindosland at engelsk Wikipedia. Dette gjelder på verdensbasis. I enkelte land kan dette være juridisk umulig. I så fall: Lindosland gir hvem som helst retten til å bruke dette verket for ethvert formål, uten noen vilkår, med mindre slike vilkår kreves ved lov. |
{{Rename image}} {{Rename media}} ← these tags have been added on en:Image:Lindos2.svg
Orginal opplastningslogg
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
Filhistorikk
Klikk på et tidspunkt for å vise filen slik den var på det tidspunktet.
| Dato/klokkeslett | Miniatyrbilde | Dimensjoner | Bruker | Kommentar | |
|---|---|---|---|---|---|
| nåværende | 17. feb. 2009 kl. 01:28 | | 600 × 600 (39 KB) | wikimediacommons>Inductiveload | new version, based on File:Weighting curves.png, which hopefulyl doesn't have rendering issues. |
Filbruk
Den følgende siden bruker denne filen:
