/*-------------------------------------------------
Prądy zwarcia 1f przy wszytkich trafo uziemionych
i przy wszytkich trafo z izolowanym punktem N
-------------------------------------------------*/
makro void Makro7
int I;
float F;
string S;
int bUziem;
string sPlik;
{
  I = ZapDane("DaneBin.bin");
	I = Obszar("ENION_Będzin");

;//Prądy aktualne
	sPlik = "prad1f_neut.txt";
	gosub ObliczZwarcia;

;//Prądy przy uziemionych wszystkich trafo w obszarze
	bUziem=1;
	gosub UziemOdziemOdbior;
	sPlik = "prad1f_uz.txt";
	gosub ObliczZwarcia;
	
;//Prądy przy izolowanych wszystkich trafo w obszarze
	bUziem=0;
	gosub UziemOdziemOdbior;
	sPlik = "prad1f_iz.txt";
	gosub ObliczZwarcia;
    
  I = CzytDane("DaneBin.bin");
}


sub UziemOdziemOdbior
int iLod;
{
  iLod=1;
	do
		if( Lod[iLod].Mrkr>0 )	;//odbiór w obszarze
			if( bUziem==1 )	
				Lod[iLod].X0 = 0.85 * Lod[iLod].Xt;	//uz.
			else
				Lod[iLod].X0 = 999.9;								//iz.
			endif
		endif
		iLod=iLod+1;
	while( iLod<Prm[].N_Lod);
}


sub ObliczZwarcia
{
	I = Menu("Główne","Obliczenia->Zwarcia");
  I = Menu("Zwarcia","Moce zwarciowe->Udziały prądowe");
	I = Menu("Zwarcia","Plik->Eksportuj do pliku...", sPlik);
	I = Menu("Zwarcia","Plik->Zamknij");
}