Pythagoras tree: Difference between revisions

Content added Content deleted

Inline

@@ Line 708: / Line 708: @@
 =={{header|J}}==
 <syntaxhighlight lang=J>require'plot'
 Pt=: {{
   if. 0<m do.
-    d=. x-y
+    d=. 0j1*y-x
-    p2=. y-0j1*d
+    p2=. y+d
-    p3=. x-0j1*d
+    p3=. x+d
-    p4=. (0.5*x+y)-0j1.5*d
+    p4=. (0.5*x+y)+1.5*d
     pd x,y,p2,p3
     p3 (<:m) Pt p4
@@ Line 719: / Line 720: @@
   end.
 }}
 Pytree=: {{