diff options
Diffstat (limited to 'macros/lar2rc.sci')
| -rw-r--r-- | macros/lar2rc.sci | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/macros/lar2rc.sci b/macros/lar2rc.sci index 15fa4ee..6a41b36 100644 --- a/macros/lar2rc.sci +++ b/macros/lar2rc.sci @@ -1,22 +1,34 @@ function k=lar2rc(g) - + //lar2rc convert log area ratios to reflection coefficients. // Calling Sequence // k = lar2rc(g) // Parameters // g: define log area ratios. // k: returns the reflection coefficients. -// Examples -//X = [7 6 5 8 3 6 8 7 5 2 4 7 4 3 2 5 4 9 5 3 5 7 3 9 4 1 2 0 5 4 8 6 4 6 5 3]; -// k = lar2rc(X) -// or t=[2 5 6; 8 6 5; 8 9 4] -// k = lar2rc(t) + +// Example +//g = [0.6389 4.5989 0.0063 0.0163 -0.0163]; +//k = lar2rc(g) + +// Output : +//k = // +// +// column 1 to 4 +// +// 0.3090095 0.9800747 0.0031500 0.0081498 +// +// column 5 +// +// - 0.0081498 + + // See also // // Author // Jitendra Singh -// +// //Modified to match MATLAB o/p when i/p is of type char and is a string by Debdeep Dey if or(type(g)==10) then [r,c]=size(g); @@ -25,7 +37,7 @@ function k=lar2rc(g) else k=ones(size(g,1), size(g,2)) end - + else if ~isreal(g) then error('Log area ratios must be real.') |