Современное программное обеспечение в пользовательском процессе: Сборник заданий по курсу. Глушко А.В - 13 стр.

UptoLike

Составители: 

w41@j_D = 0.85 - 0.0008 j RoundA100
i
k
j
j
j
j
6
j
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Hj + 1L
2
+ 1
y
{
z
z
z
z
E;
w42@j_D = 0.03 + 0.0011 j RoundA100
i
k
j
j
j
j
0.3 j
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
H j + 1L
2
+ 1
y
{
z
z
z
z
E ;
После этого обозначим
eq40 = 9D@#1@tD,tD +
i
k
j
j
j
j
1
ÄÄÄÄÄÄÄÄÄÄÄÄ
100
RoundA100
i
k
j
j
j
j
1 +
0.6 * #3
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
H1 + #3L
2
y
{
z
z
z
z
E
y
{
z
z
z
z
* #2@tD +
i
k
j
j
j
j
1
ÄÄÄÄÄÄÄÄÄÄÄÄ
100
RoundA100
i
k
j
j
j
j
1 +
0.78 * #3
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
H2 + #3L
2
y
{
z
z
z
z
E
y
{
z
z
z
z
* Sin@tD^3,
D@#2@tD,tD +
i
k
j
j
j
j
1
ÄÄÄÄÄÄÄÄÄÄÄÄ
100
RoundA100
i
k
j
j
j
j
1 +
0.55 * #3
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
H3 + #3L
2
y
{
z
z
z
z
E
y
{
z
z
z
z
* Sin@#1@tDD^2 +
i
k
j
j
j
j
1
ÄÄÄÄÄÄÄÄÄÄÄÄ
100
RoundA100
i
k
j
j
j
j
1 +
0.72 * #3
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
H4 + #3L
2
y
{
z
z
z
z
E
y
{
z
z
z
z
* #2@tD +
i
k
j
j
j
j
1
ÄÄÄÄÄÄÄÄÄÄÄÄ
100
RoundA100
i
k
j
j
j
j
1 +
0.76 * #3
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
H5 + #3L
2
y
{
z
z
z
z
E
y
{
z
z
z
z
#1@tD^2,
H#1@t.tÆ 0L, H#2@tD
ê
.tÆ 0L= &;
g40@j_D = 8eq40@x, y, jD@@1DD ä 0, eq40@x, y, jD@@2DD ä 0,
eq40@x, y, jD@@3DD ä w41@jD, eq40@x, y, jD@@4DD ä w42@jD<;
Определим решения задач по формулам
x40 =
First@8x, y. First@NDSolve@g40@#D, 8x, y<, 8t, -2.0 + 0.1 * #, 4.8 - 0.05 * #<,
MaxSteps -> 1000 H14 + #L, AccuracyGoal -> ,
PrecisionGoal Æ 15 + #, WorkingPrecision Æ 15 + #,
Method -> RungeKuttaDDD &;
y40 =
Last@8x, y. First@NDSolve@g40@#D, 8x, y<, 8t, -2.0 + 0.1 * #, 4.8 - 0.05 * #<,
MaxSteps -> 1000 H14 + #L, AccuracyGoal -> ,
PrecisionGoal Æ 15 + #, WorkingPrecision Æ 15 + #,
Method -> RungeKuttaDDD &;
z
ad ok7bis.nb 13
zad ok7bis.nb                                                                                                       13




                                           i 6j                           y
    w41@j_D = 0.85 - 0.0008 j RoundA100 jjjj ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ + 1zzzzE;
                                           k Hj + 1L                      {
                                                                2

                                           i 0.3 j                          y
    w42@j_D = 0.03 + 0.0011 j RoundA100 jjjj ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ + 1zzzzE ;
                                           k H j + 1L                       {
                                                                  2


    После этого обозначим

                                      i 1                             i                0.6 * #3 y y
    eq40 = 9D@#1@tD, tD + jjj ÄÄÄÄÄÄÄÄÄÄÄÄ RoundA100 jjj1 + ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ zzzEzzz * #2@tD +
                                      k 100                           k               H1 + #3L2 { {
             ij 1                           i       0.78 * #3 y y
              jj ÄÄÄÄÄÄÄÄÄÄÄÄ RoundA100 jjj1 + ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ zzzEzzz * Sin@tD ^3,
               k 100                        k       H2 + #3L2 { {
                                     i 1                            i               0.55 * #3 y y
           D@#2@tD, tD + jjj ÄÄÄÄÄÄÄÄÄÄÄÄ RoundA100 jjj1 + ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ zzzEzzz * Sin@#1@tDD ^2 +
                                     k 100                          k               H3 + #3L2 { {
                 ij 1                         i     0.72 * #3 y y
                  jj ÄÄÄÄÄÄÄÄÄÄÄÄ RoundA100 jjj1 + ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ zzzEzzz * #2@tD +
                   k 100                      k     H4 + #3L2 { {
               ij 1                         i       0.76 * #3 y y
                jj ÄÄÄÄÄÄÄÄÄÄÄÄ RoundA100 jjj1 + ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ zzzEzzz #1@tD ^2,
                 k 100                      k       H5 + #3L2 { {
           H#1@tD ê. t Æ 0L, H#2@tD ê. t Æ 0L= &;

    g40@j_D = 8eq40@x, y, jD@@1DD ä 0, eq40@x, y, jD@@2DD ä 0,
          eq40@x, y, jD@@3DD ä w41@jD, eq40@x, y, jD@@4DD ä w42@jD<;

    Определим решения задач по формулам

    x40 =
      First@8x, y< ê. First@NDSolve@g40@#D, 8x, y<, 8t, -2.0 + 0.1 * #, 4.8 - 0.05 * #<,
                 MaxSteps -> 1000 H14 + #L, AccuracyGoal -> •,
                 PrecisionGoal Æ 15 + #, WorkingPrecision Æ 15 + #,
                 Method -> RungeKuttaDDD &;
    y40 =
      Last@8x, y< ê. First@NDSolve@g40@#D, 8x, y<, 8t, -2.0 + 0.1 * #, 4.8 - 0.05 * #<,
                MaxSteps -> 1000 H14 + #L, AccuracyGoal -> •,
                PrecisionGoal Æ 15 + #, WorkingPrecision Æ 15 + #,
                Method -> RungeKuttaDDD &;