Dalam pemrograman pastilah ada saat dimana kita harus mensorting atau mengurutkan bilangan, sehingga di buatlah macam-macam algoritma atau metode dalam proses pengurutan tersebut salah satunya ialah algoritma Selection Sort ,nah untuk lebih jelasnya simak source code berikut:


void SelectionSort(int * Data)
{
    for (int i=0; i<N; i++)
    {
        int lok = i;
        for (int j=i+1; j<N; j++)
            if (Data[j] < Data[lok]) lok = j;
                Tukar(Data[i],Data[lok]);
    }
}

untuk menginisialisasi variable lakukan dengan langkah sebaga berikut:

int Data[N];

dimana untuk memanggil fungsi diatas cukup dengan perintah :

InsertionSort(Data);



sekian dulu postingan ane,..
see you next post gan...
 

Setelah lama kaga ngepos, akhirnya ane punya kesempatan juga,..
pada malam yang dingin ini ane bakalan ngeshare Contoh Program pengolahan Citra Cropping...
Mengingat ane males buat upload screenshootnya,
langsung aja ke link downloadnya yach,...check this out guys,..

Setelah lama kaga ngepos, akhirnya ane punya kesempatan juga,..
pada malam yang dingin ini ane bakalan ngeshare Contoh Program pengolahan Citra Mirroring...
langsung aja ke link downloadnya yach,...check this out guys,..

Setelah lama kaga ngepos, akhirnya ane punya kesempatan juga,..
pada malam yang dingin ini ane bakalan ngeshare Contoh Program pengolahan Citra Blending...
Mengingat ane males buat ss aplikasinya,..
langsung aja ke link downloadnya yach,...
check this out guys,..

Setelah lama kaga ngepos, akhirnya ane punya kesempatan juga,..
pada malam yang dingin ini ane bakalan ngeshare Contoh Program pengolahan Citra Ambang Ganda...

check this out guys,..

Setelah lama kaga ngepos, akhirnya ane punya kesempatan juga,..
pada malam yang dingin ini ane bakalan ngeshare Contoh Program pengolahan Citra Ambang...

check this out guys,..

udah lama ga ngepost gara-gara sibuk ama pekerjaan, jadi sekarang nyempatin diri buat ngepost,.
itung-itung amal,..hehehe
langsung aja pada topik kita kali ini yaitu "Menghitung Momen Invarian pada Delphi"...
tanpa berbasa basi,,,check this out gan!!!

procedure TForm1.hitMomen(var invarian: momen7; cs: pikselbyte);
var
  temp: array of array of byte;
  u, N: array [0 .. 3, 0 .. 3] of real;
  m: array [0 .. 3, 0 .. 3] of real;
  i, j, k, l: integer;
  x1, y1: real;
begin
  for i := 0 to 3 do
    for j := 0 to 3 do
      m[i, j] := 0;

  setlength(temp, cs.h + 1, cs.w + 1);

  // transfer mat citra >> mat biasa
  for i := 1 to cs.h do
    for j := 1 to cs.w do
    begin
      temp[i, j] := cs.isi[i - 1, j - 1];
    end;

  // HIT momen
  for k := 0 to 3 do
    for l := 0 to 3 do
      for i := 1 to cs.h do
        for j := 1 to cs.w do
          m[k, l] := m[k, l] + ((XpangkatY(j, k)) * (XpangkatY(i, l)) * temp[i,
            j]);

  // hit x dan y aksen  >> pusat koordinat obyek
  x1 := m[1, 0] / m[0, 0];
  y1 := m[0, 1] / m[0, 0];

  // insialisasi momen pusat pusat & normalisasi
  for i := 0 to 3 do
    for j := 0 to 3 do
    begin
      u[i, j] := 0;
      N[i, j] := 0;
    end;

  N[1, 1] := (m[1, 1] - y1 * m[1, 0]) / sqr(m[0, 0]);
  N[2, 0] := (m[2, 0] - x1 * m[1, 0]) / sqr(m[0, 0]);
  N[0, 2] := (m[0, 2] - y1 * m[1, 0]) / sqr(m[0, 0]);
  N[3, 0] := (m[3, 0] - 3 * x1 * m[2, 0] + 2 * sqr(x1) * m[1, 0]) / XpangkatY
    (m[0, 0], 2.5);
  N[0, 3] := (m[0, 3] - 3 * y1 * m[0, 2] + 2 * sqr(y1) * m[0, 1]) / XpangkatY
    (m[0, 0], 2.5);
  N[2, 1] := (m[2, 1] - 2 * x1 * m[1, 1] - y1 * m[2, 0] + 2 * sqr(x1) * m[0,
    1]) / XpangkatY(m[0, 0], 2.5);
  N[1, 2] := (m[1, 2] - 2 * y1 * m[1, 1] - x1 * m[0, 2] + 2 * sqr(y1) * m[1,
    0]) / XpangkatY(m[0, 0], 2.5);

  for i := 1 to 7 do
    invarian[i] := 0;

  invarian[1] := N[2, 0] + N[0, 2];
  invarian[2] := sqr(N[2, 0] - N[0, 2]) + 4 * sqr(N[1, 1]);
  invarian[3] := sqr(N[3, 0] - 3 * N[1, 2]) + sqr(3 * N[2, 1] - N[0, 3]);
  invarian[4] := sqr(N[3, 0] + N[1, 2]) + sqr(N[2, 1] + N[0, 3]);
  invarian[5] := (N[3, 0] - 3 * N[1, 2]) * (N[3, 0] + N[1, 2]) *
    (sqr(N[3, 0] + N[1, 2]) - 3 * sqr(N[2, 1] + N[0, 3])) +
    (3 * N[2, 1] - N[0, 3]) * (N[2, 1] + N[0, 3]) *
    (3 * sqr(N[3, 0] + N[1, 2]) - sqr(N[2, 1] + N[0, 3]));
  invarian[6] := (N[2, 0] - N[0, 2]) *
    (sqr(N[3, 0] + N[1, 2]) - sqr(N[2, 1] + N[0, 3])) + 4 * N[1, 1] *
    (N[3, 0] + N[1, 2]) * (N[2, 1] - N[0, 3]);
  invarian[7] := (3 * N[2, 1] - N[0, 3]) * (N[3, 0] + N[1, 2]) *
    (sqr(N[3, 0] + N[1, 2]) - 3 * sqr(N[2, 1] + N[0, 3])) +
    (3 * N[1, 2] - N[3, 0]) * (N[2, 1] + N[0, 3]) *
    (3 * sqr(N[3, 0] + N[1, 2]) - sqr(N[2, 1] + N[3, 0]));

end;

ketujuh momen itu diambil dari persamaan berikut ini



dimana momen 7 merupakan tipe array [1..7] dengan tipe variabel extended dan piksel byte merupakan record yang didefenisikan sebagai berikut,..

type
  pikselbyte = record
    x, h, w: integer;
    isi: array of array of integer;
    spasi: boolean;
  end;

muga-mugahan postingan ane kali ini tentang "Menghitung Momen Invarian pada Delphi" sekian dari ane semoga bermanfaat,..

Met malam sobbbbb,....
kali ini ane mau kasi sedikit link tambahan buat sobat-sobat semua,..
khusus buat sobat-sobat yang pengen nginstall laptop tapi bingung mau download file ISOnya dimana maka postingan ini bisa jadi solusi buat sobat-sobat sekalian,..
langsung aja ane kasih link Download Windows 7 Original ISO,...



tapi kalo emang gak mau beli lisensi nya, pake aja loader yang udah ane upload sebelumya di SINI,,dijamin 100% work!!!

yang pengen tinggal download aja disini!!!

Buat Teman-teman yang masih bingung dengan cara pembuatan program histogram citra dengan delphi, berikut saya bagikan Contoh Program Histogram Citra Dengan Delphi, tanpa berbasa basi lagi, teman-teman dapat melihan preview dari contoh programnya,...
untuk lebih lengkapnya dapat mendownload langsung disini

Nb. Password "blogITgo" tanpa "
bagi teman-teman yang masih bingung silahkan komentar!!

Dalam pemrograman pastilah ada saat dimana kita harus mensorting atau mengurutkan bilangan, sehingga di buatlah macam-macam algoritma atau metode dalam proses pengurutan tersebut salah satunya alah algoritma Bubble Sort,nah untuk lebih jelasnya simak source code berikut:

procedure TForm1.sort(var matriks: array of integer);
var
  i, j, T: integer;
begin
  for i := 1 to 3 do
    for j := 4 downto i + 1 do
      if matriks[j] < matriks[j - 1] then
      begin
        T := matriks[j];
        matriks[j] := matriks[j - 1];
        matriks[j - 1] := T;
      end;
end;
code diatas digunakan untuk mengurutkan dari yang terbesar sampai yang terkecil sedangkan untuk kebalikanya digunakan

procedure TForm1.sort(var matriks: array of integer);
var
  i, j, T: integer;
begin
  for i := 1 to 3 do
    for j := 4 downto i + 1 do
      if matriks[j] > matriks[j - 1] then
      begin
        T := matriks[j];
        matriks[j] := matriks[j - 1];
        matriks[j - 1] := T;
      end;
end;

sekian Algoritma Bubble Sort di Delphi, muga-mugahan dapat membantu teman-teman semua,..