Inicio de sesión
Navegación
Actualmente hay 1 usuario y 21 invitados en línea.
Usuarios 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
- como hacer una barra de menus ??
- ROM 2.10-7 Spreadsheet & Geometry manuales y biblioteca.
- Ayuda con Raices
- Nueva Calculadora HP?? HP 39gII spécification
- [PROYECTOS] EoEiProEngLib, MathEngProLib, EquatnEngProLib & and HP50GNKLib
- ayuda con integral exponencial
- programa tipo excell que permita introducir formulas en las tablas
- como aprender tantos comandos en SYSTEM?
- [PROYECTO] Universal Font Library for HP50G CAS para recuperar "Hello World" 3 ->GROB de la HP48GX (1994)
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