ent">% POLE-DIPOLE</span>
0202         mess2=sprintf(<span class="string">'Pole-Dipole Array %d Datum Points'</span>,data); 
0203 <span class="comment">%         AA=XX-location*SP.*EL-(SP&lt;0).*(SP-1).*EL;</span>
0204         AA=XX-location*(SP-1).*EL/2;<span class="comment">%-(SP&lt;0).*(SP-1).*EL;</span>
0205         MM=AA+SP.*EL;
0206         NN=MM+sign(SP).*EL;
0207 <span class="comment">%         fi=find(SP&lt;0);du=MM(fi);MM(fi)=NN(fi);NN(fi)=du;</span>
0208     <span class="keyword">end</span>
0209 