bisurf.m

来自「一种求解目标函数最小化的MATLAB仿真程序.」· M 代码 · 共 49 行

OldFigNumber=watchon;

lfcntrup;

Bif_Data_Flag=0;

alphamax=30;

to_param;
pccomp;
from_param;

watchoff;

[vpocmax,i_max]=max(abs(vpoc));
i_max1=i_max;

position=get(0,'DefaultFigurePosition');
position=position-[120,120,0,0];

grph_fig=figure(...
    'NumberTitle','off',...
    'Name','Voltage Stability Toolbox - Bifurcation Surface ',...
    'Position',position,...
    'Color',[0.7 0.8 0.9]);

set(grph_fig,'defaulttextcolor','black');
set(grph_fig,'defaultaxesxcolor','black');
set(grph_fig,'defaultaxesycolor','black');
set(grph_fig,'defaultaxeszcolor','black');
set(grph_fig,'defaultsurfaceedgecolor','black');

bisurfpl;

if Bif_Data_Flag==0
     gcontrol;
     uicontrol(static_fig,...
         'Style','pushbutton',...
          'BackgroundColor','R',...
          'Position',[405,75,125,20],...
          'HorizontalAlignment','Center',...
          'String','Replot',...
          'Callback','bisurfpl');
end

set(Null_Space_HANDLES(3),'String',abs(vpoc));

set(RemedialAction_HANDLES(3),'String',wpoc);