Inicio de sesión
Navegación
Actualmente hay 0 usuarios y 5 invitados en línea.
ayuda a pasar un programa de user a sistem
- Inicie sesión o regístrese para enviar comentarios
ayuda a pasar un programa de user a sistem
Lun, 14/06/2010 - 15:34
hola a todos los adictos a ver aca les traigo un problemilla a ver si me ayudan es hace poco hice un pequeño programa en user y es un poco lento a ver si me ayudan a pasar a sistem es corto alli les va el codigo y « ->M N
« M SIZE EVAL DROP m STO M { 1 1 } { N N } SUB M 1 N 1 + 2 LIST { N m } SUB
M N 1 + DUP 2 LIST { m m } SUB INV M N 1 + 1 2 LIST { m N } SUB * * -
»
» se trata de condesar un matriz(m*m) de rigidez de un estructura pra condensarlo a una matriz de n*n a ver si me ayudan gracias por su ayuda
- Inicie sesión o regístrese para enviar comentarios
Otros temas de interes
Integró: 09/03/2010
Envíos: 207
MonedasHP: 412
He probado tu aplicación en el HPUserEdit y va muy rápido (0.0468 segundos)
2 DUP 'NODO' STO
[[ 1 0 3 4 0 6 7 8 9 ]
[ 0 2 3 0 5 6 7 8 9 ]
[ 1 0 3 4 0 6 7 8 9 ]
[ 1 2 0 4 5 6 7 8 9 ]
[ 1 2 0 0 5 6 7 8 9 ]
[ 1 2 0 4 0 6 7 8 9 ]
[ 1 2 3 4 5 0 7 8 9 ]
[ 1 2 3 0 5 6 0 8 9 ]
[ 1 2 3 4 5 6 0 0 9 ]] DUP 'MAT' STO SWAP
« M N
« M SIZE EVAL DROP m STO
M { 1 1 } { N N } SUB
M 1 N 1 + 2 LIST { N m } SUB
M N 1 + DUP 2 LIST { m m } SUB
INV M N 1 + 1 2 LIST { m N } SUB * * -
» { m } PURGE
» 'CONDENS' STO
NOTA: Condensar en estructuras es eliminar filas y columnas en función de las condiciones de contorno pero el programa elimina según el orden N y de forma fija los N primeros ordenes (fila y columna) se guardan y se presupone que están ordenados.
¿Esta pequeña rutina forma parte de otro programa?
En system, no te puedo echar un cable, soy bastante novato aún.
- Inicie sesión o regístrese para enviar comentarios
zuaritx cita:
He probado tu aplicación en el HPUserEdit y va muy rápido (0.0468 segundos)
2 DUP 'NODO' STO [[ 1 0 3 4 0 6 7 8 9 ] [ 0 2 3 0 5 6 7 8 9 ] [ 1 0 3 4 0 6 7 8 9 ] [ 1 2 0 4 5 6 7 8 9 ] [ 1 2 0 0 5 6 7 8 9 ] [ 1 2 0 4 0 6 7 8 9 ] [ 1 2 3 4 5 0 7 8 9 ] [ 1 2 3 0 5 6 0 8 9 ] [ 1 2 3 4 5 6 0 0 9 ]] DUP 'MAT' STO SWAP « M N « M SIZE EVAL DROP m STO M { 1 1 } { N N } SUB M 1 N 1 + 2 LIST { N m } SUB M N 1 + DUP 2 LIST { m m } SUB INV M N 1 + 1 2 LIST { m N } SUB * * - » { m } PURGE » 'CONDENS' STO
NOTA: Condensar en estructuras es eliminar filas y columnas en función de las condiciones de contorno pero el programa elimina según el orden N y de forma fija los N primeros ordenes (fila y columna) se guardan y se presupone que están ordenados.
¿Esta pequeña rutina forma parte de otro programa?
En system, no te puedo echar un cable, soy bastante novato aún.
hey Zuaritx!:
siempre ofreciendo una posible solución con un nuevo programa!
participe en la última competencia que Erick Rechlin lanzó recientemente encomp.sys.hp48; y gane el honor de un reconocido programador creativo forista del momento! 
ó, participe generando retos para el resto de los programadores que estarán en esta interesante competencia que posiblemente será un espectáculo de talento de programación rpl/ml, y que sin duda toda la comunidad forista de estas maravillosas calculadoras hp estará observando!
+detalles [July programming challenge]: http://groups.google.com/group/comp.sys.hp48/browse_thread/thread/c8473b...
- Inicie sesión o regístrese para enviar comentarios
gracias por tu respuesta de todas formas