summaryrefslogtreecommitdiff
path: root/macros/MatrixOp/MATRESH.sci
diff options
context:
space:
mode:
authorSunil Shetye2018-06-07 17:48:55 +0530
committerSunil Shetye2018-06-07 17:48:55 +0530
commit75a3a91595f06a1ac7d8ccc0a1ca0b5cd9552abf (patch)
tree2b584d8b6062684bd18beab96c5de019bd9c81c9 /macros/MatrixOp/MATRESH.sci
parentf97e60278c61e42308c32047109fcb983ded8dcd (diff)
downloadsci2js-75a3a91595f06a1ac7d8ccc0a1ca0b5cd9552abf.tar.gz
sci2js-75a3a91595f06a1ac7d8ccc0a1ca0b5cd9552abf.tar.bz2
sci2js-75a3a91595f06a1ac7d8ccc0a1ca0b5cd9552abf.zip
add macros from scicos_blocks from scilab 5.5.2
Diffstat (limited to 'macros/MatrixOp/MATRESH.sci')
-rw-r--r--macros/MatrixOp/MATRESH.sci122
1 files changed, 122 insertions, 0 deletions
diff --git a/macros/MatrixOp/MATRESH.sci b/macros/MatrixOp/MATRESH.sci
new file mode 100644
index 00000000..7316cbc9
--- /dev/null
+++ b/macros/MatrixOp/MATRESH.sci
@@ -0,0 +1,122 @@
+// Scicos
+//
+// Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
+//
+// This program is free software; you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 2 of the License, or
+// (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program; if not, write to the Free Software
+// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+//
+// See the file ../license.txt
+//
+
+function [x,y,typ]=MATRESH(job,arg1,arg2)
+ //
+ x=[];
+ y=[];
+ typ=[];
+ select job
+ case "set" then
+ x=arg1
+ model=arg1.model;
+ graphics=arg1.graphics;
+ label=graphics.exprs
+ if size(label,"*")==14 then
+ label(9)=[],
+ end //compatiblity
+ while %t do
+ [ok,typ,l1,out,lab]=..
+ scicos_getvalue("Set MATRESH block parameters",..
+ ["Datatype(1=real double 2=Complex)"
+ "input size";
+ "output size desired"],..
+ list("vec",-1,"vec",-1,"vec",-1),label)
+ if ~ok then
+ break,
+ end
+ nout=size(out)
+ nin=size(l1)
+ if nout==0 then
+ message("output must have at least one element");
+ ok=%f;
+ end
+ if nin==0 then
+ message("input must have at least one element");
+ ok=%f;
+ end
+ if ok then
+ if ((out(1)>(l1(1)*l1(2)))) then
+ message("the first dimension of the output is too big");
+ ok=%f;
+ end
+ if ((out(2)>(l1(1)*l1(2)))) then
+ message("the second dimension of the output is too big");
+ ok=%f;
+ end
+ if (((out(2)*out(1))>(l1(1)*l1(2)))) then
+ message("the dimensions of the output are too big");
+ ok=%f;
+ end
+ end
+ if (typ==1) then
+ function_name="mat_reshape";
+ ot=1;
+ it=1;
+ elseif (typ==2) then
+ function_name="matz_reshape";
+ ot=2;
+ it=2;
+ else
+ message("Datatype is not supported");
+ ok=%f;
+ end
+ if ok then
+ label=lab
+ [model,graphics,ok]=set_io(model,graphics,list(l1,it),list(out,ot),[],[])
+ end
+ if ok then
+ funtyp=4;
+ model.sim=list(function_name,funtyp)
+ graphics.exprs=label
+ arg1.graphics=graphics
+ arg1.model=model
+ x=arg1
+ break
+ end
+ end
+ needcompile=resume(needcompile)
+ case "define" then
+ model=scicos_model()
+ function_name="mat_reshape";
+ funtyp=4;
+ model.sim=list(function_name,funtyp)
+ model.in=-1
+ model.in2=-2
+ model.intyp=1
+ model.out=-1
+ model.out2=-2
+ model.outtyp=1
+ model.evtin=[]
+ model.evtout=[]
+ model.state=[]
+ model.dstate=[]
+ model.rpar=[]
+ model.ipar=[]
+ model.blocktype="c"
+ model.firing=[]
+ model.dep_ut=[%t %f]
+ label=[sci2exp(1);sci2exp([1,1]);sci2exp([1,1])];
+ gr_i=[]
+ x=standard_define([3 2],model,label,gr_i)
+ end
+endfunction
+