Система- детям нейросеть интересную а не твои бредовые видеоигры
Кирилл- ок
вводные для обучения в 3 неделях 21 день
потом обработать запрос 4 недели
Graphics 640,480,24,2
font=LoadFont("system")
SetFont(font)
Global weight#=0.5
Global LastError#=1
Global Smoothing#=0.5
Function Ns_train(v1#,v2#)
i=0
While(LastError > Smoothing Or LastError < -Smoothing)
i=i+1
Train(v1,v2)
Print "iteration "+i+" error "+LastError
If LastError<1 Return
Wend
End Function
Function ProcessInputData#(input_#)
Return input_*weight;
End Function
Function RestoreInputData#(output#)
Return output/weight;
End Function
Function Train(input_#, exResult#)
aRes#=input_*weight
LastError=exResult - aRes
correction#=(lasterror/aRes)*Smoothing
weight=weight+correction
End Function
min#=1
sec#=60
v1=2
v2=3
v1=Input("v1> ")
v2=Input("v2> ")
Print "Ns_train v1 " + v1 + " v2 " + v2
Ns_train(v1,v2)
Print "train end"
inp=Input("input> ")
Print " ProcessInputData input "+inp+" "+ProcessInputData(inp)
; Print " RestoreInputData(03) "+RestoreInputData(03)
WaitKey()
2667 Blitz3D