{"id":320796,"date":"2021-04-03T15:01:07","date_gmt":"2021-04-03T15:01:07","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=320796"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=320796","title":{"rendered":"\u0427\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u0439 FORTH"},"content":{"rendered":"\n<div class=\"post__text post__text_v2\" id=\"post-content-body\">\n<h3>\u041f\u0435\u0440\u0432\u043e\u0435 \u0432\u043f\u0435\u0447\u0430\u0442\u043b\u0435\u043d\u0438\u0435<\/h3>\n<p><a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%A4%D0%BE%D1%80%D1%82_(%D1%8F%D0%B7%D1%8B%D0%BA_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F)\" rel=\"noopener noreferrer nofollow\">\u0424\u043e\u0440\u0442<\/a> \u0438 \u0441\u0435\u0439\u0447\u0430\u0441 \u0438\u0437\u0432\u0435\u0441\u0442\u0435\u043d, \u0433\u043b\u0430\u0432\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u0441\u0440\u0435\u0434\u0438 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0445 \u0441\u0438\u0441\u0442\u0435\u043c, \u043a\u0430\u043a \u0447\u0442\u043e-\u0442\u043e \u0432\u0440\u043e\u0434\u0435 \u043d\u0435\u043e\u0431\u044b\u0447\u0430\u0439\u043d\u043e\u0433\u043e \u0432\u044b\u0441\u043e\u043a\u043e\u0443\u0440\u043e\u0432\u043d\u0435\u0432\u043e\u0433\u043e \u0430\u0441\u0441\u0435\u043c\u0431\u043b\u0435\u0440\u0430, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0434\u043b\u044f \u043c\u0438\u043a\u0440\u043e\u043a\u043e\u043d\u0442\u0440\u043e\u043b\u043b\u0435\u0440\u043e\u0432 &#8212; <a href=\"http:\/\/amforth.sourceforge.net\/\" rel=\"noopener noreferrer nofollow\">AmForth<\/a> \u0438 <a href=\"https:\/\/sourceforge.net\/projects\/mecrisp\/\" rel=\"noopener noreferrer nofollow\">Mecrisp<\/a>. \u041e\u0434\u043d\u0430\u043a\u043e, \u043a\u043e\u0433\u0434\u0430-\u0442\u043e \u0434\u0430\u0432\u043d\u044b\u043c \u0434\u0430\u0432\u043d\u043e \u0431\u044b\u043b \u0438\u0437\u0432\u0435\u0441\u0442\u0435\u043d \u0432 \u0434\u0440\u0443\u0433\u043e\u0439 \u0438\u043f\u043e\u0441\u0442\u0430\u0441\u0438 &#8212; \u043a\u0430\u043a <a href=\"https:\/\/en.wikipedia.org\/wiki\/Scientific_programming_language\" rel=\"noopener noreferrer nofollow\">\u044f\u0437\u044b\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043d\u0430\u0443\u0447\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439.<\/a> <\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/8db\/3c5\/842\/8db3c5842685a494ec9f096972573f0f.png\" alt=\"\u041a\u043d\u0438\u0433\u0438 \u043e \u0424\u043e\u0440\u0442\u0435\" title=\"\u041a\u043d\u0438\u0433\u0438 \u043e \u0424\u043e\u0440\u0442\u0435\" width=\"999\" height=\"447\"><figcaption>\u041a\u043d\u0438\u0433\u0438 \u043e \u0424\u043e\u0440\u0442\u0435<\/figcaption><\/figure>\n<p><em>\u0424\u043e\u0440\u0442 \u0431\u044b\u043b \u0432\u044b\u0431\u0440\u0430\u043d \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430, \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043e\u0431\u044a\u044f\u0441\u043d\u044f\u044e\u0442\u0441\u044f \u0434\u0435\u0442\u0430\u043b\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0439 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u0441\u0438\u0441\u0442\u0435\u043c, \u043e\u0441\u043d\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 \u0437\u043d\u0430\u043d\u0438\u044f\u0445, \u043f\u043e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u043f\u0440\u0438\u0447\u0438\u043d\u0430\u043c: \u0432\u043e-\u043f\u0435\u0440\u0432\u044b\u0445, \u0442\u0440\u0430\u043d\u0441\u043b\u044f\u0442\u043e\u0440 \u0441 \u044d\u0442\u043e\u0433\u043e \u044f\u0437\u044b\u043a\u0430 \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u043d\u0430 \u0432\u0441\u0435\u0445 \u0442\u0438\u043f\u0430\u0445 \u043c\u0438\u043a\u0440\u043e\u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u043e\u0432, \u0432\u043e-\u0432\u0442\u043e\u0440\u044b\u0445, \u043e\u043d \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0434\u0435\u0448\u0435\u0432\u044b\u0439, \u0438, \u043d\u0430\u043a\u043e\u043d\u0435\u0446, \u0438\u043c\u0435\u0435\u0442 \u043c\u043d\u043e\u0433\u043e \u043e\u0431\u0449\u0435\u0433\u043e \u0441 \u044f\u0437\u044b\u043a\u0430\u043c\u0438 \u0438\u0441\u043a\u0443\u0441\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0433\u043e \u0438\u043d\u0442\u0435\u043b\u043b\u0435\u043a\u0442\u0430, \u0432 \u0447\u0430\u0441\u0442\u043d\u043e\u0441\u0442\u0438 \u0441 \u041b\u0438\u0441\u043f\u043e\u043c. <\/em><\/p>\n<p>\u0422\u0430\u0443\u043d\u0441\u0435\u043d\u0434 \u041a., \u0424\u043e\u0445\u0442 \u0414. \u041f\u0420\u041e\u0415\u041a\u0422\u0418\u0420\u041e\u0412\u0410\u041d\u0418\u0415 \u0418 \u041f\u0420\u041e\u0413\u0420\u0410\u041c\u041c\u041d\u0410\u042f \u0420\u0415\u0410\u041b\u0418\u0417\u0410\u0426\u0418\u042f \u042d\u041a\u0421\u041f\u0415\u0420\u0422\u041d\u042b\u0425 \u0421\u0418\u0421\u0422\u0415\u041c \u041d\u0410 \u041f\u0415\u0420\u0421\u041e\u041d\u0410\u041b\u042c\u041d\u042b\u0425 \u042d\u0412\u041c. \u041c.: \u0424\u0438\u043d\u0430\u043d\u0441\u044b \u0438 \u0441\u0442\u0430\u0442\u0438\u0441\u0442\u0438\u043a\u0430, 1990.<\/p>\n<p>\u042f \u043f\u0440\u043e\u0447\u0451\u043b \u044d\u0442\u043e \u0438 \u0431\u044b\u043b \u0432\u043f\u0435\u0447\u0430\u0442\u043b\u0451\u043d. \u0412\u043e\u0442 \u0442\u0440\u0438 \u0445\u043e\u0440\u043e\u0448\u043e \u0437\u043d\u0430\u043a\u043e\u043c\u044b\u0435 \u043c\u043d\u0435 \u043a\u043d\u0438\u0433\u0438:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/0f3\/168\/359\/0f316835941963fdfb3f58bc5dd84524.png\" alt=\"\" title=\"\" width=\"826\" height=\"400\"><figcaption><\/figcaption><\/figure>\n<p>\u042f\u0437\u044b\u043a\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0432 \u043a\u043d\u0438\u0436\u043a\u0430\u0445, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e &#8212; <a href=\"https:\/\/en.wikipedia.org\/wiki\/Commodore_BASIC\" rel=\"noopener noreferrer nofollow\">\u0411\u0435\u0439\u0441\u0438\u043a<\/a>, <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%A4%D0%BE%D1%80%D1%82%D1%80%D0%B0%D0%BD#FORTRAN_77_(1978)\" rel=\"noopener noreferrer nofollow\">\u0424\u043e\u0440\u0442\u0440\u0430\u043d<\/a> \u0438 \u0424\u043e\u0440\u0442! \u0412 \u043a\u043d\u0438\u0433\u0435 \u0422. \u0422\u043e\u0444\u0444\u043e\u043b\u0438:<\/p>\n<p><em>CAM-6 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043c\u0430\u0448\u0438\u043d\u043e\u0439 \u043a\u043b\u0435\u0442\u043e\u0447\u043d\u044b\u0445 \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u043e\u0432, \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u043d\u043e\u0439 \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u043b\u0430\u0431\u043e\u0440\u0430\u0442\u043e\u0440\u0438\u0435\u0439 \u044d\u043a\u0441\u043f\u0435\u0440\u0438\u043c\u0435\u043d\u0442\u0430\u0442\u043e\u0440\u0430, \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u043e\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u0432 \u0438 \u0441\u0440\u0435\u0434\u043e\u0439 \u0434\u043b\u044f \u0438\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0439 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u0438 \u0432 \u0440\u0435\u0436\u0438\u043c\u0435 \u0440\u0435\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438.<\/em><\/p>\n<p><em>\u0424\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u0438 CAM-6 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0438\u0437 \u043c\u043e\u0434\u0443\u043b\u044f, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0432\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0432 \u043e\u0434\u0438\u043d \u0440\u0430\u0437\u044a\u0435\u043c IBM-PC (XT, AT \u0438\u043b\u0438 \u0441\u043e\u0432\u043c\u0435\u0441\u0442\u0438\u043c\u044b\u0445 \u0441 \u043d\u0438\u043c\u0438 \u043c\u043e\u0434\u0435\u043b\u0435\u0439),  \u0438 \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0435\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0433\u043e \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0435\u043d\u0438\u044f, \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0435\u0433\u043e \u0432 \u0441\u0440\u0435\u0434\u0435  PC-DOS2. \u0412 \u0442\u043e \u0432\u0440\u0435\u043c\u044f \u043a\u0430\u043a \u044d\u0442\u043e\u0442 \u043b\u0435\u0433\u043a\u043e \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0439 \u0433\u043e\u043b\u043e\u0432\u043d\u043e\u0439 \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0438\u0432\u0430\u0435\u0442 \u0440\u0430\u0437\u043c\u0435\u0449\u0435\u043d\u0438\u0435, \u044d\u043a\u0440\u0430\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435, \u044d\u043b\u0435\u043a\u0442\u0440\u043e\u043f\u0438\u0442\u0430\u043d\u0438\u0435,  \u0434\u0438\u0441\u043a\u043e\u0432\u0443\u044e \u043f\u0430\u043c\u044f\u0442\u044c, \u043c\u043e\u043d\u0438\u0442\u043e\u0440 \u0438 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u0443\u044e \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u0443\u044e \u0441\u0440\u0435\u0434\u0443, \u0432\u0441\u044f \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0440\u0430\u0431\u043e\u0442\u0430 \u043f\u043e \u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044e \u043a\u043b\u0435\u0442\u043e\u0447\u043d\u044b\u0445 \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u043e\u0432 \u0441 \u043e\u0447\u0435\u043d\u044c \u0432\u044b\u0441\u043e\u043a\u043e\u0439 \u0441\u043a\u043e\u0440\u043e\u0441\u0442\u044c\u044e \u0441\u043e\u0432\u0435\u0440\u0448\u0430\u0435\u0442\u0441\u044f \u0441\u0430\u043c\u0438\u043c \u043c\u043e\u0434\u0443\u043b\u0435\u043c \u0441 \u0431\u044b\u0441\u0442\u0440\u043e\u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435\u043c,  \u0441\u0440\u0430\u0432\u043d\u0438\u043c\u044b\u043c (\u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0447\u0430\u0441\u0442\u043d\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f) \u0441 \u0431\u044b\u0441\u0442\u0440\u043e\u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435\u043c CRAY-1.  \u0423\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0435\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0435 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0435\u043d\u0438\u0435 \u0434\u043b\u044f CAM-6 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043e \u043d\u0430 FORTH  \u0438 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043d\u0430 IBM-PC \u0441 \u043f\u0430\u043c\u044f\u0442\u044c\u044e 256 \u041a. \u042d\u0442\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0435 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0435\u043d\u0438\u0435 \u0434\u043e\u043f\u043e\u043b\u043d\u0435\u043d\u043e \u0440\u044f\u0434\u043e\u043c \u0433\u043e\u0442\u043e\u0432\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439 \u0438 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u044b\u0445 \u043f\u0440\u0438\u043c\u0435\u0440\u043e\u0432 \u0438  \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u0442 \u043f\u043e\u043b\u043d\u044b\u0439 \u0430\u043d\u043d\u043e\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a\u043e\u0432.<\/em><\/p>\n<p><em>\u0412 \u044d\u0442\u043e\u0439 \u043a\u043d\u0438\u0433\u0435 \u0431\u0443\u0434\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u044f\u0437\u044b\u043a CAM Forth. Forth \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u044f\u0435\u043c\u044b\u043c \u044f\u0437\u044b\u043a\u043e\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u043f\u043e\u0434\u0445\u043e\u0434\u044f\u0449\u0438\u043c \u0434\u043b\u044f  \u0438\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u044b\u0445 \u0437\u0430\u0434\u0430\u0447. \u042d\u0442\u043e\u0442 \u044f\u0437\u044b\u043a \u0431\u044b\u043b \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d \u0442\u0430\u043a, \u0447\u0442\u043e\u0431\u044b \u043e\u043d \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u043b \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u0441\u043b\u043e\u0432 \u0438 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0439, \u043f\u043e\u043b\u0435\u0437\u043d\u044b\u0445 \u0434\u043b\u044f \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0430\u043d\u0438\u044f \u0434\u0438\u0430\u043b\u043e\u0433\u0430 \u0441 CAM ( \u0432 \u0447\u0430\u0441\u0442\u043d\u043e\u0441\u0442\u0438, \u0434\u043b\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u043f\u0440\u0430\u0432\u0438\u043b \u043a\u043b\u0435\u0442\u043e\u0447\u043d\u043e\u0433\u043e \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0430 \u0438 \u0434\u043b\u044f  \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u044d\u043a\u0441\u043f\u0435\u0440\u0438\u043c\u0435\u043d\u0442\u043e\u0432).<\/em><\/p>\n<p>\u041e\u0447\u0435\u043d\u044c \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e! \u0423\u0431\u0435\u0434\u0438\u043b\u0438, \u044f \u0442\u043e\u0436\u0435 \u0445\u043e\u0447\u0443 \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c \u0424\u043e\u0440\u0442! \u041e\u0449\u0443\u0442\u0438\u0442\u044c, \u043a\u0430\u043a \u044d\u0442\u043e, \u043f\u0438\u0441\u0430\u0442\u044c \u043d\u0430\u0443\u0447\u043d\u043e\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 80-\u0445 \u0438\u043b\u0438 \u0440\u0430\u043d\u043d\u0438\u0445 90-\u0445. \u0413\u043e\u0432\u043e\u0440\u044f\u0442, \u0447\u0442\u043e \u043a\u0430\u0436\u0434\u044b\u0439 \u0444\u043e\u0440\u0442\u0435\u0440 \u043f\u0438\u0448\u0435\u0442 \u0441\u0432\u043e\u0439 \u0424\u043e\u0440\u0442, \u043d\u043e \u0432\u0440\u044f\u0434 \u043b\u0438 \u044d\u0442\u043e \u043a\u043e\u043c\u0443-\u0442\u043e \u0435\u0449\u0435 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e, \u0442\u0430\u043a \u0447\u0442\u043e, \u043f\u043e\u0436\u0430\u043b\u0443\u0439, \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u044e \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u043a\u0430\u043a\u0438\u043c-\u0442\u043e \u0433\u043e\u0442\u043e\u0432\u044b\u043c \u0424\u043e\u0440\u0442\u043e\u043c \u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c, \u0441\u043a\u0430\u0436\u0435\u043c, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0434\u043b\u044f \u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0433\u043e \u0438\u0441\u043f\u044b\u0442\u0430\u043d\u0438\u044f&#8230; \u0410, \u043f\u0443\u0441\u043a\u0430\u0439 \u0431\u0443\u0434\u0435\u0442 \u044d\u0442\u043e: C. Clay Marston and Gabriel G. BalintKurti. <em>The Fourier grid Hamiltonian method for bound state eigenvalues and eigenfunctions <\/em>\/\/ J. Chem. Phys. 91, 3571 (1989); doi: <a href=\"https:\/\/aip.scitation.org\/doi\/10.1063\/1.456888\" rel=\"noopener noreferrer nofollow\">10.1063\/1.456888<\/a><\/p>\n<p>\u041a\u0430\u043a \u0431\u0443\u0434\u0442\u043e \u043d\u0430 \u0434\u0432\u043e\u0440\u0435 1989 \u0433\u043e\u0434, \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0430 \u0433\u0434\u0435-\u0442\u043e \u043d\u0430 \u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u043c\u0430\u0448\u0438\u043d\u0435 \u0432 \u0438\u043d\u0441\u0442\u0438\u0442\u0443\u0442\u0435, \u0430 \u0443 \u043c\u0435\u043d\u044f \u043f\u0440\u043e\u0441\u0442\u043e \u043d\u0435\u0447\u0442\u043e \u043f\u043e\u0434 \u0440\u0443\u043a\u0430\u043c\u0438, \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u0442\u0430\u043c Matlab \u0432 \u043f\u043e\u043c\u0438\u043d\u0435 \u043d\u0435\u0442. \u041a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440 &#8212; \u0447\u0443\u0442\u044c \u0431\u043e\u043b\u044c\u0448\u0435 \u043f\u043e \u0441\u0432\u043e\u0438\u043c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044f\u043c, \u0447\u0435\u043c \u043a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440.<\/p>\n<h3>\u0417\u043d\u0430\u043a\u043e\u043c\u0441\u0442\u0432\u043e<\/h3>\n<p>\u041a\u0441\u0442\u0430\u0442\u0438, \u0430 \u0432\u043e\u0442 \u0438 \u043e\u043d &#8212; <a href=\"https:\/\/en.wikipedia.org\/wiki\/HP_35s\" rel=\"noopener noreferrer nofollow\">HP 35s<\/a>. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0432 \u043d\u0451\u043c &#8212; <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%A8%D0%B8%D1%82%D1%8B%D0%B9_%D0%BA%D0%BE%D0%B4\" rel=\"noopener noreferrer nofollow\">\u0448\u0438\u0442\u044b\u0439 \u043a\u043e\u0434<\/a> (\u043d\u0438\u0436\u0435 \u0440\u0438\u0441\u0443\u043d\u043e\u043a \u0438\u0437 \u0420\u0443\u043a\u043e\u0432\u043e\u0434\u0441\u0442\u0432\u0430 \u043a \u043a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440\u0443). \u041f\u0435\u0440\u0435\u0439\u0442\u0438 \u0441 \u043a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440\u0430 \u043d\u0430 \u0424\u043e\u0440\u0442 \u043e\u0447\u0435\u043d\u044c \u043f\u0440\u043e\u0441\u0442\u043e &#8212; \u0424\u043e\u0440\u0442 \u0442\u043e\u0436\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0442\u043e\u0442 \u0441\u0430\u043c\u044b\u0439 \u0448\u0438\u0442\u044b\u0439 \u043a\u043e\u0434.<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/384\/6ec\/1a3\/3846ec1a39dbb4d531837d3d95cb2c0c.png\" alt=\"\u041a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440 HP 35s. \u0428\u0438\u0442\u044b\u0439 \u043a\u043e\u0434.\" title=\"\u041a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440 HP 35s. \u0428\u0438\u0442\u044b\u0439 \u043a\u043e\u0434.\" width=\"938\" height=\"473\"><figcaption>\u041a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440 HP 35s. \u0428\u0438\u0442\u044b\u0439 \u043a\u043e\u0434.<\/figcaption><\/figure>\n<p>\u0412 \u0441\u0430\u043c\u043e\u043c \u0434\u0435\u043b\u0435, \u043a\u0430\u0436\u0434\u043e\u0435 \u0441\u043b\u043e\u0432\u043e (\u0442\u0435\u0440\u043c\u0438\u043d \u0424\u043e\u0440\u0442\u0430, \u0430\u043d\u0430\u043b\u043e\u0433 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440 \u0438\u043b\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0439) \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0438\u0437 \u0434\u0440\u0443\u0433\u0438\u0445 \u0441\u043b\u043e\u0432 \u0438 \u0442\u0430\u043a \u0434\u043e \u0441\u0430\u043c\u043e\u0433\u043e \u043d\u0438\u0436\u043d\u0435\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f, \u0433\u0434\u0435 \u0441\u043b\u043e\u0432\u0430-\u043f\u0440\u0438\u043c\u0438\u0442\u0438\u0432\u044b \u044d\u0442\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u043c\u0430\u0448\u0438\u043d\u043d\u044b\u0439 \u043a\u043e\u0434. <\/p>\n<pre><code>see normcdf : NORMCDF       flit 1.41421 F\/ ERF F1.0 F+ flit .500000 F* ; ok see erf : ERF           FDUP FSIGN FSWAP FDUP F* FDUP flit .147000 F*                 FDUP flit 1.27324 F+ FSWAP F1.0 F+ F\/ F*                 FNEGATE FEXP FNEGATE F1.0 F+ FSQRT F* ; ok see fsign : FSIGN         F0&lt; DUP INVERT - S&gt;F ; ok see dup DUP IS CODE    ( $4012D8 53 )                 push    ebx<\/code><\/pre>\n<p>\u0412 \u0424\u043e\u0440\u0442\u0435 \u0432\u0441\u0451 \u0441\u043b\u043e\u0432\u0430. \u041a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0430 &#8212; \u0441\u043b\u043e\u0432\u043e, \u0447\u0442\u043e \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u043d\u0430 \u0441\u0442\u0435\u043a\u0435 \u0447\u0438\u0441\u043b\u043e. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u043d\u0430 \u0441\u0442\u0435\u043a\u0435 \u0430\u0434\u0440\u0435\u0441, \u0433\u0434\u0435 \u043b\u0435\u0436\u0438\u0442 \u0435\u0451 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435. \u0415\u0441\u0442\u044c \u043c\u043d\u043e\u0433\u043e \u0440\u0430\u0437\u043d\u044b\u0445 \u043a\u043d\u0438\u0433 \u0438 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0439 \u0424\u043e\u0440\u0442\u0430, \u043d\u0435 \u0431\u0443\u0434\u0443 \u0438\u0445 \u043f\u043e\u0432\u0442\u043e\u0440\u044f\u0442\u044c, \u043e\u0434\u043d\u0430\u043a\u043e, \u0441\u0447\u0438\u0442\u0430\u044e, \u0447\u0442\u043e \u043e\u0434\u043d\u043e \u0438\u0437 \u043b\u0443\u0447\u0448\u0438\u0445 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0439 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0438 \u043a\u0430\u043a \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u043f\u043e\u0434 \u043a\u0430\u043f\u043e\u0442\u043e\u043c \u0434\u0430\u043d\u043e \u0437\u0434\u0435\u0441\u044c &#8212; <a href=\"http:\/\/rigidus.ru\/\" rel=\"noopener noreferrer nofollow\">http:\/\/rigidus.ru\/<\/a><\/p>\n<p>\u041f\u043e \u043c\u043e\u0435\u043c\u0443 \u0432\u043f\u0435\u0447\u0430\u0442\u043b\u0435\u043d\u0438\u044e, \u0424\u043e\u0440\u0442 \u044f\u0437\u044b\u043a \u043f\u0440\u0430\u0433\u043c\u0430\u0442\u0438\u0447\u043d\u044b\u0439, \u0430 \u043d\u0435 \u043f\u0430\u0440\u0430\u0434\u0438\u0433\u043c\u0430\u0442\u0438\u0447\u043d\u044b\u0439. \u042d\u0442\u043e \u043f\u043e\u0441\u0442\u0444\u0438\u043a\u0441\u043d\u044b\u0439 \u044f\u0437\u044b\u043a? \u0421 \u043e\u0434\u043d\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b, \u0434\u0430, \u0441 \u0434\u0440\u0443\u0433\u043e\u0439 &#8212; \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c. \u0412\u043e\u0442 \u0441\u043a\u0430\u0436\u0435\u043c, \u0435\u0441\u043b\u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u043f\u0440\u0438\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0442\u044c\u0441\u044f <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%9E%D0%B1%D1%80%D0%B0%D1%82%D0%BD%D0%B0%D1%8F_%D0%BF%D0%BE%D0%BB%D1%8C%D1%81%D0%BA%D0%B0%D1%8F_%D0%B7%D0%B0%D0%BF%D0%B8%D1%81%D1%8C\" rel=\"noopener noreferrer nofollow\">\u043f\u043e\u0441\u0442\u0444\u0438\u043a\u0441\u043d\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u0438<\/a>, \u0442\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0434\u043e\u043b\u0436\u043d\u044b \u0431\u044b\u043b\u0438 \u0431\u044b \u0431\u044b\u0442\u044c \u043d\u0430\u043f\u043e\u0434\u043e\u0431\u0438\u0435 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e:<code>(word) cvn { moveto show } def<\/code> \u0438\u043b\u0438 <code>{ moveto show } \/S exch def<\/code> \u0433\u0434\u0435 \u043a\u043b\u044e\u0447\u0435\u0432\u043e\u0435 \u0441\u043b\u043e\u0432\u043e <strong>def<\/strong> (\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c) \u0441\u0442\u043e\u0438\u0442 \u043f\u043e\u0441\u043b\u0435 \u0441\u0430\u043c\u043e\u0433\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f. \u0422\u0430\u043a \u0434\u0435\u043b\u0430\u0435\u0442\u0441\u044f \u0432 <a href=\"https:\/\/ru.wikipedia.org\/wiki\/PostScript\" rel=\"noopener noreferrer nofollow\">Postscript<\/a>, \u043d\u043e \u043d\u0435 \u0432 \u0424\u043e\u0440\u0442. \u0412 \u0424\u043e\u0440\u0442\u0435 \u0431\u044b\u043b\u043e \u0431\u044b <code>: word moveto show ;<\/code> &#8212; \u0437\u0430 \u0434\u0432\u043e\u0435\u0442\u043e\u0447\u0438\u0435\u043c \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c\u044b\u0439 \u0442\u0435\u0440\u043c\u0438\u043d, \u0442\u043e\u0447\u043a\u0430 \u0441 \u0437\u0430\u043f\u044f\u0442\u043e\u0439 \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u0442 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435. \u041f\u043e\u0447\u0435\u043c\u0443 \u0442\u0430\u043a? \u0410 \u0442\u0430\u043a \u043f\u0440\u043e\u0449\u0435. \u0414\u0432\u043e\u0435\u0442\u043e\u0447\u0438\u0435 \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u0438\u0442 \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0442\u043e\u0440 \u0424\u043e\u0440\u0442 \u0432 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 STATE=-1 (true \u0432 \u0424\u043e\u0440\u0442\u0435), \u0438 \u0442\u0435\u043a\u0441\u0442 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0441\u043b\u0435\u0432\u0430 \u043d\u0430 \u043f\u0440\u0430\u0432\u043e, \u0442\u043e\u0447\u043a\u0430 \u0441 \u0437\u0430\u043f\u044f\u0442\u043e\u0439 \u0432 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0446\u0438\u0438 (\u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f) STATE=0. <\/p>\n<p>\u041c\u043d\u043e\u0433\u0438\u0435 \u0432\u0435\u0449\u0438 \u0432 \u0424\u043e\u0440\u0442\u0435 \u0441\u0434\u0435\u043b\u0430\u043d\u044b \u0441 \u0443\u043f\u043e\u0440\u043e\u043c \u043d\u0430 \u043f\u0440\u043e\u0441\u0442\u043e\u0442\u0443 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438, \u0430 \u043d\u0435 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u0438\u0437\u0430\u0446\u0438\u0438. \u0427\u0430\u043a \u041c\u0443\u0440, \u0441\u043e\u0437\u0434\u0430\u0442\u0435\u043b\u044c \u0424\u043e\u0440\u0442\u0430, \u043f\u043b\u043e\u0445\u043e \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u043a \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u0438\u0437\u0430\u0446\u0438\u0438. \u0415\u0433\u043e \u043f\u0440\u0438\u043d\u0446\u0438\u043f &#8212; \u0442\u0435\u0431\u0435 \u043d\u0443\u0436\u043d\u043e, \u0442\u044b \u0438 \u0441\u0434\u0435\u043b\u0430\u0439. <a href=\"https:\/\/www.forth.com\/resources\/forth-programming-language\/\" rel=\"noopener noreferrer nofollow\">\u041d\u0435 \u0441\u043f\u0435\u043a\u0443\u043b\u0438\u0440\u0443\u0439<\/a>, \u043d\u0435 \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0439 \u0437\u0430\u0440\u0443\u0431\u043a\u0438 \u0434\u043b\u044f \u0443\u0434\u043e\u0431\u0441\u0442\u0432\u0430 \u0431\u0443\u0434\u0443\u0449\u0435\u0433\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u0430. \u0421\u0435\u0439\u0447\u0430\u0441 \u0443\u0434\u043e\u0431\u043d\u043e \u0438 \u043f\u0440\u043e\u0441\u0442\u043e \u0434\u0435\u043b\u0430\u0442\u044c \u0422\u0410\u041a, \u0432\u043e\u0442 \u0422\u0410\u041a \u0438 \u0434\u0435\u043b\u0430\u0439 \u0421\u0410\u041c \u0418 \u041f\u0420\u042f\u041c\u041e \u0421\u0415\u0419\u0427\u0410\u0421. \u041a\u043e\u0440\u043e\u0447\u0435 \u0433\u043e\u0432\u043e\u0440\u044f, \u0424\u043e\u0440\u0442 \u044d\u0442\u043e \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u044f\u0437\u044b\u043a, \u044d\u0442\u043e \u043c\u0435\u0442\u043e\u0434 \u0440\u0435\u0448\u0435\u043d\u0438\u044f <em>\u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u0445<\/em> \u043f\u0440\u043e\u0431\u043b\u0435\u043c. \u0412\u043e\u0442 \u0435\u0433\u043e \u043a\u0440\u0435\u0434\u043e:<\/p>\n<ol>\n<li>\n<p>Keep it simple<\/p>\n<\/li>\n<li>\n<p>Do not speculate<\/p>\n<\/li>\n<li>\n<p>Do it yourself <s>motherf*cker<\/s><\/p>\n<\/li>\n<\/ol>\n<p>\u041d\u0435 \u0436\u0434\u0438\u0442\u0435 \u043e\u0442 \u0424\u043e\u0440\u0442\u0430 \u0441\u0435\u0440\u0435\u0431\u0440\u044f\u043d\u043e\u0439 \u043f\u0443\u043b\u0438, \u043a\u0440\u0443\u0442\u043e\u0433\u043e \u0444\u0440\u0435\u0439\u043c\u0432\u043e\u0440\u043a\u0430, \u043f\u043e\u043b\u043d\u043e\u0439 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 \u0438 \u043f\u0440\u043e\u0434\u0443\u043c\u0430\u043d\u043d\u043e\u0433\u043e \u043a\u0435\u043c-\u0442\u043e API. \u0412\u043e\u0442 \u0432\u0430\u043c \u043c\u043d\u0435\u043d\u0438\u044f, \u0446\u0435\u043b\u044b\u0439 \u0437\u043e\u043e\u043f\u0430\u0440\u043a \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0439 \u0438 \u0440\u0435\u0446\u0435\u043f\u0442\u043e\u0432 &#8212; \u0434\u0430 \u043f\u043e\u043c\u043e\u0436\u0435\u0442 \u0412\u0430\u043c \u0437\u0434\u0440\u0430\u0432\u044b\u0439 \u0441\u043c\u044b\u0441\u043b \u0438 \u0431\u0430\u0437\u043e\u0432\u044b\u0435 \u0442\u0440\u0438 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0430.<\/p>\n<h3>\u0421\u0442\u0435\u043a\u0432\u0438\u043b\u0438\u0431\u0440\u0438\u0441\u0442\u0438\u043a\u0430<\/h3>\n<p>\u041f\u043e\u043b\u043e\u0436\u0438\u043c, \u0447\u0442\u043e \u043c\u044b \u0437\u0430\u0445\u043e\u0442\u0435\u043b\u0438 \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 <a href=\"https:\/\/en.wikipedia.org\/wiki\/Gamma_function\" rel=\"noopener noreferrer nofollow\">\u0433\u0430\u043c\u043c\u0430-\u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/a> (\u0442\u043e\u0447\u043d\u0435\u0435, \u0435\u0451 \u043b\u043e\u0433\u0430\u0440\u0438\u0444\u043c\u0430) \u043d\u0430 \u0424\u043e\u0440\u0442\u0435. \u0411\u043e\u043b\u0435\u0435 \u0442\u043e\u0433\u043e, \u0443 \u043d\u0430\u0441 \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u0441\u043e\u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440 \u0442\u0438\u043f\u0430 <a href=\"https:\/\/ru.wikipedia.org\/wiki\/Intel_8087\" rel=\"noopener noreferrer nofollow\">Intel 8087<\/a> &#8212; \u0443 \u043d\u0435\u0433\u043e \u0441\u0442\u0435\u043a\u043e\u0432\u0430\u044f \u0430\u0440\u0445\u0438\u0442\u0435\u043a\u0442\u0443\u0440\u0430, \u043e\u0447\u0435\u043d\u044c \u043a\u0441\u0442\u0430\u0442\u0438 \u0434\u043b\u044f \u0424\u043e\u0440\u0442\u0430! \u0412\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f <a href=\"https:\/\/en.wikipedia.org\/wiki\/Lanczos_approximation\" rel=\"noopener noreferrer nofollow\">\u043f\u0440\u0438\u0431\u043b\u0438\u0436\u0435\u043d\u0438\u0435\u043c \u041b\u0430\u043d\u0446\u043e\u0448\u0430<\/a> \u0438 \u0437\u0430\u043f\u0438\u0448\u0435\u043c:<\/p>\n<pre><code>: LNGAMMA ( x -- ln(\u0413(x) ) \\ Takes x &gt; 0.0 and returns natural logarithm of \u0413(x).    FDUP  3.0E F+   2.23931796330267E FSWAP F\/  FOVER 2.0E F+ -27.0638924937115E  FSWAP F\/ F+  FOVER 1.0E F+  41.4174045302371E  FSWAP F\/ F+       2.5066284643656E F+ FLN FSWAP  FDUP  4.15E F+ FLN  FOVER 0.50E F+ F*  FOVER 4.15E F+ F-           FROT F+ FSWAP FLN F- ;<\/code><\/pre>\n<p>\u0414\u0430, \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u0447\u0438\u0442\u0430\u0435\u043c\u043e &#8212; \u043d\u0435 \u0432\u0441\u0435 \u0444\u043e\u0440\u043c\u0443\u043b\u044b \u0445\u043e\u0440\u043e\u0448\u043e \u0443\u043a\u043b\u0430\u0434\u044b\u0432\u0430\u044e\u0442\u0441\u044f \u0432 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u0441\u043e \u0441\u0442\u0435\u043a\u043e\u043c \u0438 \u0447\u0435\u043c \u0441\u043b\u043e\u0436\u043d\u0435\u0435 &#8212; \u0442\u0435\u043c \u0431\u043e\u043b\u044c\u0448\u0435 \u0431\u0443\u0434\u0435\u0442 \u0441\u043b\u043e\u0432 <code>FDUP, FROT, FOVER<\/code>&#8230; \u043f\u043e\u043a\u0430 \u043d\u0435 \u043d\u0430\u0441\u0442\u0430\u043d\u0435\u0442 \u0441\u0438\u0442\u0443\u0430\u0446\u0438\u044f, \u043a\u043e\u0433\u0434\u0430 \u043d\u0430 \u0441\u0442\u0435\u043a\u0435 4 \u0438 \u0431\u043e\u043b\u0435\u0435 \u0447\u0438\u0441\u0435\u043b. \u0422\u043e\u0433\u0434\u0430 \u0432\u0441\u0451, \u043f\u0440\u0438\u043f\u043b\u044b\u043b\u0438. \u041f\u0435\u0447\u0430\u043b\u044c\u043d\u0430\u044f \u0438\u0441\u0442\u043e\u0440\u0438\u044f \u043e \u0442\u043e\u043c, \u043a\u0430\u043a \u0442\u0430\u043a\u043e\u0435 \u0441\u043b\u0443\u0447\u0430\u0435\u0442\u0441\u044f \u0438\u0437\u043b\u043e\u0436\u0435\u043d\u0430 \u0432 \u043e\u0434\u043d\u043e\u043c <a href=\"https:\/\/yosefk.com\/blog\/my-history-with-forth-stack-machines.html\" rel=\"noopener noreferrer nofollow\">\u0431\u043b\u043e\u0433\u0435<\/a>. <\/p>\n<p>\u041e\u0431\u044b\u0447\u043d\u044b\u0439 \u0432\u044b\u0445\u043e\u0434 \u0438\u0437 \u044d\u0442\u043e\u0433\u043e \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u044f &#8212; \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435. \u0414\u0430, \u044d\u0442\u043e \u0424\u043e\u0440\u0442, \u0438\u0445 \u043c\u043e\u0436\u043d\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0440\u0430\u0437\u043d\u044b\u043c\u0438 \u0441\u043f\u043e\u0441\u043e\u0431\u0430\u043c\u0438. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0442\u0430\u043a <code>: lngamma { f: x } <\/code>\u044d\u0442\u043e \u0441\u043f\u043e\u0441\u043e\u0431 <a href=\"http:\/\/www.gnu.org\/software\/gforth\/\" rel=\"noopener noreferrer nofollow\">gforth<\/a>. \u0418\u043b\u0438 \u0442\u0430\u043a : <code>lngamma {: f: x :}<\/code> &nbsp;\u0441\u043f\u043e\u0441\u043e\u0431 <a href=\"https:\/\/vfxforth.com\/\" rel=\"noopener noreferrer nofollow\">VFX Forth<\/a>. \u041b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0441\u043b\u043e\u0436\u043d\u0430\u044f \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u044f, \u0432\u043a\u043b\u044e\u0447\u0430\u044e\u0449\u0430\u044f \u0432 \u0441\u0435\u0431\u044f <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%9E%D0%B1%D0%BB%D0%B0%D1%81%D1%82%D1%8C_%D0%B2%D0%B8%D0%B4%D0%B8%D0%BC%D0%BE%D1%81%D1%82%D0%B8\" rel=\"noopener noreferrer nofollow\">\u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0432\u0438\u0434\u0438\u043c\u043e\u0441\u0442\u0438<\/a>, \u0432\u0440\u0435\u043c\u044f \u0436\u0438\u0437\u043d\u0438 \u0438 \u043f\u0440\u043e\u0447\u0435\u0435. \u0412\u043e\u0442 \u0443\u0436\u0435 \u043f\u0440\u0438\u0434\u0435\u0442\u0441\u044f \u043d\u0430\u0440\u0443\u0448\u0438\u0442\u044c \u043f\u0435\u0440\u0432\u044b\u0439 \u043f\u0440\u0438\u043d\u0446\u0438\u043f \u0424\u043e\u0440\u0442 \u0438 \u043f\u0440\u0435\u0432\u0440\u0430\u0442\u0438\u0442\u044c \u0435\u0433\u043e \u0432 \u0421\u0438-\u043f\u043e\u0434\u043e\u0431\u043d\u044b\u0439 \u044f\u0437\u044b\u043a?<\/p>\n<h3>\u0413\u0438\u043f\u0435\u0440\u0441\u0442\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u043e\u0435 \u043e\u043a\u0440\u0443\u0436\u0435\u043d\u0438\u0435<\/h3>\n<p>\u0421\u0442\u0440\u043e\u0433\u043e \u0433\u043e\u0432\u043e\u0440\u044f, <a href=\"https:\/\/wiki.kluv.in\/a\/HyperStaticGlobalEnvironment\" rel=\"noopener noreferrer nofollow\">\u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0424\u043e\u0440\u0442\u0430 \u044d\u0442\u043e \u0441\u043e\u0432\u0441\u0435\u043c \u043d\u0435 \u0442\u043e\u0436\u0435 \u0441\u0430\u043c\u043e\u0435, \u0447\u0442\u043e \u0432 \u0434\u0440\u0443\u0433\u0438\u0445 \u044f\u0437\u044b\u043a\u0430\u0445.<\/a> \u0427\u0442\u043e\u0431\u044b \u0431\u044b\u043b\u043e \u043f\u043e\u043d\u044f\u0442\u043d\u0435\u0435, \u0432\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440 \u0440\u0430\u0431\u043e\u0447\u0435\u0433\u043e \u043a\u043e\u0434\u0430:<\/p>\n<pre><code>variable apples  ok : +apples apples +! ;  ok : apples .\" You have \" apples @ . .\" apples.\" cr ; ok apples You have 0 apples.  ok 5 +apples  ok apples You have 5 apples.  ok<\/code><\/pre>\n<p>\u0417\u0434\u0435\u0441\u044c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f apples \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0430 \u0441\u043b\u043e\u0432\u043e\u043c <code>apples<\/code>, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0441\u043e\u043e\u0431\u0449\u0430\u0435\u0442 \u0442\u0435\u043a\u0443\u0449\u0435\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u044f\u0431\u043b\u043e\u043a. \u041e\u0434\u043d\u0430\u043a\u043e, \u0441\u043b\u043e\u0432\u043e <code>+apples<\/code> \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043a\u0430\u043a \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u043e, \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u044f \u0441\u0447\u0451\u0442\u0447\u0438\u043a. \u0412\u043d\u0443\u0442\u0440\u0438 \u0441\u043b\u043e\u0432\u0430 <code>+apples<\/code> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u0430\u0434\u0440\u0435\u0441 \u0441\u0447\u0451\u0442\u0447\u0438\u043a\u0430, \u0430 \u043d\u0435 \u0438\u043c\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439. \u0422\u0430\u043a \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u043b\u044e\u0431\u043e\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043d\u0435 \u0437\u0430\u0442\u0440\u0430\u0433\u0438\u0432\u0430\u044f \u0440\u0430\u0431\u043e\u0442\u0443 \u0440\u0430\u043d\u043d\u0438\u0445 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0439. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u0430 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f X. \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u043c:<\/p>\n<pre><code>variable &amp;x : x &amp;x @ ; : (x) &amp;x ! ;  : cube (x)   x x x * * ;  variable &amp;x : x &amp;x @ ; : (x) &amp;x ! ;  : square (x)   x x * ;    3 square . 9  ok 3 cube . 27  ok<\/code><\/pre>\n<p>\u0421\u043b\u043e\u0432\u0430 <code>cube<\/code> \u0438 <code>square<\/code> \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0442 \u043a\u0430\u043a \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u043e. \u041f\u043e\u0432\u0442\u043e\u0440\u044f\u044e\u0449\u0438\u0435\u0441\u044f \u0441\u043b\u043e\u0432\u0430 &amp;x, x, (x) \u043c\u043e\u0436\u043d\u043e \u0441\u043f\u0440\u044f\u0442\u0430\u0442\u044c \u0437\u0430 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0449\u0438\u043c \u0441\u043b\u043e\u0432\u043e\u043c, \u043d\u0430\u043f\u043e\u0434\u043e\u0431\u0438\u0435 \u0442\u043e\u0433\u043e, \u043a\u0430\u043a \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u043e \u0442\u0443\u0442, \u0441\u043c. \u043f\u043e\u0441\u0442 <a href=\"https:\/\/m.habr.com\/ru\/post\/220365\/\" rel=\"noopener noreferrer nofollow\">FORTH: \u0421\u0430\u043c\u043e\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0449\u0438\u0435\u0441\u044f \u0441\u043b\u043e\u0432\u0430.<\/a><\/p>\n<details class=\"spoiler\">\n<summary>\u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u0433\u0440\u0443\u043f\u043f\u044b \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u0432 F-PC Forth 3.60<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>FLOAD FFLOAT.SEQ FLOAD EVAL.SEQ  : COMPARE ( c-addr1 u1 c-addr2 u2 -- n )    ROT    2DUP U&lt; IF DROP COMPARE DUP 0= IF DROP  1 THEN  EXIT THEN    2DUP U&gt; IF NIP  COMPARE DUP 0= IF DROP -1 THEN  EXIT THEN    DROP COMPARE ;  : REFILL ( -- f )  \\ CORE version for user input device and string only    loading @      IF  ( file )                    false EXIT THEN    'tib @ sp0 @ = IF  ( user input device ) query  true EXIT THEN    ( EVALUATE )  false ;  MACRO: ++ PAD +PLACE ;  : (VARIABLE)   \" VARIABLE &amp;\" PAD PLACE 2DUP ++   \"  : (\" ++ 2DUP ++ \" ) &amp;\" ++   2DUP   ++ \"  ! ;\" ++   \"  : \"  ++ 2DUP ++ \"   &amp;\" ++ ( NAME ) ++ \"  @ ;\" ++   PAD COUNT EVAL ;  : (FVARIABLE)   \" FVARIABLE &amp;\" PAD PLACE 2DUP ++   \"  : (\" ++ 2DUP ++ \" ) &amp;\" ++   2DUP   ++ \"  F! ;\" ++   \"  : \"  ++ 2DUP ++ \"   &amp;\" ++ ( NAME ) ++ \"  F@ ;\" ++   PAD COUNT EVAL ;  : REFILL-AT-EOL? ( S: -- FLAG )   SOURCE NIP &gt;IN @ &gt; DUP 0= IF DROP REFILL THEN ;  : VARIABLES(   BEGIN BL WORD COUNT 2DUP \" )\" COMPARE   WHILE REFILL-AT-EOL?   WHILE (VARIABLE)   REPEAT   THEN 2DROP ;  : FVARIABLES(   BEGIN BL WORD COUNT 2DUP \" )\" COMPARE   WHILE REFILL-AT-EOL?   WHILE (FVARIABLE)   REPEAT   THEN 2DROP ;<\/code><\/pre>\n<\/div>\n<\/details>\n<p>\u0422\u0430\u043a \u043e\u043d\u043e \u0431\u0443\u0434\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0442\u0430\u043a:<\/p>\n<pre><code> \\ \u041e\u0431\u044a\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445  VARIABLES( MAXIT ) FVARIABLES( ACCURACY UNLIKELY-VALUE )  \\ \u041f\u0440\u0438\u0441\u0432\u043e\u0435\u043d\u0438\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 -1.11E30 (UNLIKELY-VALUE)  1.0E-9  (ACCURACY)       50 (MAXIT)        \\ \u041f\u043e\u043b\u043e\u0436\u0438\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u043d\u0430 \u0441\u0442\u0435\u043a MAXIT . 50 ok<\/code><\/pre>\n<p>\u041f\u043e\u043b\u044c\u0437\u0430 \u043e\u0442 \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u043e\u0439 \u043d\u043e\u0442\u0430\u0446\u0438\u0438, \u043f\u043e \u0441\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044e \u0441 \u043e\u0431\u044b\u0447\u043d\u044b\u043c\u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u043c\u0438 \u0424\u043e\u0440\u0442\u0430, \u0437\u0430\u043a\u043b\u044e\u0447\u0430\u0435\u0442\u0441\u044f \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u0433\u043e\u0440\u0430\u0437\u0434\u043e \u0447\u0430\u0449\u0435 \u0441 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f, \u0430 \u043d\u0435 \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u0442\u0441\u044f. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u0432\u043c\u0435\u0441\u0442\u043e <code>x @ y @ + z !<\/code> \u0431\u0443\u0434\u0435\u0442 <code>x y + (z)<\/code>, \u0438 \u043c\u043d\u043e\u0433\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u0435 <code>@<\/code> \u0438 <code>f@<\/code> \u0431\u0443\u0434\u0443\u0442 \u0444\u0430\u043a\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u043d\u044b. <\/p>\n<h3>F-PC Forth<\/h3>\n<p>\u0414\u043b\u044f \u0430\u0443\u0442\u0435\u043d\u0442\u0438\u0447\u043d\u043e\u0433\u043e \u043f\u043e\u0433\u0440\u0443\u0436\u0435\u043d\u0438\u044f \u0432 \u0441\u0442\u0430\u0440\u044b\u0435 \u0434\u043e\u0431\u0440\u044b\u0435 \u0432\u0440\u0435\u043c\u0435\u043d\u0430 IBM PC AT, MS DOS \u0438 \u0432\u0441\u0451 \u0442\u0430\u043a\u043e\u0435, \u044f \u0432\u044b\u0431\u0440\u0430\u043b <a href=\"http:\/\/www.forth.org\/compilers.html\" rel=\"noopener noreferrer nofollow\">F-PC Forth.<\/a> \u0421\u043a\u0430\u0447\u0430\u0442\u044c fpc36.zip, \u0440\u0430\u0441\u043f\u0430\u043a\u043e\u0432\u0430\u0442\u044c, \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0442\u044c \u043f\u043e\u0434 <a href=\"https:\/\/www.dosbox.com\/\" rel=\"noopener noreferrer nofollow\">dosbox<\/a>. \u0420\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0432\u0441\u0451 \u0438\u0437 \u043a\u043e\u0440\u043e\u0431\u043a\u0438, \u043b\u0435\u0433\u043a\u043e \u0438 \u043f\u0440\u043e\u0441\u0442\u043e.<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/4a0\/44f\/d15\/4a044fd1569d506c22f7c2725accb3ce.png\" alt=\" F-PC Forth - \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u044b\u0439 \u044d\u043a\u0440\u0430\u043d.\" title=\" F-PC Forth - \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u044b\u0439 \u044d\u043a\u0440\u0430\u043d.\" width=\"640\" height=\"400\"><figcaption> F-PC Forth &#8212; \u0441\u0442\u0430\u0440\u0442\u043e\u0432\u044b\u0439 \u044d\u043a\u0440\u0430\u043d.<\/figcaption><\/figure>\n<p>\u042d\u0442\u043e \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u0430\u044f IDE, \u0441 \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440\u043e\u043c \u043a\u043e\u0434\u0430, \u043e\u0442\u043b\u0430\u0434\u0447\u0438\u043a\u043e\u043c \u0438 \u0438\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0439 \u0441\u043f\u0440\u0430\u0432\u043a\u043e\u0439. \u0423\u0434\u043e\u0431\u043d\u044b\u0435 IDE \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e Borland \u0434\u0435\u043b\u0430\u043b.<\/p>\n<details class=\"spoiler\">\n<summary>\u0431\u043e\u043b\u044c\u0448\u0435 \u0440\u0435\u0442\u0440\u043e \u044d\u043a\u0440\u0430\u043d\u043e\u0432 F-PC Forth 3.60<\/summary>\n<div class=\"spoiler__content\">\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/287\/c21\/2b5\/287c212b5c4b80175e8789bd84acdf1a.png\" alt=\"\u0418\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u0430\u044f \u0441\u043f\u0440\u0430\u0432\u043a\u0430.\" title=\"\u0418\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u0430\u044f \u0441\u043f\u0440\u0430\u0432\u043a\u0430.\" width=\"640\" height=\"400\"><figcaption>\u0418\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u0430\u044f \u0441\u043f\u0440\u0430\u0432\u043a\u0430.<\/figcaption><\/figure>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/758\/2de\/330\/7582de330ecf44a963082977cff1db8b.png\" alt=\"\u041f\u043e\u0448\u0430\u0433\u043e\u0432\u044b\u0439 \u043e\u0442\u043b\u0430\u0434\u0447\u0438\u043a \u043a\u043e\u0434\u0430.\" title=\"\u041f\u043e\u0448\u0430\u0433\u043e\u0432\u044b\u0439 \u043e\u0442\u043b\u0430\u0434\u0447\u0438\u043a \u043a\u043e\u0434\u0430.\" width=\"640\" height=\"400\"><figcaption>\u041f\u043e\u0448\u0430\u0433\u043e\u0432\u044b\u0439 \u043e\u0442\u043b\u0430\u0434\u0447\u0438\u043a \u043a\u043e\u0434\u0430.<\/figcaption><\/figure>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/51c\/3cd\/ca6\/51c3cdca6647c759bb76b27aea54de1a.png\" alt=\"REPL\" title=\"REPL\" width=\"640\" height=\"400\"><figcaption>REPL<\/figcaption><\/figure>\n<\/div>\n<\/details>\n<p>\u041d\u0430\u043f\u0438\u0441\u0430\u043b \u0432 \u044d\u0442\u043e\u043c \u0441\u0442\u0430\u0440\u043e\u043c \u0424\u043e\u0440\u0442\u0435 \u043a\u043e\u0434 \u0434\u043b\u044f \u043f\u043e\u0438\u0441\u043a\u0430 \u043a\u043e\u0440\u043d\u0435\u0439 \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f <a href=\"https:\/\/en.wikipedia.org\/wiki\/Ridders%27_method\" rel=\"noopener noreferrer nofollow\">\u043c\u0435\u0442\u043e\u0434\u043e\u043c \u0420\u0438\u0434\u0434\u0435\u0440\u0430.<\/a> \u0414\u043b\u044f \u0441\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u0437\u0434\u0435\u0441\u044c \u0435\u0441\u0442\u044c <a href=\"https:\/\/mmas.github.io\/ridders-julia\" rel=\"noopener noreferrer nofollow\">\u043a\u043e\u0434 \u043d\u0430 Julia.<\/a><\/p>\n<details class=\"spoiler\">\n<summary>\u041f\u043e\u0438\u0441\u043a \u043a\u043e\u0440\u043d\u044f \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u043c\u0435\u0442\u043e\u0434\u043e\u043c \u0420\u0438\u0434\u0434\u0435\u0440\u0430 \u043d\u0430 F-PC Forth 3.60<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>DEFER F(X)   VARIABLES( MAXIT ) FVARIABLES( XL XM XH XNEW  FL FM FH FNEW  S RESULT ACCURACY UNLIKELY-VALUE )  -1.11E30 (UNLIKELY-VALUE)  1.0E-9  (ACCURACY)       50 (MAXIT)  : FSIGN ( R1 -- R1 ) F0&lt; DUP NOT - IFLOAT ; : F~ ( R1 R2 R3 -- FLAG ) F-ROT F- FABS F&gt; ;  : ROOT-NOT-BRACKETED? ( FL FH -- FLAG )   FDUP   F0&lt; FOVER  F0&gt; AND   ( FB ) F0&gt; ( FA ) F0&lt; AND OR NOT ;  : RIDDER ( R1 R2 -- R1 ) (XH) (XL)   XL F(X) (FL)  XH F(X) (FH)   FL F0= IF XL EXIT THEN   FH F0= IF XH EXIT THEN   FL FH ROOT-NOT-BRACKETED?   IF ABORT\" ROOT MUST BE BRACKETED IN ZRIDDR\" THEN   UNLIKELY-VALUE (RESULT) FALSE   MAXIT 0   DO     XL XH F+ 2.0E F\/ (XM)  XM F(X) (FM)     FM FDUP F* FL FH F* F- FSQRT (S)     S F0=     IF RESULT TRUE LEAVE THEN     FL FH F- FSIGN XM XL F- F* FM F* S F\/ XM F+ (XNEW)     XNEW RESULT ACCURACY F~     IF RESULT TRUE LEAVE THEN     XNEW (RESULT)  XNEW F(X) (FNEW)     FNEW F0=     IF RESULT TRUE LEAVE THEN     FNEW FSIGN FM F* FM F= NOT     IF XM (XL)  FM (FL)  RESULT (XH)  FNEW (FH)     ELSE FNEW FSIGN FL F* FL F= NOT       IF RESULT (XH)  FNEW (FH) THEN       FNEW FSIGN FH F* FH F= NOT       IF RESULT (XL)  FNEW (FL) THEN     THEN     XL XH ACCURACY F~     IF RESULT TRUE LEAVE THEN   LOOP   IF RESULT DROP   ELSE .\" ZRIDDR EXCEED MAXIMUM ITERATIONS\" DROP THEN ;  : FUNC FDUP FEXP FSWAP -5.0E F* 3.0E F+ F+ ;  ' FUNC IS F(X) 1.25E 1.6E RIDDER F.<\/code><\/pre>\n<\/div>\n<\/details>\n<p>\u041a\u0430\u0436\u0435\u0442\u0441\u044f, \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u043e\u0441\u044c \u0432\u043f\u043e\u043b\u043d\u0435 \u0447\u0438\u0442\u0430\u0435\u043c\u043e, \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u0435\u0441\u043b\u0438 \u0441\u0440\u0430\u0432\u043d\u0438\u0432\u0430\u0442\u044c \u0441 \u044f\u0437\u044b\u043a\u0430\u043c\u0438 \u0442\u0435\u0445 \u0432\u0440\u0435\u043c\u0435\u043d: BASIC, Fortran 77, Pascal.<\/p>\n<h3>\u0421\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b, \u043c\u0430\u0441\u0441\u0438\u0432\u044b, \u043c\u0430\u0442\u0440\u0438\u0446\u044b<\/h3>\n<p>\u0424\u043e\u0440\u0442 \u043d\u0435 \u0438\u0434\u0435\u0442 \u0432 \u043a\u043e\u043c\u043f\u043b\u0435\u043a\u0442\u0435 \u0441 \u0431\u0430\u0442\u0430\u0440\u0435\u0439\u043a\u0430\u043c\u0438, \u043d\u043e \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0441\u0430\u043c\u043e\u043c\u0443 \u043b\u0435\u0433\u043a\u043e \u0437\u0430\u0434\u0430\u0442\u044c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u044b\u0435 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438. \u041d\u0435 \u0441\u0442\u043e\u0438\u0442 \u0443\u0432\u043b\u0435\u043a\u0430\u0442\u044c\u0441\u044f \u0447\u0440\u0435\u0437\u043c\u0435\u0440\u043d\u043e \u043e\u0431\u0449\u0438\u043c\u0438 \u0432\u0435\u0449\u0430\u043c\u0438, \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0438\u043c\u0441\u044f \u0442\u0435\u043c \u043c\u0438\u043d\u0438\u043c\u0443\u043c\u043e\u043c, \u0447\u0442\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442. \u041d\u0430\u0447\u043d\u0435\u043c \u0441\u043e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440.<\/p>\n<pre><code>\\ Structures  : structure:   create ( structure name ) here 0 0 ,   does&gt; @ ;  : +field   create ( field name ) over , +   does&gt; @ + ;  : (cell)   aligned 1 cells  +field ; : (float) faligned 1 floats +field ;  : end-structure ( addr size -- ) swap ! ;<\/code><\/pre>\n<p>\u0417\u0434\u0435\u0441\u044c \u044f \u0443\u0436\u0435 \u043f\u0435\u0440\u0435\u043a\u043b\u044e\u0447\u0438\u043b\u0441\u044f \u043d\u0430 \u0431\u043e\u043b\u0435\u0435 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0439 \u0424\u043e\u0440\u0442, \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u0430 1994. \u0412 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438, F-PC \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0434\u043e\u043f\u043e\u043b\u043d\u0435\u043d \u0434\u043e \u044d\u0442\u043e\u0433\u043e \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u0430, \u0438 \u043a\u043e\u0434 ANS Forth 94 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u043c\u0438 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440\u0430\u043c\u0438, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, <a href=\"http:\/\/win32forth.sourceforge.net\/\" rel=\"noopener noreferrer nofollow\">win32forth<\/a>, <a href=\"https:\/\/en.wikipedia.org\/wiki\/Gforth\" rel=\"noopener noreferrer nofollow\">Gforth<\/a>. \u0421\u043b\u0435\u0434\u0443\u044f \u0434\u0443\u0445\u0443 \u0440\u0435\u0442\u0440\u043e, \u044f \u043f\u0438\u0441\u0430\u043b \u043a\u043e\u0434 \u0432 win32forth. <\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/b28\/f58\/2ac\/b28f582acb82a1b633d723acae7a9973.png\" alt=\" Win32forth IDE\" title=\" Win32forth IDE\" width=\"1097\" height=\"656\"><figcaption> Win32forth IDE<\/figcaption><\/figure>\n<p>\u0423 \u043d\u0435\u0433\u043e \u0442\u043e\u0436\u0435 \u0435\u0441\u0442\u044c IDE \u0438 \u0434\u0440\u0443\u0433\u0438\u0435 \u0443\u0434\u043e\u0431\u0441\u0442\u0432\u0430, \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043f\u043e\u0434 Windows (\u043f\u043e\u0434 wine \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442\u0441\u044f \u0431\u0435\u0437 \u043f\u0440\u043e\u0431\u043b\u0435\u043c). \u0421\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b \u043f\u043e\u043b\u0435\u0437\u043d\u044b \u043f\u0440\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0438 \u0432\u0435\u043a\u0442\u043e\u0440\u043e\u0432 \u0438 \u043c\u0430\u0442\u0440\u0438\u0446, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440:<\/p>\n<pre><code>\\ Arrays  structure: array-structure   (cell) .array-data   (cell) .array-type   (cell) .array-size end-structure  : array: ( size -- )   create   0 here .array-data ! here .array-type ! here .array-size !   array-structure allot ;  : array-allocate ( vec -- )   &gt;r r@ .array-size @ r@ .array-type @ * allocate throw r&gt; .array-data ! ;  : array-free ( vec -- )   &gt;r r@ .array-data @ free throw 0 r&gt; .array-data ! ;  : array-element ( i vec -- *vec[i] )   &gt;r r@ .array-type @ * r&gt; .array-data @ + ;<\/code><\/pre>\n<p>\u041a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u043f\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043d\u0443\u0436\u043d\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0432 \u0430\u0441\u0441\u0435\u043c\u0431\u043b\u0435\u0440\u0435, \u044d\u0442\u043e \u0434\u0430\u0441\u0442 \u043f\u0440\u0438\u0440\u043e\u0441\u0442 \u0441\u043a\u043e\u0440\u043e\u0441\u0442\u0438 \u043c\u0430\u0442\u0440\u0438\u0447\u043d\u044b\u0445 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439 3-5 \u0440\u0430\u0437. \u0420\u0430\u0431\u043e\u0442\u044b \u043d\u0435 \u043c\u043d\u043e\u0433\u043e. \u041d\u0438\u0436\u0435 \u043a\u043e\u0434 \u0434\u043b\u044f \u0434\u043e\u0441\u0442\u0443\u043f\u0430 \u043a \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0443 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0447\u0438\u0441\u0435\u043b \u0441 \u043f\u043b\u0430\u0432\u0430\u044e\u0449\u0435\u0439 \u0437\u0430\u043f\u044f\u0442\u043e\u0439.<\/p>\n<pre><code>code fs-array-element   pop eax   mov ebx, [ebx]   lea ebx, [ebx] [eax*8] next c;<\/code><\/pre>\n<p>\u0421\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0430 \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0424\u043e\u0440\u0442\u0430 &#8212; <a href=\"https:\/\/www.taygeta.com\/fsl\/sciforth.html\" rel=\"noopener noreferrer nofollow\">The Forth Scientific Library Project<\/a>, \u0432\u043f\u0440\u043e\u0447\u0435\u043c, \u0442\u0430\u043c \u0432\u0441\u0451 \u0440\u0430\u0432\u043d\u043e \u043d\u0435\u0442 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0430 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0441\u0438\u043c\u043c\u0435\u0442\u0440\u0438\u0447\u043d\u043e\u0439 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0439 \u043c\u0430\u0442\u0440\u0438\u0446\u044b. Do it yourself! \u0411\u0435\u0440\u0435\u043c \u043a\u043d\u0438\u0433\u0443 \u0413\u043e\u043b\u0443\u0431, \u0427. \u0412\u0430\u043d \u041b\u043e\u0443\u043d. <em>\u041c\u0430\u0442\u0440\u0438\u0447\u043d\u044b\u0435 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f<\/em> \u0438 \u0440\u0435\u0430\u043b\u0438\u0437\u0443\u0435\u043c <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%9C%D0%B5%D1%82%D0%BE%D0%B4_%D0%AF%D0%BA%D0%BE%D0%B1%D0%B8_%D0%B4%D0%BB%D1%8F_%D1%81%D0%BE%D0%B1%D1%81%D1%82%D0%B2%D0%B5%D0%BD%D0%BD%D1%8B%D1%85_%D0%B7%D0%BD%D0%B0%D1%87%D0%B5%D0%BD%D0%B8%D0%B9\" rel=\"noopener noreferrer nofollow\">\u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u042f\u043a\u043e\u0431\u0438<\/a>.<\/p>\n<figure class=\"\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/c55\/a9c\/a9f\/c55a9ca9f196e96d01d72298891d6852.png\" alt=\" \u0426\u0438\u043a\u043b\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u043c\u0435\u0442\u043e\u0434 \u042f\u043a\u043e\u0431\u0438, \u043f\u0441\u0435\u0432\u0434\u043e\u043a\u043e\u0434.\" title=\" \u0426\u0438\u043a\u043b\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u043c\u0435\u0442\u043e\u0434 \u042f\u043a\u043e\u0431\u0438, \u043f\u0441\u0435\u0432\u0434\u043e\u043a\u043e\u0434.\" width=\"336\" height=\"223\"><figcaption> \u0426\u0438\u043a\u043b\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u043c\u0435\u0442\u043e\u0434 \u042f\u043a\u043e\u0431\u0438, \u043f\u0441\u0435\u0432\u0434\u043e\u043a\u043e\u0434.<\/figcaption><\/figure>\n<pre><code>\\ Cyclic Jacobi. Algorithm 8.5.3 \\ Golub &amp; Van Loan, Matrix Computations  fvariables( cos sin EPS )  variables( M EV MAXROT )  1.0e-10 (EPS)      50 (MAXROT)  : eig! (EV) (M)   EV matrix-set-identity!   MAXROT 0   do     M off-diagonal-norm EPS f&lt;     if unloop exit then     M .matrix-rows @ 0     do M .matrix-cols @ i 1+        ?do i j M sym.schur2 (sin) (cos)         cos sin i j  M jacobi.rot'         cos sin i j  M jacobi.rot         cos sin i j EV jacobi.rot       loop     loop   loop   .\" jacobi not converged\" ;<\/code><\/pre>\n<p>\u0421\u0438\u043c\u043f\u0430\u0442\u0438\u0447\u043d\u043e, \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u043f\u0441\u0435\u0432\u0434\u043e\u043a\u043e\u0434? <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%9F%D1%80%D0%B5%D0%B4%D0%BC%D0%B5%D1%82%D0%BD%D0%BE-%D0%BE%D1%80%D0%B8%D0%B5%D0%BD%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%BD%D1%8B%D0%B9_%D1%8F%D0%B7%D1%8B%D0%BA\" rel=\"noopener noreferrer nofollow\">\u0412 \u044d\u0442\u043e\u043c \u0438 \u0435\u0441\u0442\u044c \u0441\u043c\u044b\u0441\u043b \u0424\u043e\u0440\u0442\u0430 &#8212; \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u043b\u0435\u043a\u0441\u0438\u043a\u043e\u043d \u0442\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u0440\u0435\u0448\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0430.<\/a> \u0412\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0441\u043b\u043e\u0432\u0430 \u043a \u0433\u043b\u0430\u0432\u043d\u043e\u043c\u0443 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044e <code>eig<\/code> \u044f \u043e\u043f\u0443\u0441\u043a\u0430\u044e, \u043a\u0430\u0436\u0434\u043e\u0435 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u043d\u0435 \u0431\u043e\u043b\u044c\u0448\u0435 \u0441\u0442\u0440\u043e\u043a, \u0447\u0435\u043c <code>eig<\/code>. <\/p>\n<h3>\u0424\u0438\u043d\u0430\u043b<\/h3>\n<p>\u041d\u0430\u0441\u0442\u0430\u043b\u043e \u0432\u0440\u0435\u043c\u044f \u0440\u0435\u0448\u0430\u0442\u044c \u043f\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043d\u0443\u044e \u0437\u0430\u0434\u0430\u0447\u0443, \u0430 \u0438\u043c\u0435\u043d\u043d\u043e, \u0441\u043e\u0433\u043b\u0430\u0441\u043d\u043e \u0441\u0442\u0430\u0442\u044c\u0435 C. Clay Marston and Gabriel G. BalintKurti. <em>The Fourier grid Hamiltonian method for bound state eigenvalues and eigenfunctions <\/em>\/\/ J. Chem. Phys. 91, 3571 (1989); doi: <a href=\"https:\/\/aip.scitation.org\/doi\/10.1063\/1.456888\" rel=\"noopener noreferrer nofollow\">10.1063\/1.456888<\/a> \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u043c\u0435\u0442\u043e\u0434 \u0438 \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u0442\u044c, \u0434\u043e\u043f\u0443\u0441\u0442\u0438\u043c, \u0443\u0440\u043e\u0432\u043d\u0438 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%9F%D0%BE%D1%82%D0%B5%D0%BD%D1%86%D0%B8%D0%B0%D0%BB_%D0%9C%D0%BE%D1%80%D0%B7%D0%B5\" rel=\"noopener noreferrer nofollow\">\u043e\u0441\u0446\u0438\u043b\u043b\u044f\u0442\u043e\u0440\u0430 \u041c\u043e\u0440\u0437\u0435<\/a>. \u0418\u043d\u044b\u043c\u0438 \u0441\u043b\u043e\u0432\u0430\u043c\u0438, \u043f\u0440\u0435\u0432\u0440\u0430\u0442\u0438\u0442\u044c \u0440\u0430\u0441\u0441\u0443\u0436\u0434\u0435\u043d\u0438\u044f \u0438\u0437 \u0444\u0440\u0430\u0433\u043c\u0435\u043d\u0442\u0430 \u0441\u0442\u0430\u0442\u044c\u0438 \u043d\u0438\u0436\u0435 \u0432 \u043f\u0440\u0430\u043a\u0442\u0438\u043a\u0443.<\/p>\n<figure class=\"bordered\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/220\/e93\/9ba\/220e939ba4941d5382436d3b3abc0177.png\" alt=\"The Fourier grid Hamiltonian method for bound state eigenvalues and eigenfunctions. \" title=\"The Fourier grid Hamiltonian method for bound state eigenvalues and eigenfunctions. \" width=\"503\" height=\"576\"><figcaption>The Fourier grid Hamiltonian method for bound state eigenvalues and eigenfunctions. <\/figcaption><\/figure>\n<p>\u041f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0439:<\/p>\n<ol>\n<li>\n<p>\u0412\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u043c \u0441\u0443\u043c\u043c\u044b \u0438\u0437 \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f (26)<\/p>\n<\/li>\n<li>\n<p>\u0424\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u043c <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%9C%D0%B0%D1%82%D1%80%D0%B8%D1%86%D0%B0_%D0%A2%D1%91%D0%BF%D0%BB%D0%B8%D1%86%D0%B0\" rel=\"noopener noreferrer nofollow\">\u0442\u0451\u043f\u043b\u0438\u0446\u0435\u0432\u0443 \u043c\u0430\u0442\u0440\u0438\u0446\u0443<\/a> H<\/p>\n<\/li>\n<li>\n<p>\u0421\u043e\u0437\u0434\u0430\u0435\u043c \u0434\u0438\u0441\u043a\u0440\u0435\u0442\u043d\u0443\u044e \u0441\u0435\u0442\u043a\u0443 \u043f\u043e \u043e\u0441\u0438 X<\/p>\n<\/li>\n<li>\n<p>\u0422\u0430\u0431\u0443\u043b\u0438\u0440\u0443\u0435\u043c \u043f\u043e\u0442\u0435\u043d\u0446\u0438\u0430\u043b V(x) \u0432 \u0442\u043e\u0447\u043a\u0430\u0445 \u0441\u0435\u0442\u043a\u0438<\/p>\n<\/li>\n<li>\n<p>\u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0442\u0430\u0431\u0443\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u043f\u043e\u0442\u0435\u043d\u0446\u0438\u0430\u043b \u043a \u0434\u0438\u0430\u0433\u043e\u043d\u0430\u043b\u0438 \u043c\u0430\u0442\u0440\u0438\u0446\u044b H<\/p>\n<\/li>\n<li>\n<p>\u041d\u0430\u0445\u043e\u0434\u0438\u043c \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0435 \u0447\u0438\u0441\u043b\u0430 \u0438 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0435 \u0432\u0435\u043a\u0442\u043e\u0440\u044b (\u044d\u0442\u043e \u0438 \u0435\u0441\u0442\u044c \u0440\u0435\u0448\u0435\u043d\u0438\u0435)<\/p>\n<\/li>\n<\/ol>\n<p>\u0421\u0443\u0442\u044c \u043c\u0435\u0442\u043e\u0434\u0430 Fourier grid Hamiltonian (FGH) \u0443\u043c\u0435\u0449\u0430\u0435\u0442\u0441\u044f \u0432 \u0434\u0432\u0430 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0424\u043e\u0440\u0442\u0430:<\/p>\n<pre><code>\\ Equation 26  fvariables( l d\/N )  : sum (d\/N)   1.0e (l)   0.0e ( N ) 1 rshift 0   do [ 2.0e fpi f* ] fliteral      l d\/N  f*  f* fcos l f**2 f* f+      l 1.0e f+ (l)   loop ;   variables( diags n ) fvariables( dx 1\/n )  : FGH! (diags) (dx)   diags .array-size @ (n)   n s&gt;f 1\/f (1\/n)   [ -8.0e fpi f**2 f* ] fliteral   1\/n fdup fdup f* f* f* dx f**2 1\/f f*   n 0 do i s&gt;f 1\/n f* n sum fover f* i diags fa!   loop fdrop ;<\/code><\/pre>\n<p>\u0414\u0430\u043b\u044c\u0448\u0435 \u0438\u0434\u0451\u0442 \u043e\u0431\u044b\u0447\u043d\u044b\u0439 <a href=\"https:\/\/en.wikipedia.org\/wiki\/Boilerplate_code\" rel=\"noopener noreferrer nofollow\">boilerplate code<\/a> \u043a\u0430\u043a \u043e\u0431\u044a\u044f\u0432\u043b\u0435\u043d\u0438\u044f \u043c\u0430\u0442\u0440\u0438\u0446, \u0432\u0435\u043a\u0442\u043e\u0440\u043e\u0432, \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432, \u0437\u0430\u0442\u0435\u043c \u043f\u043e\u0438\u0441\u043a \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0438 \u0440\u0430\u0441\u043f\u0435\u0447\u0430\u0442\u043a\u0430 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u0432. \u041d\u0430 \u044d\u0442\u043e\u043c \u044d\u0442\u0430\u043f\u0435 \u0441\u0442\u043e\u0438\u0442 \u043a\u0430\u043a \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u043f\u043e\u0438\u0433\u0440\u0430\u0442\u044c \u0441 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430\u043c\u0438 \u0438 \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0438\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0441\u0442\u044c\u044e \u0424\u043e\u0440\u0442\u0430. \u041c\u044b \u0436\u0435 \u043a\u0430\u043a \u0431\u0443\u0434\u0442\u043e \u0432 \u043f\u0440\u043e\u0448\u043b\u043e\u043c, \u0442\u0430\u043a? \u041d\u0438\u043a\u0430\u043a\u043e\u0433\u043e python\/numpy, Matlab \u0438 Julia &#8212; \u043f\u0440\u043e\u0441\u0442\u043e \u0443\u0441\u043e\u0432\u0435\u0440\u0448\u0435\u043d\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u043a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440.<\/p>\n<figure class=\"bordered full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/87b\/92b\/aa8\/87b92baa836669422348bca514537672.png\" alt=\"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439.\" title=\"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439.\" width=\"645\" height=\"580\"><figcaption>\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439.<\/figcaption><\/figure>\n<p>\u041a\u043e\u043c\u0443 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e, \u0441\u043c\u043e\u0442\u0440\u0438\u0442\u0435, \u044f <a href=\"https:\/\/github.com\/malykhin-sergei\/ForthNum\/blob\/main\/src\/FGH-win32forth.fs\" rel=\"noopener noreferrer nofollow\">\u0432\u044b\u043b\u043e\u0436\u0438\u043b \u043a\u043e\u0434 \u043d\u0430 \u0433\u0438\u0442\u0445\u0430\u0431\u0435<\/a>. <\/p>\n<h3>\u0417\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435<\/h3>\n<p>\u0424\u043e\u0440\u0442 \u0432\u043f\u043e\u043b\u043d\u0435 \u0441\u0435\u0431\u0435 \u043c\u043e\u0433 c \u0443\u0441\u043f\u0435\u0445\u043e\u043c \u0437\u0430\u043c\u0435\u043d\u044f\u0442\u044c Fortran \u0438 \u0447\u0442\u043e \u0442\u0430\u043c \u0435\u0449\u0435 \u0431\u044b\u043b\u043e \u0432 \u0442\u043e \u0432\u0440\u0435\u043c\u044f. \u041d\u0435 \u0442\u0430\u043a \u0442\u043e \u0441\u043b\u043e\u0436\u043d\u043e \u0436\u0438\u0442\u044c \u0441 \u043f\u043e\u0441\u0442\u0444\u0438\u043a\u0441\u043d\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u044c\u044e, \u0441\u0442\u0435\u043a\u0430\u043c\u0438 \u0438 \u0438\u043c\u0435\u0442\u044c \u0434\u0435\u043b\u043e \u0441 \u0443\u0440\u043e\u0432\u043d\u0435\u043c \u0447\u0443\u0442\u044c \u0432\u044b\u0448\u0435 \u043c\u0430\u0448\u0438\u043d\u043d\u044b\u0445 \u043a\u043e\u043c\u0430\u043d\u0434. \u041d\u0435\u043c\u0430\u043b\u043e\u0432\u0430\u0436\u043d\u043e \u0438 \u0442\u043e, \u0447\u0442\u043e \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u043c \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 \u0440\u0430\u0431\u043e\u0442\u044b \u043d\u0430\u0434 \u043a\u0430\u043a\u043e\u0439-\u0442\u043e \u0437\u0430\u0434\u0430\u0447\u0435\u0439 \u0432 \u0424\u043e\u0440\u0442\u0435 \u0431\u0443\u0434\u0435\u0442 \u0438\u043b\u0438  &#171;\u043d\u0435\u0442, \u043d\u0443 \u0435\u0433\u043e \u043a\u043e \u0432\u0441\u0435\u043c \u0447\u0435\u0440\u0442\u044f\u043c, \u0433\u0434\u0435 \u0442\u0430\u043c \u044d\u0442\u043e \u0443\u0436\u0435 \u0441\u0434\u0435\u043b\u0430\u043b\u0438, \u043f\u0440\u043e\u0449\u0435 \u0441\u043f\u0438\u0441\u0430\u0442\u044c&#187;, \u0438\u043b\u0438 \u043e\u0447\u0435\u043d\u044c \u0433\u043b\u0443\u0431\u043e\u043a\u043e\u0435 \u043f\u043e\u043d\u0438\u043c\u0430\u043d\u0438\u0435 \u043a\u0430\u0436\u0434\u043e\u0439 \u0434\u0435\u0442\u0430\u043b\u0438 \u0438 \u0441\u0443\u0442\u0438 \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u044f\u0449\u0435\u0433\u043e. <\/p>\n<p>\u042d\u0442\u043e \u0432\u0441\u0451 \u0444\u0438\u043b\u043e\u0441\u043e\u0444\u0438\u044f, \u043a\u043e\u043d\u0435\u0447\u043d\u043e. \u041e\u0434\u043d\u0430\u043a\u043e, \u044f \u043c\u043e\u0433\u0443 \u0441\u0435\u0431\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043a\u0430\u043a\u043e\u0439-\u0442\u043e \u0447\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u0439 \u0424\u043e\u0440\u0442 \u0438 \u0441\u0435\u0439\u0447\u0430\u0441, \u0432 \u043d\u0430\u0448\u0435 \u0432\u0440\u0435\u043c\u044f. \u041e\u043d \u043c\u043e\u0436\u0435\u0442 \u043e\u043a\u0430\u0437\u0430\u0442\u044c\u0441\u044f \u0433\u0434\u0435 \u0442\u043e \u0433\u043b\u0443\u0431\u043e\u043a\u043e \u0432 \u043e\u0431\u043e\u0440\u0443\u0434\u043e\u0432\u0430\u043d\u0438\u0438 \u0445\u0438\u0442\u0440\u043e\u0433\u043e \u0441\u043f\u0435\u043a\u0442\u0440\u043e\u043c\u0435\u0442\u0440\u0430, \u0434\u0435\u0442\u0435\u043a\u0442\u043e\u0440\u0430&#8230; \u0411\u044b\u043b\u043e \u0431\u044b \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e \u0443\u0437\u043d\u0430\u0442\u044c, \u0433\u0434\u0435.<\/p>\n<\/div>\n<p> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"https:\/\/habr.com\/ru\/post\/550508\/\"> https:\/\/habr.com\/ru\/post\/550508\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"\n<div class=\"post__text post__text_v2\" id=\"post-content-body\">\n<h3>\u041f\u0435\u0440\u0432\u043e\u0435 \u0432\u043f\u0435\u0447\u0430\u0442\u043b\u0435\u043d\u0438\u0435<\/h3>\n<p><a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%A4%D0%BE%D1%80%D1%82_(%D1%8F%D0%B7%D1%8B%D0%BA_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F)\" rel=\"noopener noreferrer nofollow\">\u0424\u043e\u0440\u0442<\/a> \u0438 \u0441\u0435\u0439\u0447\u0430\u0441 \u0438\u0437\u0432\u0435\u0441\u0442\u0435\u043d, \u0433\u043b\u0430\u0432\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u0441\u0440\u0435\u0434\u0438 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0445 \u0441\u0438\u0441\u0442\u0435\u043c, \u043a\u0430\u043a \u0447\u0442\u043e-\u0442\u043e \u0432\u0440\u043e\u0434\u0435 \u043d\u0435\u043e\u0431\u044b\u0447\u0430\u0439\u043d\u043e\u0433\u043e \u0432\u044b\u0441\u043e\u043a\u043e\u0443\u0440\u043e\u0432\u043d\u0435\u0432\u043e\u0433\u043e \u0430\u0441\u0441\u0435\u043c\u0431\u043b\u0435\u0440\u0430, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0434\u043b\u044f \u043c\u0438\u043a\u0440\u043e\u043a\u043e\u043d\u0442\u0440\u043e\u043b\u043b\u0435\u0440\u043e\u0432 &#8212; <a href=\"http:\/\/amforth.sourceforge.net\/\" rel=\"noopener noreferrer nofollow\">AmForth<\/a> \u0438 <a href=\"https:\/\/sourceforge.net\/projects\/mecrisp\/\" rel=\"noopener noreferrer nofollow\">Mecrisp<\/a>. \u041e\u0434\u043d\u0430\u043a\u043e, \u043a\u043e\u0433\u0434\u0430-\u0442\u043e \u0434\u0430\u0432\u043d\u044b\u043c \u0434\u0430\u0432\u043d\u043e \u0431\u044b\u043b \u0438\u0437\u0432\u0435\u0441\u0442\u0435\u043d \u0432 \u0434\u0440\u0443\u0433\u043e\u0439 \u0438\u043f\u043e\u0441\u0442\u0430\u0441\u0438 &#8212; \u043a\u0430\u043a <a href=\"https:\/\/en.wikipedia.org\/wiki\/Scientific_programming_language\" rel=\"noopener noreferrer nofollow\">\u044f\u0437\u044b\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043d\u0430\u0443\u0447\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439.<\/a> <\/p>\n<figure class=\"full-width\"><figcaption>\u041a\u043d\u0438\u0433\u0438 \u043e \u0424\u043e\u0440\u0442\u0435<\/figcaption><\/figure>\n<p><em>\u0424\u043e\u0440\u0442 \u0431\u044b\u043b \u0432\u044b\u0431\u0440\u0430\u043d \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430, \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043e\u0431\u044a\u044f\u0441\u043d\u044f\u044e\u0442\u0441\u044f \u0434\u0435\u0442\u0430\u043b\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0439 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u0441\u0438\u0441\u0442\u0435\u043c, \u043e\u0441\u043d\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 \u0437\u043d\u0430\u043d\u0438\u044f\u0445, \u043f\u043e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u043f\u0440\u0438\u0447\u0438\u043d\u0430\u043c: \u0432\u043e-\u043f\u0435\u0440\u0432\u044b\u0445, \u0442\u0440\u0430\u043d\u0441\u043b\u044f\u0442\u043e\u0440 \u0441 \u044d\u0442\u043e\u0433\u043e \u044f\u0437\u044b\u043a\u0430 \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u043d\u0430 \u0432\u0441\u0435\u0445 \u0442\u0438\u043f\u0430\u0445 \u043c\u0438\u043a\u0440\u043e\u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u043e\u0432, \u0432\u043e-\u0432\u0442\u043e\u0440\u044b\u0445, \u043e\u043d \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0434\u0435\u0448\u0435\u0432\u044b\u0439, \u0438, \u043d\u0430\u043a\u043e\u043d\u0435\u0446, \u0438\u043c\u0435\u0435\u0442 \u043c\u043d\u043e\u0433\u043e \u043e\u0431\u0449\u0435\u0433\u043e \u0441 \u044f\u0437\u044b\u043a\u0430\u043c\u0438 \u0438\u0441\u043a\u0443\u0441\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0433\u043e \u0438\u043d\u0442\u0435\u043b\u043b\u0435\u043a\u0442\u0430, \u0432 \u0447\u0430\u0441\u0442\u043d\u043e\u0441\u0442\u0438 \u0441 \u041b\u0438\u0441\u043f\u043e\u043c. <\/em><\/p>\n<p>\u0422\u0430\u0443\u043d\u0441\u0435\u043d\u0434 \u041a., \u0424\u043e\u0445\u0442 \u0414. \u041f\u0420\u041e\u0415\u041a\u0422\u0418\u0420\u041e\u0412\u0410\u041d\u0418\u0415 \u0418 \u041f\u0420\u041e\u0413\u0420\u0410\u041c\u041c\u041d\u0410\u042f \u0420\u0415\u0410\u041b\u0418\u0417\u0410\u0426\u0418\u042f \u042d\u041a\u0421\u041f\u0415\u0420\u0422\u041d\u042b\u0425 \u0421\u0418\u0421\u0422\u0415\u041c \u041d\u0410 \u041f\u0415\u0420\u0421\u041e\u041d\u0410\u041b\u042c\u041d\u042b\u0425 \u042d\u0412\u041c. \u041c.: \u0424\u0438\u043d\u0430\u043d\u0441\u044b \u0438 \u0441\u0442\u0430\u0442\u0438\u0441\u0442\u0438\u043a\u0430, 1990.<\/p>\n<p>\u042f \u043f\u0440\u043e\u0447\u0451\u043b \u044d\u0442\u043e \u0438 \u0431\u044b\u043b \u0432\u043f\u0435\u0447\u0430\u0442\u043b\u0451\u043d. \u0412\u043e\u0442 \u0442\u0440\u0438 \u0445\u043e\u0440\u043e\u0448\u043e \u0437\u043d\u0430\u043a\u043e\u043c\u044b\u0435 \u043c\u043d\u0435 \u043a\u043d\u0438\u0433\u0438:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<p>\u042f\u0437\u044b\u043a\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0432 \u043a\u043d\u0438\u0436\u043a\u0430\u0445, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e &#8212; <a href=\"https:\/\/en.wikipedia.org\/wiki\/Commodore_BASIC\" rel=\"noopener noreferrer nofollow\">\u0411\u0435\u0439\u0441\u0438\u043a<\/a>, <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%A4%D0%BE%D1%80%D1%82%D1%80%D0%B0%D0%BD#FORTRAN_77_(1978)\" rel=\"noopener noreferrer nofollow\">\u0424\u043e\u0440\u0442\u0440\u0430\u043d<\/a> \u0438 \u0424\u043e\u0440\u0442! \u0412 \u043a\u043d\u0438\u0433\u0435 \u0422. \u0422\u043e\u0444\u0444\u043e\u043b\u0438:<\/p>\n<p><em>CAM-6 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043c\u0430\u0448\u0438\u043d\u043e\u0439 \u043a\u043b\u0435\u0442\u043e\u0447\u043d\u044b\u0445 \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u043e\u0432, \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u043d\u043e\u0439 \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u043b\u0430\u0431\u043e\u0440\u0430\u0442\u043e\u0440\u0438\u0435\u0439 \u044d\u043a\u0441\u043f\u0435\u0440\u0438\u043c\u0435\u043d\u0442\u0430\u0442\u043e\u0440\u0430, \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u043e\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u0432 \u0438 \u0441\u0440\u0435\u0434\u043e\u0439 \u0434\u043b\u044f \u0438\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0439 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u0438 \u0432 \u0440\u0435\u0436\u0438\u043c\u0435 \u0440\u0435\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438.<\/em><\/p>\n<p><em>\u0424\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u0438 CAM-6 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0438\u0437 \u043c\u043e\u0434\u0443\u043b\u044f, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0432\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0432 \u043e\u0434\u0438\u043d \u0440\u0430\u0437\u044a\u0435\u043c IBM-PC (XT, AT \u0438\u043b\u0438 \u0441\u043e\u0432\u043c\u0435\u0441\u0442\u0438\u043c\u044b\u0445 \u0441 \u043d\u0438\u043c\u0438 \u043c\u043e\u0434\u0435\u043b\u0435\u0439),  \u0438 \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0435\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0433\u043e \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0435\u043d\u0438\u044f, \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0435\u0433\u043e \u0432 \u0441\u0440\u0435\u0434\u0435  PC-DOS2. \u0412 \u0442\u043e \u0432\u0440\u0435\u043c\u044f \u043a\u0430\u043a \u044d\u0442\u043e\u0442 \u043b\u0435\u0433\u043a\u043e \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0439 \u0433\u043e\u043b\u043e\u0432\u043d\u043e\u0439 \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0438\u0432\u0430\u0435\u0442 \u0440\u0430\u0437\u043c\u0435\u0449\u0435\u043d\u0438\u0435, \u044d\u043a\u0440\u0430\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435, \u044d\u043b\u0435\u043a\u0442\u0440\u043e\u043f\u0438\u0442\u0430\u043d\u0438\u0435,  \u0434\u0438\u0441\u043a\u043e\u0432\u0443\u044e \u043f\u0430\u043c\u044f\u0442\u044c, \u043c\u043e\u043d\u0438\u0442\u043e\u0440 \u0438 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u0443\u044e \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u0443\u044e \u0441\u0440\u0435\u0434\u0443, \u0432\u0441\u044f \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0440\u0430\u0431\u043e\u0442\u0430 \u043f\u043e \u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044e \u043a\u043b\u0435\u0442\u043e\u0447\u043d\u044b\u0445 \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u043e\u0432 \u0441 \u043e\u0447\u0435\u043d\u044c \u0432\u044b\u0441\u043e\u043a\u043e\u0439 \u0441\u043a\u043e\u0440\u043e\u0441\u0442\u044c\u044e \u0441\u043e\u0432\u0435\u0440\u0448\u0430\u0435\u0442\u0441\u044f \u0441\u0430\u043c\u0438\u043c \u043c\u043e\u0434\u0443\u043b\u0435\u043c \u0441 \u0431\u044b\u0441\u0442\u0440\u043e\u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435\u043c,  \u0441\u0440\u0430\u0432\u043d\u0438\u043c\u044b\u043c (\u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0447\u0430\u0441\u0442\u043d\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f) \u0441 \u0431\u044b\u0441\u0442\u0440\u043e\u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435\u043c CRAY-1.  \u0423\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0449\u0435\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0435 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0435\u043d\u0438\u0435 \u0434\u043b\u044f CAM-6 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043e \u043d\u0430 FORTH  \u0438 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043d\u0430 IBM-PC \u0441 \u043f\u0430\u043c\u044f\u0442\u044c\u044e 256 \u041a. \u042d\u0442\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0435 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0435\u043d\u0438\u0435 \u0434\u043e\u043f\u043e\u043b\u043d\u0435\u043d\u043e \u0440\u044f\u0434\u043e\u043c \u0433\u043e\u0442\u043e\u0432\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439 \u0438 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u044b\u0445 \u043f\u0440\u0438\u043c\u0435\u0440\u043e\u0432 \u0438  \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u0442 \u043f\u043e\u043b\u043d\u044b\u0439 \u0430\u043d\u043d\u043e\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a\u043e\u0432.<\/em><\/p>\n<p><em>\u0412 \u044d\u0442\u043e\u0439 \u043a\u043d\u0438\u0433\u0435 \u0431\u0443\u0434\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u044f\u0437\u044b\u043a CAM Forth. Forth \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u044f\u0435\u043c\u044b\u043c \u044f\u0437\u044b\u043a\u043e\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u043f\u043e\u0434\u0445\u043e\u0434\u044f\u0449\u0438\u043c \u0434\u043b\u044f  \u0438\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u044b\u0445 \u0437\u0430\u0434\u0430\u0447. \u042d\u0442\u043e\u0442 \u044f\u0437\u044b\u043a \u0431\u044b\u043b \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d \u0442\u0430\u043a, \u0447\u0442\u043e\u0431\u044b \u043e\u043d \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u043b \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u0441\u043b\u043e\u0432 \u0438 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0439, \u043f\u043e\u043b\u0435\u0437\u043d\u044b\u0445 \u0434\u043b\u044f \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0430\u043d\u0438\u044f \u0434\u0438\u0430\u043b\u043e\u0433\u0430 \u0441 CAM ( \u0432 \u0447\u0430\u0441\u0442\u043d\u043e\u0441\u0442\u0438, \u0434\u043b\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u043f\u0440\u0430\u0432\u0438\u043b \u043a\u043b\u0435\u0442\u043e\u0447\u043d\u043e\u0433\u043e \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0430 \u0438 \u0434\u043b\u044f  \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u044d\u043a\u0441\u043f\u0435\u0440\u0438\u043c\u0435\u043d\u0442\u043e\u0432).<\/em><\/p>\n<p>\u041e\u0447\u0435\u043d\u044c \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e! \u0423\u0431\u0435\u0434\u0438\u043b\u0438, \u044f \u0442\u043e\u0436\u0435 \u0445\u043e\u0447\u0443 \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c \u0424\u043e\u0440\u0442! \u041e\u0449\u0443\u0442\u0438\u0442\u044c, \u043a\u0430\u043a \u044d\u0442\u043e, \u043f\u0438\u0441\u0430\u0442\u044c \u043d\u0430\u0443\u0447\u043d\u043e\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 80-\u0445 \u0438\u043b\u0438 \u0440\u0430\u043d\u043d\u0438\u0445 90-\u0445. \u0413\u043e\u0432\u043e\u0440\u044f\u0442, \u0447\u0442\u043e \u043a\u0430\u0436\u0434\u044b\u0439 \u0444\u043e\u0440\u0442\u0435\u0440 \u043f\u0438\u0448\u0435\u0442 \u0441\u0432\u043e\u0439 \u0424\u043e\u0440\u0442, \u043d\u043e \u0432\u0440\u044f\u0434 \u043b\u0438 \u044d\u0442\u043e \u043a\u043e\u043c\u0443-\u0442\u043e \u0435\u0449\u0435 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e, \u0442\u0430\u043a \u0447\u0442\u043e, \u043f\u043e\u0436\u0430\u043b\u0443\u0439, \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u044e \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u043a\u0430\u043a\u0438\u043c-\u0442\u043e \u0433\u043e\u0442\u043e\u0432\u044b\u043c \u0424\u043e\u0440\u0442\u043e\u043c \u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c, \u0441\u043a\u0430\u0436\u0435\u043c, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0434\u043b\u044f \u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0433\u043e \u0438\u0441\u043f\u044b\u0442\u0430\u043d\u0438\u044f&#8230; \u0410, \u043f\u0443\u0441\u043a\u0430\u0439 \u0431\u0443\u0434\u0435\u0442 \u044d\u0442\u043e: C. Clay Marston and Gabriel G. BalintKurti. <em>The Fourier grid Hamiltonian method for bound state eigenvalues and eigenfunctions <\/em>\/\/ J. Chem. Phys. 91, 3571 (1989); doi: <a href=\"https:\/\/aip.scitation.org\/doi\/10.1063\/1.456888\" rel=\"noopener noreferrer nofollow\">10.1063\/1.456888<\/a><\/p>\n<p>\u041a\u0430\u043a \u0431\u0443\u0434\u0442\u043e \u043d\u0430 \u0434\u0432\u043e\u0440\u0435 1989 \u0433\u043e\u0434, \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0430 \u0433\u0434\u0435-\u0442\u043e \u043d\u0430 \u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u043c\u0430\u0448\u0438\u043d\u0435 \u0432 \u0438\u043d\u0441\u0442\u0438\u0442\u0443\u0442\u0435, \u0430 \u0443 \u043c\u0435\u043d\u044f \u043f\u0440\u043e\u0441\u0442\u043e \u043d\u0435\u0447\u0442\u043e \u043f\u043e\u0434 \u0440\u0443\u043a\u0430\u043c\u0438, \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u0442\u0430\u043c Matlab \u0432 \u043f\u043e\u043c\u0438\u043d\u0435 \u043d\u0435\u0442. \u041a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440 &#8212; \u0447\u0443\u0442\u044c \u0431\u043e\u043b\u044c\u0448\u0435 \u043f\u043e \u0441\u0432\u043e\u0438\u043c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044f\u043c, \u0447\u0435\u043c \u043a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440.<\/p>\n<h3>\u0417\u043d\u0430\u043a\u043e\u043c\u0441\u0442\u0432\u043e<\/h3>\n<p>\u041a\u0441\u0442\u0430\u0442\u0438, \u0430 \u0432\u043e\u0442 \u0438 \u043e\u043d &#8212; <a href=\"https:\/\/en.wikipedia.org\/wiki\/HP_35s\" rel=\"noopener noreferrer nofollow\">HP 35s<\/a>. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0432 \u043d\u0451\u043c &#8212; <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%A8%D0%B8%D1%82%D1%8B%D0%B9_%D0%BA%D0%BE%D0%B4\" rel=\"noopener noreferrer nofollow\">\u0448\u0438\u0442\u044b\u0439 \u043a\u043e\u0434<\/a> (\u043d\u0438\u0436\u0435 \u0440\u0438\u0441\u0443\u043d\u043e\u043a \u0438\u0437 \u0420\u0443\u043a\u043e\u0432\u043e\u0434\u0441\u0442\u0432\u0430 \u043a \u043a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440\u0443). \u041f\u0435\u0440\u0435\u0439\u0442\u0438 \u0441 \u043a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440\u0430 \u043d\u0430 \u0424\u043e\u0440\u0442 \u043e\u0447\u0435\u043d\u044c \u043f\u0440\u043e\u0441\u0442\u043e &#8212; \u0424\u043e\u0440\u0442 \u0442\u043e\u0436\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0442\u043e\u0442 \u0441\u0430\u043c\u044b\u0439 \u0448\u0438\u0442\u044b\u0439 \u043a\u043e\u0434.<\/p>\n<figure class=\"full-width\"><figcaption>\u041a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440 HP 35s. \u0428\u0438\u0442\u044b\u0439 \u043a\u043e\u0434.<\/figcaption><\/figure>\n<p>\u0412 \u0441\u0430\u043c\u043e\u043c \u0434\u0435\u043b\u0435, \u043a\u0430\u0436\u0434\u043e\u0435 \u0441\u043b\u043e\u0432\u043e (\u0442\u0435\u0440\u043c\u0438\u043d \u0424\u043e\u0440\u0442\u0430, \u0430\u043d\u0430\u043b\u043e\u0433 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440 \u0438\u043b\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0439) \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0438\u0437 \u0434\u0440\u0443\u0433\u0438\u0445 \u0441\u043b\u043e\u0432 \u0438 \u0442\u0430\u043a \u0434\u043e \u0441\u0430\u043c\u043e\u0433\u043e \u043d\u0438\u0436\u043d\u0435\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f, \u0433\u0434\u0435 \u0441\u043b\u043e\u0432\u0430-\u043f\u0440\u0438\u043c\u0438\u0442\u0438\u0432\u044b \u044d\u0442\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u043c\u0430\u0448\u0438\u043d\u043d\u044b\u0439 \u043a\u043e\u0434. <\/p>\n<pre><code>see normcdf : NORMCDF       flit 1.41421 F\/ ERF F1.0 F+ flit .500000 F* ; ok see erf : ERF           FDUP FSIGN FSWAP FDUP F* FDUP flit .147000 F*                 FDUP flit 1.27324 F+ FSWAP F1.0 F+ F\/ F*                 FNEGATE FEXP FNEGATE F1.0 F+ FSQRT F* ; ok see fsign : FSIGN         F0&lt; DUP INVERT - S&gt;F ; ok see dup DUP IS CODE    ( $4012D8 53 )                 push    ebx<\/code><\/pre>\n<p>\u0412 \u0424\u043e\u0440\u0442\u0435 \u0432\u0441\u0451 \u0441\u043b\u043e\u0432\u0430. \u041a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0430 &#8212; \u0441\u043b\u043e\u0432\u043e, \u0447\u0442\u043e \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u043d\u0430 \u0441\u0442\u0435\u043a\u0435 \u0447\u0438\u0441\u043b\u043e. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u043d\u0430 \u0441\u0442\u0435\u043a\u0435 \u0430\u0434\u0440\u0435\u0441, \u0433\u0434\u0435 \u043b\u0435\u0436\u0438\u0442 \u0435\u0451 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435. \u0415\u0441\u0442\u044c \u043c\u043d\u043e\u0433\u043e \u0440\u0430\u0437\u043d\u044b\u0445 \u043a\u043d\u0438\u0433 \u0438 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0439 \u0424\u043e\u0440\u0442\u0430, \u043d\u0435 \u0431\u0443\u0434\u0443 \u0438\u0445 \u043f\u043e\u0432\u0442\u043e\u0440\u044f\u0442\u044c, \u043e\u0434\u043d\u0430\u043a\u043e, \u0441\u0447\u0438\u0442\u0430\u044e, \u0447\u0442\u043e \u043e\u0434\u043d\u043e \u0438\u0437 \u043b\u0443\u0447\u0448\u0438\u0445 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0439 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0438 \u043a\u0430\u043a \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u043f\u043e\u0434 \u043a\u0430\u043f\u043e\u0442\u043e\u043c \u0434\u0430\u043d\u043e \u0437\u0434\u0435\u0441\u044c &#8212; <a href=\"http:\/\/rigidus.ru\/\" rel=\"noopener noreferrer nofollow\">http:\/\/rigidus.ru\/<\/a><\/p>\n<p>\u041f\u043e \u043c\u043e\u0435\u043c\u0443 \u0432\u043f\u0435\u0447\u0430\u0442\u043b\u0435\u043d\u0438\u044e, \u0424\u043e\u0440\u0442 \u044f\u0437\u044b\u043a \u043f\u0440\u0430\u0433\u043c\u0430\u0442\u0438\u0447\u043d\u044b\u0439, \u0430 \u043d\u0435 \u043f\u0430\u0440\u0430\u0434\u0438\u0433\u043c\u0430\u0442\u0438\u0447\u043d\u044b\u0439. \u042d\u0442\u043e \u043f\u043e\u0441\u0442\u0444\u0438\u043a\u0441\u043d\u044b\u0439 \u044f\u0437\u044b\u043a? \u0421 \u043e\u0434\u043d\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b, \u0434\u0430, \u0441 \u0434\u0440\u0443\u0433\u043e\u0439 &#8212; \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c. \u0412\u043e\u0442 \u0441\u043a\u0430\u0436\u0435\u043c, \u0435\u0441\u043b\u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u043f\u0440\u0438\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0442\u044c\u0441\u044f <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%9E%D0%B1%D1%80%D0%B0%D1%82%D0%BD%D0%B0%D1%8F_%D0%BF%D0%BE%D0%BB%D1%8C%D1%81%D0%BA%D0%B0%D1%8F_%D0%B7%D0%B0%D0%BF%D0%B8%D1%81%D1%8C\" rel=\"noopener noreferrer nofollow\">\u043f\u043e\u0441\u0442\u0444\u0438\u043a\u0441\u043d\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u0438<\/a>, \u0442\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0434\u043e\u043b\u0436\u043d\u044b \u0431\u044b\u043b\u0438 \u0431\u044b \u0431\u044b\u0442\u044c \u043d\u0430\u043f\u043e\u0434\u043e\u0431\u0438\u0435 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e:<code>(word) cvn { moveto show } def<\/code> \u0438\u043b\u0438 <code>{ moveto show } \/S exch def<\/code> \u0433\u0434\u0435 \u043a\u043b\u044e\u0447\u0435\u0432\u043e\u0435 \u0441\u043b\u043e\u0432\u043e <strong>def<\/strong> (\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c) \u0441\u0442\u043e\u0438\u0442 \u043f\u043e\u0441\u043b\u0435 \u0441\u0430\u043c\u043e\u0433\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f. \u0422\u0430\u043a \u0434\u0435\u043b\u0430\u0435\u0442\u0441\u044f \u0432 <a href=\"https:\/\/ru.wikipedia.org\/wiki\/PostScript\" rel=\"noopener noreferrer nofollow\">Postscript<\/a>, \u043d\u043e \u043d\u0435 \u0432 \u0424\u043e\u0440\u0442. \u0412 \u0424\u043e\u0440\u0442\u0435 \u0431\u044b\u043b\u043e \u0431\u044b <code>: word moveto show ;<\/code> &#8212; \u0437\u0430 \u0434\u0432\u043e\u0435\u0442\u043e\u0447\u0438\u0435\u043c \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c\u044b\u0439 \u0442\u0435\u0440\u043c\u0438\u043d, \u0442\u043e\u0447\u043a\u0430 \u0441 \u0437\u0430\u043f\u044f\u0442\u043e\u0439 \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u0442 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435. \u041f\u043e\u0447\u0435\u043c\u0443 \u0442\u0430\u043a? \u0410 \u0442\u0430\u043a \u043f\u0440\u043e\u0449\u0435. \u0414\u0432\u043e\u0435\u0442\u043e\u0447\u0438\u0435 \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u0438\u0442 \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0442\u043e\u0440 \u0424\u043e\u0440\u0442 \u0432 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 STATE=-1 (true \u0432 \u0424\u043e\u0440\u0442\u0435), \u0438 \u0442\u0435\u043a\u0441\u0442 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0441\u043b\u0435\u0432\u0430 \u043d\u0430 \u043f\u0440\u0430\u0432\u043e, \u0442\u043e\u0447\u043a\u0430 \u0441 \u0437\u0430\u043f\u044f\u0442\u043e\u0439 \u0432 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0446\u0438\u0438 (\u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f) STATE=0. <\/p>\n<p>\u041c\u043d\u043e\u0433\u0438\u0435 \u0432\u0435\u0449\u0438 \u0432 \u0424\u043e\u0440\u0442\u0435 \u0441\u0434\u0435\u043b\u0430\u043d\u044b \u0441 \u0443\u043f\u043e\u0440\u043e\u043c \u043d\u0430 \u043f\u0440\u043e\u0441\u0442\u043e\u0442\u0443 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438, \u0430 \u043d\u0435 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u0438\u0437\u0430\u0446\u0438\u0438. \u0427\u0430\u043a \u041c\u0443\u0440, \u0441\u043e\u0437\u0434\u0430\u0442\u0435\u043b\u044c \u0424\u043e\u0440\u0442\u0430, \u043f\u043b\u043e\u0445\u043e \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u043a \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u0438\u0437\u0430\u0446\u0438\u0438. \u0415\u0433\u043e \u043f\u0440\u0438\u043d\u0446\u0438\u043f &#8212; \u0442\u0435\u0431\u0435 \u043d\u0443\u0436\u043d\u043e, \u0442\u044b \u0438 \u0441\u0434\u0435\u043b\u0430\u0439. <a href=\"https:\/\/www.forth.com\/resources\/forth-programming-language\/\" rel=\"noopener noreferrer nofollow\">\u041d\u0435 \u0441\u043f\u0435\u043a\u0443\u043b\u0438\u0440\u0443\u0439<\/a>, \u043d\u0435 \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0439 \u0437\u0430\u0440\u0443\u0431\u043a\u0438 \u0434\u043b\u044f \u0443\u0434\u043e\u0431\u0441\u0442\u0432\u0430 \u0431\u0443\u0434\u0443\u0449\u0435\u0433\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u0430. \u0421\u0435\u0439\u0447\u0430\u0441 \u0443\u0434\u043e\u0431\u043d\u043e \u0438 \u043f\u0440\u043e\u0441\u0442\u043e \u0434\u0435\u043b\u0430\u0442\u044c \u0422\u0410\u041a, \u0432\u043e\u0442 \u0422\u0410\u041a \u0438 \u0434\u0435\u043b\u0430\u0439 \u0421\u0410\u041c \u0418 \u041f\u0420\u042f\u041c\u041e \u0421\u0415\u0419\u0427\u0410\u0421. \u041a\u043e\u0440\u043e\u0447\u0435 \u0433\u043e\u0432\u043e\u0440\u044f, \u0424\u043e\u0440\u0442 \u044d\u0442\u043e \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u044f\u0437\u044b\u043a, \u044d\u0442\u043e \u043c\u0435\u0442\u043e\u0434 \u0440\u0435\u0448\u0435\u043d\u0438\u044f <em>\u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u0445<\/em> \u043f\u0440\u043e\u0431\u043b\u0435\u043c. \u0412\u043e\u0442 \u0435\u0433\u043e \u043a\u0440\u0435\u0434\u043e:<\/p>\n<ol>\n<li>\n<p>Keep it simple<\/p>\n<\/li>\n<li>\n<p>Do not speculate<\/p>\n<\/li>\n<li>\n<p>Do it yourself <s>motherf*cker<\/s><\/p>\n<\/li>\n<\/ol>\n<p>\u041d\u0435 \u0436\u0434\u0438\u0442\u0435 \u043e\u0442 \u0424\u043e\u0440\u0442\u0430 \u0441\u0435\u0440\u0435\u0431\u0440\u044f\u043d\u043e\u0439 \u043f\u0443\u043b\u0438, \u043a\u0440\u0443\u0442\u043e\u0433\u043e \u0444\u0440\u0435\u0439\u043c\u0432\u043e\u0440\u043a\u0430, \u043f\u043e\u043b\u043d\u043e\u0439 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 \u0438 \u043f\u0440\u043e\u0434\u0443\u043c\u0430\u043d\u043d\u043e\u0433\u043e \u043a\u0435\u043c-\u0442\u043e API. \u0412\u043e\u0442 \u0432\u0430\u043c \u043c\u043d\u0435\u043d\u0438\u044f, \u0446\u0435\u043b\u044b\u0439 \u0437\u043e\u043e\u043f\u0430\u0440\u043a \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0439 \u0438 \u0440\u0435\u0446\u0435\u043f\u0442\u043e\u0432 &#8212; \u0434\u0430 \u043f\u043e\u043c\u043e\u0436\u0435\u0442 \u0412\u0430\u043c \u0437\u0434\u0440\u0430\u0432\u044b\u0439 \u0441\u043c\u044b\u0441\u043b \u0438 \u0431\u0430\u0437\u043e\u0432\u044b\u0435 \u0442\u0440\u0438 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0430.<\/p>\n<h3>\u0421\u0442\u0435\u043a\u0432\u0438\u043b\u0438\u0431\u0440\u0438\u0441\u0442\u0438\u043a\u0430<\/h3>\n<p>\u041f\u043e\u043b\u043e\u0436\u0438\u043c, \u0447\u0442\u043e \u043c\u044b \u0437\u0430\u0445\u043e\u0442\u0435\u043b\u0438 \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 <a href=\"https:\/\/en.wikipedia.org\/wiki\/Gamma_function\" rel=\"noopener noreferrer nofollow\">\u0433\u0430\u043c\u043c\u0430-\u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/a> (\u0442\u043e\u0447\u043d\u0435\u0435, \u0435\u0451 \u043b\u043e\u0433\u0430\u0440\u0438\u0444\u043c\u0430) \u043d\u0430 \u0424\u043e\u0440\u0442\u0435. \u0411\u043e\u043b\u0435\u0435 \u0442\u043e\u0433\u043e, \u0443 \u043d\u0430\u0441 \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u0441\u043e\u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440 \u0442\u0438\u043f\u0430 <a href=\"https:\/\/ru.wikipedia.org\/wiki\/Intel_8087\" rel=\"noopener noreferrer nofollow\">Intel 8087<\/a> &#8212; \u0443 \u043d\u0435\u0433\u043e \u0441\u0442\u0435\u043a\u043e\u0432\u0430\u044f \u0430\u0440\u0445\u0438\u0442\u0435\u043a\u0442\u0443\u0440\u0430, \u043e\u0447\u0435\u043d\u044c \u043a\u0441\u0442\u0430\u0442\u0438 \u0434\u043b\u044f \u0424\u043e\u0440\u0442\u0430! \u0412\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f <a href=\"https:\/\/en.wikipedia.org\/wiki\/Lanczos_approximation\" rel=\"noopener noreferrer nofollow\">\u043f\u0440\u0438\u0431\u043b\u0438\u0436\u0435\u043d\u0438\u0435\u043c \u041b\u0430\u043d\u0446\u043e\u0448\u0430<\/a> \u0438 \u0437\u0430\u043f\u0438\u0448\u0435\u043c:<\/p>\n<pre><code>: LNGAMMA ( x -- ln(\u0413(x) ) \\ Takes x &gt; 0.0 and returns natural logarithm of \u0413(x).    FDUP  3.0E F+   2.23931796330267E FSWAP F\/  FOVER 2.0E F+ -27.0638924937115E  FSWAP F\/ F+  FOVER 1.0E F+  41.4174045302371E  FSWAP F\/ F+       2.5066284643656E F+ FLN FSWAP  FDUP  4.15E F+ FLN  FOVER 0.50E F+ F*  FOVER 4.15E F+ F-           FROT F+ FSWAP FLN F- ;<\/code><\/pre>\n<p>\u0414\u0430, \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u0447\u0438\u0442\u0430\u0435\u043c\u043e &#8212; \u043d\u0435 \u0432\u0441\u0435 \u0444\u043e\u0440\u043c\u0443\u043b\u044b \u0445\u043e\u0440\u043e\u0448\u043e \u0443\u043a\u043b\u0430\u0434\u044b\u0432\u0430\u044e\u0442\u0441\u044f \u0432 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u0441\u043e \u0441\u0442\u0435\u043a\u043e\u043c \u0438 \u0447\u0435\u043c \u0441\u043b\u043e\u0436\u043d\u0435\u0435 &#8212; \u0442\u0435\u043c \u0431\u043e\u043b\u044c\u0448\u0435 \u0431\u0443\u0434\u0435\u0442 \u0441\u043b\u043e\u0432 <code>FDUP, FROT, FOVER<\/code>&#8230; \u043f\u043e\u043a\u0430 \u043d\u0435 \u043d\u0430\u0441\u0442\u0430\u043d\u0435\u0442 \u0441\u0438\u0442\u0443\u0430\u0446\u0438\u044f, \u043a\u043e\u0433\u0434\u0430 \u043d\u0430 \u0441\u0442\u0435\u043a\u0435 4 \u0438 \u0431\u043e\u043b\u0435\u0435 \u0447\u0438\u0441\u0435\u043b. \u0422\u043e\u0433\u0434\u0430 \u0432\u0441\u0451, \u043f\u0440\u0438\u043f\u043b\u044b\u043b\u0438. \u041f\u0435\u0447\u0430\u043b\u044c\u043d\u0430\u044f \u0438\u0441\u0442\u043e\u0440\u0438\u044f \u043e \u0442\u043e\u043c, \u043a\u0430\u043a \u0442\u0430\u043a\u043e\u0435 \u0441\u043b\u0443\u0447\u0430\u0435\u0442\u0441\u044f \u0438\u0437\u043b\u043e\u0436\u0435\u043d\u0430 \u0432 \u043e\u0434\u043d\u043e\u043c <a href=\"https:\/\/yosefk.com\/blog\/my-history-with-forth-stack-machines.html\" rel=\"noopener noreferrer nofollow\">\u0431\u043b\u043e\u0433\u0435<\/a>. <\/p>\n<p>\u041e\u0431\u044b\u0447\u043d\u044b\u0439 \u0432\u044b\u0445\u043e\u0434 \u0438\u0437 \u044d\u0442\u043e\u0433\u043e \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u044f &#8212; \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435. \u0414\u0430, \u044d\u0442\u043e \u0424\u043e\u0440\u0442, \u0438\u0445 \u043c\u043e\u0436\u043d\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0440\u0430\u0437\u043d\u044b\u043c\u0438 \u0441\u043f\u043e\u0441\u043e\u0431\u0430\u043c\u0438. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0442\u0430\u043a <code>: lngamma { f: x } <\/code>\u044d\u0442\u043e \u0441\u043f\u043e\u0441\u043e\u0431 <a href=\"http:\/\/www.gnu.org\/software\/gforth\/\" rel=\"noopener noreferrer nofollow\">gforth<\/a>. \u0418\u043b\u0438 \u0442\u0430\u043a : <code>lngamma {: f: x :}<\/code> &nbsp;\u0441\u043f\u043e\u0441\u043e\u0431 <a href=\"https:\/\/vfxforth.com\/\" rel=\"noopener noreferrer nofollow\">VFX Forth<\/a>. \u041b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0441\u043b\u043e\u0436\u043d\u0430\u044f \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u044f, \u0432\u043a\u043b\u044e\u0447\u0430\u044e\u0449\u0430\u044f \u0432 \u0441\u0435\u0431\u044f <a href=\"https:\/\/ru.wikipedia.org\/wiki\/%D0%9E%D0%B1%D0%BB%D0%B0%D1%81%D1%82%D1%8C_%D0%B2%D0%B8%D0%B4%D0%B8%D0%BC%D0%BE%D1%81%D1%82%D0%B8\" rel=\"noopener noreferrer nofollow\">\u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0432\u0438\u0434\u0438\u043c\u043e\u0441\u0442\u0438<\/a>, \u0432\u0440\u0435\u043c\u044f \u0436\u0438\u0437\u043d\u0438 \u0438 \u043f\u0440\u043e\u0447\u0435\u0435. \u0412\u043e\u0442 \u0443\u0436\u0435 \u043f\u0440\u0438\u0434\u0435\u0442\u0441\u044f \u043d\u0430\u0440\u0443\u0448\u0438\u0442\u044c \u043f\u0435\u0440\u0432\u044b\u0439 \u043f\u0440\u0438\u043d\u0446\u0438\u043f \u0424\u043e\u0440\u0442 \u0438 \u043f\u0440\u0435\u0432\u0440\u0430\u0442\u0438\u0442\u044c \u0435\u0433\u043e \u0432 \u0421\u0438-\u043f\u043e\u0434\u043e\u0431\u043d\u044b\u0439 \u044f\u0437\u044b\u043a?<\/p>\n<h3>\u0413\u0438\u043f\u0435\u0440\u0441\u0442\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u043e\u0435 \u043e\u043a\u0440\u0443\u0436\u0435\u043d\u0438\u0435<\/h3>\n<p>\u0421\u0442\u0440\u043e\u0433\u043e \u0433\u043e\u0432\u043e\u0440\u044f, <a href=\"https:\/\/wiki.kluv.in\/a\/HyperStaticGlobalEnvironment\" rel=\"noopener noreferrer nofollow\">\u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0424\u043e\u0440\u0442\u0430 \u044d\u0442\u043e \u0441\u043e\u0432\u0441\u0435\u043c \u043d\u0435 \u0442\u043e\u0436\u0435 \u0441\u0430\u043c\u043e\u0435, \u0447\u0442\u043e \u0432 \u0434\u0440\u0443\u0433\u0438\u0445 \u044f\u0437\u044b\u043a\u0430\u0445.<\/a> \u0427\u0442\u043e\u0431\u044b \u0431\u044b\u043b\u043e \u043f\u043e\u043d\u044f\u0442\u043d\u0435\u0435, \u0432\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440 \u0440\u0430\u0431\u043e\u0447\u0435\u0433\u043e \u043a\u043e\u0434\u0430:<\/p>\n<pre><code>variable apples  ok : +apples apples +! ;  ok : apples .\" You have \" apples @ . .\" apples.\" cr ; ok apples You have 0 apples.  ok 5 +apples  ok apples You have 5 apples.  ok<\/code><\/pre>\n<p>\u0417\u0434\u0435\u0441\u044c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f apples \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0430 \u0441\u043b\u043e\u0432\u043e\u043c <code>apples<\/code>, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0441\u043e\u043e\u0431\u0449\u0430\u0435\u0442 \u0442\u0435\u043a\u0443\u0449\u0435\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u044f\u0431\u043b\u043e\u043a. \u041e\u0434\u043d\u0430\u043a\u043e, \u0441\u043b\u043e\u0432\u043e <code>+apples<\/code> \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043a\u0430\u043a \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u043e, \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u044f \u0441\u0447\u0451\u0442\u0447\u0438\u043a. \u0412\u043d\u0443\u0442\u0440\u0438 \u0441\u043b\u043e\u0432\u0430 <code>+apples<\/code> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u0430\u0434\u0440\u0435\u0441 \u0441\u0447\u0451\u0442\u0447\u0438\u043a\u0430, \u0430 \u043d\u0435 \u0438\u043c\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439. \u0422\u0430\u043a \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u043b\u044e\u0431\u043e\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043d\u0435 \u0437\u0430\u0442\u0440\u0430\u0433\u0438\u0432\u0430\u044f \u0440\u0430\u0431\u043e\u0442\u0443 \u0440\u0430\u043d\u043d\u0438\u0445 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0439. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u0430 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f X. \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u043c:<\/p>\n<pre><code>variable &amp;x : x &amp;x @ ; : (x) &amp;x ! ;  : cube (x)   x x x * * ;  variable &amp;x : x &amp;x @ ; : (x) &amp;x ! ;  : square (x)   x x * ;    3 square . 9  ok 3 cube . 27  ok<\/code><\/pre>\n<p>\u0421\u043b\u043e\u0432\u0430 <code>cube<\/code> \u0438 <code>square<\/code> \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0442 \u043a\u0430\u043a \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u043e. \u041f\u043e\u0432\u0442\u043e\u0440\u044f\u044e\u0449\u0438\u0435\u0441\u044f \u0441\u043b\u043e\u0432\u0430 &amp;x, x, (x) \u043c\u043e\u0436\u043d\u043e \u0441\u043f\u0440\u044f\u0442\u0430\u0442\u044c \u0437\u0430 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0449\u0438\u043c \u0441\u043b\u043e\u0432\u043e\u043c, \u043d\u0430\u043f\u043e\u0434\u043e\u0431\u0438\u0435 \u0442\u043e\u0433\u043e, \u043a\u0430\u043a \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u043e \u0442\u0443\u0442, \u0441\u043c. \u043f\u043e\u0441\u0442 <a href=\"https:\/\/m.habr.com\/ru\/post\/220365\/\" rel=\"noopener noreferrer nofollow\">FORTH: \u0421\u0430\u043c\u043e\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0449\u0438\u0435\u0441\u044f \u0441\u043b\u043e\u0432\u0430.<\/a><\/p>\n<details class=\"spoiler\">\n<summary>\u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u0433\u0440\u0443\u043f\u043f\u044b \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u0432 F-PC Forth 3.60<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>FLOAD FFLOAT.SEQ FLOAD EVAL.SEQ  : COMPARE ( c-addr1 u1 c-addr2 u2 -- n )    ROT    2DUP U&lt; IF DROP COMPARE DUP 0= IF DROP  1 THEN  EXIT THEN    2DUP U&gt; IF NIP  COMPARE DUP 0= IF DROP -1 THEN  EXIT THEN    DROP COMPARE ;  : REFILL ( -- f )  \\ CORE version for user input device and string only    loading @      IF  ( file )                    false EXIT THEN    'tib @ sp0 @ = IF  ( user input device ) query  true EXIT THEN    ( EVALUATE )  false ;  MACRO: ++ PAD +PLACE ;  : (VARIABLE)   \" VARIABLE &amp;\" PAD PLACE 2DUP ++   \"  : (\" ++ 2DUP ++ \" ) &amp;\" ++   2DUP   ++ \"  ! ;\" ++   \"  : \"  ++ 2DUP ++ \"   &amp;\" ++ ( NAME ) ++ \"  @ ;\" ++   PAD COUNT EVAL ;  : (FVARIABLE)   \" FVARIABLE &amp;\" PAD PLACE 2DUP ++   \"  : (\" ++ 2DUP ++ \" ) &amp;\" ++   2DUP   ++ \"  F! ;\" ++   \"  : \"  ++ 2DUP ++ \"   &amp;\" ++ ( NAME ) ++ \"  F@ ;\" ++   PAD COUNT EVAL ;  : REFILL-AT-EOL? ( S: -- FLAG )   SOURCE NIP &gt;IN @ &gt; DUP 0= IF DROP REFILL THEN ;  : VARIABLES(   BEGIN BL WORD COUNT 2DUP \" )\" COMPARE   WHILE REFILL-AT-EOL?   WHILE (VARIABLE)   REPEAT   THEN 2DROP ;  : FVARIABLES(   BEGIN BL WORD COUNT 2DUP \" )\" COMPARE   WHILE REFILL-AT-EOL?   WHILE (FVARIABLE)   REPEAT   THEN 2DROP ;<\/code><\/pre>\n<\/div>\n<\/details>\n<p>\u0422\u0430\u043a \u043e\u043d\u043e \u0431\u0443\u0434\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0442\u0430\u043a:<\/p>\n<pre><code> \\ \u041e\u0431\u044a\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445  VARIABLES( MAXIT ) FVARIABLES( ACCURACY UNLIKELY-VALUE )  \\ \u041f\u0440\u0438\u0441\u0432\u043e\u0435\u043d\u0438\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 -1.11E30 (UNLIKELY-VALUE)  1.0E-9  (ACCURACY)       50 (MAXIT)        \\ \u041f\u043e\u043b\u043e\u0436\u0438\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u043d\u0430 \u0441\u0442\u0435\u043a MAXIT . 50 ok<\/code><\/pre>\n<p>\u041f\u043e\u043b\u044c\u0437\u0430 \u043e\u0442 \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u043e\u0439 \u043d\u043e\u0442\u0430\u0446\u0438\u0438, \u043f\u043e \u0441\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044e \u0441 \u043e\u0431\u044b\u0447\u043d\u044b\u043c\u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u043c\u0438 \u0424\u043e\u0440\u0442\u0430, \u0437\u0430\u043a\u043b\u044e\u0447\u0430\u0435\u0442\u0441\u044f \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u0433\u043e\u0440\u0430\u0437\u0434\u043e \u0447\u0430\u0449\u0435 \u0441 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f, \u0430 \u043d\u0435 \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u0442\u0441\u044f. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u0432\u043c\u0435\u0441\u0442\u043e <code>x @ y @ + z !<\/code> \u0431\u0443\u0434\u0435\u0442 <code>x y + (z)<\/code>, \u0438 \u043c\u043d\u043e\u0433\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u0435 <code>@<\/code> \u0438 <code>f@<\/code> \u0431\u0443\u0434\u0443\u0442 \u0444\u0430\u043a\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u043d\u044b. <\/p>\n<h3>F-PC Forth<\/h3>\n<p>\u0414\u043b\u044f \u0430\u0443\u0442\u0435\u043d\u0442\u0438\u0447\u043d\u043e\u0433\u043e \u043f\u043e\u0433\u0440\u0443\u0436\u0435\u043d\u0438\u044f \u0432 \u0441\u0442\u0430\u0440\u044b\u0435 \u0434\u043e\u0431\u0440\u044b\u0435 \u0432\u0440\u0435\u043c\u0435\u043d\u0430 IBM PC AT, MS DOS \u0438 \u0432\u0441\u0451 \u0442\u0430\u043a\u043e\u0435, \u044f \u0432\u044b\u0431\u0440\u0430\u043b <a href=\"http:\/\/www.forth.org\/compilers.html\" rel=\"noopener noreferrer nofollow\">F-PC Forth.<\/a> \u0421\u043a\u0430\u0447\u0430\u0442\u044c fpc36.zip, \u0440\u0430\u0441\u043f\u0430\u043a\u043e\u0432\u0430\u0442\u044c, \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0442\u044c \u043f\u043e\u0434 <a href=\"https:\/\/www.dosbox.com\/\" rel=\"noopener noreferrer nofollow\">dosbox<\/a>. \u0420\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0432\u0441\u0451 \u0438\u0437<\/p>\n<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-320796","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/320796","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=320796"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/320796\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=320796"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=320796"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=320796"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}