Muhammad Kasfi / 14116972 / 4KA17

Tips & Trick Answering TOEFL Listening Questions

An English proficiency certificate is a file that you must include in your work application and scholarship file. The choice is you can attach IELTS, TOEFL IBT and TOEFL PBT. Of the three types, it's usually the TOEFL (Test of English as a Foreign Language Paper Based Test) that you often do because the test costs are cheaper.

The score stated in the TOEFL certificate can be a determinant of success. Now I will give tips and tricks so that your TOEFL score is high on the listening test. in listening there are about 50 questions and the problem is divided into three parts (PART A, B, C).

Tips for part A (first)

because this conversation contains a short conversation between two people, you just simply focus on the second speaker, because usually the answer to the problem part A is in the second speaker, if you don't understand at all, you can choose a different answer from the other points.

example 1 part A:
Woman: How was the turnout at the meeting last night?
Man: Fewer people came than I had expected.
Narrator: What does the man say about Harry? (Question)
(A) Too many people came to the meeting.
(B) There were not enough people at the meeting to inspect the documents
(C) The man had expected more people to come to the meeting
(D) There were not enough seats for all the people

the correct answer is C

example 2 part A:
Man: Did Frank have his house repaired?
Woman: The contractor said the repairs would be very expensive, but he decided to have the work done.
Narrator: What does the woman say about the repairs to Frank’s house? (Question)
(A) Frank told the contractor to do the work in spite of the cost
(B) Frank told the contractor that the price was too high
(C) Frank cannot afford the work on his house.
(D) Frank repaired his own house

the correct answer is A

Tips for part B

This part is the part where the narrator reads a long story, so while the narrator reads the questions, you should read the questions from the questions you are reading, this is important because you know about the answers or themes that will be answered while listening to the narrator and you try understand what this conversation is talking about, also pay attention to the conditions and situations that are related to the place and time of the conversation, what and who is being discussed.

Story :
Man: How long have you been out of the country, miss? Where did you go?
Woman: I spent three weeks in Switzerland and one week in Greece.
Man: Did you spend any time in agricultural areas there?
Woman: No, I stayed mostly in the cities and spent one day at the beach in Corinth.
Man: Do you have any plants, meat, or alcoholic beverage to declare?
Woman: I have only two bottles of wine.
Man: What else did you buy? Woman: A couple of festive costumes, books, and native arts and crafts.
Man: How much did you spend on your purchases while you were away?
Woman: About $300.
Man: Please open this small suitcase for me … OK, give this card to the official at the red desk. 

Narrator:
Where did this conversation most likely take place?
(A) In a clothing store
(B) In customs
(C) At a bank
(D) In a liquor store

the correct answer is B

Narrator:
How many countries did the woman visit?
(A) 1
(B) 2
(C) 3
(D) 4

the correct answer is B 

Tips for part C

This last part consists of 3 long speeches (talks) and only involves one person (monologue). if you have a lot of free time, it's better to first find keywords in each of the answer choices listed. just focus on the first sentence of the conversation because it will usually be the topic of the next sentence which usually involves 5W 1H, the last to make a conclusion while the conversation even though the narrator is still talking, if you are sure just answer. 

talks example:
Now that you know you want to purchase life insurance, you must choose from two types. The amount of money paid periodically for an insurance policy is a premium. The type of life insurance you choose will affect the amount of the premium you pay. Term life insurance is purchased for a given period of time, or  term. At the end of the term, the insurance expires. It insures your life based on a formula that considers how long you are expected to live. This product provides the greatest coverage for  the least amount of money. You do not pay any money as an investment in addition to the insurance cost. It you choose to purchase insurance after expiration, the premium will be higher  because it is calculated on your attained age, and at that point you will be older than you are now. The longer the premium is guaranteed to remain constant, the greater the premium will be because it reflects the average cost of insurance for all years being covered. Cash value life insurance, on the other hand, has component fund in which the life insurance company deposits part of the premium and pays interest earned on its investments in mortgages, bonds, stocks, and other investments. The balance of  the premium purchases term insurance, which is calculated in the same way as if you purchase term life insurance. Consequently, the premium is significantly higher than that of term life insurance. However, most cash value life insurance products have a fixed premium schedule and remain in effect throughout your life. In many cases, the interest earned on the investment portion of the premium will ultimately pay the premiums so that at some point you can discontinue making payments out of pocket. Once the fund has started to accumulate, you may borrow some of the funds at low interest rate, receive retirement income, or  even stop paying premiums. This type of policy also builds up a cash value so that if you want to cancel the policy, some money is actually returned, unlike the term policy, which has no value other than the insurance

Question:
Narrator: Which of the following is NOT a reason to buy cash value insurance?
(A) It is less expensive than term insurance
(B) It can have a fixed premium for life
(C) It may result in the insured’s being able to discontinue premium payments
(D) It may result in retirement income
the correct answer is A

Narrator: Why is cash value life insurance more expensive than term life insurance?
(A) Because the insured must pay for the agent’s retirement fund
(B) Because it is pure insurance
(C) Because part of the money is invested
(D) Because it is based on the age of the insured
the correct answer is C

Algoritma JST (Jaringan Saraf Tiruan) dengan teknik Simplex Optimization adalah salah satu algoritma berbasis jaringan saraf yang dapat digunakan untuk pengambilan keputusan. Contoh yang dibahas kali ini adalah mengenai penentuan penerimaan pengajuan kredit sepeda motor baru berdasarkan kelompok data yang sudah ada.
Inti perhitungan pada algoritma berbasis jaringan adalah untuk mencari bobot terbaik dari contoh / sampel data yang sudah ada. Karena hasil pada contoh data sudah diketahui, maka nilai bobot akan dihitung berdasarkan nilai hasil yang sudah tersedia, sampai ditemukan nilai bobot terbaik yang paling banyak cocok apabila dihitungkan kembali pada data awal. Kemudian nilai bobot tersebut dapat digunakan untuk menghitung data lain yang tidak diketahui hasilnya.
Algoritma ini adalah variasi lain dari Algoritma JST (Jaringan Saraf Tiruan), dimana sistem pencarian matriks bobot yang umum digunakan adalah menggunakan PSO (Particle Swarm Optimization), Back-Propagation, dan EO (Evolutionary Optimization). Pada pembahasan kali ini akan digunakan teknik yang cukup sederhana yaitu Simplex Optimization.
Simplex Optimization bekerja dengan cara membentuk segitiga solusi yang dikatakan sebagai solusi terbaik – lainnya – terburuk. Pada setiap perhitungan, segitiga ini akan dihitung sehingga semakin mendekati solusi yang terbaik. Apabila segitiga ini digambar secara berurutan pada setiap perulangan, gerakan segitiga yang terjadi mirip dengan pola gerakan amoeba, oleh karena itu teknik ini juga disebut sebagai AMO (Amoeba Method Optimization).

Diasumsikan ada 8 data pelanggan yang sudah diketahui datanya, yaitu Pelanggan A,B,C,D,E,F,G,H
Masing-masing pelanggan memiliki kriteria, yaitu umur, jenis kelamin, skor kepribadian, dan memiliki nilai hasil yaitu Diterima / Ditolak
Diasumsikan 8 data tersebut adalah sebagai berikut:

Pelanggan	Umur	Jenis Kelamin	Skor Kepribadian	Hasil
Pelanggan A	44	Laki-laki	3.55	Diterima
Pelanggan B	52	Perempuan	4.71	Diterima
Pelanggan C	60	Perempuan	6.56	Ditolak
Pelanggan D	56	Laki-laki	6.8	Ditolak
Pelanggan E	51	Laki-laki	6.94	Ditolak
Pelanggan F	46	Perempuan	6.52	Ditolak
Pelanggan G	48	Laki-laki	4.25	Diterima
Pelanggan H	58	Perempuan	5.71	Diterima

Contoh data pelanggan awal adalah sebagai berikut:
Untuk Kriteria Jenis Kelamin:
Laki-laki dilambangkan dengan angka -1
Perempuan dilambangkan dengan angka +1
Untuk kriteria Nilai Hasil:
Terdapat 2 kolom untuk merepresentasikan kondisi Diterima dan Ditolak
Jika kondisi Diterima, maka inputan data kolom adalah 1, 0
Jika kondisi Ditolak, maka inputan data kolom adalah 0, 1

Dim data(9)() As Double
data(0) = New Double() {44, -1, 3.55, 1, 0}
data(1) = New Double() {52, +1, 4.71, 1, 0}
data(2) = New Double() {60, +1, 6.56, 0, 1}
data(3) = New Double() {56, -1, 6.8, 0, 1}
data(4) = New Double() {51, -1, 6.94, 0, 1}
data(5) = New Double() {46, +1, 6.52, 0, 1}
data(6) = New Double() {48, -1, 4.25, 1, 0}
data(7) = New Double() {58, +1, 5.71, 1, 0}

Selanjutnya ada 2 orang pelanggan baru yang mengajukan kredit sepeda motor
Maka tentukan pelanggan ini nantinya akan termasuk dalam kelompok Diterima / Ditolak
Diasumsikan data awalnya adalah sebagai berikut:

Pelanggan	Umur	Jenis Kelamin	Skor Kepribadian
Pelanggan I	47	Perempuan	6.05
Pelanggan J	52	Laki-Laki	5

Contoh data pelanggan baru adalah sebagai berikut:
Untuk kriteria Nilai Hasil:
Terdapat 2 kolom untuk merepresentasikan kondisi Diterima dan Ditolak
Karena belum diketahui nilai hasilnya, maka semua inputan data adalah -1, -1

data(8) = New Double() {47, +1, 6.05, -1, -1}
data(9) = New Double() {52, -1, 5, -1, -1}

Langkah-langkah penggunaan algoritma ini adalah:

1. Lakukan normalisasi data untuk kriteria Umur dan Skor Kepribadian
Penjelasan lebih lanjut dapat dilihat pada penjelasan skrip dibawah ini (poin 1a – 1c)

1a. Hitung nilai rata-rata tiap-tiap kolom
yaitu dengan rumus: jumlah semua data dibagi dengan jumlah datanya

Dim total As Double = 0.0
For r = 0 To jumlahBaris - 1
 total += data(r)(c)
Next r
Dim rata2 As Double = total / jumlahBaris
hasil(0)(c) = rata2

1b. Hitung nilai standar deviasi tiap-tiap kolom
yaitu dengan rumus: akar dari ((kuadrat dari (jumlah dari (data – rata-rata))) / jumlah data)

Dim totalKuadrat As Double = 0.0
For r = 0 To jumlahBaris - 1
 totalKuadrat += (data(r)(c) - rata2) * (data(r)(c) - rata2)
Next r
Dim stdDev As Double = Math.Sqrt(totalKuadrat / jumlahBaris)
hasil(1)(c) = stdDev

1c. Normalisasi data dihitung dengan rumus (data – (rata-rata kriteria tersebut)) / standar deviasi kriteria tersebut

For c = 0 To kolom.Length - 1
 Dim j As Integer = kolom(c)
 Dim rata2 As Double = hasil(0)(j)
 Dim stdDev As Double = hasil(1)(j)

 For i = 0 To jumlahBaris - 1
  data(i)(j) = (data(i)(j) - rata2) / stdDev
 Next i
Next c

2. Tentukan skema awal untuk algoritma ini.
Algoritma ini dapat digunakan untuk melakukan perhitungan yang memiliki banyak input dan menghasilkan banyak output
Diasumsikan dalam kasus ini, skema yang digunakan adalah 3 – 4 – 2, dimana:

• 3 adalah jumlah saraf input, karena ada 3 kriteria awal, yaitu Umur, Jenis Kelamin, dan Skor Kepribadian
• 4 adalah jumlah saraf tersembunyi yang digunakan. Jumlah saraf tersembunyi harus lebih dari jumlah saraf input
dalam kasus ini bisa lebih dari 4, tetapi hanya digunakan 4 saja untuk mempercepat perhitungan
• 2 adalah jumlah saraf output, Karena kriteria nilai hasil bergantung pada nilai 2 kolom, yaitu 1,0 jika diterima dan 0,1 jika ditolak

Const jumlahSarafInput As Integer = 3
Const jumlahSarafTersembunyi As Integer = 4
Const jumlahSarafOutput As Integer = 2
Dim jst As New JaringanSaraf(jumlahSarafInput, jumlahSarafTersembunyi, jumlahSarafOutput)

* Diperlukan sebuah class untuk menyimpan semua matriks data untuk digunakan dalam perhitungan algoritma ini. Class ini dinamakan class JaringanSaraf. Deklarasi awal untuk setiap pengisian data adalah sebagai berikut

Public Class JaringanSaraf
    Private rnd As Random

    Private jumlahSarafInput As Integer
    Private jumlahSarafTersembunyi As Integer
    Private jumlahSarafOutput As Integer

    Private inputs As Double()

    'Matriks data untuk perhitungan jaringan saraf input-tersembunyi
    Private ihBobot As Double()()                   'Nilai bobot pada jaringan saraf input-tersembunyi
    Private hBias As Double()                       'Nilai bias pada jaringan saraf tersembunyi
    Private hOutput As Double()                     'Nilai output sementara pada jaringan saraf tersembunyi

    'Matriks data untuk perhitungan jaringan saraf tersembunyi-output
    Private hoBobot As Double()()                   'Nilai bobot pada jaringan tersembunyi-output
    Private oBias As Double()                       'Nilai bias pada jaringan saraf output

    Private outputs As Double()

    Public Sub New(jumlahSarafInput As Integer, jumlahSarafTersembunyi As Integer, jumlahSarafOutput As Integer)
        rnd = New Random(0)
        Me.jumlahSarafInput = jumlahSarafInput
        Me.jumlahSarafTersembunyi = jumlahSarafTersembunyi
        Me.jumlahSarafOutput = jumlahSarafOutput

        Me.inputs = New Double(jumlahSarafInput - 1) {}

        Dim ihBobot As Double()() = New Double(jumlahSarafInput - 1)() {}
        For r As Integer = 0 To ihBobot.Length - 1
            ihBobot(r) = New Double(jumlahSarafTersembunyi - 1) {}
        Next
        Me.ihBobot = ihBobot
        Me.hBias = New Double(jumlahSarafTersembunyi - 1) {}
        Me.hOutput = New Double(jumlahSarafTersembunyi - 1) {}

        Dim hoBobot As Double()() = New Double(jumlahSarafTersembunyi - 1)() {}
        For r As Integer = 0 To hoBobot.Length - 1
            hoBobot(r) = New Double(jumlahSarafOutput - 1) {}
        Next
        Me.hoBobot = hoBobot
        Me.oBias = New Double(jumlahSarafOutput - 1) {}

        Me.outputs = New Double(jumlahSarafOutput - 1) {}
    End Sub
 
 . . .
End Class

3. Sebelum masuk ke dalam fungsi utama perhitungan, ada beberapa parameter yang perlu diperhatikan, yaitu:

3a. Tentukan Jumlah maksimal Epoch
Epoch adalah banyak perulangan yang dilakukan dalam 1 kali proses pembelajaran
Diasumsikan dalam kasus ini jumlah maksimal Epoch adalah 100

Const maksEpoch As Integer = 100

4. Lakukan proses pencarian nilai bobot dan bias terbaik
Metode yang digunakan adalah Simplex Optimization
Penjelasan lebih detail tentang fungsi ini dapat dilihat pada penjelasan skrip dibawah ini (poin 4a – 4i)

Dim bobotTerbaik As Double() = jst.Simplex(contohData, maksEpoch)
jst.setBobot(bobotTerbaik)

Memasuki perhitungan utama pada fungsi Simplex

* Inisialisasi jumlah bobot yang digunakan dalam perhitungan

• jumlah nilai bobot pada jaringan saraf input-tersembunyi adalah jumlah saraf input * jumlah saraf tersembunyi (3 * 4 = 12 buah)
• jumlah nilai bias pada jaringan saraf input-tersembunyi adalah jumlah saraf tersembunyi (4 buah)
• jumlah nilai bobot pada jaringan saraf tersembunyi-output adalah jumlah saraf tersembunyi * jumlah saraf output (4 * 2 = 8 buah)
• jumlah nilai bias pada jaringan saraf tersembunyi-output adalah jumlah saraf output (2 buah)

Sehingga, banyak data yang diperlukan adalah 12 + 4 + 8 + 2 = 26 buah data
Fungsi ini akan mencari data yang memiliki bobot terendah diantara semua data input, dan akan mengembalikan 26 buah data dengan susunan seperti diatas

Dim jumlahBobot As Integer = (Me.jumlahSarafInput * Me.jumlahSarafTersembunyi) + (Me.jumlahSarafTersembunyi * Me.jumlahSarafOutput) + Me.jumlahSarafTersembunyi + Me.jumlahSarafOutput

4a. Ambil 3 nilai acak untuk dijadikan sebagai solusi sementara, yaitu solusi terbaik, terburuk, lainnya
Untuk masing-masing nilai tersebut, hitung tingkat kesalahannya menggunakan teknik MSE (Mean Squared Error)
yaitu jumlah dari (kuadrat dari (hasil terhitung – hasil pada data awal)) / jumlah data

Dim solusi As Solution() = New Solution(2) {}
For i As Integer = 0 To 2
 solusi(i) = New Solution(jumlahBobot)
 solusi(i).bobot = CariSolusiAcak(jumlahBobot)
 solusi(i).nilaiKesalahan = MeanSquaredError(contohData, solusi(i).bobot)
Next

* Gunakan fungsi ini untuk menghitung tingkat kesalahan dari masing-masing data input
Hitung tingkat kesalahan nilai jawaban menggunakan teknik Mean Squared Error
dihitung dengan rumus jumlah dari (kuadrat dari (nilai jawaban – nilai hasil pada matriks data)) / jumlah data
Nilai jawaban yang baru bisa jadi mengembalikan nilai MSE yang lebih tinggi, sehingga nilai jawaban ini tidak bisa dipakai

Private Function MeanSquaredError(contohData As Double()(), bobot As Double()) As Double
Me.setBobot(bobot)

Dim contohDataKolomKriteria As Double() = New Double(jumlahSarafInput - 1) {}
Dim contohDataKolomHasil As Double() = New Double(jumlahSarafOutput - 1) {}

Dim hasil As Double = 0.0
For i As Integer = 0 To contohData.Length - 1
 Array.Copy(contohData(i), contohDataKolomKriteria, jumlahSarafInput)
 Array.Copy(contohData(i), jumlahSarafInput, contohDataKolomHasil, 0, jumlahSarafOutput)
 Dim dataKolomHasil As Double() = Me.ComputeOutputs(contohDataKolomKriteria)
 For j As Integer = 0 To dataKolomHasil.Length - 1
  hasil += ((dataKolomHasil(j) - contohDataKolomHasil(j)) * (dataKolomHasil(j) - contohDataKolomHasil(j)))
 Next
Next
Return hasil / contohData.Length
End Function

4b. Pada setiap perulangan,
Urutkan solusi berdasarkan tingkat kesalahan terendahnya, kemudian masukkan nilai bobot terbaik – lainnya – terburuk sesuai urutan yang ada

Array.Sort(solusi)
Dim bobotTerbaik As Double() = solusi(indeksSolusiTerbaik).bobot
Dim bobotLainnya As Double() = solusi(indeksSolusiLainnya).bobot
Dim bobotTerburuk As Double() = solusi(indeksSolusiTerburuk).bobot

4c. Cari nilai centroid, yaitu nilai tengah dari solusi lainnya ke solusi terbaik
* Gunakan fungsi ini untuk mencari nilai centroid

PArray.Sort(solusi)
Dim bobotTerbaik As Double() = solusi(indeksSolusiTerbaik).bobot
Dim bobotLainnya As Double() = solusi(indeksSolusiLainnya).bobot

Dim bobotTerburuk As Double() = solusi(indeksSolusiTerburuk).bobotrivate Function Centroid(bobotLainnya As Double(), bobotTerbaik As Double()) As Double()
 Dim jumlahBobot As Integer = bobotLainnya.Length
 Dim hasil As Double() = New Double(jumlahBobot - 1) {}
 For i As Integer = 0 To hasil.Length - 1
  hasil(i) = (bobotLainnya(i) + bobotTerbaik(i)) / 2.0
 Next
 Return hasil
End Function

4d. Cari nilai expanded, yaitu nilai centroid ditambah (nilai centroid – nilai terburuk) dikali 2
Kemudian hitung tingkat kesalahannya menggunakan teknik MSE (Mean Squared Error)
Jika nilai kesalahan expanded kurang dari nilai kesalahan terburuk, maka nilai expanded akan menggantikan nilai terburuk

Dim bobotExpanded As Double() = Expanded(bobotCentroid, bobotTerburuk)
Dim nilaiKesalahanExpanded As Double = MeanSquaredError(contohData, bobotExpanded)
If nilaiKesalahanExpanded 



4e. Cari nilai reflected, yaitu nilai centroid ditambah (nilai centroid - nilai terburuk) dikali 1

Kemudian hitung tingkat kesalahannya menggunakan teknik MSE (Mean Squared Error)
Jika nilai kesalahan reflected kurang dari nilai kesalahan terburuk, maka nilai reflected akan menggantikan nilai terburuk

Dim bobotReflected As Double() = Reflected(bobotCentroid, bobotTerburuk)
Dim nilaiKesalahanReflected As Double = MeanSquaredError(contohData, bobotReflected)
If nilaiKesalahanReflected 



4f. Cari nilai contracted, yaitu nilai centroid ditambah (nilai centroid - nilai terburuk) dikali - 0.5
Kemudian hitung tingkat kesalahannya menggunakan teknik MSE (Mean Squared Error)
Jika nilai kesalahan contracted kurang dari nilai kesalahan terburuk, maka nilai contracted akan menggantikan nilai terburuk

Dim bobotContracted As Double() = Contracted(bobotCentroid, bobotTerburuk)
Dim nilaiKesalahanContracted As Double = MeanSquaredError(contohData, bobotContracted)
If nilaiKesalahanContracted 



Gunakan 3 fungsi dibawah ini untuk mencari nilai reflected, expanded, contracted

Ilustrasi singkat adalah sebagai berikut:
b----------x----------c----------y----------z

buruk-----------------centroid




Tarik garis lurus antara posisi terburuk dengan posisi centroid
Kemudian tambahkan garis terusan dari posisi centroid sepanjang jarak sebelumnnya



Posisi Reflected  berada pada posisi y, dengan jarak (centroid-buruk) * koefisien alpha, dalam contoh ini bernilai 1.0
Posisi Expanded   berada pada posisi z, dengan jarak (centroid-buruk) * koefisien gamma, dalam contoh ini bernilai 2.0
Posisi Contracted berada pada posisi x, dengan jarak (centroid-buruk) * koefisien beta, dalam contoh ini bernilai 0.5


'Gunakan fungsi ini untuk mencari nilai expanded


Private Function Expanded(Centroid As Double(), bobotTerburuk As Double()) As Double()
 Dim jumlahBobot As Integer = Centroid.Length
 Dim gamma As Double = 2.0
 Dim hasil As Double() = New Double(jumlahBobot - 1) {}
 For i As Integer = 0 To hasil.Length - 1
  hasil(i) = Centroid(i) + (gamma * (Centroid(i) - bobotTerburuk(i)))
 Next
 Return hasil
End Function


'Gunakan fungsi ini untuk mencari nilai reflected


Private Function Reflected(Centroid As Double(), bobotTerburuk As Double()) As Double()
 Dim jumlahBobot As Integer = Centroid.Length
 Dim alpha As Double = 1.0
 Dim hasil As Double() = New Double(jumlahBobot - 1) {}
 For i As Integer = 0 To hasil.Length - 1
  hasil(i) = Centroid(i) + (alpha * (Centroid(i) - bobotTerburuk(i)))
 Next
 Return hasil
End Function





'Gunakan fungsi ini untuk mencari nilai contracted



Private Function Contracted(Centroid As Double(), bobotTerburuk As Double()) As Double()
 Dim jumlahBobot As Integer = Centroid.Length
 Dim rho As Double = -0.5
 Dim hasil As Double() = New Double(jumlahBobot - 1) {}
 For i As Integer = 0 To hasil.Length - 1
  hasil(i) = Centroid(i) + (rho * (Centroid(i) - bobotTerburuk(i)))
 Next
 Return hasil
End Function



4g. Cari nilai acak lagi

Kemudian hitung tingkat kesalahannya menggunakan teknik MSE (Mean Squared Error)
Jika nilai kesalahannya kurang dari nilai kesalahan terburuk, maka nilai ini akan menggantikan nilai terburuk

Dim bobotSolusiAcak As Double() = CariSolusiAcak(jumlahBobot)

Dim nilaiKesalahanSolusiAcak As Double = MeanSquaredError(contohData, bobotSolusiAcak)
If nilaiKesalahanSolusiAcak 



4h. Jika nilai kesalahan dari posisi expanded - reflected - contracted - solusi acak tidak ada yang kurang dari nilai kesalahan solusi terburuk,
Maka hitung nilai solusi lainnya dan solusi terburuk yang baru.

4h1. Hitung nilai solusi terburuk yang baru, yaitu (nilai terburuk + nilai terbaik) dibagi 2
Kemudian hitung tingkat kesalahannya menggunakan teknik MSE (Mean Squared Error)

For j As Integer = 0 To jumlahBobot - 1
 bobotTerburuk(j) = (bobotTerburuk(j) + bobotTerbaik(j)) / 2.0
Next
solusi(indeksSolusiTerburuk).nilaiKesalahan = MeanSquaredError(contohData, bobotTerburuk)



4h2. Hitung nilai solusi lainnya yang baru, yaitu (nilai lainnya + nilai terbaik) dibagi 2
Kemudian hitung tingkat kesalahannya menggunakan teknik MSE (Mean Squared Error)

For j As Integer = 0 To jumlahBobot - 1
 bobotLainnya(j) = (bobotLainnya(j) + bobotTerbaik(j)) / 2.0
Next
solusi(indeksSolusiLainnya).nilaiKesalahan = MeanSquaredError(contohData, bobotLainnya)



4i. Dapatkan solusi terbaik, yaitu solusi pada indeks terbaik

Me.setBobot(solusi(indeksSolusiTerbaik).bobot)




* Gunakan fungsi ini untuk memasukkan matriks bobot awal kedalam 4 matriks data yaitu matriks ihBobot, hBias, hoBobot, oBias



ihBobot adalah matriks bobot pada jaringan saraf input-tersembunyi, dengan jumlah data = jumlah saraf input * jumlah saraf tersembunyi (3 * 4 = 12 buah)
hBias adalah matriks nilai bias pada jaringan saraf input-tersembunyi, dengan jumlah data = jumlah saraf tersembunyi (4 buah)
hoBobot adalah matriks bobot pada jaringan saraf tersembunyi-output, dengan jumlah data = jumlah saraf tersembunyi * jumlah saraf output (4 * 2 = 8 buah)
oBias adalah matriks nilai bias pada jaringan saraf tersembunyi-output, dengan jumlah data = jumlah saraf output (2 buah)



Public Sub setBobot(bobot As Double())
 Dim jumlahBobot As Integer = (jumlahSarafInput * jumlahSarafTersembunyi) + (jumlahSarafTersembunyi * jumlahSarafOutput) + jumlahSarafTersembunyi + jumlahSarafOutput
 If bobot.Length  jumlahBobot Then
  Throw New Exception("Pada fungsi SetBobotAwal, panjang matriks bobot: " & bobot.Length & " tidak sama dengan jumlah bobot yang seharusnya, yaitu " & jumlahBobot)
 End If

 Dim k As Integer = 0
 For i As Integer = 0 To jumlahSarafInput - 1
  For j As Integer = 0 To jumlahSarafTersembunyi - 1
   ihBobot(i)(j) = bobot(k)
   k += 1
  Next
 Next
 For i As Integer = 0 To jumlahSarafTersembunyi - 1
  hBias(i) = bobot(k)
  k += 1
 Next
 For i As Integer = 0 To jumlahSarafTersembunyi - 1
  For j As Integer = 0 To jumlahSarafOutput - 1
   hoBobot(i)(j) = bobot(k)
   k += 1
  Next
 Next
 For i As Integer = 0 To jumlahSarafOutput - 1
  oBias(i) = bobot(k)
  k += 1
 Next
End Sub



5. Lakukan perhitungan dari masing-masing contoh data menggunakan nilai bobot dan nilai bias yang sudah ditemukan

Penjelasan tentang fungsi ini akan dijelaskan pada perhitungan dibawah ini (poin 5a - 5g)

Dim output() As Double = jst.hitungNilaiOutput(input)



Memasuki perhitungan utama pada fungsi hitungNilaiOutput

5a. Beri nilai matriks input sesuai array input

For i = 0 To input.Length - 1
 Me.inputs(i) = input(i)
Next i



5b. Hitung matriks ihJumlahBobotDanBias dengan cara perkalian matriks antara matriks input dan matriks ihBobot

For j = 0 To jumlahSarafTersembunyi - 1
 For i = 0 To jumlahSarafInput - 1
  ihJumlahBobotDanBias(j) += Me.inputs(i) * ihBobot(i)(j)
 Next i
Next j



5c. Kemudian masukkan nilai bias pada matriks ihJumlahBobotDanBias

For i = 0 To jumlahSarafTersembunyi - 1
 ihJumlahBobotDanBias(i) += hBias(i)
Next i



5d. Hitung nilai output sementara dengan menggunakan fungsi HyperTan untuk masing-masing data pada matriks hJumlahBobotDanBias

Penjelasan tentang fungsi HyperTan akan dijelaskan pada perhitungan dibawah ini

For i As Integer = 0 To jumlahSarafTersembunyi - 1
 Me.hOutput(i) = HyperTan(hJumlahBobotDanBias(i))
Next



* Gunakan fungsi ini untuk menghitung nilai fungsi HyperTan (tanh)

Private Shared Function HyperTan(x As Double) As Double
 If x  20.0 Then
  Return 1.0
 Else
  Return Math.Tanh(x)
 End If
End Function



5e. Hitung matriks hoJumlahBobotDanBias dengan cara perkalian matriks antara matriks output sementara dan matriks hoBobot


For j = 0 To jumlahSarafOutput - 1
 For i = 0 To jumlahSarafTersembunyi - 1
  hoJumlahBobotDanBias(j) += hOutput(i) * hoBobot(i)(j)
 Next i
Next j



5f. Kemudian masukkan nilai bias pada matriks hoJumlahBobotDanBias

For i = 0 To jumlahSarafOutput - 1
 hoJumlahBobotDanBias(i) += oBias(i)
Next i



5g. Hitung nilai output akhir dengan menggunakan fungsi Softmax untuk masing-masing data pada matriks hoJumlahBobotDanBias

Penjelasan tentang fungsi Softmax akan dijelaskan pada perhitungan dibawah ini (poin 5g1 - 5g3)


Dim hasil() As Double = Softmax(hoJumlahBobotDanBias)
hasil.CopyTo(Me.outputs, 0)
Return hasil



Memasuki perhitungan utama pada fungsi Softmax

5g1. Cari nilai maksimal data

Dim maksData As Double = hoJumlahBobotDanBias(0)
For i = 0 To hoJumlahBobotDanBias.Length - 1
 If hoJumlahBobotDanBias(i) > maksData Then
  maksData = hoJumlahBobotDanBias(i)
 End If
Next i



5g2. Cari nilai skala

Dim skala As Double = 0.0
For i = 0 To hoJumlahBobotDanBias.Length - 1
 skala += Math.Exp(hoJumlahBobotDanBias(i) - maksData)
Next i



5g3. Hitung hasil akhir
Sehingga semua jumlah bobot pada parameter matriks hoJumlahBobotDanBias akan bernilai 1

Dim hasil(hoJumlahBobotDanBias.Length - 1) As Double
For i = 0 To hoJumlahBobotDanBias.Length - 1
 hasil(i) = Math.Exp(hoJumlahBobotDanBias(i) - maksData) / skala
Next i



6. Jika maka


Jika nilai output bernilai kurang dari 0.5 maka pelanggan tersebut memiliki nilai hasil Ditolak
Jika nilai output bernilai lebih dari 0.5 maka pelanggan tersebut memiliki nilai hasil Diterima
Kemudian bandingkan nilai output dengan nilai hasil pada contoh data
Jika hasilnya sudah sama, maka catat data ini kedalam jumlah data benar
Jika hasilnya tidak sama, maka catat data ini kedalam jumlah data salah



If output(0)  Ditolak   ")
 If contohData(i)(jumlahKolom - 2)  contohData(i)(jumlahKolom - 1) Then
  jumlahSalah += 1
  Console.WriteLine("Salah")
 End If
Else
 Console.Write("-> Diterima  ")
 If contohData(i)(jumlahKolom - 2)  contohData(i)(jumlahKolom - 1) Then
  jumlahBenar += 1
  Console.WriteLine("Benar")
 End If
End If



7. Catat tingkat kecocokan perhitungan data dengan hasil awal pada data

Langkah ini tidak wajib, hanya untuk mengetahui seberapa besar tingkat kecocokan perhitungan untuk data baru yang akan dihitung selanjutnya

Console.WriteLine("Jumlah perhitungan benar = " & jumlahBenar & ", jumlah perhitungan salah = " & jumlahSalah)
Console.WriteLine("Tingkat kecocokan perhitungan dengan hasil data adalah " & (jumlahBenar / (jumlahBenar + jumlahSalah)).ToString("F2"))



8. Lakukan perhitungan yang sama (poin 5 dan 6) untuk masing-masing data baru

For i As Integer = 0 To dataBaru.Length - 1
 Console.Write("Pelanggan " & Chr(i + 65 + 8) & "  ")

 Dim input(jumlahKolom - 3) As Double
 Array.Copy(dataBaru(i), input, jumlahKolom - 2)
 For j = 0 To input.Length - 1
  Console.Write(IIf(input(j) >= 0, " ", "") & input(j).ToString("F2") & " ")
 Next j
 Console.Write(" ")

 Dim output() As Double = jst.hitungNilaiOutput(input)
 For j = 0 To output.Length - 1
  Console.Write(output(j).ToString("F2") & " ")
 Next j
 Console.Write(" ")

 If output(0)  Ditolak ")
 Else
  Console.Write("-> Diterima")
 End If
 Console.WriteLine("")
Next



* Agar dapat menjalankan fungsi Simplex diatas, maka diperlukan sebuah Class Solution untuk menampung semua data bobot dan nilai kesalahan solusi tersebut. Deklarasi Class Solution adalah sebagai berikut:


Private Class Solution
 Implements IComparable(Of Solution)
 Public bobot As Double()
 Public nilaiKesalahan As Double

 Public Sub New(jumlahBobot As Integer)
  Me.bobot = New Double(jumlahBobot - 1) {}
  Me.nilaiKesalahan = 0.0
 End Sub

 'Fungsi untuk mengurutkan nilai kesalahan dari yang terendah (terbaik) ke tertinggi (terburuk)
 Public Function CompareTo(other As Solution) As Integer Implements IComparable(Of Solution).CompareTo
  If Me.nilaiKesalahan  other.nilaiKesalahan Then
   Return 1
  Else
   Return 0
  End If
 End Function
End Class

Hasil akhir adalah: (klik untuk perbesar gambar)

halo sobat....
apakah sobat pernah mengalami error saat menggunakan video player bawaan windows, terkadang Windows Media player mengalami masalah ketika sobat mencoba memainkan video berjenis MKV di Windows Media player. nah saya ada solusi nya ^_^

Pertama yang harus kalian lakukan adalah men-download Combined Community Codec Pack yang bisa di dapat di www.cccp-project.net. Selanjutnya pilih pilihan Download CCCP 2011-11-11, selesai di download, lalu install. Nah sekarang setelah codec tersebut selesai di install coba buka file video MKV menggunakan Windows Media Player taraaa... pasti bisa :D. Jika sobat masih mengalami error.. alangkah baiknya menggunakan media player terbaik seperti VLC, Gom Player atau KMPlayer.

yo ontakers ... ketemu lagi dengan saya hehehe...

Beberapa dari sobat ada yang kadang kesulitan untuk mencari driver komputernya baik itu VGA, Sound, Lan Card, Wireless Lan, maupun chipset Mainboard.

Berikut ini ada tool yang sangat menarik, Program ini ukurannya sangat kecil yaitu sekitar 500kb dan langsung bisa dijalankan tanpa perlu diinstall. Program ini namanya 3DP Chip (link download : Klik). tapi ada syarat nya :D , sobat harus online internet, dan maka segalanya akan menjadi lebih mudah...

Jalankan 3DP Chip nya... Secara otomatis 3dp chip akan mendeteksi jenis driver dari perangkat komputer yg kita miliki

Misal kita melilih driver vga card maka otomatis 3dp chip mencarikan link download untuk sobat...

lalu klik lagi , seperti gambar di bawah

Dan Driver VGA card siap di download 

Boot sequence adalah susunan yang menentukan dari mana komputer sobat harus membaca data, seterusnya memulakan sistem pengoperasian. Satu aturan boot sequence yang lazim digunakan adalah seperti ini:

- Hard Disk

- Disket

- CD-ROM

1.Langkah pertama restar/hidupkan pc sobat , perhatikan display monitor sobat untuk memasuki "setup bios' sobat di suruh tekan tombol apa? biasanya sobat di suruh menekan dengan kunci seperti DELETE, F1, F2, F10, F12 atau Alt + S dan jika terlewat sobat harus merestar lagi pc nya :D Jika berhasil sobat akan memasuki bios seperti gambar di bawah. lalu Pilih Advanced BIOD Features..

2. Ubahlah menu First boot nya dengan CDROOM/DVDROOM

*perhatian 

tidak semua bios tampilan nya sama , tetapi inti nya sama hanya tulisan nya saja yang berbeda 

kemarin sudah posting artinya ...  sekarang cara memperbaiki nya donk :) , sebenernya ada beberapa cara yang cukup simple hinga extrim loh sobat haha.. :D, Bad sector memiliki dua jenis 

1.Bad Sector Fisik

2. Bad Sector Software

jika sobat bad sector jenis kedua cukup mudah untuk di perbaiki tetapi tidak dengan yang pertama karena cukup menekan batin hahaha, cara di bawah ini untuk memperbaiki bad sector software

A.HDD Low Level Format Tool

           

Aplikasi ini berguna untuk menghapus secara permanen semua data, partisi dan informasi bad sektor yang ada dalam hardisk kita. Jika Sobat memakai aplikasi ini otomatis HDD sobat akan menjadi seperti pertama kembali keceuali fisiki nya :), alangkah baiknya data" penting di backup dlu ya ...

Berikut langkah-langkahnya  :

1.Download dulu Program HDD Low Level Format  atau search di google 

2.Install dan jalankan program HDD Low Level Format

3.Pilih Hardisk yang akan di-Format, kemudian klik Continue..

 

4.Klik pada Low Level Format, klik format This Device..
5.Tunggu hingga selesai, biasanya waktu yang diperlukan cukup lama , so... sabar ya 

B. Recovery Software dari beberapa Vendor hardsik

Vendor hardisk yang mengeluarkan software untuk melakukan analisa dan maintenance hardisk, diantaranya adalah sebagai berikut :

1.Seagate’s Seatools for Windows dan Seagate’s Seatools for DOS tools ini dari vendor Seagate’s yang dapat digunakan untuk mem-format hardisk merek seagate, maxtor atau dari beberapa vendor hardisk lainnya dan anda bisa download langsung di www.seagate.com

2.Western Digital Data Lifeguard Diagnostics sama juga fungsinya yaitu untuk mem-format hardisk juga, terutama hardisk merek western. Anda bisa download di www.softpedia.com

C. Bad Block atau kerusakan secara fisik pada hardisk

Sebelumnya Periksa hardisk anda lewat Bios apakah terdeteksi oleh Bios atau tidak, kalau Terbaca berarti itu kerusakan hanya pada Software hardsik dan anda bisa gunakan tools yang sudah di bahas diatas serta mengikuti langkah-langkahnya, apabila tidak terbaca sama sekali maka logikanya secara software saja tidak bisa di-deteksi oleh Bios apalagi di-Format, tentu tidak bisa.

Berarti Perangkat keras didalam hardisk ada beberapa yang sudah tidak berfungsi atau mengalami kerusakan dibagian vitalnya, mungkin saja motherboadnya atau piringan magnetnya rusak yang disebabkan jatuh, benturan keras dan lain sebagainya.

Menurut pengalaman kerusakan secara fisik yang paling parah pada hardisk adalah piringan magnetnya. Hal ini bisa diatasi dengan langkah-langkah berikut ini :

Bungkus hardisk anda dengan rapat menggunakan kain (kalau bisa jangan terlalu tebal dan jangan juga terlalu tipis) jatuhkan ke atas kasur atau ke atas karpet yang agak tebal, untuk menjatuhkan kira-kira tingginya 1 meter(bisa kurang dari 1 meter) dari atas kasur atau karpet selama 3 atau 4 kali (catatan : jangan dibanting keras) walaupun cara ini agak ekstream. Oke lanjut, setelah itu dicoba lagi dinyalakan hardisknya sudah ter-detect di-Bios apa belum, apabila terdeteksi (anda beruntung) langsung saja di-format, kalau belum tidak usah dipaksa.
Langsung bawa ke-Ahlinya untuk memeriksa Kerusakan terjadi pada Motherboardnya atau piringannya bisa jadi keduanya.Catatan: kalau motherboadnya yang rusak berarti masih bisa diselamatkan data-datanya dengan cara menggantikan dengan motherboard hardisk yang sesuai dengan hardisk anda, tapi apabila piringannya yang rusak maka anda siap-siap ganti hardisk baru.
Mudah-mudahan info ini bermanfaat.

Pernahkah sobat mendapati error Invalid Partition Table ketika install ulang OS atau mengalami harddisk tidak terdeteksi? kejadian ini dimulai ketika harddsik ku terformat dan temen ku ingin membalikannya, tapi malah temen ku salah langkah hingga sytem nya ikut terfortmat , alhasil hdd ku tidak terdeteksi . Maka dari itu , cara untuk memperbaiki hal itu dengan testdisk ,berikut cara nya:

Download dulu file nya di sini (Belum uploud , indowebster maintenance )

1.Jalankan TestDisk.exe 

2.Pilih menu "Create"

3.Plih Harddsik yang bermasalah

4. pilih intel (sesuaikan dengan os nya)

5.Sampe sini, Testdisk akan menawarkan 6 fitur yaitu : “Analyze“, “Advanced“, “Geometry“, “Options“, “MBR Code“, dan “Delete“. dan kali ini saya memilih “Analyse” dengan harapan kita bisa mengetahui permasalahan hardisknya

6. Tunggu Hinga Proses Selesai

7. Selanjutnya Testdisk akan menampilkan isi hardisk. disini saya memilih partisi yang error tadi lalu tekan tombol Enter. untuk mengetahuinya cukup lihat Label drivenya, kalau emang udah gak ada labelnya seperti di hardisk ini, maka bisa dilihat dari ukuran partisinya.
7. Selanjutnya pilih “Write” untuk menulis ulang tabel partisinya…

8. Restars PC dan selesai deh ^_^