function f = fig(nu,poiss,datahist,points,gaussvector,dwelltime,lambda)
f=figure;
plot(nu,poiss,'o',nu,datahist,'x',points,gaussvector,'-');
legend('Poisson Prob.','Data','Gaussian Prob.'); %Label stuff
title(['Dwell Time ',dwelltime,', \lambda=', num2str(lambda,3)]); %Title plot
xlabel('No. of Events'); %Label x-axis
ylabel('Probability'); %Label y-axis
return;

% fig(nu1,poiss1(1,:),datahist1(1,:),linspace(0,4,100),norm4plot(1,:),'1ms',lambdas(1));
% plot(nu1,poiss1(1,:),'o',nu1,datahist1(1,:),'x',linspace(0,4,100),norm1plot(1,:),'-');