tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

a small pimping

Browse Source
This commit is contained in:
Tonton Th
2026-05-05 04:14:13 +02:00
parent cac6e89b00
commit 0e94994155
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
squarmania.f90
View File

@@ -12,7 +12,7 @@ program squarmania
write (0, '(A)') "----[ genplotting squarmania ]----" write (0, '(A)') "----[ genplotting squarmania ]----"
call genp_init (0, 'WS/squarmania.scratch') call genp_init (0, 'WS/squarmania.scratch')
call do_squarmania (35, 0.93) call do_squarmania (40, 0.934)
call genp_end (0) call genp_end (0)
contains contains
@@ -31,8 +31,8 @@ subroutine do_squarmania (nbr, k0)
do idx=1, nbr do idx=1, nbr
call genp_move(xa, ya) call genp_move(xa, ya)
call genp_draw(xb, yb, 1) ; call genp_draw(xc, yc, 2) call genp_draw(xb, yb, 1) ; call genp_draw(xc, yc, 1)
call genp_draw(xd, yd, 3) ; call genp_draw(xa, ya, 4) call genp_draw(xd, yd, 2) ; call genp_draw(xa, ya, 2)
va = k0*xa + k2*xb ; wa = k0*ya + k2*yb va = k0*xa + k2*xb ; wa = k0*ya + k2*yb
vb = k0*xb + k2*xc ; wb = k0*yb + k2*yc vb = k0*xb + k2*xc ; wb = k0*yb + k2*yc