EJERCICIO 1
In[2]:= a= {{3, 0.98},{5, 1.23},{7, 1.45},{9, 1.79},{11, 1.89},
{13, 2.32},{15, 2.48},{17, 2.67},{19, 2.85},{21, 3.02},{23, 3.23},
{25, 3.32},{27, 3.41},{29, 3.58},{31, 3.67},{33, 3.79},{35, 4.11},{37,
4.32}}
Out[2]= {{3, 0.98},{5, 1.23},{7, 1.45},{9, 1.79},{11, 1.89},{13, 2.32},
{15, 2.48},{17, 2.67},{19, 2.85},{21, 3.02},{23, 3.23},{25, 3.32},
{27, 3.41},{29, 3.58},{31, 3.67},{33, 3.79},{35, 4.11},{37, 4.32}}
In[3]:=
interpolación
Interpolation[a, 4]
Out[3]= 1.11813
In[4]:=
interpolación
Interpolation[a, 6.67]
Out[4]= 1.40945
In[5]:=
interpolación
Interpolation[a, 7.34]
Out[5]= 1.50924
In[6]:=
interpolación
Interpolation[a, 23.34]
Out[6]= 3.25046
In[7]:=
interpolación
Interpolation[a, 36.56]
Out[7]= 4.29902
GRÁFICA Nº 1
In[8]:= a=
interpolación
Interpolation[{{3, 0.98},{5, 1.23},{7, 1.45},{9, 1.79},{11, 1.89},{13, 2.32},
{15, 2.48},{17, 2.67},{19, 2.85},{21, 3.02},{23, 3.23},{25, 3.32},
{27, 3.41},{29, 3.58},{31, 3.67},{33, 3.79},{35, 4.11},{37, 4.32}}]
Out[8]= InterpolatingFunctionDomain: 3., 37.
Output
:scalar
Printed by Wolfram Mathematica Student Edition
