' 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
Lisanslama
Public domainPublic domainfalsefalse
Bu iş yazarı Sakurambo at İngilizce Vikipedi tarafından kamu malı olarak yayınlanmıştır. Bu dünya çapında geçerlidir. Bazı ülkelerde bu yasal olarak mümkün olmayabilir; öyleyse: Sakurambo, bu işi herhangi bir amaç için, herhangi bir şart olmaksızın, yasalarca gerekli olmadıkça, herkesin kullanmasına izin veriyor.Public domainPublic domainfalsefalse
Orijinal yükleme günlüğü
Dosyanın orjinal açıklama sayfası burada bulunmaktadır. Aşağıdaki tüm kullanıcı adları için en.wikipedia bakın.
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]] }}
Altyazılar
Bu dosyanın temsil ettiği şeyin tek satırlık açıklamasını ekleyin.
{{Information |Description={{en|vectorized version of en::Image:Airy-pattern.png}} |Source=Transferred from [http://en.wikipedia.org en.wikipedia]<br/> (Original text : ''Created in en:Adobe Illustrator and then edited to incorporate gradie...