Регистрация | Вход
;neuron.bbGraphics 640,480,24,2font=LoadFont("system")SetFont(font)Global weight#=0.5Global LastError#=1Global Smoothing#= 0.5Function Ns_train(v1#,v2#)i=0While(LastError > Smoothing Or LastError < -Smoothing)i=i+1Train(v1,v2)Print "iteration "+i+" error "+LastError;AddToLog("iteration "+i+" error "+LastError)If LastError<1 ReturnWendEnd Function Function RestoreInputData#(output#)Return output/weight;End FunctionFunction ProcessInputData#(input_#)Return input_*weight;End FunctionFunction Train(input_#, exResult#)aRes#=input_*weightLastError=exResult - aRescorrection#=(lasterror/aRes)*Smoothingweight=weight+correctionEnd Functiona#=3b#=21;i=LoadImage("04_T_X_roboko_4_200.jpg");ResizeImage(i,200,200);DrawImage(i,0,0)Locate 0,200a=Input("input a ")AddToLog("input a = "+a)b=Input("input b ")AddToLog("input b = "+b)Ns_train(a,b)Print "train end"AddToLog("train end")u=Input("input u ")AddToLog("input u "+u)Print ProcessInputData(u)+"=ProcessInputData("+u+")"AddToLog(ProcessInputData(u)+"=ProcessInputData("+u+")")Print RestoreInputData(u)+"=RestoreInputData("+u+")"AddToLog(RestoreInputData(u)+"=RestoreInputData("+u+")")WaitKey() Function FileOpen(fn$)file1 = OpenFile(fn$);If(file1=0)file1=WriteFile(fn$);Return file1;End FunctionFunction AddToLog(s$)f=FileOpen("log.txt")SeekFile(f, FileSize("log.txt"));WriteLine(f, s) CloseFile(f);End Function