fm_enter.m

电力系统的psat

function fig = fm_enter(upath,psatver,psatdate)
% FM_ENTER initial splash GUI
%
% FM_ENTER(PATH)
%     PATH current PSAT path
%
%Author:    Federico Milano
%Date:      11-Nov-2002
%Update:    29-Jul-2003
%Version:   1.0.1
%
%E-mail:    [e-mail]
%Web-site:  http://thunderbox.uwaterloo.ca/~fmilano
%
% Copyright (C) 2002-2005 Federico Milano
%
% This toolbox is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2.0 of the License, or
% (at your option) any later version.
%
% This toolbox is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANDABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
% General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this toolbox; if not, write to the Free Software
% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307,
% USA.

colori = [      0         0    1.0000;
                0    0.5000         0;
           1.0000         0         0;
                0    0.7500    0.7500;
           0.7500         0    0.7500;
           0.7500    0.7500         0;
           0.2500    0.2500    0.2500];

set(0,'Units','pixels')
scnsize = get(0,'ScreenSize');
pos = [(scnsize(3)-305)*0.5, (scnsize(4)-390)*0.5, 305, 390];

h0 = figure('Color',[0 0 0], ...
            'Colormap',[], ...
            'MenuBar','none', ...
            'Name','', ...
            'NumberTitle','off', ...
            'PaperPosition',[18 180 576 432], ...
            'PaperType','A4', ...
            'PaperUnits','points', ...
            'Position',pos, ...
            'Resize','on', ...
            'ToolBar','none');
h1 = axes('Parent',h0, ...
          'CameraUpVector',[0 1 0], ...
          'CameraUpVectorMode','manual', ...
          'Color',[1 1 1], ...
          'Layer','top', ...
          'Position',[0 0 1 1], ...
          'Tag','Axes1', ...
          'XColor',[0 0 0], ...
          'XLim',[0.5 346.5], ...
          'XLimMode','manual', ...
          'XTickLabelMode','manual', ...
          'XTickMode','manual', ...
          'YColor',[0 0 0], ...
          'YDir','reverse', ...
          'YLim',[0.5 410.5], ...
          'YLimMode','manual', ...
          'YTickLabelMode','manual', ...
          'YTickMode','manual', ...
          'ZColor',[0 0 0]);
%          'YDir','reverse', ...
h2 = image('Parent',h1, ...
           'CData',imread([upath,filesep,'images',filesep,'misc_psat.bmp'],'bmp'), ...
           'Tag','Axes1Image1', ...
           'XData',[1 346], ...
           'YData',[1 410]);
if ~isunix,
  Xtext = 346-140;
else
  Xtext = 346-130;
end
h1 = text(Xtext,370,psatdate);
if ~isunix,
  FontSize = 11;
else
  FontSize = 12;
end
set(h1, ...
    'Color',[1 1 0], ...
    'FontSize', FontSize, ...
    'FontWeight','bold', ...
    'FontName','Times')
h1 = text(Xtext,390,['Version ',psatver]);
set(h1, ...
    'Color',[1 1 0], ...
    'FontSize', FontSize, ...
    'FontWeight','bold', ...
    'FontName','Times')

if nargout > 0, fig = h0; end