0038     <span class="keyword">if</span> i==1
0039         eval(strcat(<span class="string">'s_'</span>,list_solid{i},<span class="string">'=s;'</span>))
0040     <span class="keyword">else</span>
0041         eval(strcat(<span class="string">'s_'</span>,list_solid{i},<span class="string">'=s_'</span>,list_solid{i-1},<span class="string">'+1;'</span>))
0042     <span class="keyword">end</span>
0043 <span class="keyword">end</span>  
0044     
0045 <span class="comment">% find the number of the mother from t