Magnetic fiel calculation in C [closed] - c

Question

Closed. This question needs to be more focused. It is not currently accepting answers.
Want to improve this question? Update the question so it focuses on one problem only by editing this post.
Closed 5 days ago.
Improve this question
I am trying to calculate the magnetic field of a plane of magnetics dipols and its evolution over time but the orders of the fields seems to be a bit out of order and I do not see how it is wrong.
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#define X 31
#define Y 31
#define T 10
int main(){
double Mx[T][X][Y];
double My[T][X][Y];
double Mz[T][X][Y];
double mx[T][X][Y];
double my[T][X][Y];
double mz[T][X][Y];
double Hdipx[T][X][Y]={0};
double Hdipy[T][X][Y]={0};
double Hdipz[T][X][Y]={0};
double Hexx[T][X][Y];
double Hexy[T][X][Y];
double Hexz[T][X][Y];
double Hx[T][X][Y];
double Hy[T][X][Y];
double Hz[T][X][Y];
double renorma[T][X][Y];
double Ms= 1.0*pow(10,6); //A m^-1
double Amin=10.0*pow(10,-12); //J m^-1
double Amax=20.0*pow(10,-12); //J m^-1
double u0=1.26*pow(10,-6); //T*m/A
double x0=9*pow(10,-9);
double lex=sqrt(2)*x0; //asi mas o menos la placa tiene 400nm
double alpha=0.1/pow(Ms,2);
double a=0.1;
int i,j,k,l,n;
double z={0};
double R[X][Y]={0};
double Rx[X][Y]={0};
double Ry[X][Y]={0};
double kappa=2*Amax/(pow(Ms,2)*u0);
for(i=0;i<X;i++){
for(j=0;j<Y;j++){
Rx[i][j]=i*lex;
Ry[i][j]=j*lex;
R[i][j]=sqrt(Rx[i][j]*Rx[i][j]+Ry[i][j]*Ry[i][j]);
}
}
//C.I
for(i=0;i<X;i++){
for(j=0;j<Y;j++){
if(j==15 && i==15){
Mz[0][i][j]=1;
}
else{
Mz[0][i][j]=0;
}
}
}
for(i=0;i<X;i++){
for(j=0;j<Y;j++){
if(j==15 && i==15){
Mx[0][i][j]=0;
My[0][i][j]=0;
}
if(j<=15 && i<=15){
Mx[0][i][j]=1;
My[0][i][j]=0;
}
if(j<15 && i>15){
Mx[0][i][j]=0;
My[0][i][j]=1;
}
if(j>=15 && i>=15){
Mx[0][i][j]=-1;
My[0][i][j]=0;
}
if(j>15 && i<15){
Mx[0][i][j]=0;
My[0][i][j]=-1;
}
}
}
for(i=1;i<X-1;i++){
for(j=1;j<Y-1;j++){
mx[0][i][j]=Mx[0][i][j]*lex*lex*lex;
my[0][i][j]=My[0][i][j]*lex*lex*lex;
mz[0][i][j]=Mz[0][i][j]*lex*lex*lex;
}
}
for(i=1;i<X-1;i++){
for(j=1;j<Y-1;j++){
for(k=i-10;k<i+10;k++){
for(l=j-10;l<j+10;l++){
if (R[k][l] != R[i][j]) {
Hdipx[0][i][j]+=(3*(Rx[k][l]-Rx[i][j])*(mx[0][k][l]*(Rx[k][l]-Rx[i][j])+my[0][k][l]*(Ry[k][l]-Ry[i][j])))/((4*M_PI)*fabs(pow(R[k][l]-R[i][j],5)))-mx[0][k][l]/((4*M_PI)*fabs(pow(R[k][l]-R[i][j],3)));
Hdipy[0][i][j]+=(3*(Ry[k][l]-Ry[i][j])*(mx[0][k][l]*(Rx[k][l]-Rx[i][j])+my[0][k][l]*(Ry[k][l]-Ry[i][j])))/((4*M_PI)*fabs(pow(R[k][l]-R[i][j],5)))-my[0][k][l]/((4*M_PI)*fabs(pow(R[k][l]-R[i][j],3)));
Hdipz[0][i][j]+=(-1.0*mz[0][k][l])/(fabs(pow(R[k][l]-R[i][j],3))*(4*M_PI));
}
}
}
Hexx[0][i][j]=(kappa/(lex*lex))*(Mx[0][i+1][j]-2*Mx[0][i][j]+Mx[0][i-1][j]+Mx[0][i][j+1]-2*Mx[0][i][j]+Mx[0][i][j-1]);
Hexy[0][i][j]=(kappa/(lex*lex))*(My[0][i+1][j]-2*My[0][i][j]+My[0][i-1][j]+My[0][i][j+1]-2*My[0][i][j]+My[0][i][j-1]);
Hexz[0][i][j]=(kappa/(lex*lex))*(Mz[0][i+1][j]-2*Mz[0][i][j]+Mz[0][i-1][j]+Mz[0][i][j+1]-2*Mz[0][i][j]+Mz[0][i][j-1]);
Hx[0][i][j]=Hdipx[0][i][j]+Hexx[0][i][j];
Hy[0][i][j]=Hdipy[0][i][j]+Hexy[0][i][j];
Hz[0][i][j]=Hdipz[0][i][j]+Hexz[0][i][j];
}
}
/*
printf("%lf \n",Hdipx[0][15][9]);
printf("%lf \n",Hexx[0][15][9]);
printf("%lf \n",Mx[0][15][9]);
printf("%lf \n",Hdipy[0][15][9]);
printf("%lf \n",Hdipz[0][15][9]);
printf("%lf \n",pow(10,9)*(Rx[10][20]-Rx[1][1]));
printf("%lf \n",pow(10,9)*(R[10][20]-R[1][1]));
printf("%lf \n",pow(10,9)*(Ry[10][20]-Ry[1][1]));
*/
for(i=1;i<X-1;i++){
for(j=1;j<Y-1;j++){
printf("%lf \n",Mx[0][i][j]);
}
}
for(k=0;k<T-1;k++){
for(j=1;j<Y-1;j++){
for(i=1;i<X-1;i++){
Mx[k+1][i][j]=Mx[k][i][j]-a*Mx[k][i][j]*(Hx[k][i][j]*Mx[k][i][j]+Hy[k][i][j]*My[k][i][j]+Hz[k][i][j]*Mz[k][i][j])+a*Hx[k][i][j];
My[k+1][i][j]=My[k][i][j]-a*My[k][i][j]*(Hx[k][i][j]*Mx[k][i][j]+Hy[k][i][j]*My[k][i][j]+Hz[k][i][j]*Mz[k][i][j])+a*Hy[k][i][j];
Mz[k+1][i][j]=Mz[k][i][j]-a*Mz[k][i][j]*(Hx[k][i][j]*Mx[k][i][j]+Hy[k][i][j]*My[k][i][j]+Hz[k][i][j]*Mz[k][i][j])+a*Hz[k][i][j];
}
}
for(j=0;j<Y;j++){
Mx[k+1][0][j]=0;
My[k+1][0][j]=0;
Mz[k+1][0][j]=0;
}
for(j=0;j<Y;j++){
Mx[k+1][X-1][j]=0;
My[k+1][X-1][j]=0;
Mz[k+1][X-1][j]=0;
}
for(i=0;i<X;i++){
Mx[k+1][i][0]=0;
My[k+1][i][0]=0;
Mz[k+1][i][0]=0;
}
for(i=0;i<X;i++){
Mx[k+1][i][Y-1]=0;
My[k+1][i][Y-1]=0;
Mz[k+1][i][Y-1]=0;
}
for(j=1;j<Y-1;j++)
for(i=1;i<X-1;i++){
renorma[k+1][i][j]=sqrt(Mx[k+1][i][j]*Mx[k+1][i][j]+My[k+1][i][j]*My[k+1][i][j]+Mz[k+1][i][j]*Mz[k+1][i][j]);
Mx[k+1][i][j]=Mx[k+1][i][j]/renorma[k+1][i][j];
My[k+1][i][j]=My[k+1][i][j]/renorma[k+1][i][j];
Mz[k+1][i][j]=Mz[k+1][i][j]/renorma[k+1][i][j];
}
for(j=1;j<Y-1;j++){
for(i=1;i<X-1;i++){
mx[k+1][i][j]=Mx[k+1][i][j]*lex*lex*lex;
my[k+1][i][j]=My[k+1][i][j]*lex*lex*lex;
mz[k+1][i][j]=Mz[k+1][i][j]*lex*lex*lex;
}
}
for(i=1;i<X-1;i++){
for(j=1;j<Y-1;j++){
for(n=1;n<X-1;n++){
for(l=1;l<Y-1;l++){
if (R[n][l] != R[i][j]){
Hdipx[k+1][i][j]+=(1/(4*M_PI))*((3*(Rx[n][l]-Rx[i][j])*(mx[k+1][n][l]*(Rx[n][l]-Rx[i][j])+my[k+1][n][l]*(Ry[n][l]-Ry[i][j])))/fabs(pow(R[n][l]-R[i][j],5))-mx[k+1][n][l]/fabs(pow(R[n][l]-R[i][j],3)));
Hdipy[k+1][i][j]+=(1/(4*M_PI))*((3*(Ry[n][l]-Ry[i][j])*(mx[k+1][n][l]*(Rx[n][l]-Rx[i][j])+my[k+1][n][l]*(Ry[n][l]-Ry[i][j])))/fabs(pow(R[n][l]-R[i][j],5))-my[k+1][n][l]/fabs(pow(R[n][l]-R[i][j],3)));
Hdipz[k+1][i][j]+=(1/(4*M_PI))*(-1.0*mz[k+1][n][l]/fabs(pow(R[n][l]-R[i][j],3)));
}
}
}
Hexx[k+1][i][j]=(kappa/(lex*lex))*(Mx[k+1][i+1][j]-2*Mx[k+1][i][j]+Mx[k+1][i-1][j]+Mx[k+1][i][j+1]-2*Mx[k+1][i][j]+Mx[k+1][i][j-1]);
Hexy[k+1][i][j]=(kappa/(lex*lex))*(My[k+1][i+1][j]-2*My[k+1][i][j]+My[k+1][i-1][j]+My[k+1][i][j+1]-2*My[k+1][i][j]+My[k+1][i][j-1]);
Hexz[k+1][i][j]=(kappa/(lex*lex))*(Mz[k+1][i+1][j]-2*Mz[k+1][i][j]+Mz[k+1][i-1][j]+Mz[k+1][i][j+1]-2*Mz[k+1][i][j]+Mz[k+1][i][j-1]);
Hx[k+1][i][j]=Hdipx[k+1][i][j]+Hexx[k+1][i][j];
Hy[k+1][i][j]=Hdipy[k+1][i][j]+Hexy[k+1][i][j];
Hz[k+1][i][j]=Hdipz[k+1][i][j]+Hexz[k+1][i][j];
}
}
}
char b[30];
FILE* ficheroi;
for(i=0;i<T;i++){
sprintf(b,"1gif%i.txt",i);
ficheroi=fopen(b,"w");
for (int j = 0; j < Y; j++) {
for(k=0;k<X;k++){
fprintf(ficheroi, "%lf \t %lf \t %lf \n",pow(10,9)*Rx[k][j],pow(10,9)*Ry[k][j],z);
}
}
sprintf(b,"2gif%i.txt",i);
ficheroi=fopen(b,"w");
for (int j = 0; j < Y; j++) {
for(k=0;k<X;k++){
fprintf(ficheroi, "%lf \t %lf \t %lf \n",Mx[i][k][j]/Ms,My[i][k][j]/Ms,Mz[i][k][j]/Ms);
}
}
}
fclose(ficheroi);
return 0;
}
I tried to calculate the dipole fiel over a loop of al the other dipoles and the exchange camp only affecting their surroundings.