Glosario

VGER es V'Ger, el nombre en código para las 49G y también un robot/computadora en una película de Star Trek.

Este foro, solamente es de lectura, para los nuevos foros dirígase a www.adictoshp.org

Programa para Calcular la Fuerza neta y el Centro de presiones (Mecanica de Fluidos)

11 respuestas [Último envío]
Integró: 07/10/2009
Envíos: 9
MonedasHP: 4
Imagen de kappa
kappa Usuario Desconectado. Visto por última vez 3 años 35 semanas.
Calc: HP49 | ROM:HP49-C 1.24
Programa para Calcular la Fuerza neta y el Centro de presiones (Mecanica de Fluidos)
 
Mié, 07/10/2009 - 18:23

Hola Adictos... Este es un segundo programa que desarrolle para calcular el centro de presiones y la Fuerza neta, es para Mecanica de fluidos, lo hize porque ya se acerkan mis parciales =( ... Bueno este es un programa basico, fail de entender y usar. Solo que se ve feo cuando esta todo el codigo amontonado, pero se que uds. lo podran entender =). Haciendo este programa me tope con una incognita: se puede CHOOSEar dentro de un INFORM????? o como es ese directorio INFORMIN???? la verda que me deskoncerto un poko no poder hacerlo... Si alguien me pueda ayudar, explikar, como puedo meter CHOOSE dentro de un INFORM, le estaria eternamente agradecido. Les dejo kon el programa de Fluidos... XD FcpYcp 1.0
.........................................................................................................................................................................................................................................................................................................................................................
« CLLCD "Que desea calcular?"
{ { "Fuerza Neta cg" 1 } {
"Distancia Ycp" 2 } } 1
CHOOSE
IF
THEN  opc
«
IF 'opc==1'
THEN "Cuantos liquidos
hay?" { { "Uno" 1 } { "Dos" 2
} } 1 CHOOSE
IF
THEN  opc2
«
IF 'opc2==1'
THEN "Calculo de
Fcg" { { "Po:" "Presion sobre
liquidos" } { "A:" "Area de
la superficie (m2)" } { "‘1:"
"Peso especifico (kgf/m3)" }
{ "h1:" "altura del liquido
(m)" } } 2 { } { 0 0 1000 0 }
INFORM
IF
THEN OBJ DROP
 P A G h '(G*h+P)*A' EVAL
END
END
IF 'opc2==2'
THEN "Calculo de
Fcg" { { "Po:" "Presion sobre
liquidos" } { "A:" "Area de
la superficie (m2)" } { "‘1:"
"Peso especifico 1 (kgf/m3)"
} { "h1:" "altura del liquido
1 (m)" } { "‘2:" "Peso
especifico 2 (kgf/m3)" } {
"h2:" "altura del liquido 2
(m)" } } 2 { } { 0 0 1000 0
1000 0 } INFORM
IF
THEN OBJ DROP
 P A G h G2 h2
'(G*h+G2*h2+P)*A' EVAL
END
END
»
END
END
IF 'opc==2'
THEN CLLCD "Formula:

‘*sin(•)*Ixx ------------
F" MSGBOX "Distancia
Ycp al cg" { { "‘:" "Peso
especifico (kgf/m3)" } { "•:"
"Angulo de inclinacion (GS)"
} { "Ixx:" "Momento de
Inercia xx (m4)" } { "F:"
"Fuerza neta (kgf)" } } 2 { }
{ 1000 0 0 0 } INFORM
IF
THEN OBJ DROP  G T
I F 'G*I*SIN(T)/F' NUM
END
END
»
END
»

Atte. Luis Vizcarra

Top
Integró: 31/03/2010
Envíos: 1
MonedasHP: 6
Imagen de isi_1441
isi_1441 Usuario Desconectado. Visto por última vez 4 años 38 semanas.
Calc: HP50 | ROM:hp50g
 
#1
Mié, 31/03/2010 - 16:09

hola me gusta esta pag no sabia que abia una me encanta esta calculadora quisiera programas especialmente para ing. civil por fa me ayudaria mucho gracias

Top
Integró: 09/03/2010
Envíos: 467
MonedasHP: 926
Imagen de zuaritx
zuaritx Usuario Desconectado. Visto por última vez 4 años 1 semana.
Calc: HP48G/GX | ROM:.
 
#2
Mar, 14/12/2010 - 21:05

<

Top
Integró: 09/03/2010
Envíos: 467
MonedasHP: 926
Imagen de zuaritx
zuaritx Usuario Desconectado. Visto por última vez 4 años 1 semana.
Calc: HP48G/GX | ROM:.
 
#3
Mar, 14/12/2010 - 21:06

<

Top
Integró: 18/05/2010
Envíos: 4
MonedasHP: 12
Imagen de vikingo
vikingo Usuario Desconectado. Visto por última vez 4 años 30 semanas.
Calc: HP50 | ROM:hp50-c
 
#4
Vie, 21/05/2010 - 02:21

como se come esto amigos donde lo compilo?

Top
Integró: 09/03/2010
Envíos: 467
MonedasHP: 926
Imagen de zuaritx
zuaritx Usuario Desconectado. Visto por última vez 4 años 1 semana.
Calc: HP48G/GX | ROM:.
 
#5
Mar, 14/12/2010 - 21:07

<

Top
Integró: 26/12/2007
Envíos: 629
MonedasHP: 595
Imagen de Dani_
Dani_ Usuario Desconectado. Visto por última vez 2 años 23 semanas.
Calc: HP50 | ROM:2.09
 
#6
Vie, 21/05/2010 - 09:51

Pegué ambos ejemplos en HPUserEdit por curiosidad, pero ninguno funciona.

En el primer caso, luego de pegarlo de aquí al HPUserEdit me da un STR-> error al mandarlo al emulador desde HPUserEdit. No veo por qué sucede esto.

En el último ejemplo los símbolos << >> -> tal como están no sirven para pegar directamente en HPUserEdit.

Ingeniero. Usuario de HP 50g.

Top
Integró: 09/03/2010
Envíos: 467
MonedasHP: 926
Imagen de zuaritx
zuaritx Usuario Desconectado. Visto por última vez 4 años 1 semana.
Calc: HP48G/GX | ROM:.
 
#7
Mar, 14/12/2010 - 21:09

<

Top
Integró: 26/12/2007
Envíos: 629
MonedasHP: 595
Imagen de Dani_
Dani_ Usuario Desconectado. Visto por última vez 2 años 23 semanas.
Calc: HP50 | ROM:2.09
 
#8
Vie, 21/05/2010 - 13:22

Ahora si funciona el ejemplo del post #3.
Muy interesante, cuando tenga más tiempo voy a mirar bien esto, es bastante útil.
Gracias por la contribución Zuaritx.

Ingeniero. Usuario de HP 50g.

Top
Integró: 18/05/2010
Envíos: 4
MonedasHP: 12
Imagen de vikingo
vikingo Usuario Desconectado. Visto por última vez 4 años 30 semanas.
Calc: HP50 | ROM:hp50-c
 
#9
Vie, 21/05/2010 - 13:26

amigo no logro que corra el progra soy novato por favor ayuda

Top
Integró: 09/03/2010
Envíos: 467
MonedasHP: 926
Imagen de zuaritx
zuaritx Usuario Desconectado. Visto por última vez 4 años 1 semana.
Calc: HP48G/GX | ROM:.
 
#10
Mar, 14/12/2010 - 21:10

<

Top
Integró: 07/10/2009
Envíos: 9
MonedasHP: 4
Imagen de kappa
kappa Usuario Desconectado. Visto por última vez 3 años 35 semanas.
Calc: HP49 | ROM:HP49-C 1.24
 
#11
Lun, 18/04/2011 - 18:52

visita mi blog:

www.elblogdekappa.blogspot.com

Atte. Luis Vizcarra

Top

Twitter