奇狐社區論壇 - 如何精簡

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 如何精簡 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=13910)

由 mori868 在 2010-07-06 18:43 發表:

如何精簡

C1:=C/REF(C,1);
CC:=(10*C1*C+9*REF(C1,1)*REF(C,1)+8*REF(C1,2)*REF(C,2)
+7*REF(C1,3)*REF(C,3)+6*REF(C1,4)*REF(C,4)
+5*REF(C1,5)*REF(C,5)+4*REF(C1,6)*REF(C,6)
+3*REF(C1,7)*REF(C,7)+2*REF(C1,8)*REF(C,8)+REF(C1,9)*REF(C,9))/40;
CC這段有沒有辦法精簡謝謝

由 cgjj 在 2010-07-06 21:05 發表:

回覆: 如何精簡

引用:
最初由 mori868 發表
C1:=C/REF(C,1);
CC:=(10*C1*C+9*REF(C1,1)*REF(C,1)+8*REF(C1,2)*REF(C,2)
+7*REF(C1,3)*REF(C,3)+6*REF(C1,4)*REF(C,4)
+5*REF(C1,5)*REF(C,5)+4*REF(C1,6)*REF(C,6)
+3*REF(C1,7)*REF(C,7)+2*REF(C1,8)*REF(C,8)+REF(C1,9)*REF(C,9))/40;
CC這段有沒有辦法精簡謝謝

//它與 WMA 很像, 但算出來非 WMA

原碼:


CC:0; MM:=C/REF(C,1)*C;

for i=0 to 9 do begin

  CC:=CC+ref(MM,i)*(10-i);

end;

CC:=CC/40;

全部時間均為台灣時間, 現在時間為23:56

在這個頁面顯示本主題全部的 2 個文章