Pythagoras tree: Difference between revisions

Content added Content deleted

Inline

@@ Line 711: / Line 711: @@
   if. 0<m do.
     d=. x-y
-    p2=. x-0j1*d
+    p2=. y-0j1*d
-    p3=. y-0j1*d
+    p3=. x-0j1*d
     p4=. (0.5*x+y)-0j1.5*d
-    pd x,y,p3,p2
+    pd x,y,p2,p3
-    p2 (<:m) Pt p4
+    p3 (<:m) Pt p4
-    p4 (<:m) Pt p3
+    p4 (<:m) Pt p2
   end.
 }}
+Pytree=: {{
-Petri=: {{
   pd 'reset'
   pd 'type poly'
@@ Line 728: / Line 727: @@
 }}
-Petri 7</syntaxhighlight>
+Pytree 7</syntaxhighlight>
 [[File:J-pytree.png]]