my_menu1_sub2.m

一个小小的c语言编程

function my_menu1_sub2                      %y-z平面轨线图和动态轨线图
global X1 X2 X3 t X0 Y0 Z0 t0 tf r sigma b time            %全局变量必须这样定义
global h_menu1_sub2_str_sigma h_menu1_sub2_str_b h_menu1_sub2_str_r
global h_menu1_sub2_text_sigma h_menu1_sub2_text_b h_menu1_sub2_text_r
global h_menu1_sub2_text_bifucationx1 h_menu1_sub2_text_bifucationx2  
figure(4)
clf reset,
set(gcf,'unit','normalized','position',[0.002,0.01,0.94,0.92]);
set(gcf,'defaultuicontrolunits','normalized');
set(gcf,'defaultuicontrolfontsize',12);
set(gcf,'defaultuicontrolfontname','隶书');
set(gcf,'defaultuicontrolhorizontal','left');
str='lorenz function Y-Z phase';
set(gcf,'name',str,'numbertitle','off');	
h_axes=axes('position',[0.03,0.15,0.7,0.8]);	 
set(h_axes,'xlim',[-20,20],'ylim',[-30,30],'zlim',[0,50]);
h_menu1_sub2_str_sigma='sigma=';h_menu1_sub2_str_b='b=';h_menu1_sub2_str_r='r=';
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
h_menu1_sub2_text_1=uicontrol(gcf,'style','text',...
   'unit','normalized','position',[0.77,0.89,0.21,0.03],...
   'horizontal','left','string',{'y,z平面对应的奇点值'});
h_menu1_sub2_text_strangex=uicontrol(gcf,'style','text',...	       
   'unit','normalized','position',[0.77,0.85,0.10,0.03],...
   'horizontal','left','string',{'r*b*x/(b+x^2)'});
h_menu1_sub2_text_strangey=uicontrol(gcf,'style','text',...	       
   'unit','normalized','position',[0.88,0.85,0.10,0.03],...
  	'horizontal','left','string',{'r*x^2/(b+x^2)'});

h_menu1_sub2_text_2=uicontrol(gcf,'style','text',...
   'unit','normalized','position',[0.77,0.81,0.21,0.03],...
   'horizontal','left','string',{'焦-结分岔点'});
h_menu1_sub2_text_bifucationx1=uicontrol(gcf,'style','text',...	       
   'unit','normalized','position',[0.77,0.77,0.07,0.05],...
  	'horizontal','left','string',['x1= ',sprintf('%1.5g\',(b-1)/2)]);

h_menu1_sub2_text_3=uicontrol(gcf,'style','text',...
   'unit','normalized','position',[0.77,0.73,0.21,0.03],...
   'horizontal','left','string',{'结-焦分岔点'});
h_menu1_sub2_text_bifucationx2=uicontrol(gcf,'style','text',...	       
   'unit','normalized','position',[0.77,0.69,0.07,0.05],...
  	'horizontal','left','string',['x2= ',sprintf('%1.5g\',-(b-1)/2)]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
h_menu1_sub2_text_2=uicontrol(gcf,'style','text',...	
   'position',[0.77,0.64,0.21,0.02],...
   'string',{'可更改参数设置'});

h_menu1_sub2_text_sigma=uicontrol(gcf,'style','text',...	
   'position',[0.77,0.61,0.21,0.03],...
   'string',['sigma=',sprintf('%1.4g\',10)]);
h_menu1_sub2_slider_sigma=uicontrol(gcf,'style','slider',...
   'position',[0.77,0.57,0.21,0.03],...
   'max',20,'min',5,...		
   'sliderstep',[0.01,0.05],...
   'Value',10);	

h_menu1_sub2_text_b=uicontrol(gcf,'style','text',...	
   'position',[0.77,0.53,0.21,0.03],...
   'string',['b=',sprintf('%1.4g\',8/3)]);
h_menu1_sub2_slider_b=uicontrol(gcf,'style','slider',...
   'position',[0.77,0.49,0.21,0.03],...
   'max',20,'min',2,...		
   'sliderstep',[0.01,0.05],...
   'Value',8/3);

h_menu1_sub2_text_r=uicontrol(gcf,'style','text',...	
   'position',[0.77,0.45,0.21,0.03],...
   'string',['r=',sprintf('%1.4g\',28)]);
h_menu1_sub2_slider_r=uicontrol(gcf,'style','slider',...
   'position',[0.77,0.41,0.21,0.03],...
   'max',40,'min',10,...		
   'sliderstep',[0.01,0.05],...
   'Value',28);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
h_h_menu1_sub2_push1=uicontrol(gcf,'style','push',...
    'unit','normalized','position',[0.79,0.32,0.15,0.04],...
    'string','Y-Z平面投影图','callback',['plot(X2,X3),','grid on,','hold on,','xlabel(''y''),','ylabel(''z'')']);
h_menu1_sub2_push2=uicontrol(gcf,'style','push',...
    'unit','normalized','position',[0.79,0.28,0.15,0.04],...
    'string','Y-Z平面投影彗星图','callback','my_comet_yz(X2,X3,0.02,time)');
h_menu1_sub2_push3=uicontrol(gcf,'style','push',...
    'unit','normalized','position',[0.79,0.21,0.15,0.04],...
    'string','X功率谱分析','callback','gonglvpu_x(X1)');
h_menu1_sub2_push4=uicontrol(gcf,'style','push',...
    'unit','normalized','position',[0.79,0.17,0.15,0.04],...
    'string','Y功率谱分析','callback','gonglvpu_y(X2)');
h_menu1_sub2_push5=uicontrol(gcf,'style','push',...
    'unit','normalized','position',[0.79,0.13,0.15,0.04],...
    'string','Z功率谱分析','callback','gonglvpu_z(X3)');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
set(h_menu1_sub2_slider_sigma,'callback',[...			
   'sigma=get(gcbo,''value'');',...		
   'florenz_yz(h_menu1_sub2_text_sigma,h_menu1_sub2_str_sigma,sigma,h_menu1_sub2_text_b,h_menu1_sub2_str_b,b,h_menu1_sub2_text_r,h_menu1_sub2_str_r,r,X0,Y0,Z0,t0,tf)']);
set(h_menu1_sub2_slider_b,'callback',[...			
   'b=get(gcbo,''value'');',...		
   'florenz_yz(h_menu1_sub2_text_sigma,h_menu1_sub2_str_sigma,sigma,h_menu1_sub2_text_b,h_menu1_sub2_str_b,b,h_menu1_sub2_text_r,h_menu1_sub2_str_r,r,X0,Y0,Z0,t0,tf)']);
set(h_menu1_sub2_slider_r,'callback',[...			
   'r=get(gcbo,''value'');',...		
   'florenz_yz(h_menu1_sub2_text_sigma,h_menu1_sub2_str_sigma,sigma,h_menu1_sub2_text_b,h_menu1_sub2_str_b,b,h_menu1_sub2_text_r,h_menu1_sub2_str_r,r,X0,Y0,Z0,t0,tf)']);