Optimization: fix empty matrix addition
[scilab.git] / scilab / modules / graphics / macros / fplot2d.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // Copyright (C) 2012 - 2016 - Scilab Enterprises
4 //
5 // This file is hereby licensed under the terms of the GNU GPL v2.0,
6 // pursuant to article 5.3.4 of the CeCILL v.2.1.
7 // This file was originally licensed under the terms of the CeCILL v2.1,
8 // and continues to be available under such terms.
9 // For more information, see the COPYING file which you should have received
10 // along with this program.
11
12 function []=fplot2d(xr,f,style,strf,leg,rect,nax,void)
13     // 2D plot of function f : a Scilab function or the name (as a string)
14     //  of a dynamically linked function.
15     // Enter fplot2d() for an example.
16     // deff('<y>=f(x)','y=sin(x)+cos(x)');
17     // fplot2d(f,0:0.1:%pi);
18     //!
19
20     [lhs,rhs]=argn(0)
21     if rhs <= 0 then   // demo
22         deff("[y]=f(x)","y=sin(x)+cos(x)");
23         fplot2d(0:0.1:%pi,f);
24         return
25     end
26
27     if type(xr)=="10" then // logflag passed first
28         error(msprintf(gettext("%s: Wrong size for input argument #%d: A vector expected.\n"), "fplot2d", 1));
29     elseif rhs < 2 then
30         error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "fplot2d", 2));
31     end
32     //handling optional arguments
33
34     opts=[]
35
36     if exists("style","local")==1 then opts=[opts,"style=style"],end
37     if exists("strf","local")==1 then opts=[opts,"strf=strf"],end
38     if exists("leg","local")==1 then opts=[opts,"leg=leg"],end
39     if exists("rect","local")==1 then opts=[opts,"rect=rect"],end
40     if exists("nax","local")==1 then opts=[opts,"nax=nax"],end
41     if exists("logflag","local")==1 then opts=[opts,"logflag=logflag"],end
42     if exists("frameflag","local")==1 then opts=[opts,"frameflag=frameflag"],end
43     if exists("axesflag","local")==1 then opts=[opts,"axesflag=axesflag"],end
44     if size(opts,2)<rhs-2 then
45         error(msprintf(gettext("%s: Wrong value for input argument: ''%s'', ''%s'', ''%s'', ''%s'', ''%s'', ''%s'', ''%s'' or ''%s'' expected.\n"),"fplot2d","style","strf","leg","rect","nax","logflag","frameflag","axesflag"));
46     end
47
48     if isempty(opts) then
49         plot2d(xr,feval(xr,f))
50     else
51         execstr("plot2d(xr,feval(xr,f),"+strcat(opts,",")+")")
52     end
53
54 endfunction