frtm for Android APK

Beschreiwung

Frtm (FoRth Modoki) ass eng Software déi d'Programméiersprooch FORTH simuléiert. Wéi och ëmmer, et ass net geduecht fir de strikte FORTH ze reproduzéieren. Et gëtt kee Compiler, awer d'Wierder an d'Konstanten an engem Benotzerdefinéierte Wuert ginn interpretéiert wann et registréiert ass.

Et ginn och e puer Aspekter am Géigesaz zu FORTH: frtm huet net d'Wierder fir de Retour Stack ze manipuléieren, wärend frtm déi rekursiv Definitioun vum Wuert erlaabt.

Frtm ënnerstëtzt och d'Berechnung vun reellen Zuelen. Et huet mathematesch Funktiounen wéi exponentiell, Quadratwurzel, trigonometresch Funktiounen, hyperbolesch Funktiounen, bitwise Operatiounen. Also frtm kann déi alternativ Software vum wëssenschaftleche Rechner sinn.

D'Interpretatioun vum Ausdrock gëtt am Aklang mat der Reverse Polish Notation (RPN) duerchgefouert. Frtm huet bedingte Branche "wann", Struktur fir eng Loop "do-während" a "fir-Loop". Dir kënnt och en neit Wuert maachen andeems Dir d'Wuert kombinéiert.

Am Android OS ass d'Konfiguratioun vun der initialer Gréisst vum Wierderbuch an dem Stack, d'Fäegkeet fir d'Wuert am Wierderbuch an de "Wuertbuch" ze späicheren. D'Zuel vun "Wuert Buch" ass limitéiert op bis zu dräi.

Fir eng méi detailléiert Spezifizéierung vun der Sprooch, kuckt w.e.g. op d'Websäit op Japanesch fir Ënnerstëtzung.

Wann Dir frtm fräi testen wëllt, probéiert w.e.g. d'Java Applet Versioun vu frtm op der folgender Websäit:

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

*** Beispiller vu Wierder ***

* Duerchschnëtt vun zwou Zuelen

: ave + 2.0/;

* Duerchschnëtt vun N Zuelen

: Nave Swap iwwer 1 fir Rot + Loop Swap 1.0 * /;

2 4 6 8 10 5 Schëffer. cr

0 1 2 3 4 5 6 7 8 9 10 SP Schëffer. cr

* Populatioun Varianz vun N Zuelen

: nvarp dup 1+ kopéieren nave SP nrotr tauschen dup * iwwer 1 fir verrotten dup * + Loop tauschen 1.0 */SP norot dup * -;

2 4 6 8 10 5 nvarp. cr

* Onparteiesch Varianz vun N Zuelen

: nvar dup 1+ kopéieren nave SP nrotr tauschen dup * iwwer 1 fir verrotten dup * + loop SP nrot dup * 3 ndup * - tauschen 1- 1.0 */;

2 4 6 8 10 5 nvar. cr

* Gréisst gemeinsam divisor vun 2 Zuelen

: gcd wiesselen iwwer % dup 0 > iwwerdeems drop;

1001 819 gcd. cr

* Faktor [Fakt(1)=1, Fakt(n)=n*Fakt(n-1)]

** Rekursioun

: factr dup 1=wann soss dup 1- factr * endif ;

10 fakt. cr

** Iteratioun

: facti 1 tauschen 1+ 1 fir I * Loop;

10 Fakten. cr

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

** Rekursioun

: fib dup 0= wann soss dup 1=wann soss dup 1- fib swap 2 - fib + endif endif ;

30 vuf. cr

** Iteratioun

: fibi dup 0= wann soss 0 1 verrotten 1 fir Tauschen iwwer + Loop Tauschen drop endif;

30 fibb. cr

* Grafiken

** Fëllt Rechteck

: Këschte 16 0 fir ech setcol 10 20 ech * + dup 100 100 rectf Loop;

gm boxen

: hls 16 0 fir ech 45 * 2/50 100 setHLS 10 20 ech * + dup 100 100 rectf Loop ;

gm hls

** Rekursiv Zeechnen (Koch Curve)

: virun 5 Kopie drop;

: genx 3 ndup 6 ndup - * minus 100/tauschen 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop;

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

5 nrotr 4 ndrop;

: gen 6 kopéieren genx 7 nrotr geny;

: halen 7 nrotr 7 nrotr Pre;

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

: Linn moveto lineto;

: koch dup 0=wann drop Linn soss

virun 0 0 gen halen 33 0 gen post koch

virun 33 0 gen halen 50 -28 gen post koch

virun 50 -28 gen halen 66 0 gen post koch

virun 66 0 gen halen 100 0 gen post koch

5 ndrop

endif ;

: 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 koch

** Direkt Notzung vum ReGIS Grafikterminal wéi Fluchsequenz

gm vun

(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]'Hallo Welt') .

// Andeems Dir d'Wuert 'grdemo' benotzt, ginn e puer Wierder fir Beispiller vu Grafiken am Wierderbuch registréiert.