implementasi delphi 1 - Optimasi Linier

[mas_kofa]

Bismillahirrahmannirrahim...


Pemrograman linier

Metode Pemrograman linier pertama kali ditemukan oleh ahli statistika Amerika Serikat yang bernama Prof. George Dantzig (Father of the Linear Programming). Pemrograman Linier disingkat PL merupakan metode matematik dalam mengalokasikan sumber daya yang terbatas untuk mencapai suatu tujuan seperti memaksimumkan keuntungan dan meminimumkan biaya. PL banyak diterapkan dalam masalah ekonomi, industri, militer, social dan lain-lain. PL berkaitan dengan penjelasan suatu kasus dalam dunia nyata sebagai suatu model matematik yang terdiri dari sebuah fungsi tujuan linier dengan beberapa kendala linier. Tahapan dalam penyelesaian optimasi dari Linear programming ini adalah sebagai berikut :

1. Menentukan decision of variables
2. Membuat objective function
3. Memformulasikan constraints
4. Menggambarkan dalam bentuk grafik
5. Menentukan daerah kemungkinan/ "feasible"
6. Menentukan solusi optimum.

Dua jenis pendekatan yang sering digunakan dalam metode pemrograman linier ini, yaitu :

a) Metode Grafik -Digunakan untuk menyelesaikan optimasi dengan maksimum 2 variabel. -Untuk variabel lebih dari 2, penyelesaiannya menggunakan metode ke-dua.

b) Metode Simplex -Digunakan untuk proses dengan jumlah variabel lebih dari 2. -Tahapan dalam metode simplex ini lebih kompleks dibandingkan dengan metode grafik.

Sumber : http://id.wikipedia.org/wiki/Pemrograman_linier

[mas_kofa]

A. Membuat Sistem koordinat Kartesius

apa itu sistem koordinat Kartesius??, silahkan baca http://id.wikipedia.org/wiki/Sistem_koordinat_Kartesius

Sebelum kita mulai ke contoh kasus yang sesungguh nya, terlebih dahulu kita harus bisa, bagaimana cara membuat :

1.) Sistem koordinat Kartesius.
2.) Membuat garis lurus (linier) dari satu titik x1 (x1, y1) ke x2 (x2, y2) yang dirumuskan dalam suatu persamaan linier y = ax + b;


Mariii....mari..... kita mulai............

[mas_kofa]

Kita mulai point 1, yakni Membuat Sistem koordinat Kartesius.

1. Mari kita buka delphi (aku masih setia di delphi7).
2. Buka New Project, lalu di Form 1 kita tambah kan

a.) TPanel
b.) TImage, ukuran : 473 x 473 (masukan ke dalam Panel1)
c.) Tbutton, Caption = "Draw"

lalu atur seperti gambar di bawah ini :

[Forego]

asikkkk, terus dong ampe tamat

[mas_kofa]

Setelah itu double klik Button1, sehingga masuk ke code editor Button1Click();

lalu tulislah pada event tersebut sehingga seeperti di bawah ini :

    PAS Programming

procedure TForm1.Button1Click(Sender: TObject);
var
  zz: Integer;
  yy: Integer;
  xx: Integer;
  i: Integer;
  hh: Integer;
  ww: Integer;
  y0: Integer;
  x0: Integer;
begin
  //menentukan lebar x tinggi canvas TImage;
  ww := Image1.Width;
  hh := Image1.Height;
 
  //menentukan titik pusat (0, 0) atau (x0, y0) sistem koordinat kartesian (SKK);
  x0 := ww div 2;
  y0 := hh div 2;
 
  //proses menggambar;
  //hitamkan canvas;
  Image1.Canvas.Brush.Color := clBlack;
  Image1.Canvas.FillRect(Rect(0, 0, ww, hh));
 
  //menggambar sumbu x,  dari titik (-n, y0) s/d (+n, y0);
  Image1.Canvas.Pen.Color := clWhite;
  Image1.Canvas.MoveTo(00, y0);
  Image1.Canvas.LineTo(ww, y0);
 
  //menggambar sumbu y,  dari titik (x0, -y) s/d (x0, +y);
  Image1.Canvas.MoveTo(x0, 00);
  Image1.Canvas.LineTo(x0, hh);
 
  //pemberian notasi2 dan angka2 dengan skala 50:1;
  //notasi sumbu x;
  Image1.Canvas.Pen.Color := clRed;
  yy := x0 div 25;
  zz := -(yy div 2);
  for i := 0 to yy do
  begin
    xx := i * 50 + (x0 - 50 * 4);
    Image1.Canvas.Ellipse(xx - 2, y0 - 2, xx + 2, y0 + 2);
    Image1.Canvas.Font.Color := clRed;
    Image1.Canvas.Font.Style := [fsbold];
    Image1.Canvas.TextOut(xx, y0 + 5, IntToStr(zz));
    inc(zz);
  end;
 
  //notasi sumbu y;
  yy := x0 div 25;
  zz := yy div 02;
  for i := 0 to yy do
  begin
    xx := i * 50 + (y0 - 50 * 4);
    Image1.Canvas.Ellipse(x0 - 2, xx - 2, x0 + 2, xx + 2);
    if zz <> 0 then
    Image1.Canvas.TextOut(x0 + 5, xx, IntToStr(zz));
    dec(zz);
  end;
end;

Lalu jalan kan program, dan klik pada tombol "Draw" sehingga tampilannya seperti di bawah ini :



Source Lengkap nya bisa di download di bawah ini :

[mrlee]

link donlut buat demo nya donk
Ato video youtube nya

[mas_kofa]

(Sat, 31 Dec 2011 04:13 PM)mrlee Wrote:  link donlut buat demo nya donk
Ato video youtube nya

Lha itu link download ada di atas.....