frtm for Android APK

Опис

Frtm (FoRTh Modoki) е софтвер кој го симулира програмскиот јазик FORTH. Сепак, тоа не е наменето да го репродуцира строгиот IV. Нема компајлер, но зборовите и константите во зборот дефиниран од корисникот се толкуваат кога тој е регистриран.

Има и некои аспекти за разлика од FORTH: frtm нема зборови за манипулирање со повратниот оџак, додека frtm дозволува рекурзивна дефиниција на зборот.

Frtm поддржува и пресметување на реални броеви. Има математички функции како експоненцијален, квадратен корен, тригонометриски функции, хиперболични функции, битови операции. Така, frtm може да биде алтернативен софтвер на научниот калкулатор.

Толкувањето на изразот ќе се изврши во согласност со Обратно полски нотација (RPN). Frtm има условна гранка „ако“, структура за јамка „do-while“ и „for-loop“. Можете исто така да направите нов збор со комбинирање на зборот.

На оперативниот систем Android, додадена е конфигурацијата на почетната големина на речникот и оџакот, можноста за зачувување на зборот во речникот во „книга со зборови“. Бројот на „книга со зборови“ е ограничен на три.

За подетална спецификација на јазикот, ве молиме погледнете ја веб-страницата на јапонски за поддршка.

Ако сакате слободно да тестирате frtm, ве молиме пробајте ја верзијата на Java аплетот на frtm на следната веб-страница:

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

*** ПРИМЕРИ на зборови ***

* Просек од два броја

: ав + 2,0/;

* Просек од N броеви

: замена на набот преку 1 за гниење + замена на јамка 1.0 */;

2 4 6 8 10 5 наос . кр

0 1 2 3 4 5 6 7 8 9 10 СП наос . кр

* Популациона варијанса на N броеви

: nvarp dup 1+ copy nave SP nrotr swap dup * над 1 за rot dup * + loop swap 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp . кр

* Непристрасна варијанса на N броеви

: nvar dup 1+ copy nave SP nrotr swap dup * над 1 за rot dup * + loop SP nrot dup * 3 ndup * - swap 1- 1.0 */;

2 4 6 8 10 5 nvar . кр

* Најголем заеднички делител на 2 броја

: gcd do swap преку % dup 0 > while drop ;

1001 819 gcd. кр

* Факторијален [факт(1)=1, факт(n)=n*факт(n-1)]

** Рекурзија

: factr dup 1=ако друго dup 1- factr * endif ;

10 фактори. кр

** Итерација

: facti 1 swap 1+ 1 for I * циклус ;

10 факти. кр

* Низа Фибоначи [fib(0)=0, fib(1)=1, fib(n)=fib(n-1) + fib(n-2)]

** Рекурзија

: fib dup 0= ако друго dup 1=ако друго dup 1- fib swap 2 - fib + endif endif ;

30 влакна. кр

** Итерација

: fibi dup 0= ако друго 0 1 rot 1 for swap over + loop swap drop endif ;

30 фиби . кр

* Графика

** Пополнете правоаголник

: кутии 16 0 за I setcol 10 20 I * + dup 100 100 recf loop ;

gm кутии

: hls 16 0 за I 45 * 2/50 100 setHLS 10 20 I * + dup 100 100 recf јамка ;

gm hls

** Рекурзивен цртеж (крива Кох)

: пред 5 копирање пад ;

: genx 3 ndup 6 ndup - * минус 100/замени 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 капки;

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

5 nrotr 4 капки;

: gen 6 копирајте genx 7 nrotr geny ;

: задржи 7 nrotr 7 nrotr пред ;

: пост 9 nrot 9 nrot 4 nrot 4 nrot 5 ndup 1- ;

: линијата се движи во линијата ;

: koch dup 0= ако падне линија друго

пред 0 0 ген задржи 33 0 ген пост коч

пред 33 0 ген задржи 50 -28 ген пост коч

пред 50 -28 ген задржи 66 0 ген пост коч

пред 66 0 ген задржи 100 0 ген пост коч

5 капки

endif ;

: kochs 10 setcol 89 440 551 440 4 koch

11 сеткол 551 440 320 40 4 коч

12 сеткол 320 40 89 440 4 коч;

гм кочи

** Директна употреба на графички терминал ReGIS како секвенца за бегство

гм

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

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

(W(I11)P[70,170]T(S16)[16,12]„Здраво свето“) .

// Со користење на зборот „грдемо“, некои зборови за примери на графика ќе бидат регистрирани во речникот.