Gauss jordan indirgeme yöntemi2 - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > C++

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 18:40   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Gauss jordan indirgeme yöntemi2

Gauss jordan indirgeme yöntemi2

/* GAUSS-JORDAN INDIRGEME YONTEMI

SELCUK UNV.BYL.MÜH.TEZSYZ YÜKSEK LYSANS

SAYISAL ANALYZ DERSY ÖDEV - 2

HAZIRLAYAN MAHMUT ACAR (...1043)

*/





#include <iostream>

#include <stdlib.h>



using namespace std;

float HazirDizi( float a[3][4]); // Hazyr girilmis bir dizinin kullanylmasy

float DiziGiris(float a[3][4]); // kullanycynyn kendi dizisini girebilmesi

int main(int argc, char *argv[])

{ // de?i?kenlerin tanymlanmasy

int a,i,j,satir,sutun;

float p1,p2;

string secim="e";

p1,p2=0;

satir=3;

sutun=satir+1;

float q[3][4];



system("cls"

cout<<" \n HAZIR DIZIYI KULLANMAK ISTER MISINIZ ? (e/h)";

cin>>secim;

if ((secim=="e&quot or (secim=="E&quot) HazirDizi(q); else DiziGiris(q);





// pivot elemana bölüyoruz

for ( j=0; j<sutun;j++){

p1=q[0][0];

q[0][j]/=p1;

}





cout<<"---------------------------\n";

for (i=0; i<(satir-1); i++){

for(a=i+1; a<satir; a++){

p1=q[a][i];

for(j=0; j<sutun; j++){ q[a][j]=q[a][j]/p1;} // satyry pivot elemana böl

p2=q[i][i];

for(j=0; j<4; j++){q[a][j]=q[a][j]-(q[i][j]/p2);}// sütünlara göre syfyrla

}

}

//

for( i=0;i<satir;i++){

p1=q[i][i];

for (j=0;j<sutun;j++){

q[i][j]=q[i][j]/p1; }

}



for(a=(satir-2); a>-1; a--){

for(i=(satir-1); i>a; i--){

p1=q[a][i];

for (j=1; j<sutun; j++){ q[a][j]=q[a][j]-(p1*q[i][j]);}

}

}

cout<<"\nElde Edilen Dizi \n";

for( i=0;i<satir;i++){

for (j=0;j<sutun;j++){

cout<<q[i][j]<<" ";}

cout<<endl; }



cout<<endl;



for (i=0; i<satir;i++){ cout<<" X"<<i<<"="<<q[i][3]<<endl;}



system("PAUSE"

return 0;



}



float HazirDizi( float a[3][4])

{

a[0][0]=1; a[0][1]=-1; a[0][2]=5; a[0][3]=10;

a[1][0]=2; a[1][1]=1; a[1][2]=1; a[1][3]=5;

a[2][0]=-3; a[2][1]=-2; a[2][2]=3; a[2][3]=-2;



cout<<"-------Giris Dizisi--------\n";

for( int w=0; w<3 ;w++){ for (int t=0; t<4;t++){

if (t<3) cout<<" "<<a[w][t]<<" X"<<t+1<<" "; else cout<<"="<<a[w][t];

} cout<<endl; }

return a[3][4];

}



float DiziGiris( float a[3][4])

{

system("cls"

cout<<"\nDizinin Katsayilarini Giriniz\n\n";

for (int w=0;w<3;w++){

for (int t=0; t<4;t++){ if (t<3) {cout<<"X"<<t+1<<&quot ;=";cin>>a[w][t];} else {cout<<"Y=";cin>>a[w][t];} }

}

cout<<"-------Giris Dizisi--------\n";

for( int w=0; w<3 ;w++){ for (int t=0; t<4;t++){

if (t<3) cout<<" "<<a[w][t]<<" X"<<t+1<<" "; else cout<<"="<<a[w][t];

} cout<<endl; }

}
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Gauss jordan indirgeme yöntemi tamerr89 C++ 0 29 March 2008 18:39
Tour of Petra (Jordan) Papatyam Her Telden Resim 0 24 April 2006 17:26

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.