#!/bin/csh -f # csht for the learning phase of the timbre recognition and # classification device. # source /usr/ccrma/package/planet/RunNet # Definitions of paths for the file locations # ---------------------------------------- set NET = n.timbrec set PAT = pat/learntbs set WTS = wts/hidden set OUT = out/timbres set SCR = src/screentr # The interface with Planet part # -------------------------------- # run the net for 400 hidden units # get your hands on some figures, man! xv& # i will observe results from different numbers of hidden units. foreach Nhid(400) #foreach Nhid(300) #foreach Nhid(200) #foreach Nhid(100) #foreach Mhid(50) # read the number of units for each layer and call in the net file # The number of units defined as follow: # 400 units for the input, 3 for the out, 400 for the initial number of # hidden units. network Nin=400 Nout=3 Nhid=$Nhid $NET nset randomize on pattern $PAT screen $SCR graph new place nset mark 50 glist clear glist '$globalError' 1 savefile $WTS.$Nhid nset save 10 cycle 750 wait savefile close end quit