Differential_equations doc: warning fix
[scilab.git] / scilab / modules / differential_equations / help / pt_BR / ode.xml
index 021898a..f446bac 100644 (file)
                     chamamento:
                 </para>
                 <para>No caso Fortran:</para>
-                <programlisting role=""><![CDATA[ 
-subroutine fex(n,t,y,ml,mu,J,nrpd) 
+                <programlisting role=""><![CDATA[
+subroutine fex(n,t,y,ml,mu,J,nrpd)
 integer n,ml,mu,nrpd
 double precision t,y(*),J(*)
  ]]></programlisting>
                 <para>No caso C:</para>
-                <programlisting role=""><![CDATA[ 
+                <programlisting role=""><![CDATA[
 void fex(int *n,double *t,double *y,int *ml,int *mu,double *J,int *nrpd,)
  ]]></programlisting>
                 <para>
@@ -358,7 +358,7 @@ void fex(int *n,double *t,double *y,int *ml,int *mu,double *J,int *nrpd,)
     </refsection>
     <refsection>
         <title>Exemplos</title>
-        <programlisting role="example"><![CDATA[ 
+        <programlisting role="example"><![CDATA[
 // ----------  EDO simples de uma dimensão (função externa do Scilab)
 // dy/dt=y^2-y sin(t)+cos(t), y(0)=0
 function ydot=f(t,y),ydot=y^2-y*sin(t)+cos(t),endfunction
@@ -373,15 +373,15 @@ ccode=['#include <math.h>'
        '  ydot[0]=y[0]*y[0]-y[0]*sin(*t)+cos(*t);'
        '}']
 mputl(ccode,TMPDIR+'/myode.c') //criando o arquivo C
-ilib_for_link('myode','myode.c',[],'c',TMPDIR+'/Makefile',TMPDIR+'/loader.sce');//compilando
+ilib_for_link('myode','myode.c',[],'c',[],TMPDIR+'/loader.sce');//compilando
 exec(TMPDIR+'/loader.sce') //linking incremental
 y0=0;t0=0;t=0:0.1:%pi;
 y=ode(y0,t0,t,'myode');
-       
+
 // ---------- Simulação de dx/dt = A x(t) + B u(t) com u(t)=sin(omega*t),
 // x0=[1;0]
 // solução x(t) desejada em t=0.1, 0.2, 0.5 ,1.
-// A e a função u são passados para a função do lado direito em uma lista. 
+// A e a função u são passados para a função do lado direito em uma lista.
 // B e omega são passados como variáveis globais
 function xdot=linear(t,x,A,u),xdot=A*x+B*u(t),endfunction
 function ut=u(t),ut=sin(omega*t),endfunction
@@ -390,22 +390,22 @@ ode([1;0],0,[0.1,0.2,0.5,1],list(linear,A,u))
 
 // ---------- Integração com notação matricial da equação diferencial de Ricatti
 // Xdot=A'*X + X*A - X'*B*X + C , X(0)=Identity
-// Solução em t=[1,2] 
-function Xdot=ric(t,X),Xdot=A'*X+X*A-X'*B*X+C,endfunction  
+// Solução em t=[1,2]
+function Xdot=ric(t,X),Xdot=A'*X+X*A-X'*B*X+C,endfunction
 A=[1,1;0,2]; B=[1,0;0,1]; C=[1,0;0,1];
 t0=0;t=0:0.1:%pi;
 X=ode(eye(A),0,t,ric)
 
 // ---------- Notação matricial, computação de exp(A)
 A=[1,1;0,2];
-function xdot=f(t,x),xdot=A*x;,endfunction 
+function xdot=f(t,x),xdot=A*x;,endfunction
 ode(eye(A),0,1,f)
 ode("adams",eye(A),0,1,f)
 
 // ---------- Notação de matriz, computação de exp(A) com matriz rígida, Jacobian fornecida
 A=[10,0;0,-1];
-function xdot=f(t,x),xdot=A*x,endfunction 
-function J=Jacobian(t,y),J=A,endfunction 
+function xdot=f(t,x),xdot=A*x,endfunction
+function J=Jacobian(t,y),J=A,endfunction
 ode("stiff",[0;1],0,1,f,Jacobian)
  ]]></programlisting>
     </refsection>