Programas HP48: Resolver la ecuación de Colebrook
27 dUTC Octubre dUTC 2006 at 17:51 | In Ciencia, Hewlett Packard, Programación | 1 Comment
En esta nueva entrega desvelo otro de mis arcanos programas para la HP48G. En este caso se trata de un programa para mecánica de fluidos. Cuando un fluido fluye por una conducción, pierde energía mecánica debido al rozamiento. Dicha pérdida suele cuantificarse con el llamado factor de fricción "ƒ". Existen diversas ecuaciones para determinarlo según las condiciones del fluido y otras, pero la más general y la más extendida en su uso es la ecuación de Colebrook.
Nótese que es una ecuación implícita en ƒ, por lo que hay que resolverla por iteraciones. He aquí el programa que hace el trabajo:
« .008 → Re εD f « DO '-4*LOG(εD/3.7065 + 1.257/Re/√f)' →NUM INV SQ DUP DUP f - SWAP / 100 * SWAP 'f' STO ABS UNTIL .01 < END f "f" →TAG » »
Hay que introducir en la pila, el número de Reynolds y el valor ε/D (el valor del factor de rugosidad dividido por el diámetro de la conducción) y el programa devuelve el valor de ƒ. Nótese también que los coeficientes son distintos de los que se muestran en la imagen; depende de la bibliografía que se coja.
Nota: Donde se ve “ε” se debe ver la letra griega épsilon, donde se ve “→” debe verse una flecha a derechas y donde se ve “ƒ” debe verse la letra efe.
1 comentario »
Canal RSS de los comentarios de la entrada. URI para TrackBack.
Deja un comentario
Blog de WordPress.com. | Theme: Pool by Borja Fernandez.
Entries and comments feeds.
Gracias por el codigo, pero aparece un error de sintaxis y no puedo resolverlo, agradezco me pueda resolver el problema
gracias.
Comentario por Roberto — 17 dUTC Agosto dUTC 2009 #