diff options
| author | Thomas Albers Raviola <thomas@thomaslabs.org> | 2024-08-19 17:43:34 +0200 |
|---|---|---|
| committer | Thomas Albers Raviola <thomas@thomaslabs.org> | 2024-08-19 17:43:34 +0200 |
| commit | c5bd2a39b0fe072613bcbebd597a6f7d701945c1 (patch) | |
| tree | c0949f2f7f11b5558185f867cf85840fa29edfac /tmp.mac | |
| parent | e6cee1630795b118414070d52606b7be1813a328 (diff) | |
Diffstat (limited to 'tmp.mac')
| -rw-r--r-- | tmp.mac | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/tmp.mac b/tmp.mac deleted file mode 100644 index 4bd6efe..0000000 --- a/tmp.mac +++ /dev/null @@ -1,29 +0,0 @@ -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]) |