contourplot_forces(ksimodel,mode,Z,tit)

function contourplot_forces(ksimodel,mode,Z,tit)
%contourplot_forces

if not(isnumeric(ksimodel))
Xnew = ksimodel.X;
ksi = 100*ksimodel.ksi;

vgrid = 0:0.5:25;
Tgrid = 0:0.5:80;
%Prepare to mesh
[Xen Yen]=meshgrid(vgrid,Tgrid);

for k=1:length(vgrid)
        ksimesh(:,k)=ksi(((k-1)*length(Tgrid))+1:k*length(Tgrid),mode);
end  

  
set(text,'fontsize',12)
[C,h]=contour(Xen,Yen,ksimesh);
clabel(C,h);
axis([0 25 0 80]);
title(tit,'fontsize',14)
xlabel('Speed [km/h]')
ylabel('Torque [Nm]')
else
    errordlg('there are no XI-models found','Bad Input','modal')
end

%end