From e6cee1630795b118414070d52606b7be1813a328 Mon Sep 17 00:00:00 2001
From: Thomas Albers Raviola <thomas@thomaslabs.org>
Date: Sun, 4 Aug 2024 16:12:44 +0200
Subject: 2024-08-04

---
 tmp.mac | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 tmp.mac

(limited to 'tmp.mac')

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])
-- 
cgit v1.2.3