openfile.m

来自「这个程序是采用模块化的方式对潮流进行求解」· M 代码 · 共 12 行

function openfile()
global bus line ;

% 数据文件的打开  选择数据文件 Text 即可
[dfile,pathname]=uigetfile('*.m','Select Data File');
if pathname == 0
    error(' you must select a valid data file')
else
    lfile =length(dfile);
    % strip off .m
    eval(dfile(1:lfile-2));
end