blob: 0a3158cc3ba0520203d018d54cc48589a559abd6 (
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
|
// 10.04.01
function Putrowexpr(varargin)
Nargs=length(varargin);
TbL=varargin(1);
if type(TbL)~=15
disp('Tabledata missing')
return;
end;
Row=varargin(2);
Nr=length(TbL(2))+1;
K=1;
Dpos=varargin(3);
for I=4:Nargs
if I-3>Nr
break;
end;
Dt=varargin(I);
if type(Dt)~=15
Dt='$'+Dt+'$';
Putcell(TbL,K,Row,Dpos,Dt);
K=K+1;
else
N=length(Dt);
Str='$'+Dt(N)+'$';
Crng=[K,K+1];
Pos=Dpos;
for J=1:(N-1)
Tmp=Dt(J);
if type(Tmp)==1
Crng=[K,K+Tmp];
end;
if type(Tmp)==10
Pos=Tmp;
end;
end;
Putcell(TbL,Crng,Row,Pos,Str)
K=Crng(2);
end;
end;
endfunction;
|