File: mexfunction4.c

package info (click to toggle)
scilab 2.6-4
  • links: PTS
  • area: non-free
  • in suites: woody
  • size: 54,632 kB
  • ctags: 40,267
  • sloc: ansic: 267,851; fortran: 166,549; sh: 10,005; makefile: 4,119; tcl: 1,070; cpp: 233; csh: 143; asm: 135; perl: 130; java: 39
file content (20 lines) | stat: -rw-r--r-- 480 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#include "mex.h"


/*  construct a polynomial */

void mexfunction4(nlhs, plhs, nrhs, prhs)
     int nlhs, nrhs;
     Matrix *plhs[]; Matrix *prhs[];
{
    Matrix *fplhs[2]; Matrix *fprhs[2];
    int mlhs,mrhs;
    if (nrhs!=2) mexErrMsgTxt("This function requires 2 inputs!");
    if (nlhs >1) mexErrMsgTxt("This function requires 1 output!");
    mlhs=1;mrhs=2;
    fprhs[0]=prhs[0];fprhs[1]=prhs[1];
    mexCallSCILAB(mlhs,fplhs,mrhs,fprhs,"poly");
    plhs[0]=fplhs[0];
}