Теория массового обслуживания. Сивохин А.В - 111 стр.

UptoLike

111
> RoY:=[seq(add(Ry[k, k+i], k=1..m-i)/(m-i),
i=0..m-1)];
RoY := 1.000000000, 0.2482480912, 0.03989364378, -0.01111831393, -0.07338962280, 0.3632621350[ ]
> plot(PolynomialInterpolation([seq(k, k=1..m)],
RoY, z, form=Lagrange ), z=1..m,color=red,
thickness=2);
listplot(RoY, color=blue, thickness=2);
> RoY:=[seq(add(Ry[k, k+i], k=1..m-i)/(m-i),
i=0..m-1)];
    RoY := [1.000000000, 0.2482480912, 0.03989364378, -0.01111831393, -0.07338962280, 0.3632621350]

> plot(PolynomialInterpolation([seq(k, k=1..m)],
RoY, z, form=Lagrange ), z=1..m,color=red,
thickness=2);
listplot(RoY, color=blue, thickness=2);




                                                 111