ВУЗ:
Составители:
Рубрика:
r223 = SimplifyA
I-1 +„
1
ÄÄÄÄ
3
H-h+xL
- Tan@xD
2
M
ê
. „
1
ÄÄÄÄ
3
H-h+xL
Æ 1
ê
H1 - Sin@xD^2LE
0
Прежде чем упрощать четвёртый коэффициент заметим, что он
может быть записан в виде
‰
-hê6
H-2y+ 2
2
ê
3
Hh+xL
1ê3
LI2 ‰
h
ê
6
,
I1 -‰
h-x
ÅÅÅÅÅÅÅÅÅÅ
3
My +‰
x
ê
6
Hh+xLMØ
H-2y+ 2
2ê3
Hh+xL
1ê3
LI2
,
I1 -‰
h-x
ÅÅÅÅÅÅÅÅÅÅ
3
My +‰
x
ê
6-h
ê
6
Hh+xLM
r224 = SimplifyA
H-2y+ 2
2
ê
3
Hh+xL
1ê3
LI2
,
I1 -„
h-x
ÄÄÄÄÄÄÄÄÄÄÄ
3
My +„
x
ê
6-h
ê
6
Hh+xLM ê.
Hh+xL
1
ê
3
-> 2
1ê3
yE
0
Для пятого коэффициента имеем
-H22
1ê3
‰
-hê3
H‰
hê3
-‰
x
ê3
LH-h - x + 2
1
ê
3
y Hh+xL
2
ê
3
LL
ê
Hh+xL
4ê3
Ø
H22
1ê3
H1 -‰
xê3-hê3
LHHh+xL- 2
1
ê
3
y Hh+xL
2
ê
3
LL
ê
Hh+xL
4
ê
3
r225 = Simplify@Hh+xL- 2
1
ê
3
y Hh+xL
2
ê
3
ê
ê.
8Hh+xL Æ 2 * y
3
, Hh+xL
2
ê
3
Æ 2
2
ê
3
y^2<D
0
Окончательно находим r21={0,0,0,0,0,0}. Проверка закончена.
Для построения кривых {x[x,y]=const.,h[x,y]=const.} следует
вызвать из приложения подпакеты]
<< Graphics`Graphics`;
<< Graphics`ImplicitPlot`;
w21@d_, i_, x_, y_D := y
3
- Log@Cos@xD
3
D-d*i;
w22@d_, i_, x_, y_D := y
3
+ Log@Cos@xD
3
D-d*i;
tab21 = Table@w21@.1,i,x,yD ä 0, 8i, -12, 10<D;
tab22 = Table@w22@.25,i,x,yD ä 0, 8i, -4, 4<D;
Off@Solve::"ifun"D; Off@InverseFunction::"ifun"D;
65
65
r223 = SimplifyA
I-1 + „ ÄÄÄÄ3 H-h+xL - Tan@xD2 M ê. „ ÄÄÄÄ3 H-h+xL Æ 1 ê H1 - Sin@xD ^2LE
1 1
0
Прежде чем упрощать четвёртый коэффициент заметим, что он
может быть записан в виде
‰-hê6 H-2 y + 22ê3 Hh + xL1ê3 L I2 ‰hê6 , I1 - ‰ ÅÅÅÅ3ÅÅÅÅÅ M y + ‰xê6 Hh + xLM Ø
h-x
H-2 y + 22ê3 Hh + xL1ê3 L I2 , I1 - ‰ ÅÅÅÅ3ÅÅÅÅÅ M y + ‰xê6-hê6 Hh + xLM
h-x
r224 = SimplifyA
,
H-2 y + 22ê3 Hh + xL1ê3 L I2 I1 - „ ÄÄÄÄÄ3ÄÄÄÄÄ M y + „xê6-hê6 Hh + xLM ê.
h-x
Hh + xL1ê3 -> 21ê3 yE
0
Для пятого коэффициента имеем
-H2 21ê3 ‰-hê3 H‰hê3 - ‰xê3 L H-h - x + 21ê3 y Hh + xL2ê3 LL ê Hh + xL4ê3 Ø
H2 21ê3 H1 - ‰xê3-hê3 L HHh + xL - 21ê3 y Hh + xL2ê3 LL ê Hh + xL4ê3
r225 = Simplify@Hh + xL - 21ê3 y Hh + xL2ê3 êê.
8Hh + xL Æ 2 * y3 , Hh + xL2ê3 Æ 22ê3 y^2
