frtm for Android APK

Περιγραφή

Το Frtm (Forth Modoki) είναι ένα λογισμικό που προσομοιώνει τη γλώσσα προγραμματισμού ΙΤΕ. Ωστόσο δεν προορίζεται να αναπαράγει το αυστηρό ΙΤΕ. Δεν υπάρχει μεταγλωττιστής, αλλά οι λέξεις και οι σταθερές σε μια λέξη που ορίζεται από το χρήστη ερμηνεύονται όταν καταχωρηθεί.

Υπάρχουν επίσης ορισμένες πτυχές σε αντίθεση με το FORTH: το frtm δεν έχει τις λέξεις για να χειριστεί τη στοίβα επιστροφής, ενώ το frtm επιτρέπει τον αναδρομικό ορισμό της λέξης.

Το Frtm υποστηρίζει επίσης τον υπολογισμό πραγματικών αριθμών. Έχει μαθηματικές συναρτήσεις όπως εκθετική, τετραγωνική ρίζα, τριγωνομετρικές συναρτήσεις, υπερβολικές συναρτήσεις, πράξεις bitwise. Έτσι το frtm μπορεί να είναι το εναλλακτικό λογισμικό της επιστημονικής αριθμομηχανής.

Η ερμηνεία της έκφρασης θα διεξαχθεί σύμφωνα με το Reverse Polish Notation (RPN). Το Frtm έχει κλάδο υπό όρους "if", δομή για βρόχο "do-while" και "for-loop". Μπορείτε επίσης να δημιουργήσετε μια νέα λέξη συνδυάζοντας τη λέξη.

Στο λειτουργικό σύστημα Android, έχει προστεθεί η διαμόρφωση του αρχικού μεγέθους του λεξικού και της στοίβας, η δυνατότητα αποθήκευσης της λέξης στο λεξικό στο "βιβλίο λέξεων". Ο αριθμός των "βιβλίων λέξεων" περιορίζεται σε έως και τρία.

Για πιο λεπτομερείς προδιαγραφές της γλώσσας, ανατρέξτε στην ιστοσελίδα στα Ιαπωνικά για υποστήριξη.

Εάν θέλετε να δοκιμάσετε το frtm ελεύθερα, δοκιμάστε την έκδοση Java applet του frtm στην ακόλουθη ιστοσελίδα:

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

*** ΠΑΡΑΔΕΙΓΜΑΤΑ λέξεων ***

* Μέσος όρος δύο αριθμών

: λεωφόρος + 2,0/;

* Μέσος όρος Ν αριθμών

: εναλλαγή πλοίων πάνω από 1 για rot + εναλλαγή βρόχου 1.0 */;

2 4 6 8 10 5 ναός . cr

0 1 2 3 4 5 6 7 8 9 10 ναός SP . cr

* Διακύμανση πληθυσμού Ν αριθμών

: nvarp dup 1+ αντιγραφή nave SP nrotr swap dup * πάνω από 1 για rot dup * + loop swap 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp . cr

* Αμερόληπτη διακύμανση Ν αριθμών

: nvar dup 1+ αντιγραφή 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 . cr

* Μέγιστος κοινός διαιρέτης 2 αριθμών

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

1001 819 gcd . cr

* Παραγοντικό [γεγονός(1)=1, γεγονός(n)=n*γεγονός(n-1)]

** Αναδρομή

: factr dup 1=αν αλλιώς dup 1- factr * endif ;

10 γεγονός. cr

** Επανάληψη

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

10 γεγονός. cr

* Ακολουθία Fibonacci [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 ιν. cr

** Επανάληψη

: fibi dup 0= αν αλλιώς 0 1 rot 1 for swap over + loop swap drop endif ;

30 fibi . cr

* Γραφικά

** Γεμίστε το ορθογώνιο

: κουτιά 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 loop ;

gm hls

** Αναδρομικό σχέδιο (καμπύλη Koch)

: πριν από την πτώση 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 pre ;

: post 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 σταγόνες

τέλος εαν ;

: kochs 10 setcol 89 440 551 440 4 koch

11 setcol 551 440 320 40 4 κοχ

12 setcol 320 40 89 440 4 koch ;

γμ κοχς

** Άμεση χρήση του τερματικού γραφικών ReGIS όπως η ακολουθία διαφυγής

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]'Hello World') .

// Χρησιμοποιώντας τη λέξη 'grdemo', ορισμένες λέξεις για παραδείγματα γραφικών θα καταχωρηθούν στο λεξικό.