diff options
author | Sunil Shetye | 2018-06-07 17:48:55 +0530 |
---|---|---|
committer | Sunil Shetye | 2018-06-07 17:48:55 +0530 |
commit | 75a3a91595f06a1ac7d8ccc0a1ca0b5cd9552abf (patch) | |
tree | 2b584d8b6062684bd18beab96c5de019bd9c81c9 /macros/MatrixOp/MATRESH.sci | |
parent | f97e60278c61e42308c32047109fcb983ded8dcd (diff) | |
download | sci2js-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.sci | 122 |
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 + |