/*-------------------------------------------------
Dociążanie sieci
-------------------------------------------------*/
makro void Makro2
int I, iPrzec, bKoniec;
float F, sumaP;
string S;
{
  I = ZapDane("DaneBin.bin");

	I = Obszar("ZE_Białystok","ENERGA_Olsztyn","ENERGA_Elbląg");

	F = calclf();		//Rozpływ
  if( Calc[].Rslt==1 )
		I = Bilans();
		I = PrzGal(100,4);
 		I = PrzWez( 105.0,110, 123.0);
 		I = PrzWez( 210.0,220, 245.0);
	  I = PrzWez( 380.0,400, 420.0);
	endif

	I = Obciaz(100);

	F = calclf();		//Rozpływ
  if( Calc[].Rslt==1 )
		I = Bilans();
		I = PrzGal(100,4);
 		I = PrzWez( 105.0,110, 123.0);
 		I = PrzWez( 210.0,220, 245.0);
	  I = PrzWez( 380.0,400, 420.0);
	endif

	I = Obciaz(100);

	F = calclf();		//Rozpływ
  if( Calc[].Rslt==1 )
		I = Bilans();
		I = PrzGal(100,4);
 		I = PrzWez( 105.0,110, 123.0);
 		I = PrzWez( 210.0,220, 245.0);
	  I = PrzWez( 380.0,400, 420.0);
	endif

  
  I = CzytDane("DaneBin.bin");
}