f=nextfigure()
np=3; pn=1

ts=150000       # start at 15 sec
dd=100000       # go for 10 more sec

subplot(np, 1, pn); pn+=1
ReportPlot("E0442", "EMUSERep", newfigure=False, cols=[75, 80, 85],
    linelab=['synapse 75', 'synapse 80', 'synapse 85'], xlab="",
    xrange=(ts, ts+dd), legendloc='center right', ylab='USE')

subplot(np, 1, pn); pn+=1
SpikePatternPlot("E0442", ["EMRep"], newfigure=False,
    xlab='', ylab='EM cell number', xrange=(15, 25))
locs, labels=xticks(); xticks(locs, [""]*len(locs))
legend(('Each dot is a spike', ), loc='center right')

subplot(np, 1, pn); pn+=1
ReportPlot('E0442', ['EMRep'], newfigure=False, cols=[5],
    linelab=['EM cell 5'], xrange=(ts, ts+dd),
    legendloc='center right')

savefig("demoplot.ps")