' Positions of 1st 10 zeros in bj1(x)data3.83170597data7.01558668data10.17346814data13.32369194data16.47063005data19.61585851data22.76008438data25.90367209data29.04682854data32.18967991'dimzero(5)forj=1to5readzero(j)nextj'open"radial_grad.txt"foroutputas#1max_x=zero(5)np=10forj=0to4forp=0tonp-1x=zero(j)*(1-p/np)+zero(j+1)*p/npif(x=0)thenairy=1:elseairy=(2*bj1(x)/x)^2airy=airy^0.4:' Gamma function (increases brightness of low values)x0=x/max_x?#1,"<stop offset=";chr$(34);str$(x0);chr$(34);?#1," style=";chr$(34);"stop-color:#";h$=hex$(floor(255*abs(airy)+0.5),2)?#1,h$;h$;h$;chr$(34);"/>"nextpnextj?#1,"<stop offset=";chr$(34);"1";chr$(34);" style=";?#1,chr$(34);"stop-color:#000000";chr$(34);"/>"close#1end'' BesselJ1 function based on Javascript source code at' http://www.mhtl.uwaterloo.ca/old/courses/me3532/js/bessel.htmlsubbj1(x)ax=abs(x)if(ax<8.0)theny=x*xtmp=(-2972611.439+y*(15704.48260+y*(-30.16036606)))ans1=x*(72362614232.0+y*(-7895059235.0+y*(242396853.1+y*tmp)))ans2=144725228442.0+y*(2300535178.0+y*(18583304.74+y*(99447.43394+y*(376.9991397+y*1.0))))ans=ans1/ans2elsez=8.0/axy=z*zxx=ax-2.356194491ans1=1.0+y*(0.183105e-2+y*(-0.3516396496e-4+y*(0.2457520174e-5+y*(-0.240337019e-6))))ans2=0.04687499995+y*(-0.2002690873e-3+y*(0.8449199096e-5+y*(-0.88228987e-6+y*0.105787412e-6)))ans=sqrt(0.636619772/ax)*(cos(xx)*ans1-z*sin(xx)*ans2)if(x<0.0)thenans=-ansendifbj1=ansendsub
Linear gradient stops were generated with this program
open"linear_grad.txt"foroutputas#1forx=0to20xx=((20-x)/20)^2:' Create more stop colors in low intensity regiony=(xx)^0.4:' Gamma functionc$=hex$(floor(255*y+0.5),2)c$=c$+c$+c$print#1,"<stop offset=";chr$(34);str$(1-xx);chr$(34);print#1," style=";chr$(34);" stop-color:#";c$;chr$(34);"/>"nextxclose#1end
Licensing
Public domainPublic domainfalsefalse
This work has been released into the public domain by its author, Sakurambo at English Wikipedia. This applies worldwide. In some countries this may not be legally possible; if so: Sakurambo grants anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.Public domainPublic domainfalsefalse
Original upload log
The original description page was here. All following user names refer to en.wikipedia.
2008-07-09 14:17 Sakurambo 283×210× (5677 bytes) xml errors fixed
2008-07-09 14:15 Sakurambo 283×210× (5698 bytes) better version (gradients calculated in software)
2008-07-08 10:42 Sakurambo 283×210× (3756 bytes) {{Information |Description=vectorized version of [[:Image:Airy-pattern.png]] |Source=I created this work entirely by myself. |Date=2007-07-08 |Author=~~~ |other_versions=[[Image:Airy-pattern.png|100px]] }}
Captions
Add a one-line explanation of what this file represents
{{Information |Description={{en|vectorized version of [[:en::Image:Airy-pattern.png|]]}} |Source=Transferred from [http://en.wiki.x.io en.wikipedia]<br/> (Original text : ''Created in en:Adobe Illustrator and then edited to incorporate gradie...
File usage
The following pages on the English Wikipedia use this file (pages on other projects are not listed):