Help generation: fix the build by merging en_US to ru_RU examples 29/17829/5
Clément DAVID [Mon, 29 Feb 2016 16:50:07 +0000 (17:50 +0100)]
Change-Id: Ie03d5b59d88cdd57fad11bd0de55615aa82d7969

scilab/modules/differential_equations/help/ru_RU/dae.xml

index 181b094..52644f3 100644 (file)
         <title>Примеры</title>
         <programlisting role="example"><![CDATA[
 //Пример с кодом Scilab
-function [r,ires]=chemres(t,y,yd)
+//--------------------------------------------------
+function [r, ires] = chemres(t, y, yd)
     r(1) = -0.04*y(1) + 1d4*y(2)*y(3) - yd(1);
     r(2) =  0.04*y(1) - 1d4*y(2)*y(3) - 3d7*y(2)*y(2) - yd(2);
     r(3) =       y(1) +     y(2)      + y(3)-1;
     ires =  0;
 endfunction
 
-function pd=chemjac(x,y,yd,cj)
-    pd=[-0.04-cj , 1d4*y(3)               , 1d4*y(2);
-         0.04    ,-1d4*y(3)-2*3d7*y(2)-cj ,-1d4*y(2);
-         1       , 1                      , 1       ]
+function pd = chemjac(x, y, yd, cj)
+    pd = [-0.04-cj , 1d4*y(3)               , 1d4*y(2);
+           0.04    ,-1d4*y(3)-2*3d7*y(2)-cj ,-1d4*y(2);
+           1       , 1                      , 1       ]
 endfunction
 
-x0=[1; 0; 0];
-xd0=[-0.04; 0.04; 0];
-t=[1.d-5:0.02:.4, 0.41:.1:4, 40, 400, 4000, 40000, 4d5, 4d6, 4d7, 4d8, 4d9, 4d10];
+x0 = [1; 0; 0];
+xd0 = [-0.04; 0.04; 0];
+t = [1.d-5:0.02:.4, 0.41:.1:4, 40, 400, 4000, 40000, 4d5, 4d6, 4d7, 4d8, 4d9, 4d10];
 
-y=dae([x0,xd0],0,t,chemres);// возвращает запрошенные моменты времени наблюдения
+y = dae([x0, xd0], 0, t, chemres); // возвращает запрошенные моменты времени наблюдения
 
-%DAEOPTIONS=list([],1,[],[],[],0,0); // просит вернуть сетку точек dae
-y=dae([x0,xd0],0,4d10,chemres); // без якобиана
-y=dae([x0,xd0],0,4d10,chemres,chemjac); // с якобианом
+%DAEOPTIONS = list([], 1, [], [], [], 0, 0); // просит вернуть сетку точек dae
+y = dae([x0, xd0], 0, 4d10, chemres); // без якобиана
+y = dae([x0, xd0], 0, 4d10, chemres, chemjac); // с якобианом
  ]]></programlisting>
         <programlisting role="example"><![CDATA[
 //пример с кодом C (необходим C-компилятор)
 //--------------------------------------------------
-bOK=haveacompiler();
-if bOK<>%t
+bOK = haveacompiler();
+if bOK <> %t
     [btn] = messagebox(["Для этого примера Вам необходим C-компилятор.";"Выполнение этого примера отменено."], "Проблема с программным обеспечением", 'info');
     return
 end
 
 //-1- создать C-код в TMPDIR - Уравнение Вандерпола, неявная форма
-code=['#include <math.h>'
-      'void res22(double *t,double *y,double *yd,double *res,int *ires,double *rpar,int *ipar)'
+code = ['#include <math.h>'
+      'void res22(double *t, double *y, double *yd, double *res, int *ires, double *rpar, int *ipar)'
       '{res[0] = yd[0] - y[1];'
       ' res[1] = yd[1] - (100.0*(1.0 - y[0]*y[0])*y[1] - y[0]);}'
       ' '
-      'void jac22(double *t,double *y,double *yd,double *pd,double *cj,double *rpar,int *ipar)'
-      '{pd[0]=*cj - 0.0;'
-      ' pd[1]=    - (-200.0*y[0]*y[1] - 1.0);'
-      ' pd[2]=    - 1.0;'
-      ' pd[3]=*cj - (100.0*(1.0 - y[0]*y[0]));}'
+      'void jac22(double *t, double *y, double *yd, double *pd, double *cj, double *rpar, int *ipar)'
+      '{pd[0] = *cj - 0.0;'
+      ' pd[1] =     - (-200.0*y[0]*y[1] - 1.0);'
+      ' pd[2] =     - 1.0;'
+      ' pd[3] = *cj - (100.0*(1.0 - y[0]*y[0]));}'
       ' '
       'void gr22(int *neq, double *t, double *y, int *ng, double *groot, double *rpar, int *ipar)'
       '{ groot[0] = y[0];}']
@@ -528,40 +529,34 @@ cd TMPDIR;
 mputl(code, 't22.c')
 
 //-2- скомпилировать и загрузить его
-ilib_for_link(['res22' 'jac22' 'gr22'],'t22.c',[],'c',[],'t22loader.sce');
+ilib_for_link(['res22' 'jac22' 'gr22'], 't22.c', [], 'c', [], 't22loader.sce');
 exec('t22loader.sce')
 
 //-3- запустить
-rtol=[1.d-6;1.d-6];
-atol=[1.d-6;1.d-4];
-t0=0;y0=[2;0];
-y0d=[0;-2];
-t=[20:20:200];
-ng=1;
+rtol = [1.d-6; 1.d-6];
+atol = [1.d-6; 1.d-4];
+t0 = 0; t = [20:20:200];
+y0 = [2; 0]; y0d = [0; -2];
+ng = 1;
 
 //простое моделирование
-t=0:0.003:300;
-yy=dae([y0,y0d],t0,t,atol,rtol,'res22','jac22');
-clf();plot(yy(1,:),yy(2,:))
-
-// найти первую точку, где yy(1)=0
-[yy,nn,hotd]=dae("root",[y0,y0d],t0,300,atol,rtol,'res22','jac22',ng,'gr22');
-plot(yy(1,1),yy(2,1),'r+')
-xstring(yy(1,1)+0.1,yy(2,1),string(nn(1)))
-t=0:0.003:300;
-yy=dae([y0,y0d],t0,t,atol,rtol,'res22','jac22');
-clf();plot(yy(1,:),yy(2,:))
+t = 0:0.003:300;
+yy = dae([y0, y0d], t0, t, atol, rtol, 'res22', 'jac22');
+clf(); plot(yy(1, :), yy(2, :))
+// Найти первую точку, где yy(1) = 0
+[yy, nn, hotd] = dae("root", [y0, y0d], t0, 300, atol, rtol, 'res22', 'jac22', ng, 'gr22');
+plot(yy(1, 1), yy(2, 1), 'r+')
+xstring(yy(1, 1)+0.1, yy(2, 1), string(nn(1)));
 
 // горячий перезапуск для следующей точки
-t01=nn(1);
-[pp,qq]=size(yy);
-y01=yy(2:3,qq);
-y0d1=yy(3:4,qq);
-[yy,nn,hotd]=dae("root",[y01,y0d1],t01,300,atol,rtol,'res22','jac22',ng,'gr22',hotd);
-plot(yy(1,1),yy(2,1),'r+')
-xstring(yy(1,1)+0.1,yy(2,1),string(nn(1)))
+t01 = nn(1);
+[pp, qq] = size(yy);
+y01 = yy(2:3, qq); y0d1 = yy(3:4, qq);
+[yy, nn, hotd] = dae("root", [y01, y0d1], t01, 300, atol, rtol, 'res22', 'jac22', ng, 'gr22', hotd);
+plot(yy(1, 1), yy(2, 1), 'r+')
+xstring(yy(1, 1)+0.1, yy(2, 1), string(nn(1)));
 cd(previous_dir);
-]]></programlisting>
+ ]]></programlisting>
         <scilab:image localized="false"><![CDATA[
 code = ['#include <math.h>'
       'void res22(double *t, double *y, double *yd, double *res, int *ires, double *rpar, int *ipar)'