1
function [x,y,typ]=INTRPLBLK_f(job,arg1,arg2)
8
[x,y,typ]=standard_inputs(arg1)
10
[x,y,typ]=standard_outputs(arg1)
12
[x,y]=standard_origin(arg1)
15
graphics=arg1.graphics;exprs=graphics.exprs
18
[ok,a,b,exprs]=getvalue('Set Interpolation block parameters',..
19
['X coord.';'Y coord.'],list('vec',-1,'vec',-1),exprs)
21
if size(a,'*') <> size(b,'*') then
22
message('X and Y must have the same size')
23
elseif min(a(2:$)-a(1:$-1)) <=0 then
24
message('X must be strictly increasing')
28
model.rpar=[a(:);b(:)]
29
x.graphics=graphics;x.model=model
44
exprs=[strcat(sci2exp(a));strcat(sci2exp(b))]
45
gr_i=['xstringb(orig(1),orig(2),''interp'',sz(1),sz(2),''fill'');']
46
x=standard_define([2 2],model,exprs,gr_i)