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

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

	sumaP = 0;
	bKoniec = 0;

	do

		F = calclf();		//Rozpływ
	  if( Calc[].Rslt==1 )

			I = Bilans();

			iPrzec = 0;
			I = PrzGal(100,4);
			iPrzec = iPrzec + I;
  		I = PrzWez( 105.0,110, 123.0);
			iPrzec = iPrzec + I;
  		I = PrzWez( 210.0,220, 245.0);
			iPrzec = iPrzec + I;
		  I = PrzWez( 380.0,400, 420.0);
			iPrzec = iPrzec + I;

			if( iPrzec==0 )			
				S = cprintf("-----------------------------------");
				I = Obciaz(100);
				sumaP = sumaP + 100;
			else
				bKoniec = 1;
			endif

		else		;//rozpływ rozbieżny
			bKoniec = 1;
	  endif

	while( bKoniec==0 );
	
	S = cprintf("-----------------------------------");
	S = cprintf("/CDociążenie sieci w sumie o %3.1f MW", sumaP);  
  
  I = CzytDane("DaneBin.bin");
}