x permittivity</span>
0008 <span class="comment">% wc = veltocrim(velocity,eps_matrix,porosity)</span>
0009 <span class="comment">%      the latter two can be neglected (default: eps_matrix=5,n=40%)</span>
0010 
0011 <span class="keyword">if</span> nargin&lt;1, error(<span class="string">'Specify velocity!'</span>); <span class="keyword">end</span>
0012 <span class="keyword">if</span> nargin&lt;3, n=0.4; <span class="keyword">end</span>
0013 <span class="keyword">if</span> nargin&lt;2, ematrix=5; <span clas