File:Acoustic weighting curves.svg

Page contents not supported in other languages.
This is a file from the Wikimedia Commons
From Wikipedia, the free encyclopedia

Original file(SVG file, nominally 600 × 600 pixels, file size: 39 KB)

Summary

Description
English: A, B, C and D acoustic weighting curves.
Date 1 December 2005 (original upload date)
Source Own work (Original text: Own work. Mathematica, post-processed in Inkscape.)
Author Lindosland at English Wikipedia. Image recalculated with Mathematica to match article definitions by Inductiveload
Other versions Alternative version at Image:Weighting curves.png
SVG development
InfoField
 
The source code of this SVG is invalid due to an error.
 
This W3C-invalid trigonometry was created with Mathematica.
 
 This trigonometry uses embedded text that can be easily translated using a text editor.
Source code
InfoField

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}
 ]

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}
 ]

Licensing

Public domain This work has been released into the public domain by its author, Lindosland at English Wikipedia. This applies worldwide.
In some countries this may not be legally possible; if so:
Lindosland grants anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

{{Rename image}} {{Rename media}} ← these tags have been added on en:Image:Lindos2.svg

Original upload log

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

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

image/svg+xml

76f75a45c8c7536e6877f1e3ff8b9867908c3d05

39,932 byte

600 pixel

600 pixel

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current00:28, 17 February 2009Thumbnail for version as of 00:28, 17 February 2009600 × 600 (39 KB)Inductiveloadnew version, based on File:Weighting curves.png, which hopefulyl doesn't have rendering issues.
22:25, 26 October 2008Thumbnail for version as of 22:25, 26 October 2008512 × 461 (67 KB)Penpen~commonswiki{{Information |Description={{en|A,C and D weighting curves, created by lindosland using OpenOffice Draw Alternative version at Image:Weighting curves.png}} |Source=Transferred from en:Image:Lindos2.svg |Dat
No pages on the English Wikipedia use this file (pages on other projects are not listed).

Global file usage

The following other wikis use this file: