Logo Search packages:      
Sourcecode: necpp version File versions  Download package

void nec_context::tl_card ( int  itmp1,
int  itmp2,
int  itmp3,
int  itmp4,
nec_float  tmp1,
nec_float  tmp2,
nec_float  tmp3,
nec_float  tmp4,
nec_float  tmp5,
nec_float  tmp6 
)

5: "tl" card, transmission line parameters

Remarks:
To generate a transmission line between any two points on the structure. Characteristic impedance, length, and shunt admittance are the defining parameters.
	TL TRANSMISSION LINE 
		I1- PORT 1 TAG #, BLANK/0, USE I2 AS ABSOLUTE
		I2- SEGMENT#, OR ABSOLUTE END 1 SEGMENT, -1=CANCEL NETS/LINES
		I3- AS I1 FOR PORT 2
		I4- AS I2 FOR PORT 2
		F1- LINE Zo, -=CROSSED LINE
		F2- LINE LENGTH METERS, BLANK=STRAIGHT LINE P1 TO P2
		F3- REAL SHUNT ADM., END 1 MHOS
		F4- IMAG SHUNT ADM., END 1
		F5- REAL SHUNT ADM., END 2
		F6- IMAG SHUNT ADM., END 2
	

Definition at line 584 of file nec_context.cpp.

References c_geometry::get_segment_number(), and safe_array< T >::resize().

{
      if ( iflow != 6)
      {
            network_count=0;
            ntsol=0;
            iflow=6;
      
            if ( processing_state > 3)
                  processing_state=3;
      
            if ( itmp2 == -1 )
                  return; /* continue card input loop */
      }

      /* Re-allocate network buffers */
      network_count++;
      ntyp.resize(network_count);
      iseg1.resize(network_count);
      iseg2.resize(network_count);
      x11r.resize(network_count);
      x11i.resize(network_count);
      x12r.resize(network_count);
      x12i.resize(network_count);
      x22r.resize(network_count);
      x22i.resize(network_count);

      int idx = network_count-1;
      ntyp[idx] = 2; // TL card

      iseg1[idx]= m_geometry->get_segment_number( itmp1, itmp2);
      iseg2[idx]= m_geometry->get_segment_number( itmp3, itmp4);
      x11r[idx]= characteristic_impedance;
      x11i[idx]= tmp2;
      x12r[idx]= tmp3;
      x12i[idx]= tmp4;
      x22r[idx]= tmp5;
      x22i[idx]= tmp6;

      if (characteristic_impedance <= 0.0)
      {
            // Negative characteristic impedance implies a crossed line
            ntyp[idx] = 3;
            x11r[idx] = -characteristic_impedance;
      }
            
}


Generated by  Doxygen 1.6.0   Back to index