dairede poisson - !Bu program poisson denkleminin Gauss...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: !Bu program poisson denkleminin Gauss Seidel metodu ile saysal zmn yapmaktadr. !Programda zm birim boyutlardaki kare esas alnarak yaplmtr. !Programda kullanlan karakterlerler unlar ifade etmektedir: ! a= karenin balang noktas ! b= karenin biti noktas ! m= aralk says ! h= adm uzunluu(aralk uzunluu) !f(x,y)=k*(x(i)**p)+l*(y(j)**r) eklinde tanmlanmtr. burada x ve y deikenlerinin katasaylar ve s deerleri istenildii gibi seilebilir. ! balang artlar 'baslangic_sartlari' adndaki alt programda tanmlanmtr. !problemde verilen balang artlar x=0 iin u=0, y=0 iin u=0, y=1 iin u=x**2 ve x=1 iin u=y**2'dir. PROGRAM GAUSS_SEIDEL dimension::u(200,200),x(200),y(200),xs(200),ys(200),c(200,200),e(200,200) REAL::h,r,k,l,p,a1,a2,b1,b2,a(200,200),b(200,200) integer::m,f,g,v,q,w,z,t,d integer::n print*,' Kac adim araliginde islem yapmak istiyorsunuz?' read*,m call baslangic_sartlari(u,m) !b karenin biti noktas , birbaka deyile karenin kenar uzunlu olmak zere: !y=b noktasndaki snr art u= (e*y(j)**f)+(g*x(i)**s)+v eklinde tanmlanmtr. !x=b noktasndaki snr art u= (q*x(i)**w)+(z*y(j)**t)+d eklinde tanmlanmtr. call sinir_sartlari(m,e,h,a,b,x,y,u,c,r,xs,ys) print* print* print*,'f(x,y)= (k*x**p)+(l*y**r)' print* print*,'x degiskeninin katsayisini giriniz...(k)=' read*,k print*,'x degiskeninin us degerini giriniz...(p)=' read*,p print*,'y degiskeninin katsayisini giriniz...(l)=' read*,l print*,'y degiskeninin us degerini giriniz...(z)=' read*,z print*,'Kac iterasyon yapmak istiyorsunuz?'print*,'Kac iterasyon yapmak istiyorsunuz?...
View Full Document

This note was uploaded on 01/06/2010 for the course MIMARLıK 1234432 taught by Professor Mehmet during the Spring '09 term at Ankara Üniversitesi.

Page1 / 7

dairede poisson - !Bu program poisson denkleminin Gauss...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online