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

this crap need more work

Browse Source
This commit is contained in:
Tonton Th
2026-05-05 04:17:46 +02:00
parent 7feaa0786c
commit aca035c8be
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lissajous.f90
View File

@@ -6,10 +6,10 @@ program sinwaves
real phase real phase
call genp_init (0, 'WS/lissajous.scratch') call genp_init (0, 'WS/lissajous.scratch')
do foo=1, 22 do foo=1, 20
phase = real(foo) * 0.314159 phase = real(foo) * 0.314159
c = 3 + mod(foo, 2) c = 3 + mod(foo, 2)
call do_lissajous (2000, phase, c) call do_lissajous (400, phase, c)
enddo enddo
call genp_end (0) call genp_end (0)
@@ -25,7 +25,7 @@ subroutine do_lissajous (nbpass, phy, col)
do idx=0, nbpass do idx=0, nbpass
ridx = 6.28318 * (real(idx) / real(nbpass)) ridx = 6.28318 * (real(idx) / real(nbpass))
x = sin(ridx*7 + phy) x = sin(ridx + phy)
y = cos(ridx*3) y = cos(ridx*3)
if (idx .eq. 0) then if (idx .eq. 0) then