1 files changed, 48 insertions, 38 deletions
diff --git a/macros/is2rc.sci b/macros/is2rc.sci
index ad68f5f..864365b 100644
--- a/macros/is2rc.sci
+++ b/macros/is2rc.sci
@@ -1,38 +1,48 @@
-function [k] = is2rc(isin)
-// Convert inverse sine parameters to reflection coefficients
-// 
-// Calling Sequence
-// K = is2rc(isin) 
-// 
-// Parameters
-// isin: input inverse sine parameters. Needs to be an array real numbers
-// k: output reflection coefficients  corresponding to the reflection coefficients in input
-//
-// Description
-// This function returns a vector of reflection coefficients from a vector of inverse sine parameters
-// output array has k(i) = sin(pi/2*isin(i))
-//
-// Example
-// k = [0.3090 0.9801 0.0031 0.0082 -0.0082];
-// isin = rc2is(k)      //Gives inverse sine parameters
-// k_dash = is2rc(isin)
-//
-// See also 
-// rc2is
-// rc2poly
-// rc2ac
-// rc2lar
-//
-// Author
-// Parthe Pandit
-//
-// Bibliography
-// J.R. Deller, J.G. Proakis, J.H.L. Hansen, "Discrete-Time Processing of Speech Signals", Prentice Hall, Section 7.4.5
-
-//errcheck1
-if (~isreal(isin)),
- error('Input inverse sine coefficients are not real');
-end           
-
-k = sin(isin*%pi/2);
-endfunction
+function [k] = is2rc(isin)
+// Convert inverse sine parameters to reflection coefficients
+//
+// Calling Sequence
+// K = is2rc(isin)
+//
+// Parameters
+// isin: input inverse sine parameters. Needs to be an array real numbers
+// k: output reflection coefficients  corresponding to the reflection coefficients in input
+//
+// Description
+// This function returns a vector of reflection coefficients from a vector of inverse sine parameters
+// output array has k(i) = sin(pi/2*isin(i))
+//
+// Example
+// k = [0.3090 0.9801 0.0031 0.0082 -0.0082];
+// isin = rc2is(k)      //Gives inverse sine parameters
+// k_dash = is2rc(isin)
+//
+// OUTPUT :
+//           isin    =   [0.1999886    0.8727832    0.0019735    0.0052203.....- 0.0052203 ]
+//           k_dash =[0.309    0.9801    0.0031    0.0082  - 0.0082]
+
+//isin = [0.2000 0.8727 0.0020 0.0052 -0.0052];
+//k = is2rc(isin)
+//
+//OUTPUT :
+//              k = [0.3090170    0.9800741    0.0031416    0.0081681..... - 0.0081681 ]
+
+// See also
+// rc2is
+// rc2poly
+// rc2ac
+// rc2lar
+//
+// Author
+// Parthe Pandit
+//
+// Bibliography
+// J.R. Deller, J.G. Proakis, J.H.L. Hansen, "Discrete-Time Processing of Speech Signals", Prentice Hall, Section 7.4.5
+
+//errcheck1
+if (~isreal(isin)),
+ error('Input inverse sine coefficients are not real');
+end
+
+k = sin(isin*%pi/2);
+endfunction