DibyashanuPati/PhysLean
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: Add action node

Browse source
This commit is contained in:
jstoobysmith 2024-10-29 12:32:33 +00:00
parent f7499f8d86
commit 202df13a17
5 changed files with 175 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
HepLean/Tensors/Tree/Dot.lean
View file

@ -47,6 +47,10 @@ def dotString (m : ℕ) (nt : ℕ) : ∀ {n : ℕ} {c : Fin n → S.C}, TensorTr
let evalNode := " node" ++ toString m ++ " [label=\"eval\", shape=box];\n"
let edge1 := " node" ++ toString m ++ " -> node" ++ toString (m + 1) ++ ";\n"
evalNode ++ dotString (m + 1) nt t1 ++ edge1
| action g t =>
let actionNode := " node" ++ toString m ++ " [label=\"action\", shape=box];\n"
let edge1 := " node" ++ toString m ++ " -> node" ++ toString (m + 1) ++ ";\n"
actionNode ++ dotString (m + 1) nt t ++ edge1
| contr i j _ t1 =>
let contrNode := " node" ++ toString m ++ " [label=\"contr " ++ toString i ++ " "
++ toString j ++ "\", shape=box];\n"