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

}

for(j=0,k=k_0;k<=k_n;k=k+dk,j++)

{

k_1[j]=-F_rass(k)*cos(k);

k_2[j]=-F_rass(k)*sin(k);

k_3[j]=-F_rass(k)*cos(k);

k_4[j]=F_rass(k)*sin(k);

}

grafic(k_1,k_2,k_3,k_4,-2.0,6.0,-2.0,2.0,8.0,4.0);

}

ПРИЛОЖЕНИЕ 2

ДИАГРАММЫ РАССЕЯННОГО ПОЛЯ ПО АМПЛИТУДЕ

Алюминий (kr=2.0, N=7)

Алюминий (kr=3.0, N=9)

Алюминий (kr=4.0, N=11)