loooph
/
cm-dfs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add p and k variants with offset

master
loooph 2023-03-01 04:23:43 +01:00
parent d93f2b9c64
commit 43d12171d0
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dfs.tidal
View File

@ -73,11 +73,13 @@ instrument g e = case edgeType g e of
L -> "sn" L -> "sn"
NE -> " " -- let super collider deal with it NE -> " " -- let super collider deal with it
-- complete graph -- complete graph
k n = buildG (1,n) [(u,v)|u <- [1..n],v <- [1..n]] k n = k' n 0
-- complete graph with offset to all nodes
k' n o = buildG (1+o,n+o) [(u,v)|u <- [1..n],v <- [1+o..n+o]]
-- path -- path
p n = buildG (1,n) [(u,u+1)|u <- [1..n-1]] p n = p' n 0
-- reversed path TODO function to reverse all edges for arbitary graphs -- path with offset to all nodes
p' n = buildG (1,n) [(u+1,u)|u <- [1..n-1]] p' n o = buildG (1 + o, n + o) [(u,u + 1)|u <- [1+o..n-1+o]]
-- TODO Tiefe -- TODO Tiefe
-- TODO Wurzel betonen -- TODO Wurzel betonen