Datoteka:Interferenz.jpg

Veličina ovog prikaza: 600 × 600 piksela. Druge rezolucije: 240 × 240 piksela | 480 × 480 piksela | 768 × 768 piksela | 1024 × 1024 piksela | 2000 × 2000 piksela.

Izvorna datoteka (2000 × 2000 piksela, veličina datoteke/fajla: 634 KB, MIME tip: image/jpeg)

Ova datoteka je s projekta Wikimedijina ostava i može se upotrebljavati i na drugim projektima. Ispod su prikazane informacije s njene opisne stranice.

Sažetak

OpisInterferenz.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.
Datum	19. aprila 2005.
Izvor	Vlastito djelo
Autor	Dr. Schorsch 12:32, 19 Apr 2005 (UTC) (Dr. Schorsch (talk))

Licenciranje

Ja, vlasnik autorskog prava ovog djela, ovdje ga objavljujem pod sljedećim licencama:

Dopušteno je umnožavanje, dijeljenje i mijenjanje ovog dokumenta pod uslovima GNU-ove licence za slobodnu dokumentaciju, verzije 1.2 ili bilo koje novije koju objavi Fondacija za slobodni softver; bez nepromjenljivih odjeljaka i bez tekstova na naslovnoj i zadnjoj strani. Tekst licence možete pročitati ovdje.

Ova datoteka je licencirana pod Creative Commons Attribution-Share Alike 3.0 neportovanom, 2.5 generičkom, 2.0 generičkom i 1.0 generičkom licencom.

Slobodno smijete:

dijeliti – umnožavati, raspodjeljivati i prenositi djelo
prerađivati – prilagođavati djelo

Pod sljedećim uslovima:

pripisivanje – Morate pripisati odgovarajuće autorske zasluge, osigurati vezu do licence i naznačiti jesu li napravljene izmjene. To možete uraditi na bilo koji razumni način, ali ne tako da se sugerira da davalac licence odobrava Vas ili Vašu upotrebu njegovog djela.
dijeljenje pod istim uslovima – Ako mijenjate, preoblikujete ili nadograđujete ovaj materijal, morate ga objaviti pod istom ili sličnom licencom.

Izaberite licencu po vašem izboru.

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).

Ovaj rad je slobodni softver; možete ga redistribuirati i/ili mijenjati pod uslovima GNU Opće javne licence koju je objavila Free Software Foundation; bilo verziju 2 Licence, bilo neku kasniju. Ovaj rad je distribuiran u nadi da će biti koristan, ali bez ikakve garancije; čak i bez posredne garancije utrživosti ili da odgovara za određenu namjenu. Pogledajte verziju 2 i verziju 3 GNU Opće javne licence za više detalja.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

Historija datoteke

Kliknite na datum/vrijeme da biste vidjeli tadašnju verziju datoteke.

	Datum/vrijeme	Minijatura	Dimenzije	Korisnik	Komentar
aktualna	19. aprila 2005. u 15:26		2000 × 2000 (634 KB)	wikimediacommons>Xorx

Upotreba datoteke

Sljedećih 3 stranica koriste ovu datoteku:

Datoteka:Interferenz.jpg

Sažetak

Licenciranje

Source Code

Opisi

Predmeti pokazani na ovoj datoteci

prikazuje

interferencija

status autorskog prava ^Bosanski

zaštićeno autorskim pravima ^Bosanski

licenca ^Bosanski

Creative Commons Attribution-ShareAlike 2.5 Generic ^Engleski

Creative Commons Autorstvo-Deliti pod istim uslovima 3.0 nelokalizovana ^{Srpski (transliteracija)}

Creative Commons Attribution-ShareAlike 2.0 Generic ^Engleski

GNU-ova licenca za slobodnu dokumentaciju, verzija 1.2 ili novija ^{Serbian (Latin script)}

Creative Commons Attribution-ShareAlike 1.0 Generic ^Engleski

GNU Opšta javna licenca

izvor datoteke ^Hrvatski

izvorno djelo postavljača ^Hrvatski

računarska simulacija ^{Serbian (Latin script)}

nastanak

19. aprila 2005

Historija datoteke

Upotreba datoteke

Navigacija

Datoteka:Interferenz.jpg

Sažetak

Licenciranje

Source Code

Opisi

Predmeti pokazani na ovoj datoteci

prikazuje

interferencija

status autorskog prava Bosanski

zaštićeno autorskim pravima Bosanski

licenca Bosanski

Creative Commons Attribution-ShareAlike 2.5 Generic Engleski

Creative Commons Autorstvo-Deliti pod istim uslovima 3.0 nelokalizovana Srpski (transliteracija)

Creative Commons Attribution-ShareAlike 2.0 Generic Engleski

GNU-ova licenca za slobodnu dokumentaciju, verzija 1.2 ili novija Serbian (Latin script)

Creative Commons Attribution-ShareAlike 1.0 Generic Engleski

GNU Opšta javna licenca

izvor datoteke Hrvatski

izvorno djelo postavljača Hrvatski

računarska simulacija Serbian (Latin script)

nastanak

19. aprila 2005

Historija datoteke

Upotreba datoteke

Navigacija

Pretraga

status autorskog prava ^Bosanski

zaštićeno autorskim pravima ^Bosanski

licenca ^Bosanski

Creative Commons Attribution-ShareAlike 2.5 Generic ^Engleski

Creative Commons Autorstvo-Deliti pod istim uslovima 3.0 nelokalizovana ^{Srpski (transliteracija)}

Creative Commons Attribution-ShareAlike 2.0 Generic ^Engleski

GNU-ova licenca za slobodnu dokumentaciju, verzija 1.2 ili novija ^{Serbian (Latin script)}

Creative Commons Attribution-ShareAlike 1.0 Generic ^Engleski

izvor datoteke ^Hrvatski

izvorno djelo postavljača ^Hrvatski

računarska simulacija ^{Serbian (Latin script)}