<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/1999/REC-html401-19991224/strict.dtd"> Exported from Notepad++ /*This program calculates the energy, heat capacity, magnetization, magnetic permitivity.*/ /*Boundary condition: periodic boundary condition.*/ /*In this program, J&k are put into T. To fill it to the expressions, just consider the dimensions.*/ #include <stdio.h> #include <stdlib.h> #include <time.h> #include <math.h> #define L 32 #define NGL 100000 /*Samples Neglected*/ #define N_t 5100000 /*Total samples*/ #define N (N_t-NGL) #define T_i 0.5 #define T_f 10.5 #define Tstep 0.05 #define SIZE_T 500 /*The size of emcx in T axis. Check this before compiling!*/ #define SIZE_R 60 /*The size of emcx in R axis. Check this before compiling!*/ #define R_i -6 /*Ration of J2/J1. Initial value.*/ #define R_step 0.1 /*step*/ #define R_f 0 /*End of R*/ int sum_M; int s[L][L]; /*Size of the lattice*/ double sum_E; double T; struct Obsv { double C; double X; double M; double E; }; void Inist(); void Mag(); void Energy(double R); void MCP(double R); struct Obsv Cac_obsv(double R); int main() { int i,j; double R; struct Obsv emcx[SIZE_T][SIZE_R]; FILE *ft,*fm,*fx,*fc,*fe,*fr; fr=fopen("R.txt","w"); ft=fopen("T.txt","w"); fx=fopen("X.txt","w"); fc=fopen("C.txt","w"); fm=fopen("M.txt","w"); fe=fopen("E.txt","w"); R=R_i; srand(time(NULL)); for(j=0;R<=R_f;j++) { T=T_i; for(i=0;T<=T_f;i++) { Inist(); emcx[i][j]=Cac_obsv(R); fprintf(fr,"%f\n",R); fprintf(ft,"%f\n",T); fprintf(fx,"%f\n",emcx[i][j].X); fprintf(fc,"%f\n",emcx[i][j].C); fprintf(fm,"%f\n",emcx[i][j].M); fprintf(fe,"%f\n",emcx[i][j].E); printf("-------------\n"); printf("R=%f\n",R); printf("T=%f\n",T); printf("X=%f\n",emcx[i][j].X); printf("C=%f\n",emcx[i][j].C); printf("M=%f\n",emcx[i][j].M); printf("E=%f\n",emcx[i][j].E); T = T+Tstep; } R+=R_step; } fclose(ft); fclose(fx); fclose(fc); fclose(fm); fclose(fe); printf("The End!\n"); } void Inist() { int i,j; for(i=0;i<L;i++) { for(j=0;j<L;j++) { s[i][j]=1; } } } void MCP(double R) { int i,j; double sum,dE; i=rand()%L; j=rand()%L; sum=s[i][j]*(s[(L+i-1)%L][j]+s[(i+1)%L][j]+s[i][(j-1+L)%L]+s[i][ (j+1)%L]+R*(s[(i+1)%L][(j-1+L)%L]+s[(i-1+L)%L][(j+1)%L])); //printf("chk2.sum=%d\n",sum); //switch(sum) //{ // case 4: dE= 8; break; // case 2: dE= 4; break; // case 0: dE= 0; break; // case -2: dE= -4; break; // case -4: dE= -8; break; // default: printf("sum=%d. Attention!\n",sum); break; //} dE=2*sum; if( dE>0 ) { if(((double)rand()/RAND_MAX)<=exp((-1.0)*dE/T)) { s[i][j]=-s[i][j]; sum_M+=2*s[i][j]; sum_E+=dE; } } else { s[i][j]=-s[i][j]; sum_M+=2*s[i][j]; sum_E+=dE; } } struct Obsv Cac_obsv(double R) { int i; double E_avg=0.0; double E_as=0.0; double M_avg=0.0; double M_as=0.0; struct Obsv emcx; Mag(); Energy(R); for(i=0; i<N_t; i++) { MCP(R); if(i>=NGL) { E_avg+=(double)sum_E/N; E_as+=(double)sum_E*sum_E/N; M_avg+=(double)sum_M/N; M_as+=(double)sum_M*sum_M/N; } } emcx.E=E_avg; emcx.M=M_avg; emcx.C=(E_as - E_avg*E_avg)/T/T; emcx.X=(M_as - M_avg*M_avg)/T; return emcx; } void Mag() { int i,j; int dM_tmp=0; for(i=0;i<L;i++) { for(j=0;j<L;j++) dM_tmp+=s[i][j]; } sum_M=dM_tmp; } void Energy(double R) { double dE_tmp=0.0; int i,j; for(i=0;i<L;i++) { for(j=0;j<L;j++) { dE_tmp+=0.5*(s[i][j]*(s[(i-1+L)%L][j]+s[(i+1)%L][j]+s[i][(j-1+L)%L]+s[i][(j+1)%L])+R*s[i][j]*(s[(i+1)%L][(j-1+L)%L]+s[(i-1+L)%L][(j+1)%L])); // printf("chk1.dE_tmp=%f\n",dE_tmp); } } sum_E=dE_tmp; }