frtm for Android APK

Sự miêu tả

Frtm (FoRTh Modoki) là phần mềm mô phỏng ngôn ngữ lập trình FORTH. Tuy nhiên nó không nhằm mục đích tái tạo FORTH nghiêm ngặt. Không có trình biên dịch, nhưng các từ và hằng số trong một từ do người dùng định nghĩa sẽ được hiểu khi nó được đăng ký.

Cũng có một số khía cạnh không giống như FORTH: frtm không có các từ để thao tác với ngăn xếp trả về, trong khi frtm cho phép định nghĩa đệ quy của từ đó.

Frtm cũng hỗ trợ tính toán các số thực. Nó có các hàm toán học như hàm số mũ, căn bậc hai, hàm lượng giác, hàm hyperbolic, phép toán bit. Vì vậy, frtm có thể là phần mềm thay thế của máy tính khoa học.

Việc diễn giải biểu thức sẽ được thực hiện theo Ký hiệu đánh bóng ngược (RPN). Frtm có nhánh điều kiện "if", cấu trúc cho một vòng lặp "do-while" và "for-loop". Bạn cũng có thể tạo một từ mới bằng cách kết hợp từ đó.

Trên hệ điều hành Android, cấu hình kích thước ban đầu của từ điển và ngăn xếp, khả năng lưu từ trong từ điển vào "sổ từ" đã được thêm vào. Số lượng "sách từ" được giới hạn lên đến ba.

Để có thông số kỹ thuật chi tiết hơn về ngôn ngữ, vui lòng tham khảo trang Web bằng tiếng Nhật để được hỗ trợ.

Nếu bạn muốn kiểm tra frtm một cách tự do, vui lòng thử phiên bản Java applet của frtm tại trang web sau:

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

*** VÍ DỤ về từ ***

* Trung bình cộng của hai số

: ave + 2.0 /;

* Trung bình của N số

: nave swap qua 1 for rot + loop swap 1.0 * /;

2 4 6 8 10 5 nave. cr

0 1 2 3 4 5 6 7 8 9 10 SP giữa. cr

* Phương sai tổng thể của N số

: nvarp lặp 1+ sao chép nave SP nrotr hoán đổi trùng lặp * trên 1 đối với luân phiên trùng lặp * + hoán đổi vòng lặp 1.0 */SP nrot lặp lại * -;

2 4 6 8 10 5 nvarp. cr

* Phương sai không chệch của N số

: nvar Dup 1+ copy nave SP nrotr swap Dup * over 1 for rot Dup * + loop SP nrot Dup * 3 ndup * - swap 1- 1.0 * /;

2 4 6 8 10 5 nvar. cr

* Ước chung lớn nhất của 2 số

: gcd thực hiện trao đổi qua% lặp 0> trong khi thả;

1001 819 gcd. cr

* Giai thừa [fact (1)=1, fact (n)=n * fact (n-1)]

** Đệ quy

: factr Dup 1=if else lặp 1- factr * endif;

10 yếu tố. cr

** Lặp lại

: vòng lặp facti 1 swap 1+ 1 for I *;

10 bản facti. cr

* Chuỗi Fibonacci [fib (0)=0, fib (1)=1, fib (n)=fib (n-1) + fib (n-2)]

** Đệ quy

: fib lặp 0=nếu else lặp 1=if else lặp 1- fib hoán đổi 2 - fib + endif endif;

30 sợi. cr

** Lặp lại

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

30 fibi. cr

* Đồ họa

** Tô hình chữ nhật

: hộp 16 0 cho I setcol 10 20 I * + lặp 100 100 directf;

hộp gm

: hls 16 0 cho I 45 * 2/50 100 setHLS 10 20 I * + lặp 100 100 directf;

gm hls

** Bản vẽ đệ quy (đường cong Koch)

: thả bản sao trước 5;

: genx 3 ndup 6 ndup - * trừ 100/hoán đổi 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop;

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

5 nrotr 4 ndrop;

: gen 6 sao chép genx 7 nrotr geny;

: giữ trước 7 nrotr 7 nrotr;

: bài 9 nrot 9 nrot 4 nrot 4 nrot 5 ndup 1-;

: line moveto lineto;

: koch lặp 0=nếu thả dòng khác

pre 0 0 gen keep 33 0 gen post koch

pre 33 0 gen giữ 50 -28 gen post koch

trước gen 50 -28 giữ 66 0 gen post koch

pre 66 0 gen giữ 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

** Sử dụng trực tiếp thiết bị đầu cuối đồ họa ReGIS như trình tự thoát

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] 'Xin chào thế giới').

// Bằng cách sử dụng từ 'grdemo', một số từ cho ví dụ về đồ họa sẽ được ghi vào từ điển.