summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.sci
blob: 9b67e3664244375a12d3ce888348848182f8e05c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
// 09.09.25
// 09.11.21
// 09.11.26

function Out=Embed(varargin)
  Nargs=length(varargin);
  Pd3=varargin(1);
  if Mixtype(Pd3)==1
    Pd3=list(Pd3);
  elseif Mixtype(Pd3)==3
    Tmp=list();
    for I=1:length(Pd3)
      Tmp=Mixjoin(Tmp,Pd3(I));
    end;
    Pd3=Tmp;
  end;
  Tmpf=varargin(2);
  if type(Tmpf)==10
    Tmp=varargin(3);
    Tmp1=strsubst(Tmp,'[','(');
    Vstr=strsubst(Tmp1,']',')');
    deff('Z=Tmpfn'+Vstr,'Z='+Tmpf);
  else
    Tmpfn=Tmpf;
  end;
  Out=list();
  for I=1:length(Pd3)
     PD=Pd3(I);
     Ans=[];
     for J=1:size(PD,1)
       P=PD(J,:);
       Tmp=Tmpfn(P(1),P(2));
       Ans=[Ans;Tmp];
     end;
     Out($+1)=Ans;
   end;
   if length(Out)==1
     Out=Out(1);
   end;
endfunction;