webmaster
 
›
Cevapla
03-02-2010 11:31:06
 

Gauss Eleminasyon Yöntemi

Arkadaşlar bu program n bilinmeyenli,n denklemli sistemi Gauss Eleminasyon yöntemi ile çözer.n. mertebeden A katsayılar matrisi ve sağ taraf vektörü girilir ve x çözüm vektörünü bulur.real,allocatable::a(:,,x(,b(
print*,"Denklem sayisini giriniz:";read*,n
allocate(a(n,n),b(n),x(n))
print*,"Katsayilar matrisini giriniz:";read*,a
print*,"Katsayilar matrisi:"
do i=1,n
do j=1,n
print '(F7.3\)',a(i,j)
enddo
print*
enddo
print*,"Denklem sisteminin sag taraf vektorunu giriniz:";read*,b
print*,"Sag taraf vektoru:"
print '(F7.3)',b

do k=1,n-1
do i=k+1,n
do j=k+1,n
a(i,j)=a(i,j)-a(i,k)*a(k,j)/a(k,k)
enddo
b(i)=b(i)-a(i,k)*b(k)/a(k,k)
enddo
enddo
print*,"Elemanter satir islemleri sonrasında"
print*," A matrisi:"
do i=1,n
do j=1,n
if(j<i) a(i,j)=0
print '(F7.3\)',a(i,j)
enddo
print*
enddo
print*," B matrisi:"
do i=1,n
print*,b(i)
enddo
do i=n,1,(-1)
x(i)=(b(i)+a(i,i)*x(i)-(dot_product(a(i,,x)))/a(i,i)
enddo
print*,"Cozum vektoru:"
print '(F7.3/)',x
end

Bir önceki yazı HTML ye son nokda hersey burda... hakkında bilgi vermektedir.

Cevapla

"Gauss Eleminasyon Yöntemi" konusu hakkında etiketler
anlatim anlatimi bulma cozumu denklem doc elemanter eleme elementer eleminasyon eliminasyon eliminasyonu gaus gauss ile ilgili islemi islemleri jordan karsi konu lik matris matrisin matrisler matrislerde metodu nedir pdf ppt program satir sistem sistemi sorulari taraf tersini yontemi yonteminin yontemiyle

HTML ye son nokda hersey burda... Önceki | Sonraki Browserler için ortak kodlar




Saat: 20:30 - Webmaster Forumu - Rss - Arşiv
İletişim Bilgileri, Contact Us, Kullanım Sözleşmesi, Gizlilik