Mesaj Panosu









NxN lik bir matrisin determinan hesabı

   Mesaj Panosu

    VB/C,C++,/Fortran     hazır kodlar/programlar(fortran)

Yeni Başlık Gönder
Cevap Gönder   

« Önceki başlık :: Sonraki başlık »  
Yazar Mesaj

Üye
Üye
Durum:Offline
Üye No: 11825
Kayıt: 27.09.2007
Puan: 0
Mesajlar: 11
Şehir: Kocaeli

MesajTarih: 4/10/2007, 20:53    Mesaj konusu: NxN lik bir matrisin determinan hesabı Alıntıyla Cevap Gönder




unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ComCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Edit1: TEdit;
Edit2: TEdit;
UpDown1: TUpDown;
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s:array[1.10,1.10] of Extended;
i,j,n,k:integer;
d,a:Extended;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount:=strtoint(Edit1.Text);
StringGrid1.ColCount:=strtoint(Edit1.Text);
n:= StrToInt(Edit1.Text);
end;

function extendtostring(N:real;Width,Places:integer):string;
var
s:string;
begin
Str(N:Width:Places,s);
extendtostring:=s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
s[i+1,j+1]:=StrToInt(StringGrid1.Cells[j,i]);
end;
end;

for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
a:=(s[j,i])/(s[i,i]);
for k:=i+1 to n do
begin
s[j,k]:= s[j,k] - (a*s[i,k]);
end;
end;
end;
d:=1;
for i:=1 to n do d:=d*s[i,i];
Edit2.Text:= extendtostring(d,2,2);
end;
end.

yukarıda ki kod bloğu delphi dilinde yazılmıştır. ama kod içinde asıl can alıcı olan bölüm şu kısımdır(yani determinant hesabı):
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
a:=(s[j,i])/(s[i,i]);
for k:=i+1 to n do
begin
s[j,k]:= s[j,k] - (a*s[i,k]);
end;
end;
end;
d:=1;
for i:=1 to n do d:=d*s[i,i];


bu mantığı değiştirmeden diğer programlarda yazmak için tek yapılacak şey o programın kurallarına uygun şekilde yazmak olacaktır.

C# dilinde yazacak olursak:

for(int i=1; i<n-1;i++)
{
for(int j=i+1;j<n; j++)
{
a=(s[j,i])/(s[i,i]);
for(int k=i+1; k<n; k++)
{
s[j,k]= s[j,k]-(a*s[i,k]);
}
}
}
d = 1;
for(int i=1; i<n; i++)
{
d=d*s[i,i];
}

kodumuz bu hali alacaktır.

Açıklamlar
i,j : döngü için kullanılan değişkenler; matrisin satır ve sütununu temsil ederler
s[]:çift boyutlu dizi değişken; matrisimizin okutulması için gerekli olan değişken
d: determinant sonucu
a: döngüler içinde matrisin içinde ki herhangi bir değerin saklanmasını sağlayan değişken
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder

Banlandı
Banlandı
Durum:Offline
Üye No: 5616
Kayıt: 05.05.2007
Puan: 16
Mesajlar: 119
Şehir: ist

MesajTarih: 4/10/2007, 23:43    Mesaj konusu: Alıntıyla Cevap Gönder



sorması ayıptır da bu matlab mi fortran mı ?
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder E-Posta gönder

Üye
Üye
Durum:Offline
Üye No: 11825
Kayıt: 27.09.2007
Puan: 0
Mesajlar: 11
Şehir: Kocaeli

MesajTarih: 5/10/2007, 00:04    Mesaj konusu: Alıntıyla Cevap Gönder



ilk kırmızı renkle yazılı olan bölge delphi kodu.

ikinci kırmızı renkle yazılı olan bölge ise C# kodu
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder

Etkin Üye
Etkin Üye
Durum:Offline
Üye No: 36
Kayıt: 20.10.2006
Puan: 18
Mesajlar: 402
Şehir: istanbul

MesajTarih: 4/11/2007, 00:25    Mesaj konusu: Alıntıyla Cevap Gönder



remzi çok sağol kardeşim.Gaus 'u çınlatmışsın Smile.
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder
Mesajları göster:   


Yeni Başlık Gönder    Mesaj için teşekkür et
Cevap Gönder   

   Mesaj Panosu

    VB/C,C++,/Fortran     hazır kodlar/programlar(fortran)



Forum Seçin:  
Bu forumda yeni konular açamazsınız
Bu forumdaki mesajlara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız
Bu foruma eklenti gönderemezsiniz
Bu forumdan eklenti indiremezsiniz

Bookmark this page to Facebook Bookmark this page to Twitter Bookmark this page to GoogleBookmark this page to Delicious Bookmark this page to Digg Bookmark this page to Blogmarks Bookmark this page to Blinklist Bookmark this page to Furl Bookmark this page to linkaGoGo Bookmark this page to Reddit Bookmark this page to Simpy Bookmark this page to Technorati Bookmark this page to Spurl Bookmark this page to Yahoo!


Benzer Başlıklar
Başlık Yazar Forum Cevap Son Mesajlar
Yeni mesaj yok Önemli: Radye Temel Hesabı 1-3-7 Freeware/Demo Mühendislik yazılımları 1 8/1/2016, 17:34 Son gönderilen mesajlar
herakles
Yeni mesaj yok Önemli: Asansör Motor Hesabı, Asansör motor g... mehmetozer44 Asansör Sistemleri/Projeleri 4 21/1/2016, 16:42 Son gönderilen mesajlar
fiducia
Yeni mesaj yok C++ da iki matrisin çarpımı isuldur Hazır kodlar/Programlar(C/C++/C#) 1 7/5/2008, 12:39 Son gönderilen mesajlar
huso
Yeni mesaj yok Matrisin Tersinin Alınması huso Hazır kodlar/Programlar(C/C++/C#) 0 28/3/2009, 22:41 Son gönderilen mesajlar
huso
Yeni mesaj yok C ++ ile Ekrandan girilen 2 matrisin ... isuldur Hazır kodlar/Programlar(C/C++/C#) 0 2/6/2009, 12:18 Son gönderilen mesajlar
isuldur
Yeni mesaj yok C de bir matrisin determinantını alma... eslemsafa Hazır kodlar/Programlar(C/C++/C#) 1 3/3/2014, 11:31 Son gönderilen mesajlar
eslemsafa
Yeni mesaj yok proje-tesisat çizimi-aydınlatma hesab... byram CAD Proje ve Uygulamaları(elektrik-elektronik) 0 28/5/2015, 18:02 Son gönderilen mesajlar
byram
Yeni mesaj yok Isı Kazancı Hesabı PDF tarikyildiz Isıtma&Soğutma/Tesisat/Doğalgaz/Kombi&Klima..vb Sistemler 0 9/12/2009, 01:02 Son gönderilen mesajlar
tarikyildiz
Yeni mesaj yok kısadevre hesabı analiz Bilgisayar/Elektrik&Elektronik ve Haberleşme Mühendisleri 0 28/8/2008, 15:27 Son gönderilen mesajlar
analiz
Yeni mesaj yok hidrofor hesabı tacheles Freeware/Demo Mühendislik yazılımları 1 27/3/2010, 12:22 Son gönderilen mesajlar
miramax


Kod Çalışma Süresi = 0.0785 saniye, SQL Sorgu Adedi = 27, GZIP = Kapalı Hata denetimi = Kapalı,
Powered by phpBB



Pano Güvenliği

142041 Saldırı girişimi engellendi