在我的不懈努力之下 9860上不带BUG可用的FACT功能问世了..

panyaolin123 · 发表于 2013-5-23 10:58:07

ksf 发表于 2013-5-22 23:31
运行楼主的程序算914714146用时16秒，用addin CAS 耗时20秒，用addin SYMBOILX 耗时1秒左右，刚刚测试的数据 ...

可是新版的9860不能用SYMBOILX啊！！
悲催了
哪个大神来重新编译一下SYMBOILX..

imath · 发表于 2013-5-23 12:26:58

不能说明CAS比SYMBOILX慢
SYMBOILX肯定是内部储存了质数表来缩短时间的

panyaolin123 · 发表于 2013-5-23 13:32:29

imath 发表于 2013-5-23 12:26
不能说明CAS比SYMBOILX慢
SYMBOILX肯定是内部储存了质数表来缩短时间的

在写程序之前我也有这个设想可以缩短很多时间啊
不过毕竟工作量太大了

panyaolin123 · 发表于 2013-5-23 13:34:07

imath 发表于 2013-5-23 12:26
不能说明CAS比SYMBOILX慢
SYMBOILX肯定是内部储存了质数表来缩短时间的

还有imath 2D math 14在哪下载？
这才发现我用的是2D math 13 ==

wtof1996 · 发表于 2013-5-23 14:46:59

panyaolin123 发表于 2013-5-23 13:32
在写程序之前我也有这个设想可以缩短很多时间啊
不过毕竟工作量太大了

质数表可以单独写程序存入List嘛，工作量也不大

panyaolin123 · 发表于 2013-5-24 14:41:59

wtof1996 发表于 2013-5-23 14:46
质数表可以单独写程序存入List嘛，工作量也不大

什么意思？？　　　没听懂..==

lkxdl · 发表于 2013-5-30 14:27:35

好。。。。。。。。。。。。。。。。。。。。

scc77 · 发表于 2013-5-31 13:35:29

imath 发表于 2013-5-18 22:10
其实2D-Math 13早就有这功能了

快出教程吧 2D-Math 根本不会用啊

yzhang37 · 发表于 2013-5-31 22:14:45

其实最早的自然书写质因数分解是我在2010年6月编写出来的，当时还没有被集合到程序中，只是作为一个组件被发布，并允许大家自由用在自己的程序中。
后来好像许多g1m的CAS都用了那个库。

panyaolin123 · 发表于 2013-6-1 10:43:28

yzhang37 发表于 2013-5-31 22:14
其实最早的自然书写质因数分解是我在2010年6月编写出来的，当时还没有被集合到程序中，只是作为一个组件被发 ...

那是什么格式的？g1a还是g1m？
能否提供一下？？

panyaolin123 · 发表于 2013-7-16 16:54:55

dell12345 发表于 2013-7-16 14:32
枪弹是否覅坎坎坷坷

什么哦??说清楚点啊

hy180757 · 发表于 2018-1-18 21:18:58

panyaolin123 发表于 2013-5-20 20:40
实测时间
说明书上的程序在分解3053这个质数时用9秒我的程序用2秒
在分解1059221时说明书的卡死了十几 ...

我的程序比你更高效
Filename:DISTRACT
ClrText?
?鉇?
薃鉊?
0鉉?
If Frac (A?)=0?
Then ?
While Frac (A?)=0?
A?鉇?
C+1鉉?
WhileEnd?
2?
"^"?
C?
薃鉊?
IfEnd?
0鉉?
If Frac (A?)=0?
Then ?
While Frac (A?)=0?
A?鉇?
C+1鉉?
WhileEnd?
3?
"^"?
C?
薃鉊?
IfEnd?
0鉉?
If Frac (A?)=0?
Then ?
While Frac (A?)=0?
A?鉇?
C+1鉉?
WhileEnd?
5?
"^"?
C?
薃鉊?
IfEnd?
0鉉?
7鉈?
?
Do?
While Frac (A罛)=0?
While Frac (A罛)=0?
C+1鉉?
A罛鉇?
WhileEnd?
B?
"^"?
C?
0鉉?
薃鉊?
WhileEnd?
B+4鉈?
?
While Frac (A罛)=0?
While Frac (A罛)=0?
C+1鉉?
A罛鉇?
WhileEnd?
B?
"^"?
C?
0鉉?
薃鉊?
WhileEnd?
B+2鉈?
?
While Frac (A罛)=0?
While Frac (A罛)=0?
C+1鉉?
A罛鉇?
WhileEnd?
B?
"^"?
C?
0鉉?
薃鉊?
WhileEnd?
B+4鉈?
?
While Frac (A罛)=0?
While Frac (A罛)=0?
C+1鉉?
A罛鉇?
WhileEnd?
B?
"^"?
C?
0鉉?
薃鉊?
WhileEnd?
B+2鉈?
?
While Frac (A罛)=0?
While Frac (A罛)=0?
C+1鉉?
A罛鉇?
WhileEnd?
B?
"^"?
C?
0鉉?
薃鉊?
WhileEnd?
B+4鉈?
?
While Frac (A罛)=0?
While Frac (A罛)=0?
C+1鉉?
A罛鉇?
WhileEnd?
B?
"^"?
C?
0鉉?
薃鉊?
WhileEnd?
B+6鉈?
?
While Frac (A罛)=0?
While Frac (A罛)=0?
C+1鉉?
A罛鉇?
WhileEnd?
B?
"^"?
C?
0鉉?
薃鉊?
WhileEnd?
B+2鉈?
?
While Frac (A罛)=0?
While Frac (A罛)=0?
C+1鉉?
A罛鉇?
WhileEnd?
B?
"^"?
C?
0鉉?
薃鉊?
WhileEnd?
B+6鉈?
?
LpWhile B蒁?
If A??
Then A?
IfEnd?
"STOP"?

账号		自动登录	找回密码
密码			注册

[fx-9860/9750系列] 在我的不懈努力之下 9860上不带BUG可用的FACT功能问世了..