2024-08-04

1 files changed, 29 insertions, 0 deletions

diff --git a/tmp.mac b/tmp.mac
new file mode 100644
index 0000000..4bd6efe
--- /dev/null
+++ b/tmp.mac
@@ -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])