frtm for Android APK

Descripción

Frtm (FoRTh Modoki) es un software que simula el lenguaje de programación FORTH. Sin embargo, no pretende reproducir el CUARTO estricto. No hay compilador, pero las palabras y las constantes en una palabra definida por el usuario se interpretan cuando se registra.

También hay algunos aspectos a diferencia de FORTH: frtm no tiene las palabras para manipular la pila de retorno, mientras que frtm permite la definición recursiva de la palabra.

Frtm también admite el cálculo de números reales. Tiene funciones matemáticas como exponencial, raíz cuadrada, funciones trigonométricas, funciones hiperbólicas, operaciones bit a bit. Entonces, frtm puede ser el software alternativo de la calculadora científica.

La interpretación de la expresión se realizará de acuerdo con la notación polaca inversa (RPN). Frtm tiene una rama condicional "if", estructura para un bucle "do-while" y "for-loop". También puede crear una nueva palabra combinando la palabra.

En el sistema operativo Android, se ha agregado la configuración del tamaño inicial del diccionario y la pila, la capacidad de guardar la palabra en el diccionario en el "libro de palabras". El número de "libro de palabras" está limitado a un máximo de tres.

Para obtener una especificación más detallada del idioma, consulte la página web en japonés para obtener asistencia.

Si desea probar frtm libremente, pruebe la versión del subprograma Java de frtm en la siguiente página web:

http://www.rbt.his.u-fukui.ac.jp/~naniwa/comp/frtma.html

*** EJEMPLOS de palabras ***

* Promedio de dos números

: promedio + 2.0/;

* Promedio de N números

: intercambio de nave sobre 1 por rot + intercambio de bucle 1.0 */;

2 4 6 8 10 5 nave . cr

0 1 2 3 4 5 6 7 8 9 10 ESP nave . cr

* Varianza poblacional de N números

: nvarp dup 1+ copy nave SP nrotr swap dup * over 1 for rot dup * + loop swap 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp. cr

* Varianza imparcial de N números

: nvar dup 1+ copy nave SP nrotr swap dup * over 1 for rot dup * + loop SP nrot dup * 3 ndup * - swap 1- 1.0 */;

2 4 6 8 10 5 nvar. cr

* Máximo común divisor de 2 números

: gcd hacer swap over %dup 0 > while drop ;

1001 819 mcd. cr

* Factorial [hecho(1)=1, hecho(n)=n*hecho(n-1)]

** Recursividad

: factr dup 1=if else dup 1- factr * endif ;

10 hechos cr

** Iteración

: facti 1 swap 1+ 1 por I * loop ;

10 hechos cr

* Secuencia de Fibonacci [fib(0)=0, fib(1)=1, fib(n)=fib(n-1) + fib(n-2)]

** Recursividad

: fib dup 0= if else dup 1=if else dup 1- fib swap 2 - fib + endif endif ;

30 fib. cr

** Iteración

: fibi dup 0= if else 0 1 rot 1 for swap over + loop swap drop endif ;

30 fibi. cr

* Gráficos

** Rectángulo de relleno

: casillas 16 0 para I setcol 10 20 I * + dup 100 100 rectf loop ;

cajas gm

: hls 16 0 para I 45 * 2/50 100 setHLS 10 20 I * + dup 100 100 rectf loop ;

gm hls

** Dibujo recursivo (curva de Koch)

: antes de 5 copias de caída ;

: genx 3 ndup 6 ndup - * menos 100/swap 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop ;

: geny swap 3 ndup 6 ndup - * 100/swap 4 ndup 7 ndup - * 100/+ 4 ndup +

5 nrotr 4 ndrop ;

: gen 6 copia genx 7 nrotr geny ;

: mantener 7 nrotr 7 nrotr pre ;

: publicar 9 nrot 9 nrot 4 nrot 4 nrot 5 ndup 1- ;

: línea mover a línea a ;

: koch dup 0= si soltar línea más

pre 0 0 gen mantener 33 0 gen post koch

pre 33 0 gen mantener 50 -28 gen post koch

pre 50 -28 gen mantener 66 0 gen post koch

pre 66 0 gen mantener 100 0 gen post koch

5 gotas

terminara si ;

: kochs 10 setcol 89 440 551 440 4 koch

11 setcol 551 440 320 40 4 koch

12 setcol 320 40 89 440 4 koch ;

gm kochs

** Uso directo de terminal de gráficos ReGIS como secuencia de escape

gm

(W(I15)P[50,50]C(S)[][+40,+40][+40,-40][+40,+40][+40,-40][+40,+ 40][+40,-40][](E)) .

(W(I12)P[50,150]F(C(B)[200,+200][+200,-150](E))) .

(W(I11)P[70,170]T(S16)[16,12]'Hola mundo') .

// Al usar la palabra 'grdemo', algunas palabras para ejemplos de gráficos se registrarán en el diccionario.