Iterar ecuación de Hidráulica

hay programas para el factor de friccion para la fórmula de colebrook.
http://www.hpcalc.org/search.php?query=colebrook ahi ya he pillado unos cuantos. hace tiempo en la seccion de hpgcc mostre un codigo escrito en C para hallar el factor de friccion, lo puedes buscar ahi, nose me parece que no buscaste nada,hay mucha informacion sobre esa formula.
Pero me parece que aun no sabes manejar la maquina, aqui te doy unos consejos para solucionar esa clase de ecuaciones.
* Puedes escribir la formula en el editor de ecuaciones implicitas y luego almacenarlo con algun nombre. Luego entras al solucionador de ecuaciones escojes la formula que guardaste y para solucionar pones una semilla generadora y te lo soluciona.
* Mi metodo preferido es escribir un programa
<< 'formula' STEQ 30 MENU >>
donde 'formula' es la la formula de colebrook que tienes que escribirla (a mi me da flojera), luego guardas con un nombre el programa y listo, al ejecutarlo tienes un menu en donde puedes introducir las variables que tengas y solucionar la que no tengas (puede ser cualquier variable, siempre y cuando tengas las otras).
Haber avisas como te va.

Tres alternativas:
a) Realizar un programas.
b) Use el comando ROOF, que es para iterar este tipo ejemplo.
<< ‘ecuacion’ ‘f’ 0.001 ROOT >>
Ecuación / Variable a encontrar (note las comillas) / valor inicial / ROOT

3: 1/f= .....
2: ‘f’
1: 0.001
ROOT
c) Use programas de terceros o regálese mi programa para HP49/49g+/50.

Un abrazo Gehorby Marlon

Reconocimiento al Sr. Andrés Garcia:

para encontrar el factor de fricción en tuberías que conducen algún tipo de fluido a presión se utiliza la Ecuación de COLEBROOK que viene dada como:
1 /  f = - (2 * LOG (1 / 3.7 * Ks /D + 2.51 / R *  f )
Donde:
f = Factor de fricción (Adimensional)
Ks = Coeficiente de rugosidad del material de la tubería (en mm)
D = Diámetro de la tubería. (En mm)
R = # de Reynolds. (Adimensional)
Como podemos ver, en esta ecuación es bastante complicado despejar la incógnita f, tendríamos que hacer tanteos hasta que se cumpla la igualdad.

Pero entonces veamos como se utiliza el entorno SOLVR para solucionar este tipo de ecuaciones, considerando el siguiente ejemplo:

EJEMPLO 1:
Se quiere encontrar el valor del factor fricción en una tubería que conduce agua con los siguientes datos:
Ks = 0.12 mm (Tubería de concreto CCP)
D = 300 mm
R = 421847.07
Veamos el código para luego explicarlo:

« -3 CF
"Ks (En mm)" " "
INPUT OBJ
"DIAMETRO (En mm):" " "
INPUT OBJ
"# DE REYNOLDS:" " "
INPUT OBJ
 Ks D R
« CLLCD
"Un momento por favor
Resolviendo ecuacion.."
3 DISP
' 1/ƒF= - (2*LOG(1/3.7*(Ks/D)+2.51/(R*ƒF))) ' EVAL
' Y=0 '
2 LIST
'EQ' STO
MINIT
F MCALC
F MROOT
5 RND
STR
"f=" SWAP +
MSGBOX
»
»

Ejecutar el código:

COMENTARIOS:
1. En la línea 1 vemos -3 CF lo que nos indica que estamos cambiando el FLAG 3. Esto es de vital importancia ya que este FLAG controla el modo de función numérica o simbólica. Siempre debe estar en simbólica, para esto ponemos -3 CF.
2. Luego vemos que pide la entrada de los datos necesarios mediante el comando INPUT.
3.  Ks D R Define las variables locales Ks, D, R
4. CLLCD Pone la pantalla en blanco.
5. "Un momento por favor Resolviendo ecuación.." 3 DISP. Pone el texto en el nivel 3 de la pantalla.
6. ' 1/ƒF= - (2*LOG(1/3.7*(Ks/D)+2.51/(R*ƒF))) ' EVAL. Realiza la operación.
7. ' Y=0 ' Conforma la ecuación ‘Y=0’ Recordemos que el entorno SOLVR utiliza dos o más ecuaciones que van dentro de una lista. Esta segunda ecuación se puede conformar como uno quiera siempre y cuando no contenga variables que contenga la primera ecuación en este caso.
8. 2 LIST Conforma la lista
9. 'EQ' STO Graba la lista con el nombre EQ
10. MINIT. Este comando lo que hace es definir la lista con las dos ecuaciones.
11. F MCALC Este comando lo que hace es definir a F como la incógnita a despejar.
12. F MROOT Este comando lo que hace es definir a F como la variable para la cual va a encontrar las raíces o ceros de la ecuación.
13. 5 RND. Trunca la respuesta a 5 lugares decimales.
14. STR Convierte la respuesta a STRING para mostrarla mediante el comando MSGBOX.
15. "f=" SWAP +. “Etiqueta la respuesta” “f = 0.017”
16. MSGBOX Crea una ventana de dialogo para mostrar la respuesta.
17. El programa nos deja grabadas algunas variables en el directorio actual como ( F, MPAR, EQ) Las cuales hay que eliminar.
17.Recomiendo hacer un DBUG a este código.

Aprovechando este post, estoy pensando en hacer un programa para tuberías
pero me preguntaba si alguien sabe de algun programa para resolver tuberías
considerando pérdidas por fricción del diagrama de moody y la formula de de colebrook y tambien perdidas locales.
... digo para no perder tiempo haciendo algo que ya existe.

Saludos =)

POR FAVOR ALGUIEN ME PODRIA DECIR SI CONOCEN ALGUNOS PROGRAMAS DE TRAZADOS DE PLANTILLAS PARA TUBERIA COMO BREACER, INSERTOS, ETC. MI CALCULADORA ES UNA HP50g

amigo, eh intentado con el solver de la hp, resolver esta ecuacion pero no me sale, que puedo hacer

i(1+i) ^ n
C=P( ------------------------)
((1+i) ^ n) -1

y pongo

P= 50 000
i=0.19
n=4
y quiero hallar c
deberia salir c=18949.55

pero me sale Invalid Funtion

que puedo hacer T_T ni con el Solvesys

Amigo bueno hice esto

Ingresa la ecuación mediante el EQW usando I en lugar de i tambien puse *

Una vez con la ecuación en el stack (puse Storage con el nombre de EQ)
Luego shift derecho y 7 (NUM.SLV).
Le das ENTER en Solve equation.
Ingresas los valores correspondientes de P, I y n.
Te posicionas sobre C y presionas el softkey correspondiente a SOLVE.

y me sale "Invalid User Function"

e probado con el Solvesys 1.2 y me sale " Invalid User Function"

Habra algo q haga conflicto?, yo estaba con el ROM:2.10-7 pero una vez q lo puse me presento este problema, asi q me fui al pagina del hp y me regrese al ROM 2.09 del 2006, pero sigo con este problema, sera problema del ROM o mejor me paso al 2.15?

o que mas puedo hacer mi calcu es una HP 49g+ la dorada

gracias por tus respuestas =)