#3-layer network expanded by gabriel j. serrano for a timbre classification #device. copyrights and mad props go to Yoshiro Miyata for the help. #specify Nin, Nhid, and Nout. define ErrMsg \n\tread\swith\s'network\sNin=\sNhid=\sNout=\sn.timbrec'\n IFNDEF Nin; printf ErrMsg; exit; ENDIF IFNDEF Nhid; printf ErrMsg; exit; ENDIF IFNDEF Nout; printf ErrMsg; exit; ENDIF # #Declaration of the layers of the neural network. # layer Input Nin layer Hidden Nhid layer Output Nout # #definitions of input and target buffers # target Nout input Nin connect InputHidden Input to Hidden connect HiddenOutput Hidden to Output procedure activate input Input forward InputHidden activation Hidden forward HiddenOutput activation Output target Output end procedure learn call activate backward HiddenOutput delta Hidden learn InputHidden learn HiddenOutput learnbias Output learnbias Hidden end procedure Test printf Output printf \n print Output end