Pedhmendes: Criou página com ' /***************************************************************************** * Potts Model 2D...'

2021-05-16T21:40:19Z

Criou página com '<source lang = "c"> /***************************************************************************** * Potts Model 2D...'

Página nova

<source lang = "c">
/*****************************************************************************
* Potts Model 2D *
* Heat Bath *
****************************************************************************/

/*****************************************************************************
* INCLUDES *
****************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>
#include <string.h>
#include "mc.h"

/*****************************************************************************
* DEFINITIONS *
****************************************************************************/
#define L 100
#define L2 (L*L)
#define J 1.
#define KB 1.
#define TRAN 1//100000
#define TMAX 100000

/*****************************************************************************
* GLOBAL VARIABLES *
****************************************************************************/
int M, ET;

/*****************************************************************************
* FUNCTIONS *
****************************************************************************/
void initialize(int *spin, int **neigh, int **kronecker, int _Q);
void sweep(int *spin, int **neigh, int **kronecker, int _Q, double _TEMP);
void states(int *spin, int **neigh, int **kronecker, int _Q);
void visualize(int *spin);

/*****************************************************************************
* MAIN PROGRAM *
****************************************************************************/
int main(int argc, char *argv[])
{
int *spin, **neigh, **kronecker;
int i, mcs;
int Q;
double TEMP;

Q = atoi(argv[1]);
TEMP = atof(argv[2]);

spin = (int*)malloc(L2*sizeof(int));
neigh = (int**)malloc(L2*sizeof(int*));
kronecker = (int**)malloc(Q*sizeof(int*));

for(i=0; i<L2; i++)
{
neigh[i] = (int*)malloc(4*sizeof(int));
}

for(i=0; i<Q; i++)
{
kronecker[i] = (int*)malloc(Q*sizeof(int));
}

seed = start_randomic();

initialize(spin, neigh, kronecker, Q);
states(spin, neigh, kronecker, Q);

for(mcs=0; mcs<TRAN; mcs++)
{
sweep(spin, neigh, kronecker, Q, TEMP);
states(spin, neigh, kronecker, Q);
}

char Arq[100];
FILE *arq;
sprintf(Arq, "hb_Q%dL%dT%.3lf.dsf", Q, L, TEMP);
arq = fopen(Arq, "w");
fprintf(arq, "#SEED: %ld\n#MCS\tM\tET\n", seed);

for(mcs=0; mcs<TMAX; mcs++)
{
sweep(spin, neigh, kronecker, Q, TEMP);
states(spin, neigh, kronecker, Q);
#ifdef VIEW
if(mcs % 10 == 0)
{
printf("set title 'T = %d MCS'\n", mcs);
visualize(spin);
}
#endif
fprintf(arq, "%d\t%d\t%d\n", mcs, M, ET);

}

fclose(arq);

return 0;
}

/*****************************************************************************
* INITIALIZATION *
****************************************************************************/
void initialize(int *spin, int **neigh, int **kronecker, int _Q)
{
int i, j;

for(i=0; i<L2; i++)
{
spin[i]=FRANDOM*_Q;
}

for(i=0; i<L2; i++)
{
neigh[i][0] = (i-L+L2)%L2;
neigh[i][1] = (i+1)%L + (i/L)*L;
neigh[i][2] = (i+L)%L2;
neigh[i][3] = (i-1+L)%L + (i/L)*L;
}

for(i=0; i<_Q; i++)
{
for(j=0; j<_Q; j++)
{
if(i==j)
{
kronecker[i][j] = 1;
}
else
{
kronecker[i][j] = 0;
}
}
}

return;
}
/*****************************************************************************
* MONTE CARLO ROUTINE *
****************************************************************************/
void sweep(int *spin, int **neigh, int **kronecker, int _Q, double _TEMP)
{
int i, j, k;

for (i=0; i<L2; i++)
{
int site = FRANDOM*L2;
int E1 = 0, E2 = 0, E3 = 0;
int new_state = FRANDOM*_Q;

for(j=0; j<_Q; j++)
{
E1 = 0;

for(k=0; k<4; k++)
{
E1-=J*kronecker[j][spin[neigh[site][k]]];
}

E2 += exp(-E1/(KB*_TEMP));
}

for(k=0; k<4; k++)
{
E3-=J*kronecker[new_state][spin[neigh[site][k]]];
}
double r = FRANDOM;
double ALPHA = exp(-E3/(KB*_TEMP))/E2;

if(r<=ALPHA)
{
spin[site] = new_state;
}

}

return;
}
/*****************************************************************************
* STATES *
****************************************************************************/
void states(int *spin, int **neigh, int **kronecker, int _Q)
{
int i, j;

ET=0;
M=0;

if(_Q!=2)
{
for (i=0; i<L2; i++)
{
for(j=0; j<4; j++)
{
ET-=J*kronecker[spin[i]][spin[neigh[i][j]]];
}

M += spin[i];
}
}

else
{
for(i=0; i<L2; i++)
{
for(j=0; j<4; j++)
{
ET-=J*kronecker[spin[i]][spin[neigh[i][j]]];
}

if(spin[i]==0)
{
M -= 1;
}
if(spin[i]==1)
{
M += 1;
}
}
}

return;
}
/*****************************************************************************
* GNUPLOT VISUALIZATION *
****************************************************************************/
void visualize(int *spin)
{
int i;
printf("unset xtics\nunset ytics\n");
printf("set size square\n");
printf("set xrange [0:%d]\nset yrange [0:%d]\n",L-1,L-1);
printf("pl '-' matrix w image\n");
for(i=L2-1; i>=0; i--)
{
printf("%d ", spin[i]);
if(i%L == 0)
{
printf("\n");
}
}

printf("e\n\n");
}

</source>

Potts Banho Térmico - Histórico de revisão

Pedhmendes: Criou página com ' /***************************************************************************** * Potts Model 2D...'