1
function [x,y,typ]=LOOKUP_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
16
model=arg1.model;rpar=model.rpar;
18
xx=rpar(1:n);yy=rpar(n+1:2*n)
20
old_win=xget('window')
22
xset('window',win);xsetech([0 0 1 1])
23
[xx,yy,ok]=edit_curv(xx,yy,'axy')
25
xset('window',old_win)
28
if or(xx(2:n)-xx(1:n-1)<=0) then
29
message('You have not defined a function')
33
model.rpar=[xx(:);yy(:)]
34
x.graphics=graphics;x.model=model
43
model.rpar=[-2;-1;1;2;-1;1;-1;1]
47
gr_i=['rpar=model.rpar;n=size(rpar,''*'')/2;';
48
'thick=xget(''thickness'');xset(''thickness'',2);';
49
'xx=rpar(1:n);yy=rpar(n+1:2*n);';
50
'mnx=mini(xx);xx=xx-mnx*ones(xx);mxx=maxi(xx);';
51
'xx=orig(1)+sz(1)*(1/10+(4/5)*xx/mxx);';
52
'mnx=mini(yy);yy=yy-mnx*ones(yy);mxx=maxi(yy);';
53
'yy=orig(2)+sz(2)*(1/10+(4/5)*yy/mxx);';
54
'xpoly(xx,yy,''lines'');';
55
'xset(''thickness'',thick);']
56
x=standard_define([2 2],model,[],gr_i)