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

dernier commit avant le Gers

Browse Source
This commit is contained in:
tTh
2024-03-11 02:20:47 +01:00
parent c5b0e17bbb
commit 0818f87582
9 changed files with 99 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
code/fortran/dessiner.f90
View File

@@ -6,10 +6,10 @@ program dessiner
character(len=80) :: version
call plgver(version)
write (*,'(a,a)') 'plPlot version: ', trim(version)
write (*,'(" ",a,a)') 'plPlot version: ', trim(version)
! call dessin_X11 (0.00, 1.51, 11)
call dessin_dans_un_fichier ()
call dessin_X11 (0.12, 1.51, 11)
!! call dessin_dans_un_fichier ()
contains ! -----------------------------
!------------------------------------------------------
@@ -33,13 +33,13 @@ subroutine dessin_X11 (sha, shb, color)
call plsdev('xwin')
call plinit ()
call plenv (-2.1, 2.1, -2.1, 2.1, 1, 2)
call plenv (-2.5, 2.5, -2.5, 2.5, 1, 2)
amp = 2.16
amp = 2.06
do i = 1, lg
k = real(i)/real(lg) * 6.2832 * 4.0
x(i) = amp * sin((k+sha)*5)
y(i) = amp * cos((k+shb)*3)
k = real(i)/real(lg) * 6.2832 * 2.0
x(i) = amp * sin((k+sha))
y(i) = amp * cos((k+shb))
enddo
! print *, k, x(i), y(i)