diff options
Diffstat (limited to 'js/Sources/CURVE_c.js')
| -rw-r--r-- | js/Sources/CURVE_c.js | 170 |
1 files changed, 157 insertions, 13 deletions
diff --git a/js/Sources/CURVE_c.js b/js/Sources/CURVE_c.js index 6a38555c..6d4a4cc3 100644 --- a/js/Sources/CURVE_c.js +++ b/js/Sources/CURVE_c.js @@ -1,14 +1,158 @@ -Syntax error in input LexToken(DOT,'.',1,11244) -Syntax error in input LexToken(VAR,'a',1,25132) -Syntax error in input LexToken(VAR,'a',1,26313) -Syntax error in input LexToken(VAR,'a',1,27400) -Syntax error in input LexToken(CLOSEBRACKET,')',1,28162) -Syntax error in input LexToken(VAR,'xye',1,32329) -Syntax error in input LexToken(VAR,'a',1,33109) -Syntax error in input LexToken(VAR,'order',1,33486) -Syntax error in input LexToken(CLOSEBRACKET,')',1,33946) -Syntax error in input LexToken(VAR,'xye',1,35193) -Syntax error in input LexToken(VAR,'N',1,36068) -Syntax error in input LexToken(VAR,'x',1,38964) /* autogenerated from "macros/Sources/CURVE_c.sci" */ -None +function CURVE_c() { + CURVE_c.prototype.define = function CURVE_c() { + this.model = scicos_model(); + this.xx = [0,1,2]; + this.yy = [10,20,-30]; + N = 3; + this.Method = 3; + this.PeriodicOption = "y"; + Graf = "n"; + this.model.sim = list(new ScilabString(["curve_c"]), new ScilabDouble([4])); + this.model.in1 = []; + this.model.out = new ScilabDouble([1]); + this.model.rpar = [[this.xx.slice()],[this.yy.slice()]]; + this.model.ipar = [[N],[this.Method],[1]]; + this.model.blocktype = new ScilabString(["c"]); + this.model.dep_ut = [false,true]; + this.model.evtin = new ScilabDouble([1]); + this.model.evtout = new ScilabDouble([1]); + this.model.firing = new ScilabDouble([0]); + exprs = [[sci2exp(this.Method)],[sci2exp(this.xx)],[sci2exp(this.yy)],[this.PeriodicOption],[Graf]]; + gr_i = []; + this.x = standard_define([2,2],this.model,exprs,gr_i); + return new BasicBlock(this.x); + } + CURVE_c.prototype.details = function CURVE_c() { + return this.x; + } + CURVE_c.prototype.get = function CURVE_c() { + var options = { + Method:["Spline Method (0..7)",this.Method], + xx:["x",this.xx], + yy:["y",this.yy], + PeriodicOption:["Periodic signal(y/n)?",this.PeriodicOption], + graf:["Launch graphic window(y/n)?",this.graf], + } + return options; + } + CURVE_c.prototype.set = function CURVE_c() { + this.Method = parseFloat(arguments[0]["Method"]) + this.xx = inverse(arguments[0]["xx"]) + this.yy = inverse(arguments[0]["yy"]) + this.PeriodicOption = arguments[0]["PeriodicOption"] + this.graf = arguments[0]["graf"] + this.x = arg1; + this.model = arg1.model; + graphics = arg1.graphics; + exprs = graphics.exprs; + ok = false; + SaveExit = false; + while (true) { + Ask_again = false; + [ok,this.Method,this.xx,this.yy,this.PeriodicOption,this.graf,exprs] = scicos_getvalue("Spline data",["Spline Method (0..7)","x","y","Periodic signal(y/n)?","Launch graphic window(y/n)?"],list("vec",1,"vec",-1,"vec",-1,"str",1,"str",1),exprs); + if (!ok) { + break; + } + if (this.PeriodicOption=="y"||this.PeriodicOption=="Y") { + PO = 1; + } else { + exprs[4-1] = "n"; + PO = 0; + } + mtd = int(this.Method); + if (mtd<0) { + mtd = 0; + } + if (mtd>7) { + mtd = 7; + } + METHOD = getmethod(mtd); + if (!Ask_again) { + this.xx = this.xx.slice(); + this.yy = this.yy.slice(); + [nx,mx] = size(this.xx); + [ny,my] = size(this.yy); + if (!((nx==ny)&&(mx==my))) { + messagebox("Incompatible size of [x] and [y]","modal","error"); + Ask_again = true; + } + } + if (!Ask_again) { + this.xy = [this.xx,this.yy]; + [this.xy] = cleandata(this.xy); + N = size(this.xy,"r"); + exprs[5-1] = "n"; + if (this.graf=="y"||this.graf=="Y") { + ipar = [[N],[mtd],[PO]]; + rpar = []; + if ((winsid()==[])) { + this.curwin = 0; + } else { + this.curwin = max(winsid())+1; + } + [orpar,oipar,ok] = poke_point(this.xy,ipar,rpar); + if (!ok) { + break; + } + N2 = oipar[1-1]; + xy2 = [orpar.slice(1-1,N2),orpar.slice(N2+1-1,2*N2)]; + New_methhod = oipar[2-1]; + DChange = false; + METHOD = getmethod(New_methhod); + if (or(this.xy.slice()[1-1]!=xy2.slice()[1-1])) { + DChange = true; + } + if (or(this.xy.slice(1-1,N-1)[2-1]!=xy2.slice(1-1,N2-1)[2-1])) { + DChange = true; + } + if ((this.xy[N-1][2-1]!=xy2[N2-1][2-1]&&(METHOD!="periodic"))) { + DChange = true; + } + if (DChange) { + exprs[2-1] = strcat(sci2exp(xy2.slice()[1-1])); + exprs[3-1] = strcat(sci2exp(xy2.slice()[2-1])); + } + exprs[1-1] = sci2exp(New_methhod); + if (oipar[3-1]==1) { + perop = "y"; + } else { + perop = "n"; + } + exprs[4-1] = perop; + SaveExit = true; + } else { + [Xdummy,Ydummy,orpar] = Do_Spline(N,mtd,this.xy.slice()[1-1],this.xy.slice()[2-1]); + if ((METHOD=="periodic")) { + this.xy[N-1][2-1] = this.xy[1-1][2-1]; + } + if ((METHOD=="order 2"||METHOD=="not_a_knot"||METHOD=="periodic"||METHOD=="monotone"||METHOD=="fast"||METHOD=="clamped")) { + orpar = [[this.xy.slice()[1-1]],[this.xy.slice()[2-1]],[orpar]]; + } else { + if ((METHOD=="zero order"||METHOD=="linear")) { + orpar = [[this.xy.slice()[1-1]],[this.xy.slice()[2-1]]]; + } + } + exprs[1-1] = sci2exp(mtd); + oipar = [[N],[mtd],[PO]]; + SaveExit = true; + } + } + if ((SaveExit)) { + xp = find(orpar.slice(1-1,oipar[1-1])>=0); + if ((xp!=[])) { + this.model.firing = new ScilabDouble([orpar[xp[1-1]-1]]); + } else { + this.model.firing = new ScilabDouble([-1]); + } + this.model.rpar = orpar; + this.model.ipar = oipar; + graphics.exprs = exprs; + this.x.model = this.model; + this.x.graphics = graphics; + break; + } + } + return new BasicBlock(this.x); + } +} |