diff options
Diffstat (limited to 'tmp.mac')
-rw-r--r-- | tmp.mac | 29 |
1 files changed, 29 insertions, 0 deletions
@@ -0,0 +1,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]) |