Excel - Regresion Polinomica

Alguien sabe como se hace una regresion polinimica en excel?? necesito hacer una de 2º y 3º grado.

Mediante graficos y linea de tendencia si la se hacer pero no se si por formula se pueda, porque yo no encuentro una.

Alguien me ayuda por favor?

no entiendo qué (o cómo) querés hacer...

Quiero hacer una regresion polinomial, para sacar los factores de la ecuacion Y=a3X^3+a2X^2+a1x+b

o sea sacar a3, a2, a1 y b. Pero hacerlo mediante formula, no hacerlo con la grafica. Estuviendo que la funcion tendencia hace eso pero no etiendo como se usa.

tenia ganas de hacer algo en Excel y me puse con esto...
Espero sirva de algo...

Option Explicit
Option Private Module

'//By JuanC - 07 de Septiembre de 2007
'//Objetivo: Sacar los coef. de un polinomio de 3er grado a partir de un gráfico

Sub Test()
Dim Y$, sRangoDatos$, sHoja$, sTmp$
Dim c1$, c2$, c3$, c4$

'//Origen de los datos a graficar
sRangoDatos = "B2:C8"

'//Nombre de la hoja destino del gráfico
sHoja = "Hoja1"

Application.ScreenUpdating = False

'//Crear gráfico (polinomio de 3er grado)
Charts.Add
ActiveChart.Type = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(sHoja).Range(sRangoDatos), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=sHoja
ActiveChart.SeriesCollection(1).Trendlines.Add Type:=xlPolynomial, Order:=3, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=False

'//Tomar fórmula del gráfico ( y = c1x3 + c2x2 + c3x + c4 )
Y = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Caption

'//Eliminar gráfico (opcional)
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete

Application.ScreenUpdating = True

'//Extraer coeficientes (c1, c2, c3 y c4)
Y = LCase(Y)
Y = Replace(Y, " x3", "1x3")
Y = Replace(Y, " x2", "1x2")
Y = Replace(Y, " x", "1x")

sTmp = Split(Y, "x3")(0)
c1 = Replace(Mid(sTmp, InStr(1, sTmp, "=") + 1), " ", "")
c1 = Replace(c1, "+", "")

sTmp = Mid(Y, InStr(1, Y, "x3") + 2)
c2 = Replace(Split(sTmp, "x")(0), " ", "")
c2 = Replace(c2, "+", "")

sTmp = Mid(Y, InStr(1, Y, "x2") + 2)
c3 = Replace(Split(sTmp, "x")(0), " ", "")
c3 = Replace(c3, "+", "")

sTmp = Mid(Y, InStrRev(Y, " ") - 2)
c4 = Replace(sTmp, " ", "")
c4 = Replace(c4, "+", "")

'//Preparar mensaje para el usuario y mostrarlo
'//(obviamente pueden convertirse los coeficientes
'// en números y realizar cálculos)
sTmp = "Polinomio de ajuste (grado 3):" & vbCrLf & vbCrLf & Y & vbCrLf
sTmp = sTmp & vbCrLf & "C1: " & c1 & " (x^3)"
sTmp = sTmp & vbCrLf & "C2: " & c2 & " (x^2)"
sTmp = sTmp & vbCrLf & "C3: " & c3 & " (x^1)"
sTmp = sTmp & vbCrLf & "C4: " & c4 & " (x^0)"

MsgBox sTmp
End Sub

Saludos desde Baires, JuanC

quiero que me ayudes como podria hacer una regresion polinomica

Hola JuanC,

Gracias por el vb.
Una consulta, me sale error en:
sTmp = Split(Y, "x3")(0) sabes porque podria ser?

Saludos

Marielena

Talvez, ya es tarde, pero estoy seguro que otra persona le puede servir.

El error aparece porque no le da tiempo a seleccionar el grafico, y cuando quere sacar el dato Y, lo unico que saca es un espacio vacio, y al tratar de hacer split no encuentra nada.

Para corregir esto sube la linea "ActiveChart.ChartArea.Select" antes del Y=... y todo funcionara como debe ser.

Nota: tambien en la parte de borrar el chart hay que cambiar por "ActiveSheet.ChartObjects.Delete".

radiación Tmed
17,55 2,750
129,94 3,723
298,43 5,200
448,05 6,548
555,96 7,524
656,35 8,210
678,48 8,773
616,35 9,006
424,90 8,453
227,70 7,305
137,33 6,290
60,83 5,410
5,75 4,690

hola una pregunta quisiera usar matlab pero con un polinomio de grado 2 alguien q me ayude x favor bendiciones