Salut,
je voudrais bien générer des positions aléatoires à l aide d la subroutine Random number ,mais je voudrais aussi imposer une distance minimale qui sépare n importe quels deux points de mon maillage ,quelq'un peut m aider sur ce problème ,voilà ce que j ai bien réussi à faire ,merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
30      do   m=1,3
			    call random_number(x)
		        call random_number(y)
          10     do   i=1,n*n
          20     do   j=1,n*n
			    dx=x(j)-x(i)
	            dy=y(j)-y(i)
			    rad=sqrt(dx**2+dy**2)
				write(300,*) i,j,rad
		        enddo
				if(rad<dd) then  ! dd est la distance minimale que j ai imposée 
				!write(*,*) rad
				go to 10
				else
				go to 30
				!write(*,*) x(i),y(j) 
 
				endif
				!write(*,*) rad
			    enddo
		        enddo