Datei:Acoustic weighting curves.svg
Größe dieser Vorschau: 600 × 600 Pixel. Weitere Auflösungen: 240 × 240 Pixel | 480 × 480 Pixel | 768 × 768 Pixel | 1.024 × 1.024 Pixel | 2.048 × 2.048 Pixel.
Originaldatei (SVG-Datei, Basisgröße: 600 × 600 Pixel, Dateigröße: 39 KB)
Beschreibung
| Beschreibung |
English: A, B, C and D acoustic weighting curves. |
| Datum | 1. Dezember 2005 (Original-Hochladedatum) |
| Quelle | Eigenes Werk (Originaltext: Own work. Mathematica, post-processed in Inkscape.) |
| Urheber | Lindosland in der Wikipedia auf Englisch. Image recalculated with Mathematica to match article definitions by Inductiveload |
| Andere Versionen | Alternative version at Image:Weighting curves.png |
| SVG‑Erstellung | |
| Quelltext | 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}
]
Lizenz
|
Dieses Werk wurde von seinem Urheber Lindosland in der Wikipedia auf Englisch als gemeinfrei veröffentlicht. Dies gilt weltweit. In manchen Staaten könnte dies rechtlich nicht möglich sein. Sofern dies der Fall ist: Lindosland gewährt jedem das bedingungslose Recht, dieses Werk für jedweden Zweck zu nutzen, es sei denn, Bedingungen sind gesetzlich erforderlich. |
{{Rename image}} {{Rename media}} ← these tags have been added on en:Image:Lindos2.svg
Ursprüngliches Datei-Logbuch
Die ursprüngliche Dateibeschreibungsseite war hier. Alle folgenden Benutzernamen beziehen sich auf 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
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
| Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
|---|---|---|---|---|---|
| aktuell | 00:28, 17. Feb. 2009 | | 600 × 600 (39 KB) | wikimediacommons>Inductiveload | new version, based on File:Weighting curves.png, which hopefulyl doesn't have rendering issues. |
Dateiverwendung
Die folgende Seite verwendet diese Datei: