puts("-s <value> \t spin interaction strength");
puts("-r \t run in interactive mode (still in work)");
puts("-d <value> \t refresh display rate");
+ puts("-t <value> maximal temperature");
return 1;
}
itt=I;
s=S;
strcpy(output_file,"");
+ max_T=0;
/* parse argv */
for(i=1;i<argc;i++)
{
case 'd':
dr=atoi(argv[++i]);
break;
+ case 't':
+ max_T=atof(argv[++i]);
+ break;
default:
usage();
return -1;
/* begin at T=0 M=1 situation */
memset(atom,0,max_x*max_y*sizeof(unsigned char));
-
- max_T=3.0*s;
+
+ if(max_T==0) max_T=3.0*s;
for(T=.05;T<max_T;T+=.05)
{
if((*(atom+((max_x+x_c-1)%max_x)+y_c*max_x))&1) ++count_p;
if(((*(atom+x_c+y_c*max_x))&1)==0) count_p=4-count_p;
delta_e=(2*count_p-4)*s;
- if(delta_e<0) *(atom+x_c+y_c*max_x)=(*(atom+x_c+y_c*max_x)+1)&1;
+ if(delta_e<=0) *(atom+x_c+y_c*max_x)=(*(atom+x_c+y_c*max_x)+1)&1;
else
{
if(1.0*rand()/RAND_MAX<exp(-1.0*delta_e*beta))
if((*(atom+((max_x+x_c-1)%max_x)+y_c*max_x))&1) ++count_p;
if(((*(atom+x_c+y_c*max_x))&1)==0) count_p=4-count_p;
delta_e=(2*count_p-4)*s;
- if(delta_e<0) *(atom+x_c+y_c*max_x)=(*(atom+x_c+y_c*max_x)+1)&1;
+ if(delta_e<=0) *(atom+x_c+y_c*max_x)=(*(atom+x_c+y_c*max_x)+1)&1;
else
{
if(1.0*rand()/RAND_MAX<exp(-1.0*delta_e*beta))