% Переменные
maxEmin=10000;maxEmax=28000; maxE=18000;
stps=2000;   stp= maxE/stps;
E=1 : stp : maxE;
Epmax=100000;Epmin=3000;Ep=30000;
mu1=5000; mu2=100;

% --------------------------------
windG1=figure;  figure(windG1);  %Там графики

set(windG1,'Color',[ 0 0 1]);
[v]=shwspeed(E,Ep,stps, mu1, mu2);

% --------------------------------
Change_button = uicontrol('Style','Pushbutton','Units','normalized',...
        'Position',[.91 .01 .1 .07],...
        'Callback','figure(windM1)','String','Меню'); %Кнопка выхода в меню%

% --------------------------------
windM1=figure;  %Там меню с органами управления 
figure(windM1);  % Окно с будущим меню на передний план

ctl_ini;  %Инициализация 
captionM = 'Domains Simulation';

% --------------------------------
Ctrl1='on';  captnPar1 ='E пороговое';
popup1Val =1; popup1Opts='Electron Speed|E (field)|Q (charge)'; 
Slider1Min=Epmin; Slider1Max=Epmax; Slider1Val=Ep;

% --------------------------------
Ctrl2='on'; captnPar2 ='E max';
Slider2Min=maxEmin; Slider2Max=maxEmax; Slider2Val=maxE;

% --------------------------------
%Ctrl3='on'; captnPar3 ='U reflect';
%Slider3Min=uRfmin; Slider3Max=uRfmax; Slider3Val=uRf;

% --------------------------------
%Ctrl4='on'; captnPar4 ='ReflDistance';
%Slider4Min=sRfmin; Slider4Max=sRfmax; Slider4Val=sRf;

% --------------------------------
%Ctrl5='on';  captnPar5 ='Frequency';
%Slider5Min=Fmin; Slider5Max=Fmax; Slider5Val=Fr;

% --------------------------------
%Ctrl6='on';  captnPar6 ='DriftDistance';
%Slider6Min=DrifDmin; Slider6Max=DrifDmax; Slider6Val=DrifD;

% --------------------------------
% --------------------------------
UActionCheck=['Ep= Edit1Val; maxE= Edit2Val;'...
              'stp= maxE/stps; E=1 : stp : maxE;'...
	      'figure(windG1);'...
	      'if  popup1Val==1,'... 
              '[v]=shwspeed(E,Ep,stps, mu1, mu2);'...
              'end;'...
	      'if  popup1Val~=1,'... 
	      '[v, maxe]=espeed(E,Ep,stps,mu1,mu2);'...
              'shwproc(stp,Ep,v,popup1Val, maxE);'...
              'end;'...
	     ];	

% =================================
ctlgra00;  % В окно - меню органов управления
