PostProcessing { 
For i In {1:#Sur_UNIFPORT_N_N_List()}
  { Name postProc_getdpMicrowaves~{i}; NameOfFormulation getdpMicrowaves_formulation~{i}; NameOfSystem resol_getdpMicrowaves~{i}; 
    PostQuantity { 
	  For j In {1:#Sur_UNIFPORT_N_N_List()}
      { Name AaLoadVoltage~{j} ; Value { 
      	Term { Type Global; [  {U_port~{j}}  ] ;  In Region[{Sur_UNIFPORT_N~{j},  Sur_COAXPORT}] ; }
        } }
	  EndFor 
      { Name AbGamma~{i} ; Value { 
      	Term { Type Global; [  {G_port~{i}} ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT}] ; }
        } }
	  For j In {1:#Sur_UNIFPORT_N_N_List()}
      { Name AcLoadCurrent~{j} ; Value { 
      	Term { Type Global; [  (2*volt[] - {U_port~{j}}  )/impedance[]     ] ;  In Region[{Sur_UNIFPORT_N~{j},  Sur_COAXPORT}] ; }
        } }
	  EndFor 
	  For j In {1:#Sur_UNIFPORT_N_N_List()}
      { Name AdLoadImpedance~{j} ; Value { 
      	Term { Type Global; [  {U_port~{j}}  / $AcLoadCurrent~{j}  ] ;  In Region[{Sur_UNIFPORT_N~{j},  Sur_COAXPORT}] ; }
        } }
	  EndFor 
	  For j In {1:#Sur_UNIFPORT_N_N_List()}
      { Name AeLoadPower~{j} ; Value { 
      	Term { Type Global; [  Re[{U_port~{j}}  *Conj[$AcLoadCurrent~{j}]] / 2  ] ;  In Region[{Sur_UNIFPORT_N~{j},  Sur_COAXPORT}] ; }
        } }
	  EndFor 
	  For j In {1:#Sur_UNIFPORT_N_N_List()}
      { Name AfScale~{j} ; Value { 
      	Term { Type Global; [  1/Sqrt[volt[]^2 / impedance[] / 2]  ] ;  In Region[{Sur_UNIFPORT_N~{j},  Sur_COAXPORT}] ; }
        } }
	  EndFor 
      { Name Efield ; Value { 
      	Term { [ $AfScale~{i} * Norm[ {e} ] ] ;  In Region[{non_conducting_domain, open_air_domain}] ; Jacobian JVol ; }
        } }
      { Name Efield_im ; Value { 
      	Term { [ $AfScale~{i} * Im[{e}] ] ;  In Region[{non_conducting_domain, open_air_domain}] ; Jacobian JVol ; }
        } }
      { Name Efield_re ; Value { 
      	Term { [ $AfScale~{i} * Re[{e}] ] ;  In Region[{non_conducting_domain, open_air_domain}] ; Jacobian JVol ; }
        } }
      { Name Hfield ; Value { 
      	Term { [ $AfScale~{i} * Norm[ Complex[0,1]*nu[]*nu0*{d e}/(2*Pi*$Time*FreqFactor) ] ] ;  In Region[{non_conducting_domain, open_air_domain}] ; Jacobian JVol ; }
        } }
      { Name Hfield_im ; Value { 
      	Term { [ $AfScale~{i} * Im[Complex[0,1]*nu[]*nu0*{d e}/(2*Pi*$Time*FreqFactor)] ] ;  In Region[{non_conducting_domain, open_air_domain}] ; Jacobian JVol ; }
        } }
      { Name Hfield_re ; Value { 
      	Term { [ $AfScale~{i} * Re[Complex[0,1]*nu[]*nu0*{d e}/(2*Pi*$Time*FreqFactor)] ] ;  In Region[{non_conducting_domain, open_air_domain}] ; Jacobian JVol ; }
        } }
      { Name NFF ; Value { 
       } }
      { Name SEfield_im ; Value { 
      	Term { [ $AfScale~{i} * Im[{e}] ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT, Sur_CONDUCTOR, Sur_INTERFACE}] ; Jacobian JSur ; }
        } }
      { Name SEfield_re ; Value { 
      	Term { [ $AfScale~{i} * Re[{e}] ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT, Sur_CONDUCTOR, Sur_INTERFACE}] ; Jacobian JSur ; }
        } }
      { Name SHfield_im ; Value { 
      	Term { [ $AfScale~{i} * Im[{hs}] ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT, Sur_CONDUCTOR, Sur_INTERFACE}] ; Jacobian JSur ; }
        } }
      { Name SHfield_re ; Value { 
      	Term { [ $AfScale~{i} * Re[{hs}] ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT, Sur_CONDUCTOR, Sur_INTERFACE}] ; Jacobian JSur ; }
        } }
      { Name SurEfield ; Value { 
      	Term { [ $AfScale~{i} * Norm[ {e} ] ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT, Sur_CONDUCTOR, Sur_INTERFACE}] ; Jacobian JSur ; }
        } }
      { Name SurHfield ; Value { 
      	Term { [ $AfScale~{i} * Norm[ {hs} ] ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT, Sur_CONDUCTOR, Sur_INTERFACE}] ; Jacobian JSur ; }
        } }
      { Name VSWR ; Value { 
      	Term { Type Global; [  (1 + Norm[{G_port~{i}}])/(1-Min[0.9999,Norm[{G_port~{i} }]]) ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT}] ; }
        } }
      { Name acS11 ; Value { 
      	Term { Type Global; [  20 * Log10[{G_port~{i}}] ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT}] ; }
        } }
	  For k In {1:#Sur_UNIFPORT_N_N_List()}
	  For j In {1:#Sur_UNIFPORT_N_N_List()}
      { Name acS~{j}~{k} ; Value { 
      	If (j==k)
      	Term { Type Global; [  20 * Log10[{ G_port~{j}~{k} }] ] ;  In Region[{Sur_UNIFPORT_N~{j},  Sur_COAXPORT}] ; }
       	Else
      	Term { Type Global; [  20 * Log10[{ U_port~{j}~{k} }] ] ;  In Region[{Sur_UNIFPORT_N~{j},  Sur_COAXPORT}] ; }
       	EndIf
       } }
	     EndFor 
	  EndFor 
      { Name acceptedPower ; Value { 
      	Term { Type Global; [  Re[$AeLoadPower~{i}] * $AfScale~{i}^2  ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT}] ; }
        } }
      { Name bDielectricLosses ; Value { 
      	Integral { [  $AfScale~{i}^2/(rmsCoeff[]^2) * Norm[epsilon[] * eps0 * tan_delta[] * {e}* Conj[Complex[0,1]*2*Pi*$Time*FreqFactor*{e}]/Complex[0,1] ] ] ;  In Region[{non_conducting_domain}] ; Jacobian JVol ; Integration I1; }
        } }
      { Name gamma ; Value { 
      	Term { Type Global; [  Norm[{G_port~{i}}]  ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT}] ; }
        } }
      { Name portImpedance ; Value { 
      	Term { Type Global; [  Norm[$AdLoadImpedance~{i}]  ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT}] ; }
        } }
      { Name portReactance ; Value { 
      	Term { Type Global; [  Im[$AdLoadImpedance~{i}]  ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT}] ; }
        } }
      { Name portResistance ; Value { 
      	Term { Type Global; [  Re[$AdLoadImpedance~{i}]  ] ;  In Region[{Sur_UNIFPORT_N~{i},  Sur_COAXPORT}] ; }
        } }
      { Name radiatedPower ; Value { 
       } }
    } 
  } 
EndFor
}