Fil:Interferenz.jpg
From Wikipedia, the free encyclopedia
![Fil:Interferenz.jpg](http://upload.wikimedia.org/wikipedia/commons/thumb/f/f1/Interferenz.jpg/600px-Interferenz.jpg)
Fuld opløsning (2.000 × 2.000 billedpunkter, filstørrelse: 634 KB, MIME-type: image/jpeg)
![]() |
Denne fil er fra Wikimedia Commons. Beskrivelsen af filen fra Commons er gengivet nedenfor. |
Beskrivelse
BeskrivelseInterferenz.jpg |
Deutsch: Simuliertes Interferenzbild zweier punktförmiger Quellen mit gleicher Wellenlänge. Die Lagen der Quellen sind durch Kreuze gekennzeichnet, die Maxima beider Wellen durch farbige Kreise. |
Dato | |
Kilde | Eget arbejde |
Forfatter | Dr. Schorsch 12:32, 19 Apr 2005 (UTC) (Dr. Schorsch (talk)) |
Licensering
![]() |
Tilladelse er givet til at kopiere, distribuere og/eller ændre dette dokument under betingelserne i GNU Free Documentation License', Version 1.2 eller enhver senere version udgivet af Free Software Foundation; uden et invariant afsnit, ingen forsidetekster, og ingen bagsidetekst. En kopi af licensen er inkluderet i afsnittet GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
![w:da:Creative Commons](https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/CC_some_rights_reserved.svg/90px-CC_some_rights_reserved.svg.png)
![kreditering](https://upload.wikimedia.org/wikipedia/commons/thumb/1/11/Cc-by_new_white.svg/24px-Cc-by_new_white.svg.png)
![deling på samme vilkår](https://upload.wikimedia.org/wikipedia/commons/thumb/d/df/Cc-sa_white.svg/24px-Cc-sa_white.svg.png)
- Du må frit:
- at dele – at kopiere, distribuere og overføre værket
- at remixe – at tilpasse værket
- Under følgende vilkår:
- kreditering – Du skal give passende kreditering, angive et link til licensen, og oplyse om der er foretaget ændringer. Du må gøre det på enhver fornuftig måde, men ikke på en måde der antyder at licensgiveren godkender dig eller din anvendelse.
- deling på samme vilkår – Hvis du bearbejder, ændrer eller bygger videre på dette værk, skal du distribuere dine bidrag under den samme eller en kompatibel licens som originalen.
Source Code
This is the source code of the program I used to create this image. Click on “Show source code” to display it.
The following program is under the GNU General Public License (GPL).
![]() |
Dette værk er fri software; du kan videredistribuere det og/eller ændre det under betingelserne i GNU General Public License som er udgivet af Free Software Foundation; enten version 2 af licensen, eller enhver senere version. Dette arbejde er distribueret i håb om at det vil være nyttigt, men uden nogen form for garanti, uden selv de underforståede garantier salgbarhed eller egnethed til et bestemt formål. Se version 2 og version 3 af licensen GNU General Public License for flere detaljer.http://www.gnu.org/licenses/gpl.htmlGPLGNU General Public Licensetruetrue |
; Program Written in IDL (Interactive Data Language) ; Free Interpreter availible at www.rsinc.com ; Written by Georg Wiora ; This Program is under the GNU General Public License (GPL) ; ; Create a display of interference patterns ; Save this text as file "Interference2.pro" to run it. ; Draw a circle PRO circle,x,y,r,_REF_EXTRA=ex n=ULONG(!DPI*r) > 1 phi = FINDGEN(n)/FLOAT(n)*2*!DPI x1 = r*COS(phi)+x y1 = r*SIN(phi)+y PLOTS,[x1,x1[0]],[y1,y1[0]],_STRICT_EXTRA=ex END ; Compute the interference PRO Interference2 ; Final Image Size siz=2000 ; No display if larger than 800x1600 pixel pixmap=SIZ GT 800 ; Wavelength in Pixel lambda=160 ; Half distance of the sources dhalb = lambda ; Compute the distance of each point in an array from the ; center point: This is the phase of the signal d1 = SHIFT(DIST(siz*2,siz),siz,siz/2) ; Sinus of distace with 0 LE amplitude LE 2 f = SIN(d1/lambda*2*!DPI)+1 ; Compute Interference inter = SHIFT(f,-dhalb,0)+SHIFT(f,dhalb,0) ; Get maximum and minimum ma = MAX(inter,MIN=mi) ; Two colors are reserved for marking, the rest is gray scale ; Scale interference to byte range [0..253] inter = BYTE((TEMPORARY(inter)-mi)/(ma-mi)*253) ; Use lookup table to display DEVICE,DECOMPOSED=0 ; Gray scale LOADCT,0 ; Half length of center cross bars in pixel cs=30 ; Half width of center cross bars in pixel cb=3 ; Set mark for center ; Horizontal left inter[siz-dhalb-cs:siz-dhalb+cs, siz/2-cb:siz/2+cb] = 254 ; Vertical left inter[siz-dhalb-cb:siz-dhalb+cb, siz/2-cs:siz/2+cs] = 254 ; Horizontal right inter[siz+dhalb-cs:siz+dhalb+cs, siz/2-cb:siz/2+cb] = 255 ; Vertical right inter[siz+dhalb-cb:siz+dhalb+cb, siz/2-cs:siz/2+cs] = 255 ; Open a visible or invisible window (depends on pixmap flag) WINDOW,XSIZE=2*siz,YSIZE=siz,PIXMAP=pixmap ; Display the interference (only gray scale!) TV,inter ; Draw circles on maximum locations FOR i=0,2.5*siz/lambda DO $ BEGIN ; Maximum location left circle,siz-dhalb,siz/2,(i+0.25)*lambda,THICK=6,/DEVICE,COLOR=254 ; Maximum location right circle,siz+dhalb,siz/2,(i+0.25)*lambda,THICK=6,/DEVICE,COLOR=255 ENDFOR ; Colortable 0-253 as gray scake r = FINDGEN(256)/253*255 g=r b=r ; 254 is green r[254]=0 b[254]=0 g[254]=255 ; 255 is red r[255]=255 b[255]=0 g[255]=0 ; Read image from display im=TVRD() ; Crop invalid borders im = im[siz/2:3*siz/2-1,*] ; Save as PNG with colortable WRITE_PNG,'Interference2.png',im,r,g,b ; Convert to truecolor and write JPEG imt = [[[r[im]]],[[g[im]]],[[b[im]]]] ; smooth image a little bit (saves bandwith in jpeg and is OK ; with high resolution) imt[*,*,0] = SMOOTH(imt[*,*,0],3,/EDGE_TRUNCATE) imt[*,*,1] = SMOOTH(imt[*,*,1],3,/EDGE_TRUNCATE) imt[*,*,2] = SMOOTH(imt[*,*,2],3,/EDGE_TRUNCATE) ; Write as jpeg WRITE_JPEG,'Interference2.jpg',TEMPORARY(imt),/PROGRESSIVE,$ QUALITY=90, TRUE=3 END
Captions
Elementer som er med i denne fil
afbilder
19. april 2005
Filhistorik
Klik på en dato/tid for at se filen som den så ud på det tidspunkt.
Dato/tid | Miniaturebillede | Dimensioner | Bruger | Kommentar | |
---|---|---|---|---|---|
nuværende | 19. apr. 2005, 16:26 | ![]() | 2.000 × 2.000 (634 KB) | Xorx | |
19. apr. 2005, 14:28 | ![]() | 2.000 × 2.000 (310 KB) | Xorx | Simuliertes Interferenzbild zweier punktförmiger Quellen mit gleicher Wellenlänge. {{GFDL}} |
Filanvendelse
De følgende 2 sider bruger denne fil:
Global filanvendelse
Følgende andre wikier anvender denne fil:
- Anvendelser på bs.wikipedia.org
- Anvendelser på ca.wikipedia.org
- Anvendelser på de.wikipedia.org
- Anvendelser på fr.wikipedia.org
- Anvendelser på fr.wikibooks.org
- Anvendelser på fr.wikiversity.org
- Anvendelser på hr.wikipedia.org
- Anvendelser på it.wikipedia.org
- Anvendelser på it.wikiversity.org
- Anvendelser på ja.wikipedia.org
- Anvendelser på ja.wikibooks.org
- Anvendelser på lb.wikipedia.org
- Anvendelser på no.wikibooks.org
- Anvendelser på pl.wiktionary.org
- Anvendelser på sh.wikipedia.org
- Anvendelser på simple.wikipedia.org
- Anvendelser på sk.wikipedia.org
- Anvendelser på sr.wikipedia.org
- Anvendelser på te.wikipedia.org
- Anvendelser på th.wikipedia.org
- Anvendelser på zh.wikipedia.org
Metadata
Denne fil indeholder ekstra information, som formentlig er tilføjet fra et digitalt kamera eller en skanner, der enten blev brugt til at skabe billede eller digitalisere det. Hvis filen har været ændret siden dens oprindelige tilblivelse, kan nogle detaljer muligvis ikke fuldt ud repræsentere det modificerede billede.
_error | 0 |
---|