Tampilkan postingan dengan label Programming. Tampilkan semua postingan
[X,Y] = meshgrid(-1:.2:2,-2:.1:1);
Z = X.*Y.*exp(-X.^2-Y.^2);
surf(X,Y,Z)
x = -2 : 0.1 : 2; y = -2 : 0.1 : 2;
[X,Y] = meshgrid(x,y); Z =
X.*Y.*exp(-X.^2-Y.^2);
surf(X,Y,Z);
x = 1:4; y = 1:8; [X,Y] =
meshgrid(x,y); Z = sqrt(X.^2 + Y.^2);
colormap(hsv); surf(Z); xlabel('x');
ylabel('y');
[X,Y]=meshgrid(-5:0.1:5);
Z=log(exp(X)+exp(Y));
surf(X,Y,Z);
[x,y]=meshgrid(-2:.2:2);
z= 1-(x.^2+y.^2)/4;
surf(x,y,z)
[x,y] = meshgrid ( -5:0.2:5, -5:0.2:5
);
z = 9 * x.^2 + 16 * y.^2 - 144;
surf(x,y,z)
x=0:4; y=0:.5:3;
[X,Y]=meshgrid(x,y);
Z=3*X-2*Y;
surf(X,Y,Z)
[X,Y]=meshgrid(-2:.1:2,-1:.1:1);
Z=(X.^2).*Y-2*Y;
surf(X,Y,Z)
[X,Y]=meshgrid(-1:.1:1);
Z=X.*Y./sqrt(X.^2+Y.^2);
surf(X,Y,Z)
[X,Y]=meshgrid(-1:.1:1);
Z=X.^2-Y.^2;
surf(X,Y,Z)
[X,Y]=meshgrid(-2:.1:2,-1:.1:1);
Z=X.^3-3*X-2*Y.^2;
surf(X,Y,Z)
CONTOH 1.
a.
Tuliskan sebuah sebarang fungsi sederhana dengan 2 parameter,
misalkan
[x,y] =
meshgrid(-18:.5:18);
z = 2*x.^2 + 5*y;
b.
Plot fungsi sederhana tersebut.
mesh(x,y,z);
CONTOH 2.
a.
Tuliskan sebarang 4 persamaan linear untuk 4 variabel.
2p
– 3q + 6r + 2s = -3
-p
+ 2q - 3r + 2s = 8
2p
+ 3q + 2r – 5s = 12
-p
+ 3r + s = 0
b.
Tuliskan 1 persamaan Matriks utk mewakili persamaan Linier tsb.
c.
Tuliskan beberapa instruksi untuk mendapatkan solusi pers linier
tsb.
A
= [2 -3 6 2;-1 2 -3 2;2 3 2 -5;-1 0 3 1];
B
= [-3;8;12;8];
x
= inv(A)*B
CONTOH 3.
a.
Gambarkan menu untuk menggambar gelombang sinus dengan N
parameter.
b.
Tuliskan calling function untuk GUI soal 3a.
CONTOH 1.
a. Tuliskan
beberapa instruksi Matlab untuk menggambar 2 sinyal sinus dengan amplitudo
dan frekuensi sama tetapi berbeda warna dan fasa 60° atau
seperenam gelombang.
x = 0 : 0.1 : 2*pi;
y1 = 2*sin(x.*3);
y2 = 2*sin(3*(x.-pi/3));
hold off;plot(x,y1,'r');hold on;plot(x,y2,'b');
b. Tuliskan
beberapa instruksi Matlab untuk menggambar kurva 3 dimensi dengan persamaan
umum z = f(x,y).
[X,Y] = meshgrid(-2:.2:2, -2:.2:2);
Z = X .* exp(-X.^2 - Y.^2);
surf(X,Y,Z)
c. Tuliskan
beberapa instruksi Matlab untuk memutar gambar dari soal 1b.
for i = 1:20,
view(20*i,50+30*i);pause(0.5)
end;
CONTOH 2.
a. Tuliskan
sebarang 4 persamaan linier berisi 4 variabel.
2a + b + c + d = 1
a + 3b + c + d = 2
a + b + 4c + d = 3
a + b + c + 5d = 25
b. Tuliskan
4 persamaan linier tersebut dalam bentuk matriks Ax = B.
c. Tuliskan
instruksi untuk menghitung determinan matriks A. Jika A bukan nol ubah matriks
A menjadi matrik Anol yang determinannya nol.
det(A)
A = [2 1 0 1; 1 3 0 1; 1 1 0 1; 1 1 0 5]
d. Terkait
soal 2b, jika determinan matriks A sama dengan nol, ubah jawaban 2a hingga
determinan A tidak nol, kemudian carilah nilai matriks x.
A = [2 1 1 1; 1 3 1 1; 1 1 4 1; 1 1 1 5]
B = [4; 9; 16; 25]
x = inv(A)*B
CONTOH 3.
Buatlah function gambar_kurva yang memiliki 4 parameter,
gambar_kurva = f(amp1, amp2, frek1,
frek2)
amp adalah amplitudo, frek adalah frekuensi.
Function tersebut digunakan untuk menggambar sebuah kurva 3
dimensi dari perkalian vektor dua buah kurva 2 dimensi yang memiliki perbedaan
amplitudo dan frekuensi.
amp1 = input('Masukkan
harga amp1 = ')
amp2 = input('Masukkan
harga amp2 = ')
frek1 = input('Masukkan
harga frek1 = ')
frek2 = input('Masukkan
harga frek2 = ')
x = 0 : 0.1 : 2*pi;
y1 = amp1*sin(frek1-x);
y2 = amp2*sin(frek2-x);
z = y1'*y2;
mesh(z);
CONTOH 1.
a. Sebutkan
2 alasan utama penggunaan Matlab.
·
data
compatibility, mudah export/import data
·
built in
facility, sudah disediakan beragam fasilitas siap pakai untuk analisa,
simulasi, dll.
b. Sebutkan
salah satu contoh penggunaan Matlab
·
Forecasting.
Untuk analisa kecenderungan variasi data terhadap waktu atau variabel lainnya,
misalnya trend konsumsi energi.
·
Mathematical
modelling. Misalnya :
·
Graphical
modelling. Misalnya :
c. Tuliskan
beberapa instruksi untuk menggambar 2 gelombang periodik berbeda warna dan
fasa, tetapi memiliki kesamaan bentuk.
x = 0:0.1:2*pi;
y1 = sin(2*x);
y2 = sin(2*(x-pi/6));
plot(x,y1,'y');hold
on;
plot(x,y2,'g');
d. Tuliskan
beberapa instruksi untuk menggambar 3D cross product dari 2 gelombang tersebut
di atas.
x = 0:0.1:2*pi;
y1 = sin(2*x);
y2 = sin(2*(x-pi/6));
w = y1'*y2;
mesh(w);
CONTOH 2.
a. Tuliskan
sembarang 4 persamaan linear untuk 4 variabel.
2a – 3b + 4c - 2d =
8
a + b + 2c
+ d = 12
2a – b + 4c - 5d = 4
3a + 2b - c - 2d = 10
b. Tuliskan
1 persamaan Matriks utk mewakili perwamaan Linier tsb.
c. Tuliskan
beberapa instruksi untuk mendapatkan solusi pers linier tsb.
A
= [2 -3 4 -2;1 1 2 1;2 -1 4 -5;3 2 -1 -2];
B
= [8;12;4;10];
x
= inv(A)*B
x
=
4.5466
1.3913
1.9006
2.2609
CONTOH 3.
a. Tulislah
m-file untuk fungsi deretfibo(satu,batas).
Jika fungsi ini dieksekusi, komputer akan menulis deret fibonaci yang diawali
oleh angka satu dan seterusnya sampai
berakhir sebelum angka batas.
Tambahkan help yang memberitahu cara penggunaan fungsi tsb.
function deretfibo(satu,batas)
% menulis deret fibonaci
% satu =
angka pertama
% batas = angka yg tidak boleh dilampaui, maksimal
satu
dua = satu + 1
tiga = satu + dua;
while (tiga <= batas),
tiga
satu = dua;
dua = tiga;
tiga = satu +
dua;
end
b. Tambahkan
m-file di atas, sehingga muncul grafik dari deret fibonaci tsb.
function deretfibo(satu,batas)
% menulis deret fibonaci
% satu =
angka pertama
% batas = angka yg tidak boleh dilampaui, maksimal
satu;
dua = satu + 1;
tiga = satu + dua;
A(1)=satu
A(2)=dua
A(3)=tiga;
i = 3;
while (tiga <= batas),
A(i) = tiga
satu = dua;
dua = tiga;
tiga = satu +
dua;
i = i+1;
end
plot(A);
c. Lengkapi
m-file di atas,sehingga muncul gambar 3D deret tersebut terhadap rasionya.
function deretfibo(satu,batas)
% menulis deret fibonaci
% satu =
angka pertama
% batas = angka yg tidak boleh dilampaui, maksimal
satu;
dua = satu + 1;
tiga = satu + dua;
A(1)=satu
A(2)=dua
A(3)=tiga;
i = 3;
while (tiga <= batas),
A(i) = tiga
satu = dua;
dua = tiga;
tiga = satu +
dua;
i = i+1;
end
for j=1:i-2
B(j) =
A(j+1)/A(j)
end
plot(A);hold on;plot(B);
Untuk lebih memahami struktur pemrograman dengan Delphi buatlah program seperti pada tampilan dibawah ini.
Langkah-langkah pembuatan :
- Klik pada Form1 lalu ubahlah properti Caption -nya pada jendela Object Inspector menjadi ‘ Program Sederhana ’.
- Pada Komponen Palette pilih tab Standard car i nama komponennya Button , kemudian klik ganda, Objek Button yang dihasilkan akan langsung terpilih yang ditandai dengan titik- titik kecil mengelilingi komponen tersebut. Kemudian atur posisinya seperti pada gambar. Perhatikan jika suatu objek terpilih, maka jendela Objek Inspector akan menyesuaikan dengan objek tersebut.
- Ubahlah properti Caption -nya pada jendela Object Inspect or menjadi ‘ &Pesan ’.
- Lakukan cara yang sama untuk membuat tombol yang kedua dengan Caption -nya menjadi ‘ &Tutup ’.
- Klik ganda pada tombol yang pertama anda buat tadi, maka anda akan masuk kebagian Code Editor . Kemudian ketikkan perintah ber ikut : Showmessage ('This is my first Program'); untuk kembali ke Form tekan F12 pada keyboard anda.
- Lakukan hal yang sama pada tombol yang kedua, kemudian isikan perintah berikut : Application.terminate;
- Untuk menjalankannya tekan F9 pada keyboard anda, atau pilih menu Run > Run pada menu bar.
Jika anda melakukannya dengan benar maka program anda dapat dicompile dan di run . Hasil dari program tersebut adalah : akan menampilkan kotak pesan yang berisi ‘This is my first Program’ saat mengklik tombol Pesan dan program akan ditutup saat tombol Tutup diklik.
Program lengkapnya adalah :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls;
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('This is my first Program');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Latihan :
1. Buatlah program seperti berikut :
Komponen/Objek yang digunakan dan pengaturan propertiesnya adalah :
Komponen Properti Nilai Properti
Form1 Caption Program Matematika
Label1 Caption Angka1
Label2 Caption Angka2
Label3 Caption Hasil
Label4 Caption Merah
Label5 Caption Biru
Label6 Caption Hijau
Button1 Name BtJumlah
Caption Jumlah
Button2 Name BtKurang
Caption Kurang
Button3 Name BtKali
Caption Kali
Button4 Name BtBagi
Caption Bagi
Panel1 Caption - Kosongkan -
Panel2 Caption - Kosongkan -
BevelInner BvLowered
BevelWidth 2
BorderStyle BsSigle
BorderWidth 2
Edit1 Name EdAng1
Edit2 Name EdAng2
Edit3 Name EdHasil
Masukkan perintah-perintah pada kejadian/event disetiap komponen di bawah ini.
Nama Komponen
Event
Perintah
BtJumlah
OnClick
procedure TForm1.btJumlahClick(Sender: TObject);
var a,b : integer;
begin
a := StrToInt(edAng1.Text);
b := StrToInt(edAng2.Text);
edHasil.Text := IntToStr(a + b);
end;
BtKurang
OnClick
procedure TForm1.btKurangClick(Sender: TObject);
var a,b : integer;
begin
a := StrToInt(edAng1.Text);
b := StrToInt(edAng2.Text);
edHasil.Text := IntToStr(a - b);
end;
BtKali
OnClick
procedure TForm1.btKaliClick(Sender: TObject);
var a,b : integer;
begin
a := StrToInt(edAng1.Text);
b := StrToInt(edAng2.Text);
edHasil.Text := IntToStr(a * b);
end;
BtBagi
OnClick
procedure TForm1.btBagiClick(Sender: TObject);
var a,b : integer;
begin
a := StrToInt(edAng1.Text);
b := StrToInt(edAng2.Text);
edHasil.Text := FloatToStr(a / b);
end;
Label4
OnMouseMove
procedure TForm1.LMerahMouseMove(Sender:
TObject; Shift: TShiftState; X,Y: Integer);
begin
Form1.Color := clRed;
end;
Label5
OnMouseMove
procedure TForm1.LBiruMouseMove(Sender: TObject;
Shift: TShiftState; X,Y: Integer);
begin
Form1.Color := clBlue;
end;
Label6
OnMouseMove
procedure TForm1.LHijauMouseMove(Sender:
TObject; Shift: TShiftState; X,Y: Integer);
begin
Form1.Color := clGreen; end;
Program lengkapnya adalah :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
btJumlah: TButton;
btKurang: TButton;
Label1: TLabel;
Label2: TLabel;
edAng1: TEdit;
edAng2: TEdit;
btBagi: TButton;
btKali: TButton;
Panel1: TPanel;
Label3: TLabel;
edHasil: TEdit;
Panel2: TPanel;
LMerah: TLabel;
LBiru: TLabel;
LHijau: TLabel;
procedure btJumlahClick(Sender: TObject);
procedure btKurangClick(Sender: TObject);
procedure btKaliClick(Sender: TObject);
procedure btBagiClick(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LMerahMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LBiruMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LHijauMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btJumlahClick(Sender: TObject);
var a,b : integer;
begin
a := StrToInt(edAng1.Text);
b := StrToInt(edAng2.Text);
edHasil.Text := IntToStr(a + b);
end;
procedure TForm1.btKurangClick(Sender: TObject);
var a,b : integer;
begin
a := StrToInt(edAng1.Text);
b := StrToInt(edAng2.Text);
edHasil.Text := IntToStr(a - b);
end;
procedure TForm1.btBagiClick(Sender: TObject);
var a,b : integer;
begin
a := StrToInt(edAng1.Text);
b := StrToInt(edAng2.Text);
edHasil.Text := FloatToStr(a / b);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Color := clBtnFace;
end;
procedure TForm1.LMerahMouseMove(Sender: TObject; Shift: TShiftState;
X,Y: Integer);
begin
Form1.Color := clRed;
end;
procedure TForm1.LBiruMouseMove(Sender: TObject; Shift: TShiftState;
X,
Y: Integer);
begin
Form1.Color := clBlue;
end;
procedure TForm1.LHijauMouseMove(Sender: TObject; Shift: TShiftState;
X,
Y: Integer);
begin
Form1.Color := clGreen;
end;
Soal :
1. Buat program seperti berikut :
Keterangan Program :
1. Tulis pesan anda di isian pesan.
2. Klik tombol “Pesan” untuk menampilkan pesan yang anda buat pada window yang baru, menggunakan ShowMessage seperti pada gambar.
3. Buatlah program dengan tampilan sebagai berikut :
Keterangan Program :
a. Pertama anda inputkan Kode Barang, Nama Barang, Merk, Harga Satuan dan Jumlah Beli.
b. Selanjutnya klik tombol “Proses” untuk melihat nilai Diskon dan Total Harga.
c. Proses untuk mencari diskon dan total harga adalah sbb:
Diskon = 10% x Harga Satuan x Jumlah Beli
Total Harga = (Harga Satuan x Jumlah Beli) – Diskon
d. Tombol “New” untuk mengosongkan semua isian.
e. Tombol “Exit” untuk keluar dari Program.
Postingan
