/*-------------------------------------------------
Wyznaczenie przepływu mocy na ATR
-------------------------------------------------*/
makro void Makro4
int I;
float F;
string S;
float sumP, sumQ;
{
  F = calclf();		//Rozpływ
  if( Calc[].Rslt==1 )
		gosub SumaMocy;
  endif;
}


sub SumaMocy
int iTrf, iBra;
{
	sumP=0.0;
  sumQ=0.0;

	S = cprintf("-----------------------------" );
	S = cprintf("|Trafo   | P [MW] | Q[Mvar] |");
	S = cprintf("-----------------------------" );

	iTrf=1;
	do
		gosub CzyWlasciwyTrafo;

		if( bDobry==1 )
			iBra = Trf[iTrf].NrBra;

			S = cprintf("|%s|%7.0f |%8.0f |", Bra[iBra].Name, Bra[iBra].Pend, Bra[iBra].Qend );
			sumP = sumP + Bra[iBra].Pend;
			sumQ = sumQ + Bra[iBra].Qend;

		endif;
			
		iTrf=iTrf+1;
	while( iTrf<Prm[].N_Trf );

	S = cprintf("-----------------------------" );
	S = cprintf("|Suma    |%7.0f |%8.0f |", sumP, sumQ);
	S = cprintf("-----------------------------" );
}


sub CzyWlasciwyTrafo
int bDobry
{
		bDobry = 0;

		iBra = Trf[iTrf].NrBra;
		
		S = "MIL-A1  "
    if( Bra[iBra].Name==S)
			bDobry = 1;
		endif;

		S = "MIL-A2  "
    if( Bra[iBra].Name==S)
			bDobry = 1;
		endif;

		S = "MIL-T4  "
    if( Bra[iBra].Name==S)
			bDobry = 1;
		endif;

		S = "MOR-A1  "
    if( Bra[iBra].Name==S)
			bDobry = 1;
		endif;

		S = "MOR-A2  "
    if( Bra[iBra].Name==S)
			bDobry = 1;
		endif;

		S = "MOR-A3  "
    if( Bra[iBra].Name==S)
			bDobry = 1;
		endif;

		S = "MSK-A1  "
    if( Bra[iBra].Name==S)
			bDobry = 1;
		endif;

		S = "WTO-A1  "
    if( Bra[iBra].Name==S)
			bDobry = 1;
		endif;
}