Image:AiryBi Abs Surface.png

Description	A surface plot of the absolute value of the Airy function: f(x) = | Bi(x + iy) | x and y both run from -4 to 4.
Source	self-made, Mathematica
Date	07/03/2008
Author	Inductiveload
Permission (Reusing this image)	I, the copyright holder of this work, hereby release it into the public domain. This applies worldwide. In case this is not legally possible: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. Afrikaans | Alemannisch | Aragonés | العربية | Asturianu | Български | Català | Česky | Cymraeg | Dansk | Deutsch | Eʋegbe | Ελληνικά | English | Español | Esperanto | Euskara | Estremeñu | فارسی | Français | Galego | 한국어 | हिन्दी | Hrvatski | Ido | Bahasa Indonesia | Íslenska | Italiano | עברית | Kurdî / كوردی | Latina | Lietuvių | Latviešu | Magyar | Македонски | Bahasa Melayu | Nederlands | ‪Norsk (bokmål)‬ | ‪Norsk (nynorsk)‬ | 日本語 | Polski | Português | Ripoarisch | Română | Русский | Shqip | Slovenčina | Slovenščina | Српски / Srpski | Svenska | ไทย | Tagalog | Türkçe | Українська | Tiếng Việt | Walon | ‪中文(简体)‬ | ‪中文(繁體)‬ | zh-yue-hant | +/-

[edit] Mathematica Code

Plot3D[
 Abs[AiryBi[x + I y]],
 {x, -4, 4},
 {y, -4, 4},
 BoxStyle -> Directive[
   Thickness[0.002],
   Black],
 TicksStyle -> Directive[
   Bold,
   FontSize -> 32,
   FontFamily -> "DejaVu Mono",
   Thickness[0.0015]],
 LabelStyle -> Directive[
   Bold,
   Italic,
   FontSize -> 40,
   FontFamily -> "DejaVu Mono"],
 PlotStyle -> Directive[
   Purple,
   Specularity[Cyan, 10],
   Opacity[0.8]],
 PlotPoints -> 100,
 MaxRecursion -> 3,
 ImageSize -> 1600,
 AxesLabel -> {"x", "y", "z"},
 ClippingStyle -> {Opacity[0.5]},
 PlotRange -> {0, 10}
 ]

• Airy function