Bourtoulots laboratories in the place

2026-05-31 23:44:58 +02:00
parent c3f27c9843
commit 8e14ec2c8d
6 changed files with 12 additions and 12 deletions
--- a/Fraktalism/fraktals.f90
+++ b/Fraktalism/fraktals.f90
@@ -49,7 +49,7 @@ subroutine compute_pickover(array, coefs)

    xa = 1.0  ; ya = 1.0  ; za = 1.0
    do i=1, ubound(array, 1)
-      xb = sin(coefs(1)*ya) - za*cos(coefs(2)*xa)
+      xb = sin(coefs(1)*ya)    - za*cos(coefs(2)*xa)
      yb = za*sin(coefs(3)*xa) - cos(coefs(4)*ya)
      zb = sin(xa)
      array(i)%x   = xb