Nanotecnologia

UNIVERSIDAD NACIONAL DE SAN AGUSTÍN
FACULTAD DE INGENIERÍA DE PROCESOS
ESCUELA PROFESIONAL DE INGENIERÍA QUÍMICA

CURSO:
DISEÑO Y EVALUACIÓN DE PROCESOS
TEMA:
LABORATORIO Nº 3
INTEGRANTES:
ANGULO VARGAS SHEYLA
CAMA CHAMBI JOSE LUIS
VALLADOLID JOVE BREET
HUARACALLO CHOQUE CESAR
VERA CANO TEDY
TURNO: MARTES 5 a 7 pm
DOCENTE:
ING. FELIPE MIRANDA
AREQUIPA-PERU
2010DISEÑO Y EVALUACIÓN DE PROCESOS
INFORME DE LABORATORIO NO. 3

Problema NO 1

A partir del polinomio de interpolación de Newton encuentre una fórmula para interpolar una parábola por tres puntos. Asumir que estos puntos no son equidistantes. Luego integre este polinomio y encuentre un polinomio de interpolación semejante al de Simpson, pero con puntos no equidistantes. Escriba un programa enVisual Basic para integrar con este polinomio de interpolación no equidistante. Pruebe su programa con una función sencilla cuya integral analítica sea simple de encontrar tal como: Y = X4 – 3 X2 +3. Verifique sus resultados.
Resolución

Next
col = 1
For X = 0 To MSFlexGrid1.Rows - 2
For Y = 0 To nu - 1
Matriz(Y, col + 1) = (Matriz(Y + 1, col) - Matriz(Y, col)) / (Matriz(Y +col, 0) - Matriz(Y, 0))
Next
col = col + 1
nu = nu – 1

Next
Text4.Text = Simpson(Matriz(2, 0), Matriz(0, 0), InputBox("Ingrese Numero de Subintervalos: ", "Integracion"))
End Sub
Function FX(Xi As Single) As Single
FX = Matriz(0, 1) + Matriz(0, 2) * (Xi - Matriz(0, 0)) + Matriz(0, 3) * (Xi - Matriz(0, 0)) * (Xi - Matriz(1, 0))
End Function
Function Simpson(b As Single, a AsSingle, n As Single) As Single
Dim h As Single
Dim sumaimp As Single
Dim sumapar As Single
h = (b - a) / n
For i = 1 To n
sumaimp = sumaimp + FX(a + (2 * i - 1) * h)
sumapar = sumapar + FX(a + 2 * i * h)

Next
Simpson = (h / 3) * (FX(a) - FX(b) + 4 * sumaimp + 2 * sumapar)
End Function
Function Parabola(X As Single) As Single
Parabola = X ^ 4 - 3 * X ^ 2 + 3
End FunctionPrivate Sub MSFlexGrid1_Click()
a = MSFlexGrid1.Row
b = MSFlexGrid1.col
MSFlexGrid1.TextMatrix(a, b) = InputBox("Ingrese valor en Fila: " & a & ",columna: " & b, "Interpolación")
MSFlexGrid1.TextMatrix(a, b + 1) = Parabola(MSFlexGrid1.TextMatrix(a, b))
End Sub







Problema NO 2

Haciendo uso del Excel determine una función de correlación paralos siguientes datos de conductividad térmica, correspondientes al dióxido de carbono, expresados en BTU/h/Ft/F
Temperatura, F | 32 | 212 | 392 | 572 |
K, BTU/h/ft/F | 0,0085 | 0,0133 | 0,0181 | 0,0228 |

Igualmente haciendo uso del Excel determine una función de la forma:
Viscosidad = A [(T+460)/460]B correspondientes al etilen glicol:
Temperatura, F | 0 | 50 | 100 | 150 | 200 |Viscosidad, lb/ft/h | 242 | 82,1 | 30,5 | 12,6 | 5,57 |

Ahora aplique el método de interpolación de Newton para obtener polinomios de interpolación para estos datos y compare los resultados con respecto a aquellos obtenidos por regresión con el Excel.
Resolución

Private Sub Command1_Click()
Dim n As Integer
Dim fil As Integer
Dim col As Integer
Dim FX As Single
n = MSFlexGrid1.Rows - 2ReDim Matriz(n + 3, n + 3)
For x = 0 To 1
For y = 0 To n Matriz(y, x) = MSFlexGrid1.TextMatrix(y + 1, x)
Next
Next
col = 1
For x = 0 To MSFlexGrid1.Rows – 2
For y = 0 To n - 1
Matriz(y, col + 1) = (Matriz(y + 1, col) - Matriz(y, col)) / (Matriz(y + col, 0) - Matriz(y, 0))

Next
col = col + 1
n = n – 1

Next
FX = 0
For Z = 1 To MSFlexGrid1.Rows - 1MSFlexGrid3.TextMatrix(Z, 0) = MSFlexGrid1.TextMatrix(Z, 0)
MSFlexGrid3.TextMatrix(Z, 1) = MSFlexGrid1.TextMatrix(Z, 1)
x = MSFlexGrid3.TextMatrix(Z, 0)
FX = Matriz(0, 1) + Matriz(0, 2) * (x - Matriz(0, 0))
Px = x - Matriz(0, 0)
col = 3
For y = 1 To MSFlexGrid1.Rows - 3
Px = Px * (x - Matriz(y, 0))
FX = FX + Matriz(0, col) * Px
col = col + 1
Next...