Free Hosting

Free Web Hosting with PHP, MySQL, Apache, FTP and more.
Get your Free SubDOMAIN you.6te.net or you.eu5.org or...
Create your account NOW at http://www.freewebhostingarea.com.

Cheap Domains

Cheap Domains
starting at $2.99/year

check

質因子連乘式(II)

程式是由網友 3173137 提供,與質因子連乘式(I)程式比較,這個版本的程式除了可以顯示質因子,還可以顯示質因子的冪數,所以較為方便。另外雖然第二個程式很長,但對於計算大因質子時,由於使用較佳的方法,速度會明顯比第一個程式快,有關第二個程式的計算原理,請參看附註2。

網友提供程式日期: 2008年1月7日

注意: 藍色程式碼 ˚ 是按 o,,,

第一個程式 (100 bytes)

Mem clear: ?→X: Fix 0: Lbl 0: 2 - (M=2 M+:

MM>X => X→M: X÷M: Rnd: X - MAns => Goto 0:

Lbl 1: X÷MM^Y: Rnd: X=MM^YAns => Y + 1→Y => Goto 1:

M˚ + Y÷60˚◢ X÷M^Y→X: 1→Y: X - 1 => Goto 0: Norm 1

 

第二個程式 (315 bytes)

Mem clear: ?→X: 2M+: Fix 0: Lbl 0: X÷MM^Y: Rnd:

X=MM^YAns => Y+1→Y => Goto 0: Y => M˚ + Y÷60˚

X÷M^Y→X: X=1 => Goto 7: 0→Y: 2 - (M=2M+:

M - 7 => Goto 0: Lbl 1:

X÷M: Rnd: X=MAns => Goto 3: 4M+:

X÷M: Rnd: X=MAns => Goto 3: 2M+:

X÷M: Rnd: X=MAns => Goto 3: 4M+:

X÷M: Rnd: X=MAns => Goto 3: 2M+:

X÷M: Rnd: X=MAns => Goto 3: 4M+:

X÷M: Rnd: X=MAns => Goto 3: 6M+:

X÷M: Rnd: X=MAns => Goto 3: 2M+:

X÷M: Rnd: X=MAns => Goto 3: 6M+:

X≧MM => Goto 1: X→M: Lbl 3: X÷MM^Y: Rnd:

X=MM^YAns => Y+1→Y => Goto 3: M˚ + Y÷60˚

X÷M^Y→X: 1→Y: M÷30 - . 7: Rnd: 30Ans+7→M:

X-1 => Goto 1: Lbl 7: Norm 1

 

例題: 求 352的質因子連乘式。

按 Prog 1 再按 352 EXE (顯示 2˚5˚0,即是質因子為25)

EXE (顯示 11˚1˚0,即是質因子為111) ) EXE (顯示Norm 1表示計算完結)

所以 352 = 25 × 11

 

註1: 輸入的數值必須為正整數,否則計算會錯誤,程式計算的數值要小於 9999 9999 99。

註2: 第一個程式嘗試的因子為2及正奇數(不包括1),第二個程式嘗試的因子為 2, 3, 5, 7+30n, 13+30n, 19+30n, 23+30n, 29+30n及31+30n (其中 n為0或正整數),亦即是嘗試的因子除了2, 3, 5外,其它嘗試的奇數是不包括 3 及 5的倍數,所以若果不考慮開始的2, 3, 5因子,第一個程式每30個正數,要嘗試15個數值,而第二個程式則每30個正數,只嘗試8個數值,所以第二個程式的速度會較快,特別是分解的數值包含一些數值大的質因子,第二個程式會明顯地比第一個程式快。

 

返回 fx-3650P及SC-185程式集