function SetInertiaSliderBarCallback(hObj,event,ah1,ah21,ah22,t,F,b,w)
    % Called to set zlim of surface in figure axes
    % when user moves the slider control
    m = get(hObj,'Value');
    FF = real(F*exp(1i*w*t));
    X = -F/(m*w^2-1i*b*w);
    XX = real(X*exp(1i*w*t));
    XXdot = real(X*1i*w*exp(1i*w*t));
    Pin = FF.*XXdot;
    Pout = b*XXdot.*XXdot;
    set(ah1,'YData',XXdot);
    set(ah21,'YData',Pin);
    set(ah22,'YData',Pout);

    %eff = sum(Pout)/sum(Pin);
    eff = sum(Pout)/
    
    display(['m = ' num2str(m) '  eff = ' num2str(eff) 'Pin = ' num2str(sum(Pin)*(t(2)-t(1))/t(end)) ' W'  'Pout = ' num2str(sum(Pout)*(t(2)-t(1))/t(end)) ' W']);
    
end