Додаток
Числовий
розв'язок
задачі виконано за допомогою створеної
програми в Maple
13:
>
nx:=
0;
ny:=0;
nz:=1;
C11:=250;
C12:=160;
C44:=118.5;
a0:=3.5243;
L:=-0.073;
M:=58.7;
K:=(C11+2*C12)/3;
ksi:=(C11-C12-2*C44)/C44;
X:=nx^2*ny^2+nx^2*nz^2+ny^2*nz^2;
Y:=nx^2*ny^2*nz^2;
D=C11+ksi*(C11+C12)*X+ksi^2*(C11+2*C12+C44)*Y;
A:=(-9*K^2*a0^3*L^2*(1+2*ksi*X+3*ksi^2*Y))/(4*250);
omega:=53.72;
B:=(9*K^2*a0^3*L^2*M*omega^2)/(256*4*C11^2);
nnx:=0.9035;
nny:=0.4287;
nnz:=0;
XX:=nnx^2*nny^2+nnx^2*nnz^2+nny^2*nnz^2;
YY:=nnx^2*nny^2*nnz^2;
DD:=C11+ksi*(C11+C12)*XX+ksi^2*(C11+2*C12+C44)*YY;
Q:=9*K^2*a0^3*L^2*(1+2*ksi*XX+3*ksi^2*YY)/(4*DD);
r:=a0/sqrt(2);
S4:=25.338;
S8:=12.80193;
epsilon:=-4.45;
a:=(-epsilon*a0^4)/S4;
b:=(-epsilon*a0^8)/(8*S8);
Phi:=-a*r^(-4)+b*r^(-8);
k:=0.0349;
V:=A+B*k+Q;
W:=V+Phi;
31