function  Delta=capriccio_BB_one_d_generic_plot( alpha , optimizer)
% plotting 1D chain

parameters;

capriccio_BB_one_d_generic;
Delta



figure
dim = [0.2 0.5 0.3 0.3];

str = {['nFE=',num2str(nFE),', nFEP=',num2str(nFEP),', nBFE=',num2str(nBFE),', nBA=',num2str(nBA)],...
       ['knn=',num2str(knn),', ksn=',num2str(ksn),', kFE=',num2str(kFE)],...
       ['ac=',num2str(ac),', an=',num2str(an),', ad=',num2str(ad)],...
       ['Delta=',num2str(Delta)]};
str2 = ['nFE',num2str(nFE,'%.0f'),'_nFEP',num2str(nFEP,'%.0f'),'_nBFE',num2str(nBFE,'%.0f'),'_nBA',num2str(nBA,'%.0f'),...
        '_knn',num2str(knn,'%.0f'),'_ksn',num2str(ksn,'%.0f'),'_kFE',num2str(kFE,'%.0f'),...
        '_ac',num2str(ac,'%.0f'),'_an',num2str(an,'%.0f'),'_ad',num2str(ad,'%.0f'),...
        '_Delta=',num2str(Delta*100,'%.0f')];
annotation('textbox',dim,'String',str,'FitBoxToText','on');

% plot pure FE reference displacements
plot([0 l],[0 ul],'k-'); hold on
% plot nodal displacements
plot(nBFE*(nC-1),[uF; uB],'bo-')
% plot pure particle displacements
plot([nBFE*(nC(end)-1) nBFE*(length(nC)-1)+nD-nD(1)+1], [uC(end);wD],'r*-')
% plot particle displacements in padding region
plot(nBFE*length(nF)-1+nP, wP,'m*')

legend({'pure FE', 'FE', 'pure particles', 'particles in pad'},'Location','southeast')

savefig(['2021_02_01-WCCM/',str2,'-', optimizer])
% matlab2tikz(['2020-11-22_BB/',str2,'.tex'])



end

