Resumen

DescripciónLagrange polynomial.svg	English:   Este diagrama fue creado con Mathematica This image shows, for four points ((−9, 5), (−4, 2), (−1, −2), (7, 9)), the (cubic) interpolation polynomial L(x) (dashed, black), which is the sum of the scaled basis polynomials y1ℓ1(x), y2ℓ2(x), y3ℓ3(x) and y4ℓ4(x) (colors). The interpolation polynomial passes through all four control points, and each scaled basis polynomial passes through its respective control point and is 0 where x corresponds to the other three control points.
Fecha	26 de diciembre de 2015
Fuente	Self-made, based on Image:Lagrangepolys.png
Autor	User:Glosser.ca
Otras versiones	Image:Lagrangepolys.png

Source

colors = ColorData[97] /@ Range[4];
pts = {{\[Minus]9, 5}, {\[Minus]4, 2}, {\[Minus]1, \[Minus]2}, {7, 9}};
{xs, ys} = Transpose[pts];

Basis[pts_, x_] := Times @@ (x - DeleteCases[pts, #])/Times @@ (# - DeleteCases[pts, #]) & /@ pts

Plot[
 {
  Evaluate[ys*Basis[xs, x]],
  Total[ys*Basis[xs, x]]
 }, {x, -9, 7},
 PlotStyle -> {Automatic, Automatic, Automatic, Automatic, Directive[Black, Dashed]},
 Frame -> True,
 Axes -> False,
 ImageSize -> Large,
 GridLines -> Automatic,
 GridLinesStyle -> Directive[LightGray, Dashed],
 PlotStyle -> Thick,
 Epilog -> Table[{PointSize[0.02], ColorData[97][i], Point[pts[[i]]]}, {i,4}],
 PlotLegends -> Placed[
  LineLegend[{
   Subscript[\[ScriptL], 1][x], 
   Subscript[\[ScriptL], 2][x],
   Subscript[\[ScriptL], 3][x], 
   Subscript[\[ScriptL], 4][x],
   L[x]
  }, LegendLayout -> {"Row", 1}],
  Top
 ],
 FrameStyle -> Black
]

Licencia

Yo, titular de los derechos de autor de esta obra, la publico en los términos de las siguientes licencias:

Se autoriza la copia, distribución y modificación de este documento bajo los términos de la licencia de documentación libre GNU, versión 1.2 o cualquier otra que posteriormente publique la Fundación para el Software Libre; sin secciones invariables, textos de portada, ni textos de contraportada. Se incluye una copia de la dicha licencia en la sección titulada Licencia de Documentación Libre GNU.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

	Este archivo se encuentra bajo la licencia Creative Commons Genérica de Atribución/Compartir-Igual 3.0.
	Eres libre: de compartir – de copiar, distribuir y transmitir el trabajo de remezclar – de adaptar el trabajo Bajo las siguientes condiciones: atribución – Debes otorgar el crédito correspondiente, proporcionar un enlace a la licencia e indicar si realizaste algún cambio. Puedes hacerlo de cualquier manera razonable pero no de manera que sugiera que el licenciante te respalda a ti o al uso que hagas del trabajo. compartir igual – En caso de mezclar, transformar o modificar este trabajo, deberás distribuir el trabajo resultante bajo la misma licencia o una compatible como el original.
	Esta etiqueta de licencia fue agregada a este archivo como parte de la actualización de la licencia GFDL.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue

Puedes usar la licencia que prefieras.