0160     subplot 512; plot(A,<span class="string">'.-'</span>); title(<span class="string">'initial cluster map'</span>);
0161     subplot 513; plot(z(:,1)); title(<span class="string">'initial DSS1'</span>);
0162     subplot 514; plot(z(:,2)); title(<span class="string">'initial DSS2'</span>);
0163     drawnow; pause;
0164 <span class="keyword">end</span>
0165 
0166 <span class="comment">% iterate until stable</span>
0167 old_IDX=IDX{1};
0168 <span class="keyword">for</span> k=1:10
0169 
0170     [zz,ind]=