hhu_enter.m

用于潮流计算的实用程序是电力系统毕业设计的必备程序包 使用范围很广的 欢迎测试

function fig = hhu_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-2007 Federico Milano

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');

if scnsize(3) > 1800
  xoffset = scnsize(3)/4;
else
  xoffset = 0;
end

if scnsize(4) > 1800
  yoffset = scnsize(4)/4;
else
  yoffset = 0;
end

pos = [(scnsize(3)-305)*0.5-xoffset, (scnsize(4)-390)*0.5-yoffset, 500, 420];

h0 = figure( ...
    'Color',[1 1 1], ...
    'Colormap',[], ...
    'MenuBar','none', ...
    'Name','Power Flow Calculation Packages V3.0', ...
    'NumberTitle','off', ...
    'PaperPosition',[18 180 576 432], ...
    'PaperType','A4', ...
    'PaperUnits','points', ...
    'Position',pos, ...
    'Resize','off', ...
    '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',[1 1 1], ...
    'XLim',[0.5 346.5], ...
    'XLimMode','manual', ...
    'XTickLabelMode','manual', ...
    'XTickMode','manual', ...
    'YColor',[1 1 1], ...
    'YDir','reverse', ...
    'YLim',[0.5 410.5], ...
    'YLimMode','manual', ...
    'YTickLabelMode','manual', ...
    'YTickMode','manual', ...
    'ZColor',[1 1 1]);

width = 346;
pic = [upath,filesep,'44.bmp'];

h2 = image( ...
    'Parent',h1, ...
    'CData',imread(pic,'bmp'), ...
    'Tag','Axes1Image1', ...
    'XData',[1 width], ...
    'YData',[1 410]);

h1 = text(40,385,psatdate);
if ~isunix,
  FontSize = 11;
else
  FontSize = 12;
end
set(h1, ...
    'Color',[0.85 0.2 0], ...
    'FontSize', FontSize, ...
    'FontWeight','bold', ...
    'FontName','Times', ...
    'HorizontalAlignment', 'left')
h1 = text(width-40,385,[' ',psatver]);

set(h1, ...
    'Color',[0.85 0.2 0], ...
    'FontSize', FontSize, ...
    'HorizontalAlignment', 'right', ...
    'FontWeight','bold', ...
    'FontName','Times')

if nargout > 0, fig = h0; end