"comment">%--------------------------------------------------------------------------</span>
0031 
0032 <span class="keyword">if</span>     (-h-lp)&lt;(xp-xv) &amp;&amp; (xp-xv)&lt;=(-h+lp)                                  <span class="comment">% A: partial overlap of domain and element</span>
0033   Svp = (h+lp+(xp-xv))^2/(4*h*lp);  
0034   dSvp= (h+lp+(xp-xv))/(2*h*lp);
0035 <span class="keyword">elseif</span> (-h+lp)&lt;(xp-xv) &amp;&amp; (xp-xv)&lt;=(  -lp)                                  <span class="