DPL genera archivo de datos

DigSilent DPL

set Text,Sloads,BusBars,allBars,allLine,allLoad,allSym,OldMons;
object Ldf;  
object Ini;
object Sim;
string str,elemento;
double f_servicio,t_n,tension,Pwr,t_end,phi,frec,P_a,P_r,ve,p_a,p_r,pl_a,pl_r,pl_carga,terminal;
object busbar,load,gen,line,result;
string nombre,subestacion;  
double it;
allBars = AllRelevant('*.ElmTerm');
allLine = AllRelevant ('*.ElmLne');
allLoad = AllRelevant ('*.ElmLod');
allSym =  AllRelevant ('*.ElmSym');  

!Definiendo las acciones de simulación
Ldf = GetCaseCommand('ComLdf');
Ini = GetCaseCommand('ComInc');
Sim = GetCaseCommand('ComSim');     

!Definiendo las condiciones de ejecucion para las simulaciones   
Ldf:iopt_net = 0;   
!Ini:iopt_sim = 0; !no le gusta 

Sim:iopt_show = 0;
Sim:iopt_dbev = 0;
!Ejecuando las acciones de simulación
Ldf.Execute(); 


!!!! Para los datos medidos!!!!!!   
Ini.Execute();   

fopen('C:\Users\Pedro\Google Drive\benches\digsilent\DPL\test.txt','w',0);  
t_end=0.0;      

it = 0;
while ( t_end<1.0)
{   
  
    
    Sim:tstop =t_end;

    str=fprintf(0,'t:%2.2f',t_end); 
   
    Sim.Execute();   
    

    !!!!!!!!!!!!!Magnitudes medidas del elemento!!!!!!!!!!!!! 

     for (busbar=allBars.First(); busbar; busbar=allBars.Next()) 
    {
      result=busbar.GetNextHVBus();
      busbar.GetVal(nombre,'loc_name');                        
      busbar.GetVal(tension,'m:Ul'); 
      busbar.GetVal(t_n,'e:uknom');
      if (t_n>=220){
      if (it=0.0){        
      str =fprintf(0,'bus:%s:U1:kV\t%.2f',nombre,tension);};
      if (it>0.0){        
      str =fprintf(0,'%.2f',tension);};
    } 
    }    
     for (busbar=allBars.First(); busbar; busbar=allBars.Next()) 
    {
      result=busbar.GetNextHVBus(); 
      busbar.GetVal(nombre,'loc_name');                       
      busbar.GetVal(tension,'m:u');
      busbar.GetVal(t_n,'e:uknom');
      if (t_n>=220){ 
      if (it=0){       
      str =fprintf(0,'bus:%s:u:pu\t%2.2f',nombre,tension);};  
      if (it>0){       
      str =fprintf(0,'%2.2f',tension);};
    } 
    } 
     for (busbar=allBars.First(); busbar; busbar=allBars.Next()) 
    {
      result=busbar.GetNextHVBus();
      busbar.GetVal(nombre,'loc_name');                         
      busbar.GetVal(phi,'m:phiu');
      busbar.GetVal(t_n,'e:uknom');
      if (t_n>=220){  
      if (it=0){
      str =fprintf(0,'bus:%s:phiu:deg\t%2.2f',nombre,phi); };
      if (it>0){
      str =fprintf(0,'%2.2f',phi); };
    } 
    } 
    
     for (busbar=allBars.First(); busbar; busbar=allBars.Next()) 
    {
      result=busbar.GetNextHVBus();
      busbar.GetVal(nombre,'loc_name');                        
      busbar.GetVal(frec,'m:frnom');
      busbar.GetVal(t_n,'e:uknom');
      if (t_n>=220){
      if (it=0){
      str =fprintf(0,'bus:%s:fehz:hz\t%2.2f',nombre,frec); };
      if (it>0){  
      str =fprintf(0,'%2.2f',frec); };
    }  
    }
     for (gen=allSym.First(); gen ; gen=allSym.Next()) 
      {  
      gen.GetVal(P_a,'m:P:bus1');
      gen.GetVal(nombre,'loc_name');
      gen.GetVal(f_servicio,'e:outserv');
      if (f_servicio = 0) {
      if (it=0){ 
      str= fprintf(0,'sym:%s:P1:MW\t%2.2f',nombre,P_a);};
      if (it>0){ 
      str= fprintf(0,'%2.2f',P_a);};
      } 
      }
     for (gen=allSym.First(); gen ; gen=allSym.Next()) 
      {  
      gen.GetVal(P_r,'m:Q:bus1');
      gen.GetVal(nombre,'loc_name');
      gen.GetVal(f_servicio,'e:outserv');
      if (f_servicio = 0) {
      if (it=0){ 
      str= fprintf(0,'sym:%s:Q1:Mvar\t%2.2f',nombre,P_r); };
      if (it>0){
      str= fprintf(0,'%2.2f',P_r); };
      }
      }
     for (gen=allSym.First(); gen ; gen=allSym.Next()) 
      {  
      gen.GetVal(ve,'s:ve');
      gen.GetVal(nombre,'loc_name');
      gen.GetVal(f_servicio,'e:outserv'); 
      if (f_servicio = 0) {
       if (it=0){
       str= fprintf(0,'sym:%s:ve:pu\t%2.2f',nombre,ve); };
       if (it>0){
       str= fprintf(0,'%2.2f',ve); };
      } 
      }
     for (load=allLoad.First(); load ; load=allLoad.Next()) 
      { 
      load.GetVal(p_a,'m:P:bus1');
      load.GetVal(nombre,'loc_name');
      load.GetVal(f_servicio,'e:outserv'); 
      if (f_servicio = 0){
      if (it=0){
       str= fprintf(0,'load:%s:P1:Mvar\t%2.2f',nombre,p_a);};
       if (it>0){ 
       str= fprintf(0,'%2.2f',p_a);};
      } 
      }
     for (load=allLoad.First(); load ; load=allLoad.Next()) 
      { 
      load.GetVal(p_r,'m:Q:bus1');
      load.GetVal(nombre,'loc_name');
      load.GetVal(f_servicio,'e:outserv'); 
      if (f_servicio = 0){ 
      if (it=0){
       str= fprintf(0,'load:%s:Q1:Mvar\t%2.2f',nombre,p_r);};
       if (it>0){ 
       str= fprintf(0,'%2.2f',p_r);};
      }  
      }
     for (line=allLine.First(); line ; line=allLine.Next()) 
      { 
      line.GetVal(pl_a,'m:Psum:bus1');
      line.GetVal(nombre,'loc_name'); 
      line.GetVal(t_n,'t:uline');
      line.GetVal(f_servicio,'e:outserv');
      if (f_servicio = 0) {
      if(t_n >=220){
      if (it=0){
     str= fprintf(0,'line:%s:P1:MW\t%2.2f',nombre,pl_a); };
     if (it>0){
      str= fprintf(0,'%2.2f',pl_a); };
      } 
      } 
      }
      for (line=allLine.First(); line ; line=allLine.Next()) 
      { 
      line.GetVal(pl_r,'m:Qsum:bus1');
      line.GetVal(nombre,'loc_name');
      line.GetVal(t_n,'t:uline');
      line.GetVal(f_servicio,'e:outserv');
      if (f_servicio = 0) {
      if(t_n >=220){
       if (it=0){
     str= fprintf(0,'line:%s:P1:Mvar\t%2.2f',nombre,pl_r);  };
      if (it>0){ 
      str= fprintf(0,'%2.2f',pl_r); }
      }
      }
      }  
     for (line=allLine.First(); line ; line=allLine.Next()) 
      { 
      line.GetVal(pl_carga,'c:loading');
      line.GetVal(nombre,'loc_name');
      line.GetVal(t_n,'t:uline');
      line.GetVal(f_servicio,'e:outserv');
      if (f_servicio = 0) {  
      if(t_n >=220){
      if (it=0){
     str= fprintf(0,'line:%s:loading:percent\t%2.2f',nombre,pl_carga); };
      if (it>0) {
      str= fprintf(0,'%2.2f',pl_carga); };
      }
      } 
      }       
         
     
     t_end=t_end+0.1 ;   
     it = it +1;
} 

fclose(0);