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

     Lp11 := [0., -2.92912808353403655 10-7, -6.26218786206192592 10-7, -6.57875427459016678 10-7,

           -6.50076789964125307 10-7, -5.81930015469857459 10-7, -4.81491273482991492 10-7,

           -3.43346721494645653 10-10]

>   Lp12:=[seq(rhs(Lpi[t][13]), t=0..7)];
      Lp12 := [0., 4.38881221022720962 10-8, 1.07476895817019282 10-7, 1.14139816984668836 10-7,

            1.12907505839305068 10-7, 9.98718243511481420 10-8, 8.36344618647448142 10-8,

            7.48489358400078100 10-11]

>   Lp13:=[seq(rhs(Lpi[t][14]), t=0..7)];
     Lp13 := [0., -6.42573790315836824 10-9, -1.85113579143996556 10-8, -1.99312175151031828 10-8,

           -1.97429590389136502 10-8, -1.74858921464577080 10-8, -1.46277343899484288 10-8,

           -6.74356127923232769 10-12]

>   Lp14:=[seq(rhs(Lpi[t][15]), t=0..7)];
      Lp14 := [0., 9.03785932107027134 10-10, 3.02999874618722191 10-9, 3.29143191882903562 10-9,

           3.26299874071853600 10-9, 3.06333747514295616 10-9, 2.41762204544735632 10-9,

           2.14095880501125717 10-12]

>   Lp15:=[seq(rhs(Lpi[t][16]), t=0..7)];
    Lp15 := [0., -1.48150907382263930 10-10, -7.15369298826214752 10-10, -8.09757797243293456 10-10,

         -8.06113990264782594 10-10, -7.32039341683141883 10-10, -5.97759666906672786 10-10,

         5.99255337388246958 10-13]

>   Lp16:=[seq(rhs(Lpi[t][17]), t=0..7)];
    Lp16 := [0., -2.43300666822969274 10-11, -1.68954304840626148 10-10, -1.99149148638418078 10-10,

         -1.99060469424200050 10-10, -1.71023640935911516 10-10, -1.47557322166583962 10-10,

         -5.09220877531093638 10-13]

> listplot([seq(Lp1[t], t=1..8)], thickness=2,
color= green, legend=`p0(t)`);
plot(PolynomialInterpolation([seq(t, t=1..8)],
[seq(Lp1[t], t=1..8)], z, form=Lagrange ),
z=1..8,
           thickness=2, color= red,
legend=`p0(t)`);



                                                  261