stringgridde ROC analizi

[RHAN]

Herkese selamlar, ben endüstri mühendisliği öğrencisiyim ve ROC analizi denilen bir analiz programı yapmaya çalışıyorum

ROC analizi ;
makina ve parça arasındaki ilişkiyi değerlendirip hangi parçanın hangi makinada işlem göreceğini belirleyerek, makina parça kümeleri oluşturmaya çalışıyor.

3 makina ve 3 parçadan oluşan bir ilişki matrisi alırsak

Kod: Tümünü seç

                 parça1       parça2        parça3      
mak1           1                0                1
mak2           0                0                1 
mak3           1                1                0  

ilk olarak satır işlemi yapılacak,
mak1 satırında; 1*2^(0) + 0*2^(1) + 1*2^(2) varsa diğer satırlar da aynı mantıkla devam ediyor.
bulunan değerlerin toplamı son sutuna yazdırılacak.

işlem yapıldığında oluşan matris;

Kod: Tümünü seç

                 parça1       parça2        parça3      
mak1           0                1                1              6
mak2           0                0                1              4
mak3           1                1                0              3

bu matris küçükten büyüğe (toplamlar) sıralanacak ve aşağıdaki matris oluşacak;

Kod: Tümünü seç

                 parça1       parça2        parça3      
mak3           1                1                0              3
mak2           0                0                1              4
mak1           0                1                1              6

aynı şekilde sutunlar içinde yapılacak,

Kod: Tümünü seç

                 parça1       parça2        parça3      
mak3           1                1                0              3
mak2           0                0                1              4
mak1           0                1                1              6
                   1                5                6

sıralama istenen şekilde,

sıralama küçükten büyüğe ise program bitecek,
bu şekilde elde edilen matris bize mak2 ile mak1 in aynı kümede olacağını belirtiyor. mak3 de ayrı bir küme de

yapmaya çalıştığım şey, stringgridde son toplamları yazdırmak ve küçükten büyüğe sıralamak.
delphiye yeni başladım, öğrenmek istiyorum

toplamları nasıl alabilirim,
bu arada matris sınırlı olmayacak 50 x 50 lik de olabilir
bu değerleri edit ten alıp önce matrisi hazırlıyorum

Kod: Tümünü seç

 toplam bulma

  for i:=1 to stringgrid1.RowCount-1 do
    for j:=1 to stringgrid1.colCount-1 do
     STRINGGRID1.Cells[1,stringgrid1.RowCount-1]:= bu kısım satır için
     STRINGGRID1.Cells[stringgrid1.colCount-1,1]:= bu kısım sutun için;

ve sıralamayı nasıl yapabilirim,
ilginize teşekkürler
iyi çalışmalar

[t-hex]

Önce SatırDegistir, SutunDegistir diye iki tane prosedür tanımla.

SatirDegistir ( 1,2) dediğin zaman 1. satırdaki tüm değerleri 2.satırdakilerle değiştirsin.

Kod: Tümünü seç

satirdegistir(satir1,satir2):
  her sütun için 
     temp := Cells[satir2,sütun];
     Cells[satir2,sütun] := Cells[satir1,sütun];
     Cells[satir1,sütun] := temp;

Aynı mantıkla SutunDegistir'de sütunları değiştirirsin.

Sonra bubblesort algoritmasını kullanarak sıralama prosedürünü yazarsın.

Hiçbir değişiklik olmayana kadar satır toplamı küçük olanı büyük olanla değiştir. Sonuçta en büyük toplamı olan sona en küçük başa gider. En basit sıralama algoritmasıdır.

Kolay gelsin.