frtm for Android APK

Açıklama

Frtm (ForRTh Modoki), FORTH programlama dilini simüle eden bir yazılımdır. Bununla birlikte, katı FORTH'u çoğaltmak amaçlanmamıştır. Derleyici yoktur, ancak kullanıcı tanımlı bir kelimedeki kelimeler ve sabitler, kaydedildiğinde yorumlanır.

FORTH'dan farklı olarak bazı yönler de vardır: frtm, dönüş yığınını manipüle edecek kelimelere sahip değildir, oysa frtm, kelimenin özyinelemeli tanımına izin verir.

Frtm ayrıca gerçek sayıların hesaplanmasını da destekler. Üstel, karekök, trigonometrik fonksiyonlar, hiperbolik fonksiyonlar, bitsel işlemler gibi matematiksel fonksiyonlara sahiptir. Yani frtm, bilimsel hesap makinesinin alternatif yazılımı olabilir.

İfadenin yorumlanması, Ters Polonya Notasyonuna (RPN) göre yapılacaktır. Frtm'nin "if" koşullu dalı, "do-while" ve "for-loop" döngü yapısı vardır. Ayrıca kelimeyi birleştirerek yeni bir kelime oluşturabilirsiniz.

Android işletim sisteminde, sözlüğün ve yığının ilk boyutunun konfigürasyonu, sözlükteki kelimeyi "kelime kitabına" kaydetme yeteneği eklendi. "Kelime kitabı" sayısı üç ile sınırlıdır.

Dilin daha ayrıntılı özellikleri için, destek için lütfen Japonca Web sayfasına bakın.

frtm'yi özgürce test etmek istiyorsanız, lütfen aşağıdaki web sayfasında frtm'nin Java uygulama sürümünü deneyin:

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

*** ÖRNEK kelimeler ***

* İki sayının ortalaması

: ort + 2.0/;

* N sayının ortalaması

: rot + döngü takası için 1'in üzerinde nef takası 1.0 */;

2 4 6 8 10 5 nef . cr

0 1 2 3 4 5 6 7 8 9 10 SP nef . cr

* N sayıdaki popülasyon varyansı

: nvarp dup 1+ kopya nave SP nrotr takas dup * rot dup için 1'den fazla * + döngü takası 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp . cr

* N sayının tarafsız varyansı

: nvar dup 1+ kopya nave SP nrotr takas dup * rot dup için 1'den fazla * + döngü SP nrot dup * 3 ndup * - takas 1- 1.0 */;

2 4 6 8 10 5 nvar . cr

* 2 sayının en büyük ortak böleni

: gcd % dup 0 > while drop üzerinde takas yap ;

1001 819 gcd . cr

* Faktöriyel [gerçek(1)=1, gerçek(n)=n*olgu(n-1)]

** Özyineleme

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

10 faktör. cr

** Yineleme

: facti 1 takas 1+ 1 için I * döngüsü ;

10 gerçek. cr

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

** Özyineleme

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

30 fib. cr

** Yineleme

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

30 fibi. cr

* Grafikler

** Dikdörtgeni doldurun

: kutular 16 0 için I setcol 10 20 I * + dup 100 100 rectf loop ;

gm kutuları

: hls 16 0 için I 45 * 2/50 100 setHLS 10 20 I * + dup 100 100 rectf döngüsü ;

gm hls

** Özyinelemeli Çizim (Koch eğrisi)

: ön 5 kopya bırakma ;

: genx 3 ndup 6 ndup - * eksi 100/takas 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop ;

: geny değiş tokuş 3 ay 6 ay - * 100/dört ay takas 7 ay - * 100/+ 4 ay +

5 nrotr 4 ndrop ;

: gen 6 kopya genx 7 nrotr geny ;

: 7 nrotr 7 nrotr pre ;

: direk 9 köşe 9 köşe 4 köşe 4 köşe 5 tekrar 1- ;

: lineto satıra hareket ;

: koch dup 0= if satırı else

0 0 gen öncesi 33 0 gen koch sonrası tutmak

33 0 gen öncesi 50 -28 gen koch sonrası tutmak

50 -28 gen öncesi 66 0 gen koch sonrası tutmak

66 0 gen öncesi 100 0 gen koch sonrası tutmak

5 damla

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'lar

** Kaçış dizisi gibi ReGIS grafik terminalinin doğrudan kullanımı

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]'Merhaba Dünya') .

// 'Grdemo' kelimesini kullanarak, grafik örnekleri için bazı kelimeler sözlüğe kaydedilecektir.