Pages

Sabtu, 16 Maret 2013

Misteri segitiga Bermuda

Gas metana dalam wilayag segituga bermuda menjadi penyebab rumor misteri kapal hilang jika melintas disekiar segitiga bermuda.

Kini teka-teki keberadaan segitiga bermudah, telah berhasil terpecahkan oleh ilmuan dari Universitas Monash Australia di Melbourne, Joseph Monaghan dan asistennya David May, mereka berpendapat bahwa menghilangnya kapal dan pesawat secara misterius di segitiga bermuda bahwa ada penjelasan logis untuk itu. Menurut mereka, semua di picu oleh gas metana alami yang dipancarkan dari dasar laut di wilayah tersebut.
Menurut teori mereka, gas, terlepas dari dasar laut, berubah menjadi gelembung raksasa yang mencapai permukaan dan "menyerap" apapun yang ada hadapannya. Menurut mereka, metana, jika dilepaskan dari celah-celah laut, berubah menjadi gelembung gas, yang kemudian geometris memperluas dan meledak di permukaan air.
Pertama, para peneliti menguji teori mereka dengan menciptakan sebuah model komputer, hasil dari simulasi komputer menegaskan asumsi bahwa jika kapal masuk ke gelembung metana, segera kehilangan daya apung dan tenggelam dan ledakan gelembung gas raksasa pun mampu menembak jatuh pesawat.
Para peneliti kemudian melakukan percobaan yang sesuai di lapangan. Percobaan ini menggunakan wadah yang di isi dengan air, dan ditempatkan pada permukaan dengan beberapa kapal mainan, dan bagian bawah mulai menyemprotkan metana.
Hasil eksprimen ini membuahkan hasil bahwa tidak ada satupun yang beruntung dan semua terserap di tengah gelembung, lalu menjauh ke bawah dan tenggelam. Hal ini dapat menjelaskan kasus-kasus segitiga bermuda di mana kapal-kapal ditemukan dengan awak tewas di kapal, tapi tanpa goresan. Orang hanya tercekik oleh gas beracun.
Sumber artikel : globalscience.ru


Rabu, 06 Maret 2013

Program Visual Basic | Algoritma Greedy

ALgoritma greedy merupakan salah satu dari sekian banyak algoritma yang sering di pakai dalam implementasi sebuah system atau program yang menyangkut mengenai pencarian “optimasi
Di dalam mencari sebuah solusi (optimasi) algoritma greedy hanya memakai 2 buah macam persoalan Optimasi,yaitu:

1. Maksimasi (maxizimation)
2. Minimasi (minimization)

Sekarang kita lanjut ke contoh soal yang aja ya..biar lebih enak membedakan antara soal mengenai optimasi/maksimasi dengan minimum/minimasi.

1.Persoalan maksimasi

( MasalahPenukaranUang): Diberikan uang senilai A. Tukar A dengan koin-koin yang ada. Berapa jumlah minimum koin yang diperlukan untuk penukaran tersebut?

2. Persoalan minimasi

Contoh1: tersedia banyak koin 1, 5, 10, 25
•Uang senilai A= 32 dapat ditukar dengan banyak cara berikut:

32 = 1 + 1 + …+ 1 (32 koin)
32 = 5 + 5 + 5 + 5 + 10 + 1 + 1(7 koin)
32 = 10 + 10 + 10 + 1 + 1(5 koin)…dst

•Minimum: 32 = 25 + 5 + 1 + 1 (4 koin)

ini contoh program visual basicnya, buat form seperti gambar dibawah ini;


untuk yang bersangkutan, jangan lupa beri nama
textbox1 = pada textbox "masukkan 3 koin"
textbox2 = pada textbox "koin yang ditukar"
textbox3 = pada textbox "solusi"

berikut source codenya;

Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nilai As String = TextBox1.Text
Dim nilai1 As Integer = Mid(nilai, 1, 1)
Dim nilai2 As Integer = Mid(nilai, 3, 1)
Dim nilai3 As Integer = Mid(nilai, 5, 1)
Dim tukar As Integer = CStr(TextBox2.Text)
Dim hasil As String
hasil = ""
While tukar > 0
If (tukar - nilai3) > 0 Then
tukar = tukar - nilai3
hasil = hasil & CStr(nilai3)
If (tukar + nilai3) > nilai3 Then
hasil = hasil & "+"
End If
ElseIf (tukar - nilai2) > 0 Then
tukar = tukar - nilai2
hasil = hasil & CStr(nilai2)
If (tukar + nilai2) > nilai2 Then
hasil = hasil & "+"
End If
ElseIf (tukar - nilai1) >= 0 Then
tukar = tukar - nilai1
hasil = hasil & CStr(nilai1)
If (tukar + nilai1) > nilai1 Then
hasil = hasil & "+"
End If
End If
End While
TextBox3.Text = hasil
End Sub
End Class

bisa di edit sedikit untuk lebih memahami algoritma greedy ini, selamat mencoba :)