【编程】计算器编程大全（第三期）

目录
1、斐波拉契数列
2、最大公因数
3、高精度减法
4、高精度除法
5、素数判断器

再说一件事：原定于今天下午发布的射箭游戏推迟至4月2-4号，并征求游戏名字。

一、斐波拉契数列 (0,1,1,2,3,5,8……)
0→A，1→B
A+B→A:A+B→B
9B 24输+N[=]

二、最大公因数 fix 0
(a,b)=? a→X,b→Y
X:结果
Rec(Pol(Rnd(.5Rec(Pol(X-Y-.5,Y,Y)+Y+Abs(X-Y,Rnd(.5(X+Y-Abs(X-Y,Y
45B 4改 71输+N[=]

三、高精度减法 fix 0
甲-乙=? （甲>乙）
0→Y
甲个位→A 乙个位→B [=]显示答案个位
--十---------十-----------------十—
--百---------百-----------------百—
……
Rec(Pol(A+10+B+Y,Rnd(.1A-B)-.5,Y)-10Y-10
32B 4改 44输+N[=]

四、高精度除法 fix 0
a/b a<b 若a>b，先算出a除b的商c，再a-bc→a
a→X b→A。注意这里！
0Rec(Pol(X,Rnd(10X÷A-.5,Y)+Y+0Pol(10X-AX,0)
31(30)B 45(44)输+N[=]
注：每按一次等号显示下一位数

五、素数判断器 ifx 0
判断a是否是素数。
a→A
Rec(Pol(X+1,A÷X,Y)+0PRnd(Y-Rnd(y-.5)-.5)+Rnd(根号(A)-.5)-X+1)P0
45B 4改 62输+N[=]（狂按）
注：出错时按[左]，若光标出现在末尾（0后面）则a是素数
若光标停在“）”后面，则a不是素数
P指[SHIFT],[×]

"五、素数判断器 ifx 0"
是fix 0

前排

回复3楼:
辗转相减还是相除？
看起来有点像stein

把下面这张图复制到电脑上，该后缀为rar，解压后有一个doc文档。

文档也已发到主群上

辗转相除，感觉有点繁。应该可以优化到30B以内的。

回复11楼:
提供一个优化
交换2个数，如果大的在前面
不然，999，1这样的数据要999次……

回复11楼:
饿，我搞错了
辗转相减，刚才那个是……
不过辗转相减应该会好写一点
还有，才订了一个佳能f-718s
内置***，lcm

就是大的排在前面。
我用的是.5(X+Y+Abs(X+Y))求最大数的。没用交换。
交换应该更好。

辗转相减慢，(999,1) 要算999次

回复14楼:
还有一个stein算法根据奇偶性的
那个只要加减，位运算既可
理论上base n里面可以用
不过我只会写递归的c

stein 算法求最大公约数，和欧基里德算法相比，效果更好:
主要思想如下：化归思想
1.m为奇数时:
    (1)n也为奇数：***(m,n) = ***((m+n)/2,(m-n)/2) ;
    (2)n为偶数：  ***(m,n) = ***(m,n/2) ;
2.m为偶数时：
   (1) n也为偶数:***(m,n) = ***(m/2,n/2);
   (2) n为奇数:  ***(m,n) = ***(m/2,n);
3.m == n 时,***(m,n) = m 退出
*/