SOLUTIONS DES EXERCICES
1.5 ~ - - - - - - - - - - - - - - - - ~
/
/
o.5
- - - Mean Field
- - Monte Carlo
' ' ' ' ' ' ' ' ' ' \
\
\
\
\
\
\
\
I
I
I
I
I
o ~ - - - - - - - - - - - - - - - - ~
0
0.2
0.4
0.6
0.8
TIT,
FIGURE 7.8. Lieu des points {b, t) ou m,rag = 0. Mean field est la traduction
anglaise de champ moyen et Monte Carlo le resultat d'un calcul qui utilise
une methode statistique permettant d'approcher tres precisement le resultat
exact.
c
Calcul de ml et m2 en champ moyen
implicit none
real x,xp,y,yp,beta,q,J,T,dT,Tmax,Tmin,B,e,f
integer i,itm
write(*,*) 'x©,y©,B'
read(''','°') x,y,B
J=l.
q=6.
dT=©.©1
Tmax=7.
Tmin=©.©5
itm=l©©©©
15
format(lH#,SH Jq=,f7.3,4H B=,£7.3)
write(l©,15) J*q,B
write(l©,'(lH#,A)') '
T
m/N
& i'
do T=Tmin,Tmax,dT
beta=l. /T
do i=l,itm
mstag/N
247
E/N
F/N