frtm for Android APK

Lýsing

Frtm (FoRth Modoki) er hugbúnaður sem líkir eftir forritunarmálinu FORTH. Hins vegar er ekki ætlað að endurskapa stranga FORTH. Það er enginn þýðandi heldur eru orðin og fastarnir í notendaskilgreindu orði túlkaðir þegar það er skráð.

Það eru líka nokkrir þættir ólíkir FORTH: frtm hefur ekki orðin til að vinna með skilastaflann, en frtm leyfir endurkvæma skilgreiningu orðsins.

Frtm styður einnig útreikning á rauntölum. Það hefur stærðfræðilegar aðgerðir eins og veldisvísi, kvaðratrót, hornafræðilegar aðgerðir, yfirstýringaraðgerðir, bitaaðgerðir. Svo frtm getur verið annar hugbúnaður vísindalegrar reiknivélar.

Túlkun orðsins fer fram í samræmi við Reverse Polish Notation (RPN). Frtm hefur skilyrta grein "ef", uppbyggingu fyrir lykkju "gera-á meðan" og "fyrir-lykkja". Þú getur líka búið til nýtt orð með því að sameina orðið.

Á Android stýrikerfinu hefur verið bætt við uppsetningu á upphafsstærð orðabókarinnar og stafla, möguleikanum á að vista orðið í orðabókinni í "orðabókinni". Fjöldi „orðabóka“ er takmarkaður við allt að þrjár.

Fyrir frekari upplýsingar um tungumálið, vinsamlegast skoðaðu vefsíðuna á japönsku til að fá aðstoð.

Ef þú vilt prófa frtm frjálslega, vinsamlegast reyndu Java applet útgáfu af frtm á eftirfarandi vefsíðu:

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

*** DÆMI um orð ***

* Meðaltal af tveimur tölum

: ave + 2,0/;

* Meðaltal N tölur

: skipsskip skipta yfir 1 fyrir rot + lykkjuskipti 1,0 */;

2 4 6 8 10 5 skip . kr

0 1 2 3 4 5 6 7 8 9 10 SP skip . kr

* Mannfjöldafrávik N tölur

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

2 4 6 8 10 5 nvarp . kr

* Óhlutdrægt dreifni N talna

: nvar dup 1+ copy nave SP nrotr skipta dup * yfir 1 fyrir rot dup * + lykkja SP nrot dup * 3 ndup * - skipta 1- 1.0 */;

2 4 6 8 10 5 nvar . kr

* Stærsti samdeilirinn af 2 tölum

: gcd skipta yfir % dup 0 > meðan falla ;

1001 819 gcd. kr

* Staðreynd(1)=1, staðreynd(n)=n*staðreynd(n-1)]

** Endurkoma

: factr dup 1=ef annars dup 1- factr * endif ;

10 staðreyndir. kr

** Endurtekning

: facti 1 skipta 1+ 1 fyrir I * lykkju ;

10 staðreyndir. kr

* Fibonacci röð [fib(0)=0, fib(1)=1, fib(n)=fib(n-1) + fib(n-2)]

** Endurkoma

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

30 fib. kr

** Endurtekning

: fibi dup 0= ef annað 0 1 rotna 1 fyrir skipta yfir + lykkja skipta falla endif ;

30 fibi. kr

* Grafík

** Fylltu rétthyrninginn

: kassar 16 0 fyrir I setcol 10 20 I * + dup 100 100 rectf lykkja ;

gm kassa

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

gm hls

** Endurkvæm teikning (Koch ferill)

: pre 5 copy drop ;

: genx 3 ndup 6 ndup - * mínus 100/skipta 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop ;

: Geny skipti 3 ndup 6 ndup - * 100/skipti 4 ndup 7 ndup - * 100/+ 4 ndup +

5 nrotr 4 ndrop ;

: gen 6 afrita genx 7 nrotr geny ;

: halda 7 nrotr 7 nrotr pre ;

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

: line moveto lineto ;

: koch dup 0= ef falllína annað

pre 0 0 gen halda 33 0 gen post koch

pre 33 0 gen halda 50 -28 gen post koch

pre 50 -28 gen halda 66 0 gen post koch

pre 66 0 gen halda 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 kochs

** Bein notkun á ReGIS grafíkútstöð eins og flóttaröð

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]'Halló heimur') .

// Með því að nota orðið 'grdemo' verða nokkur orð fyrir dæmi um grafík skráð í orðabókina.