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
|
part('(Ndown[a, b]), );
raise(tensor, )
args('(Ndown[a, b]));
raise(tensor, index) := sum(ug[''index, m] * ''tensor, m, 1, 2);
raise('(Ndown[a, b]), 'a);
--> sum(ug[])
:lisp (format t "~A" #$'(Ndown[a,b])$)
:lisp (mfuncall '$mnctimes $ug $ug)
:lisp (displa (mfuncall 'mnctimes $ug $ug));
:lisp #$mcs[1,1,1]$;
mcs[1,1,1]
ug . ug;
:lisp (format t "~A" #$c . d$)
'Ndown[a, b]
('Ndown[a,b])
|
