cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 5526|回复: 10

[涵盖多系列资源] xPi V1000 for calculator

[复制链接]
发表于 2012-4-3 19:13:02 | 显示全部楼层 |阅读模式
计算器程序
程序名称: xPi V1000
平台: fx-9860GII fx-9860G & Slim fx-9750GII fx-9750G系列 TI-Nspire 
系统/软件要求: 不同计算器请用专门的版本
版本号: 1000
类型: 数学 
作者: wtof1996
大小(K): 100
更新日期: 2012-04-03
描述: 一个用计算器计算高精度pi的程序(1000位有效数字)
已知缺陷: Unknow
源代码: 开源/部分开源
好了,什么都不多说全部是基于下面的c语言程序写的(根据那个4行算800位pi的修改的)


  1. #include "stdio.h"
  2. int a=10000,b,c=3500,d,e,f[3501],g;
  3. int main(){
  4. freopen("pi.out","w",stdout);
  5. int i;
  6. for(i=0;i<c;i++)  f[i]=2000;
  7.   d=0;
  8.   g=c<<1;
  9.   b=c;
  10.   while (1){
  11.    d+=f[b]*a;
  12.    g--;
  13.    f[b]=d%g;
  14.    d/=g;
  15.    g--;
  16.    b--;
  17.    if (b==0) break;
  18.    d*=b;
  19.   }
  20.   c-=14;printf("3.141");
  21.   e=d%a;
  22. while(c!=0){
  23.   d=0;g=c<<1;b=c;
  24.   while (1){
  25.    d+=f[b]*a;g--;
  26.    f[b]=d%g;
  27.    d/=g;g--;b--;
  28.    if (b==0) break;
  29.    d*=b;
  30.   }
  31.   c-=14;printf("%.4d",e+d/a);
  32.   e=d%a;
  33. }
  34. fclose(stdout);
  35. return 0;
  36. }

复制代码




xPi V1000 for Calculator Nspire_Lua Version
打开后在1.1按enter即可
结果会以字符串形式保存至out变量和outss数组
结果查看在1.2
help()是帮助
disper()将outss的数据以每行32位有效数字输出
整个计算大约35s(cx实体机),电脑上秒出

xPi V1000 for Calculator Nspire_TiBasic Version
执行calc()即可
结果每32位有效数字输出一次
整个计算大约6h(cx实体机),电脑上大概几min

xPi V1000 for Calculator fx-9xxx G1M Version
9860  & 9750 All Series适用
我有用“黑箱”的想法把4个list合成为一个3500的数组
子程序列表:
CK  用于检查输出结果的程序,可以显示当前的计算结果(list 1到4是黑箱的组成部分,5是结果保存区)
DS  计算时显示结果以及存储的程序
LS  数据输入黑箱程序
OT  从黑箱读入数据程序
PI  计算用主程序,每计算4位有效数字输出一次
总计算时间大概在2h 10min 左右,中途可按ac退出,但是下次需重新计算(迭代类算法的限制)
xPi V1000 for Calculator fx-9xxx G1A Version
不同机型请用不同版本,新9860建议不要用sd写入版本。
文件列表:
PISD.G1A    :含SD卡写入版本,会将结果保存到SD根目录下PI.txt中,9860 GII SD适用
PISDNp.G1A  :显示无暂停,会一直计算并显示直到计算结束,含SD卡写入版本,会将结果保存到SD根目录下PI.txt中,9860 GII SD适用
PINonSD.G1A :即无结果保存的版本,9860 All Series & 9750(Update to 9860)适用
PINonPs.G1A :显示无暂停,无结果保存版本,会一直计算并显示直到计算结束,9860 All Series & 9750(Update to 9860)适用
P.S:整个计算在10s左右(SD版本若第一次使用可能会慢一些),中途退出时请在显示Press字样时按MENU即可,无暂停版本请等待计算完毕。计算完毕以后会显示Calculate completed. 此时按MENU即可退出。



下面贴一下计算时间:
         Native(自带编程语言)  SDK(CX是TI-Lua,9860为C)
CX       6h 左右                         35s
9860    2h 10min左右                10s

算pi作为性能测试可以看出各计算器的编程语言效率的优劣,欢迎大家用其他机型测试


xPi_Lua.tns

2.1 KB, 下载次数: 20, 下载积分: 金钱 -1

Nspire TI-Lua

xPi_TiBasic.tns

7.98 KB, 下载次数: 15, 下载积分: 金钱 -1

Nspire TI-Basic

PINonPs.G1A

14.67 KB, 下载次数: 5, 下载积分: 金钱 -1

PINonSD.G1A

14.71 KB, 下载次数: 5, 下载积分: 金钱 -1

PISD.G1A

17.48 KB, 下载次数: 7, 下载积分: 金钱 -1

PISDNp.G1A

17.43 KB, 下载次数: 8, 下载积分: 金钱 -1

PI.g1m

1.61 KB, 下载次数: 12, 下载积分: 金钱 -1

9xxx的prgm版本

发表于 2012-4-3 19:54:12 | 显示全部楼层
大顶乘龙!
发表于 2012-4-3 20:01:52 | 显示全部楼层
支持吧。。
发表于 2012-4-3 22:19:53 | 显示全部楼层
很好。
发表于 2012-4-30 20:30:17 | 显示全部楼层
在用TI BASIC 挑战极限
发表于 2012-5-7 14:33:03 | 显示全部楼层
给84弄个呗
搞个精度稍低的,十几秒机子可以算出来的
 楼主| 发表于 2012-5-7 15:37:39 | 显示全部楼层
我没有84
不过根据这个c的源代码84应该也可以写
发表于 2012-5-10 19:12:23 | 显示全部楼层
9750 gii 运行memory error 光标停在876→dim list 4的四左边,咋回事????
 楼主| 发表于 2012-5-12 17:55:18 | 显示全部楼层
内存不足吧
需要用很多空间的,差不多40多kb
发表于 2012-5-19 00:33:30 | 显示全部楼层
CX算法还挺慢的,稳定超频后大概多长时间
发表于 2014-8-9 19:01:45 | 显示全部楼层
感谢分享,很好的题目
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-12-22 12:23 , Processed in 0.077507 second(s), 28 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表