summaryrefslogtreecommitdiff
path: root/cesar/cp/spoc/test/ApproxOrder1ParamMCoeff.sci
diff options
context:
space:
mode:
authorsave2008-04-07 14:17:42 +0000
committersave2008-04-07 14:17:42 +0000
commit3d58a62727346b7ac1a6cb36fed1a06ed72228dd (patch)
treed7788c3cf9f76426aef0286d0202e2097f0fa0eb /cesar/cp/spoc/test/ApproxOrder1ParamMCoeff.sci
parent095dca4b0a8d4924093bab424f71f588fdd84613 (diff)
Moved the complete svn base into the cesar directory.
git-svn-id: svn+ssh://pessac/svn/cesar/trunk@1769 017c9cb6-072f-447c-8318-d5b54f68fe89
Diffstat (limited to 'cesar/cp/spoc/test/ApproxOrder1ParamMCoeff.sci')
-rw-r--r--cesar/cp/spoc/test/ApproxOrder1ParamMCoeff.sci36
1 files changed, 36 insertions, 0 deletions
diff --git a/cesar/cp/spoc/test/ApproxOrder1ParamMCoeff.sci b/cesar/cp/spoc/test/ApproxOrder1ParamMCoeff.sci
new file mode 100644
index 0000000000..b76f650c69
--- /dev/null
+++ b/cesar/cp/spoc/test/ApproxOrder1ParamMCoeff.sci
@@ -0,0 +1,36 @@
+function [arg_i, arg_e, sinc_i, sinc_e, div, ordo, pente] = ApproxOrder1ParamMCoeff(rho,X0,N,Coeff_number)
+
+if Coeff_number<0
+ xi=X0 - Coeff_number;
+ xe=N-1;
+ qi= X0-Coeff_number;
+ qe=N-1;
+ ki=X0+ 0;
+ ke=N+Coeff_number-1;
+elseif Coeff_number>0
+ xi=X0;
+ xe=(N-1)-abs(Coeff_number);
+ qi=X0+ 0;
+ qe=N-Coeff_number-1;
+ ki=X0+ Coeff_number;
+ ke=N-1;
+else
+ xi=X0;
+ xe=(N-1)-abs(Coeff_number);
+ qi=X0;
+ qe=N-1;
+ ki=X0;
+ ke=N-1;
+end
+xi;
+xe;
+arg_i = %pi*(ki*(1+rho)-qi);
+arg_e = %pi*(ke*(1+rho) - qe);
+sinc_i=sinc( arg_i);
+sinc_e=sinc( arg_e);
+div = xe-xi;
+pente=(sinc_e-sinc_i)/(xe-xi);
+//pente=(sinc_e-sinc_i);
+ordo=sinc_i;
+
+endfunction