www.neuron.yale.edu

Code: Select all

NET_RECEIVE(weight, release, dead) { LOCAL q
    INITIAL { release = 0 dead = 0 }
    if (flag == 0)
    {
	net_send(Delay,1)
    } else {
    q = (t - lastrelease -Cdur)
    : release indicates internal binary release state when event is received
    : dead indicates internal binary dead state when event is received
    : flag indicates the event type received - 
    :            0 (external release event), 
    :            1 (internal event signalling end of release and start of dead time), 
    :            2 (internal event signalling end of dead time)
    if (dead == 0) { : external release event after dead time
        if (flag == 1) {
	    lastrelease = t 
	    ...

	    if (!release) { : not currently releasing
	       release = 1
	       : come again in Cdur with flag = 2 
      	       	       printf("send 2\n") 
		       net_send(Cdur, 2) 
	    }
	    else {
	        : already releasing, so move start of dead time 
      	        printf("move 2\n") 
                VERBATIM
                fflush(stdout);
               ENDVERBATIM
               net_move(t + Cdur)
	    }
	}
	else if (flag == 2) { : internal event to turn release off
	    release = 0
	    dead = 1                       : turn dead time on
            ...
            VERBATIM
            fflush(stdout);
            ENDVERBATIM
	    printf("send 3\n") 

	    net_send(Deadtime, 3)	
	}
    }
    else { : dead == 1
          printf("dead")
          VERBATIM
          fflush(stdout); 
          ENDVERBATIM
        if (flag == 3) { : internal event to turn dead time off
            dead = 0
	}
	...
    }
    }
}