function plot_stdp_ratio_v_slope(s_f,successes,fails,ratios_qall_succfail,slopes)

markersize=12;
clr=colormap(hsv(10));
close, hold on

for expt=1:15,
    if find(s_f(expt)==successes)
        plot(slopes(expt),ratios_qall_succfail(expt),'o','markerfacecolor',clr(find(s_f(expt)==successes),:),'markeredgecolor',clr(find(s_f(expt)==successes),:),'markersize',markersize)
    elseif find(s_f(expt)==fails)
        plot(slopes(expt),ratios_qall_succfail(expt),'o','markerfacecolor','k','markeredgecolor','k','markersize',markersize)
    end
end

plot([.165 .165],[0 3],'k:','linewidth',.1)
plot([0 1.6],[1.08 1.08],'k:','linewidth',.1)
xlim([0 1.6])
set(gca,'xtick',[0 0.5 1 1.5])
xlabel('Peak EPSP slope (mV/ms)')
ylim([0 2.5])
set(gca,'ytick',[0 1 2])
ylabel('STDP Ratio')