scilab/modules/integer/macros/%i_p_s.sci

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) INRIA -
   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
  11 function r=%i_p_s(a,n)
  12     if or(int(n)<>n)|or(n<0) then
  13         r=double(a)^n
  14     else
  15         if size(a,'*')==1 then
  16             r=iconvert(double(a)^n,inttype(a))
  17         else
  18             if size(n,'*')<>1 then
  19                 error(43)
  20             else
  21                 r=a
  22                 if size(a,1)==size(a,2) then
  23                     for i=2:n,r=r*a,end
  24                 else
  25                     mprintf(gettext("Warning: Syntax \""vector ^ scalar\"" is obsolete. It will be removed in Scilab 6.0.\n  Use \""vector .^ scalar\"" instead.\n"));
  26                     for i=2:n,r=r.*a,end
  27                 end
  28             end
  29         end
  30     end
  31 endfunction