The first argument a is a Maple formula, or a list of equations (which is understood to be a sequence of assignments), a named array of formulae, or an Array of formulae. The second argument x is a symbol or a list of symbols. The makeproc command returns a Maple procedure which evaluates a(x).  The symbols in x may include types.

The optional arguments $\mathrm{parameters}=P$, $\mathrm{locals}=L$, and $\mathrm{globals}=G$ specify whether symbols are to be parameters, local variables, or global variables respectively.  P, L, G must be lists of symbols, or symbols with types.

$\mathrm{with}\left(\mathrm{codegen}\,\mathrm{makeproc}\right)\:$

$f≔x\exp \left(-t\right)-yx\exp \left(-t\right)$

$f≔x{\ⅇ}^{-t}-yx{\ⅇ}^{-t}$

makeproc(f,[x,y,t]);

$\mathbf{proc}\left(x\,y\,t\right)x\*\exp \left(\−t\right)-y\*x\*\exp \left(\−t\right)\mathbf{end\; proc}$

makeproc(f,[x,y]);

$\mathbf{proc}\left(x\,y\right)x\*\exp \left(\−t\right)-y\*x\*\exp \left(\−t\right)\mathbf{end\; proc}$

$a≔\mathrm{series}\left(\frac{1}{1-x^2}\,x\,10\right)$

$a≔1+x^2+x^4+x^6+x^8+O\left(x^{10}\right)$

makeproc(a,x::numeric);

$\mathbf{proc}\left(x::\mathrm{numeric}\right)1\+\left(1\+\left(1\+\left(x\^2\+1\right)\*x\^2\right)\*x\^2\right)\*x\^2\mathbf{end\; proc}$

$A≔\mathrm{array}\left(\left[3x\,x^3\,x{y}^2\,-x^{2}y\right]\right)$

$A≔\left[\begin{array}{cccc}3x& x^3& x{y}^2& -x^{2}y\end{array}\right]$

makeproc(A,[x,y]);

$\mathbf{proc}\left(x\,y\right)\mathbf{local}A\;A≔\mathrm{array}\left(1..4\right)\;A\[1\]≔3\*x\;A\[2\]≔x\^3\;A\[3\]≔x\*y\^2\;A\[4\]≔\−x\^2\*y\;A\mathbf{end\; proc}$

makeproc(A,[x,y,A]);

$\mathbf{proc}\left(x\,y\,A::\left(\mathrm{array}\left(1..4\right)\right)\right)A\[1\]≔3\*x\;A\[2\]≔x\^3\;A\[3\]≔x\*y\^2\;A\[4\]≔\−x\^2\*y\;\mathbf{return}\mathbf{end\; proc}$

$\mathrm{CS}≔\left[s=\sin \left(x\right)\,c=\cos \left(x\right)\,Y-sx-cx-s^{2}x+c^{2}x\right]\:$

makeproc(CS,x);

$\mathbf{proc}\left(x\right)\mathbf{local}c\,s\;s≔\sin \left(x\right)\;c≔\cos \left(x\right)\;c\^2\*x-s\^2\*x-c\*x-s\*x\+Y\mathbf{end\; proc}$

makeproc(CS,parameters=[x::numeric],locals=[s,c],globals=[Y]);

$\mathbf{proc}\left(x::\mathrm{numeric}\right)\mathbf{local}s\,c\;\mathbf{global}Y\;s≔\sin \left(x\right)\;c≔\cos \left(x\right)\;c\^2\*x-s\^2\*x-c\*x-s\*x\+Y\mathbf{end\; proc}$