cc=2:0.1:6;
BDPEFF=[cc' zeros(length(cc),5)];
kdef=4.5;
jk=1;
for c=cc
[bdp,eff,A,B,d]=HYPc(c,1,'k',kdef);
BDPEFF(jk,2:end)=[bdp, eff, A, B, d];
jk=jk+1;
end
nr=2;
nc=2;
subplot(nr,nc,1)
plot(BDPEFF(:,1),BDPEFF(:,2))
xlabel('c','Interpreter','Latex','FontSize',16)
ylabel('Breakdown point','Interpreter','none')
subplot(nr,nc,2)
plot(BDPEFF(:,1),BDPEFF(:,3))
xlabel('c','Interpreter','Latex','FontSize',16)
ylabel('Asymptotic efficiency','Interpreter','none')
subplot(nr,nc,3)
plot(BDPEFF(:,1),BDPEFF(:,4:5))
xlabel('c','Interpreter','Latex','FontSize',16)
ylabel('A and B','Interpreter','none')
subplot(nr,nc,4)
plot(BDPEFF(:,1),BDPEFF(:,6))
xlabel('c','Interpreter','Latex','FontSize',16)
ylabel('d','Interpreter','none')
suplabel(['Constant k=' num2str(kdef)],'t');