function myslider
global sl   %p.16, lecture 7
sl =     uicontrol('Style', ' slider ', 'Min',0,'Max',10,...
    'SliderStep',[0.0 0.01], 'value', 3,...
    'Position', [100 100  200  25], 'Callback', 'CHf' ); 
get(sl,'value')                           % Check result! 
%% use slider and check!!!
tsl=uicontrol('Style', 'text','position',[100 125 200 25],...
   'string', ' Масштабирование ','fontsize',12)

tsl1=uicontrol('Style', 'text','position',[85 65 80 35], 'string',...
    'Kmin=0','fontsize',10,'fontname','Latex')

tsl2=uicontrol('Style', 'text','position',[240 65 80 35], 'string', 'Kmax=10','fontsize',10)
end