tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

begin of a new era, maybe

Browse Source
This commit is contained in:
tth
2022-03-31 22:14:11 +02:00
parent c47bcfe298
commit 595c6901c9
19 changed files with 208 additions and 274 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Fraktalism/pickover.f90
View File

@@ -33,11 +33,11 @@ program pickover
STOP " : NO ENOUGH MEMORY"
endif
coefs(1) = 2.24 ; coefs(2) = 0.43
coefs(3) = -0.65 ; coefs(4) = -2.43
coefs(1) = 2.24 ; coefs(2) = 0.43
coefs(3) = -0.65 ; coefs(4) = -2.43
call compute_pickover(points, coefs)
call list_points3d(points, 2, 42000)
call list_points3d(points, 200, 15000)
end program