www.pudn.com > hhu_pfcp.rar > hhu_gspf.m

function hhu_dcpf 
disp('  ') 
disp('  ') 
 
disp('                ***已经选择Gauss Seidel法进行潮流法计算，请选择算例***   ') 
disp('                                                                   ') 
disp('                        [1].IEEE --9 节点  ') 
disp('                －－－－－－－－－－－－－－－－－－－－－－－     ') 
disp('                        [2].IEEE --14 节点  ') 
disp('                －－－－－－－－－－－－－－－－－－－－－－－     ') 
disp('                        [3].IEEE --30 节点 ') 
disp('                －－－－－－－－－－－－－－－－－－－－－－－     ') 
disp('                        [4].IEEE --39 节点  ') 
disp('               －－－－－－－－－－－－－－－－－－－－－－－－－  ') 
disp('                        [5].IEEE --57 节点  ') 
disp('                －－－－－－－－－－－－－－－－－－－－－－－     ') 
disp('                        [6].IEEE --118 节点 ') 
disp('                －－－－－－－－－－－－－－－－－－－－－－－     ') 
disp('                        [7].IEEE --300 节点  ') 
disp('               －－－－－－－－－－－－－－－－－－－－－－－－－  ') 
disp('                        [8].返回上级菜单 ') 
disp('               －－－－－－－－－－－－－－－－－－－－－－－－－  ') 
disp('  ') 
  
 
mpopt = mpoption('PF_ALG', 4); 
choice = input('   \输入您的选择 （[1---8]之间）:       '); 
if isempty(choice) 
   disp('                 ') 
   disp('                 ') 
    disp('                      **** 错误： 输入不能为空，请重新选择***      '); 
   hhu_gspf 
end 
 
 
 
switch choice 
    case 1 
      runpf('case9', mpopt); 
    case 2 
       runpf('case14', mpopt); 
    case 3 
        runpf('case30', mpopt); 
    case 4 
       runpf('case39', mpopt); 
    case 5 
       runpf('case57', mpopt); 
    case 6 
        runpf('case118', mpopt); 
    case 7 
        runpf('case300', mpopt); 
     case 8 
         hhu_runpf 
    otherwise 
      hhu_agains;   
end 
 
  
  
 return