s" class="code">function wc=veltocrim(velocity,ematrix,n)</a>
0002 
0003 <span class="comment">% VELTOCRIM - Compute water content from velocity by CRIM formula</span>
0004 <span class="comment">%             (valid for porous media without clay)</span>
0005 <span class="comment">% veltocrim(velocity,ematrix,porosity)</span>
0006 <span class="comment">% water_content = (v_0/v + (n-1)*sqrt(eps_matrix)-n)/(sqrt(eps_water)-1)</span>
0007 <span class="comment">% where v..velocity, n..porosity, eps_matrix..matri