Курсовая работа: Моделирование рассеяния плоской упругой продольной волны на упругом однородном изотропном цилиндрическом слое

a[2*i+1][10]=imag(A[i][5]); a[2*i+1][11]=real(A[i][5]);

a[2*i+1][12]=imag(A[i][6]); a[2*i+1][13]=real(A[i][6]);

a[2*i+1][14]=imag(A[i][7]); a[2*i+1][15]=real(A[i][7]);

f[2*i+1]=imag(F[i]);

}

Real_Gauss();

X[0]=complex(x[0],x[1]);

X[1]=complex(x[2],x[3]);

X[2]=complex(x[4],x[5]);

X[3]=complex(x[6],x[7]);

X[4]=complex(x[8],x[9]);

X[5]=complex(x[10],x[11]);

X[6]=complex(x[12],x[13]);

X[7]=complex(x[14],x[15]);

}

void grafic(double *k_1, double *k_2, double *k_3, double *k_4, double a, double b, double c, double d, double col_x, double col_y)

{

double h,hx,hy,dx,dy;

int i,maxx,maxy;

int borderx_left=0,borderx_right=0;

int bordery_up=0,bordery_down=0;

int gdriver=DETECT, gmode, errorcode;

clrscr();

initgraph(&gdriver,&gmode," ");

errorcode=graphresult();

if(errorcode!=grOk)

{

printf("Не могу открыть графический экран!\n");

printf("Нажмите любую клавишу!\n");