เอา โค๊ด Neural Network มาฝากครับ
If Y = 0 Then For i = 0 To 65535 WeightArray(i) = ((1.5 * Rnd) + 0.5) - 1 suw = suw + WeightArray(i) suin = suin + picArray(i) Next i Y = 1 End If txtSumWeight.Text = suw txtSumInput.Text = suin For n = 0 To Countter For i = 0 To 65535 sum_weigth_input = sum_weigth_input + (picArray(i) * WeightArray(i)) Next i sum_weigth_input = sum_weigth_input / 10000 If n = 0 Then WeightOld = sum_weigth_input WeightNews = sum_weigth_input output_calculater = 1 / (1 + Exp(-sum_weigth_input)) Output = output_calculater output_free =OutAssume error = Abs(output_free - output_calculater) Error = Math.Round(error, 4) error_accept = AcceptError If error <= error_accept Then Exit Sub Else
f_net = output_calculater * (1 -output_calculater) ' ปรับคา weigth sig_mo = error * f_net lernning_rate = Rate For new1 = 0 To 65535 delta_weigth = lernning_rate * picArray(new1) * f_net WeightArray(new1) = WeightArray(new1) + delta_weigth Next End If End If sum_weigth_input = 0 Next
|