Destilación Flash Binaria Resuelta con Excel, VBA y Aspen Plus
Автор: Ingeniería Práctica
Загружено: 2022-12-09
Просмотров: 755
Описание:
Se explica brevemente la destilación Flash Binaria y se resuelve un problema sencillo usando una hoja de cálculo de Excel, un código sencillo de VBA con aplicaciones para Excel y una simulación simple en Aspen Plus.
Public Function flashbinario(z, f)
x = 0.001
contador = 0
Do
contador = contador + 1
x = x - yeqyop(x, z, f) / dyeqyop(x, z, f)
If Abs(yeqyop(x, z, f)) = 0.000001 Then Exit Do 'Agregar en esta línea el menor que antes del igual
If contador = 1000 Then Exit Do 'Agregar en esta línea el mayor que antes del igual
Loop
flashbinario = x
End Function
Public Function yeqyop(x, z, f)
yeq = -49.376 * x ^ 6 + 165.61 * x ^ 5 - 216.95 * x ^ 4 + 140.83 * x ^ 3 - 47.072 * x ^ 2 + 7.9585 * x
yop = -(1 - f) / f * x + z / f
yeqyop = yeq - yop
End Function
Public Function dyeqyop(x, z, f)
dx = 0.0000001
dyeqyop = (yeqyop(x + dx, z, f) - yeqyop(x - dx, z, f)) / (2 * dx)
End Function
Повторяем попытку...
Доступные форматы для скачивания:
Скачать видео
-
Информация по загрузке:
