Source Code Scilab untuk Menggambar Grafik Interpolasi

INTERPOLASI LANJAR
Data tabulasi jumlah penduduk Purworejo
Tahun                           2000        2010
Jumlah Penduduk         187900     205700

SOURCE CODE
function y=f(x0,y0,x1,y1,x)
    y=y0+((y1-y0)/(x1-x0))*(x-x0);
endfunction

x0=2000;
y0=187900;
x1=2010;
y1=205700;

j=1;
for i=x0-5:0.1:x1+5
    tx(j)=i;
    ty(j)=f(x0,y0,x1,y1,i);
    j=j+1;
end
plot(tx,ty);
plot(x0,y0,'or');
plot(x1,y1,'og');

INTERPOLASI KUADRATIK

Data tabulasi jumlah penduduk Purworejo

Tahun                        2000        2010        2012

Jumlah Penduduk      180700    205700    190000

SOURCE CODE

function y=f(x0,y0,x1,y1,x2,y2,x)

    y=(y1*(((x-x1)*(x-x2))/((x0-x1)*(x0-x2))))+(y1*(((x-x0)*(x-x2))/((x1-x0)*(x1-x2))))+(y2*(((x-x0)*(x-x1))/((x2-x0)*(x2-x1))));

endfunction

x0=2000;

y0=180700;

x1=2010;

y1=205700;

x2=2012;

y2=190000;

j=1;

for i=x0-60:0.01:x2+20

    tx(j)=i;

    ty(j)=f(x0,y0,x1,y1,x2,y2,i);

    j=j+1;

end

plot(tx,ty);

plot(x0,y0,'or');

plot(x1,y1,'og');

plot(x2,y2,'ob');

INTERPOLASI KUBIK

Data tabulasi jumlah penduduk Purworejo

Tahun                     2000        2010       2012      2015

Jumlah Penduduk   187900    205700   190000   210000

SOURCE CODE

function y=f(x0,y0,x1,y1,x2,y2,x3,y3,x)

    y=(y0*((x-x1)*(x-x2)*(x-x3))/((x0-x1)*(x0-x2)*(x0-x3)))+(y1*((x-x0)*(x-x2)*(x-x3))/((x1-x0)*(x1-x2)*(x1-x3)))+(y2*((x-x0)*(x-x1)*(x-x3))/((x2-x0)*(x2-x1)*(x2-x3)))+(y3*((x-x0)*(x-x1)*(x-x2))/((x3-x0)*(x3-x1)*(x3-x2)));

endfunction

x0=1;

y0=10;

x1=5;

y1=10;

x2=9;

y2=18;

x3=15;

y3=24;

j=1;

for i=x0-5:0.1:x3+5

    tx(j)=i;

    ty(j)=f(x0,y0,x1,y1,x2,y2,x3,y3,i);

    j=j+1;

end

plot(tx,ty);

plot(x0,y0,'or');

plot(x1,y1,'og');

plot(x2,y2,'ob');

plot(x3,y3,'oy');

Mencari solusi persamaan nonlinear dengan metode titik tetap menggunakan program silab

Dipunyai persamaan :

dengan x0=2 error=0.00001

Penyelesaian:
x^3-2x+1=0
<=> x^3-2x=-1
<=> x(x^2-2)=-1
<=>x=-1/(x^2-2)

Source Code Scilab

function y=g(x)
    y=-1/(x^2-2);
endfunction

n=100;
i=0;

x0=1;
x1=2;
err=0.00001;

while abs(x1-x0)>err
    x2=g(x1);
    x0=x1;
    x1=x2;
    i=i+1;
    disp("iterasi  "+string(i)+ " => "+string(x0)+"    "+string(x1));
    if i >= n then
        disp("Maks iteration exceed");
    end;
end
disp("Solusi=  "+string(x2));

Membuat Program Mencari Rata-rata Bilangan Ganjil/Genap dengan Input Nilai Awal dan Akhir Menggunakan Visual Basic

Desain Form

Source Code

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdulang_Click()
Txt1.SetFocus
Txt1.Text = ""
Txt2.Text = ""
Opsiganjil.Value = False
Opsigenap.Value = False
cboperulangan = "Pilih Jenis Perulangan"
lbljumlah.Caption = ""
lblrata.Caption = ""
List1.Clear
End Sub

Private Sub Cboperulangan_click()
Dim awal, akhir As String
Dim jum, rata As Double
awal = Txt1.Text
akhir = Txt2.Text
If awal = "" And akhir = "" Then
MsgBox "NILAI AWAL DAN NILAI AKHIR BELUM ANDA INPUTKAN !!!"
ElseIf awal = "" Or akhir = "" Then
MsgBox "NILAI AWAL ATAU NILAI AKHIR BELUM ANDA INPUTKAN !!!"
ElseIf Opsiganjil.Value = False And Opsigenap.Value = False Then
MsgBox "PILIHAN BILANGAN BELUM DIPILIH !!!"
ElseIf cboperulangan = "For" And Opsiganjil.Value = True Then
List1.Clear
If awal <= akhir Then
For i = awal To akhir
If i Mod 2 = 1 Then
List1.AddItem i
jum = jum + i
awal = awal + 2
n = n + 1
End If
Next i
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "Do While" And Opsiganjil.Value = True Then
List1.Clear
If awal <= akhir Then
Do
If awal Mod 2 = 1 Then
List1.AddItem (awal)
n = n + 1
jum = jum + awal
End If
awal = awal + 1
Loop While awal <= akhir
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "Do Until" And Opsiganjil.Value = True Then
List1.Clear
If awal <= akhir Then
Do
If awal Mod 2 = 1 Then
List1.AddItem (awal)
n = n + 1
jum = jum + awal
End If
awal = awal + 1
Loop Until awal > akhir
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "For" And Opsigenap.Value = True Then
List1.Clear
If awal <= akhir Then
For i = awal To akhir
If i Mod 2 = 0 Then
List1.AddItem i
jum = jum + i
m = m + i
n = n + 1
End If
Next i
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "Do While" And Opsigenap.Value = True Then
List1.Clear
If awal <= akhir Then
Do
If awal Mod 2 = 0 Then
List1.AddItem (awal)
n = n + 1
jum = jum + awal
End If
awal = awal + 1
Loop While awal <= akhir
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

ElseIf cboperulangan = "Do Until" And Opsigenap.Value = True Then
List1.Clear
If awal <= akhir Then
Do
If awal Mod 2 = 0 Then
List1.AddItem (awal)
n = n + 1
jum = jum + awal
End If
awal = awal + 1
Loop Until awal > akhir
rata = jum / n
lbljumlah.Caption = jum
lblrata.Caption = rata
ElseIf awal > akhir Then
MsgBox "nilai awal harus kurang dari nilai akhir"
End If

End If
End Sub

Private Sub Form_Load()
cboperulangan.AddItem "For"
cboperulangan.AddItem "Do While"
cboperulangan.AddItem "Do Until"
End Sub

SILAHKAN DOWNLOAD PROGRAMNYA DISINI

Program Pencarian Simpangan Baku dengan Microsoft Visual Basic 6.0

Desain form

Source Code

Private Sub Cmdhitung_Click()

Dim i, n, jum, jumkuadrat, simpanganbaku, rata As Double

For i = 0 To List1.ListCount - 1

jum = jum + Val(List1.List(i))

jumkuadrat = jumkuadrat + (List1.List(i)) ^ 2

n = n + 1

Next i

rata = jum / n

simpanganbaku = Sqr(((n * jumkuadrat) - (jum ^ 2)) / (n * (n - 1)))

lbljumlah.Caption = jum

lblrata.Caption = rata

lblsb.Caption = simpanganbaku

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdulang_Click()

List1.SetFocus

List1.Clear

lbljumlah.Caption = ""

lblrata.Caption = ""

lblsb.Caption = ""

End Sub

Private Sub Txt1_keypress(keyascii As Integer)

Dim a As Integer

a = Val(Txt1.Text)

If keyascii = 13 Then

List1.AddItem a

Txt1.Text = ""

End If

End Sub

Silahkan download programnya disini

Contoh Tugas Microsoft Excel

Tugas MS Excel

Indonesia Pada Masa Reformasi

Indonesia Pada Masa Reformasi

Melukis Sudut 36

OBuat lingkaran dan sudut 90°.

OBagi r lingkaran menjadi dua pada titik C.

ODari titik C jangkaukan sepanjang R sehingga memotong AB di D.

OJangkaukan OD pada keliling lingkaran dimulai dari E.

ODari titik O tarik garis ke F sehingga terbentuk sudut 36°.