opendatafile.m

程序实现用牛顿－拉夫逊迭代法进行潮流计算。不仅有潮流计算

%*******************************
%Filename:opendatafile.m
%Author:Hweel_Zheng(郑奕辉)     
%First created:2008.08.23      
%Last mended:2008.08.25
%******************************
%打开bus、line数据文件并创建一个文件以保存运行计算结果
fprintf('这是一个用Newton-Raphson法进行潮流计算的程序！\n');
fprintf('请用选择一个包含bus和line矩阵的数据文件：\n');
[dfile,pathname]=uigetfile('*.m','请选包含bus和line的数据文件');
if pathname==0
    error('You must have selected a valid data file')
else
    lfile=length(dfile);
    %strip off.m
    eval(dfile(1:lfile-2));
end
filetemp=['Result_of_',dfile];
resultfile=[filetemp(1:length(filetemp)-2),'.txt'];
fid=fopen(resultfile,'w');
fclose(fid);