Datei:Acoustic weighting curves.svg
Zur Navigation springen
Zur Suche springen
Größe der PNG-Vorschau dieser SVG-Datei: 600 × 600 Pixel. Weitere Auflésungan: 240 × 240 Pixel | 480 × 480 Pixel | 768 × 768 Pixel | 1.024 × 1.024 Pixel | 2.048 × 2.048 Pixel.
Originaldatei (SVG-Datei, Basisgress: 600 × 600 Pixl, Dateigress: 39 KB)
Bschreiwung
| Bschreiwung |
English: A, B, C and D acoustic weighting curves. |
| Daatum | 1. Dezémber 2005 (Original-Hochladedatum) |
| Quejn | Eigenes Werk (Da urschpringliche Text: „Own work. Mathematica, post-processed in Inkscape.“) |
| Urhéwer | Lindosland in der Wikipedia auf Englisch. Image recalculated with Mathematica to match article definitions by Inductiveload |
| Aundre Versióner | Alternative version at Image:Weighting curves.png |
| SVG‑Erstellung |  Des W3C-invalide Diagramm is mit Mathematica erstoid worn. |
| 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
- 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
Dateiversiona
Klick auf an Zeitpunkt, um de Version ozschaugn.
| Version vom | Vorschaubuidl | Dimensióna | Nutzer | Kommentar | |
|---|---|---|---|---|---|
| aktuell | 01:28, 17. Few. 2009 | | 600 × 600 (39 KB) | wikimediacommons>Inductiveload | new version, based on File:Weighting curves.png, which hopefulyl doesn't have rendering issues. |
Dateivawendung
De foigende Seitn vawendt de Datei:
