Update of the localization templates
[scilab.git] / scilab / modules / differential_equations / macros / intc.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA - Farid BELAHCENE
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function r=intc(a,b,f)
11 //If f is a complex-valued macro,intc(a,b,f) computes
12 //the integral from a to b of f(z)dz along the straight
13 //line a-b of the complex plane.
14
15 //First compile f if necessary:
16 // Copyright INRIA
17 if type(f)==11 then comp(f),end;
18 //Define two functions which define the real part and
19 //imaginary part of f(g(t))*g'(t) where g(t) is a 
20 //parametrization of the line a-b.
21 deff('<r>=real1(t,a,b,f)','r=real(f((1-t)*a+t*b)*(b-a))')
22 deff('<r>=imag1(t,a,b,f)','r=imag(f((1-t)*a+t*b)*(b-a))')
23 r=intg(0,1,list(real1,a,b,f))+%i*intg(0,1,list(imag1,a,b,f))
24 endfunction