Results 1 to 8 of 8
Hybrid View
-
7th October 2006 00:39 #1Registered User
Join Date: Aug:2006
Location: Mars
Posts: 14
SUper HArdCOre CHallenge - cpu test ñúñ Mathematica
Âúâ ôîðóìà ñå ïîÿâè õóáàâà ñòðàíèöà ñ òåñòîâå íà íîâèòå äâóÿäâåíè 64 áèòîâè áèñêâèòè. Ìèñëÿ ÷å îùå åäèí ÷èñòî-èç÷èñëèòåëåí òåñò íÿìà äà íàâðåäè. Ñàìî ïðåäè äà ñúì çàïî÷íàë- òîâà íàèñòèíà å åäèí òðóäåí òåñò, êîéòî â ïðîäúë÷åíèå íà äîñòà ÷àñîâå äà âè äúðæè cpu-òî íîí-ñòîï íà 100%.
Çíà÷è ïúðâî òâà å òåñò ñ Mathematica. Çíà÷è ùå òðÿáâà ïúðâî äà ñè ÿ èíñòàëèðàòå. Íàé-íîâàòà âåðñèÿ ñåãà å 5.2, èìà ñè 15 äíåâåí îôèöèàëåí òðèÿë, à â äàòàòà è ëèíêîñà ñúùî ÿ èìà "íåîôèöèàëíî".
Àäðåñà çà òðèÿëà:
http://wolfram.com/products/mathematica/trial.cgi
(ãîðå-äîëó 170 MB)
Òóê ïðåäëàãàì äâà òåñòà:
Code:(*TEST 1-Easier*) AllPossibleSums[list_] := Module[{l, res}, ( l := Length[list]; res := {}; If[l == 2, res = Union[{0, list[[1]], list[[2]], 2list[[1]], 2list[[2]], list[[1]] + list[[ 2]]}], res = Union[{list[[ 1]], 2list[[ 1]]}, Table[ list[[1]] + list[[i]], {i, 2, l}], AllPossibleSums[ Delete[list, 1]]]]; res )] Covers[list_] := ( l := Length[list]; i := 0; While[i < l && i == list[[i + 1]], i++]; i -= 1 ) NG[list_] := Table[Append[list, i], {i, list[[-1]] + 1, 2list[[-1]] + 1}]; AllPossibleSets[n_] := Module[{res, End}, ( res := {}; If[n == 1, res = {{1}}; Goto[End]]; res = Flatten[NG /@ AllPossibleSets[n - 1], 1]; Label[End]; res )] ResultTable[n_] := Module[{res}, ( Print["Computing the possible sets..."]; aps := AllPossibleSets[n]; Print["Computing the coverage of each set..."]; res := Table[{aps[[i]], Covers[AllPossibleSums[aps[[i]]]]}, {i, 1, Length[aps]}]; res )] CP[n_] := ( ap := AllPossibleSets[n]; ar := 0; al := {}; Do[cl := Covers[AllPossibleSums[ap[[ai]]]]; If[cl > ar, Print["New top: ", {ap[[ai]], cl}]; ar = cl; al = ap[[ai]]], {ai, 1, Length@ap}]; {al, ar} ) Timing[CP[8]]
-------------------------------------------------------------------
Çíà÷è èçáèðàòå ñè åäèí îò äâàòà, êîïèðàòå ãî, ñòàðòèðàòå ìàòåìàòèêàòà, è ãî ïåéñòâàòå â áÿëîòî ïðîçîð÷å. Ïîñëå íàòèñêàòå åäíîâðåìåííî shift+enter (òðÿáâà îòäîëó â òàñêáàðà äà ñå ïîÿâè îùå åäíà èêîíêà íà ïðîãðàìàíà è â çàãëàâíàòà ëåíòà äà ñå èçïèøå "Running"). È ñÿ ÷àêàòå äà ñå ìàõíå "Running"-à îò çàãëàâíàòà ëåíòà. Êàòî ñâúðøè, ïðîãðàìàòà ùå ñè èçïèøå âðåìåòî â ñåêóíäè. Òîâà èç÷èñëåíèå ìîæå äà îòíåìå íÿêîëêî ÷àñà çàòîâà íå ñå ïðèòåñíÿâàéòå ÷å ïðîãðàìàòà å çàöèêëèëà.Code:(*TEST 2-Harder*) AllPossibleSums[list_] := Module[{l, res}, ( l := Length[list]; res := {}; If[l == 2, res = Union[{0, list[[1]], list[[2]], 2list[[1]], 2list[[2]], list[[1]] + list[[ 2]]}], res = Union[{list[[ 1]], 2list[[ 1]]}, Table[ list[[1]] + list[[i]], {i, 2, l}], AllPossibleSums[ Delete[list, 1]]]]; res )] Covers[list_] := ( l := Length[list]; i := 0; While[i < l && i == list[[i + 1]], i++]; i -= 1 ) NG[list_] := Table[Append[list, i], {i, list[[-1]] + 1, 2list[[-1]] + 1}]; AllPossibleSets[n_] := Module[{res, End}, ( res := {}; If[n == 1, res = {{1}}; Goto[End]]; res = Flatten[NG /@ AllPossibleSets[n - 1], 1]; Label[End]; res )] ResultTable[n_] := Module[{res}, ( Print["Computing the possible sets..."]; aps := AllPossibleSets[n]; Print["Computing the coverage of each set..."]; res := Table[{aps[[i]], Covers[AllPossibleSums[aps[[i]]]]}, {i, 1, Length[aps]}]; res )] CP[n_] := ( ap := AllPossibleSets[n]; ar := 0; al := {}; Do[cl := Covers[AllPossibleSums[ap[[ai]]]]; If[cl > ar, Print["New top: ", {ap[[ai]], cl}]; ar = cl; al = ap[[ai]]], {ai, 1, Length@ap}]; {al, ar} ) Timing[CP[9]]
Êàòî ñâúðøè ðàáîòàòà, ïðàâèòå åäèí ñêðèéíøîò (íåêà äà íå å îðÿçàí, çà äà ìîãàò äà ñå ñðàâíÿò ðåçóëòàòèòå), è ãî ïîñòâàòå òóêà.
Ãëàâíîòî êîåòî èñêàì äà ðàçáåðà òóê å ïðè òàêèâà èç÷èñëåíèÿ äàëè äîïúðíèíåëíèòå ìá íà èíòåëà èëè àðõèòåêòóðàòà íà àìä-òî ùå å ïî - ïðîèçâîäèòåëíà.Last edited by comco; 7th October 2006 at 16:12.
-
7th October 2006 01:33 #2
Çà õîðàòà ñ áàâåí âúíøåí íåò ETO òðèàëà â Data.bg...
Çà êîä çà ïóñêàíå íà ïðîãðàìàòà öúêàòå íà ëèíêà, êîéòî comco å äàë â ïúðâèÿ ïîñò.
Åäèò: Ïðîáëåì... Àêî ïðîãðàìàòà å òðèàë, íå ìîæåòå äà íàïðàâèòå òåñò! Òðÿáâà âè ðåãèñòðèðàíà âåðñèÿ.
-
7th October 2006 11:05 #3Registered User
Join Date: Aug:2006
Location: Mars
Posts: 14
Îïà èçäúíêà.
Originally Posted by wysiwyg
Àç òðèàëà íå ñúì ãòî ïîëçâàë, àìà íàëè å òðèàë?
-
7th October 2006 12:39 #4
Àìè óæ ïèøå, ÷å å òðèàë. Ïóñêàì ãî, íî íèêúäå íå ìè äàâà ïðîçîðåö â êîéòî äà ìîãà äà ïåéñòâàì êàêâîòî è äà áèëî. Äàâà åðîð îò òèïà "Paste is disabled in this trial" è äî òàì.
-
7th October 2006 16:11 #5Registered User
Join Date: Aug:2006
Location: Mars
Posts: 14
Áàõòè òðèàëà.
Originally Posted by wysiwyg
Ñîðè.
Âúâ äàòàòà ñè èìà êåé äæåí.
-
7th October 2006 18:15 #6
Èìà ñè ãåíåðàòîð, ñ êîéòî àç ëè÷íî íå ðàçáðàõ êàê ñå ðåãèñòðèðà ... Âúâåæäàø åäíè öèôðè îò ñàéòà â ãåíåðàòîðà, ïîñëå åäèí êîä êîéòî òè äàâà îò ïðîãðàìàòà â ãåíåðàòîðà, ïîñëå öèôðèòå îò ñàéòà â ïðîãðàìàòà è ãåíåðàòîðà òè äàâà îùå åäíè öèôðè, êîèòî ñúùî âúâåæäàø â ïðîãðàìàòà, è ñëåä 20 îïèòà ìè êàçâà, ÷å íå ñà âàëèäíè òèÿ êîäîâå îò ãåíåðàòîðà... ñâàëèõ îùå åäèí ãåíåðàòîð ñïåöèàëíî îò ëèíêîñà è ñ íåãî ñúùî íå ñòàâà.
-
7th October 2006 08:52 #7Registered User
Join Date: Mar:2004
Location: Íåñåáúð
Posts: 3,748
È äâåòå íåùà íà ïðàêòèêà ñà memory òåñòîâå. Êàêâà ïîëçà èìà çà òàÿ öåë äà ñå ïîëçâà Mathematica?
Ïîëçàòà îò 64-áèòîâà ìàøèíà áè ìîãëà äà ñå óñåòè â mathematica, íî çà òàçè öåë òðÿáâà äà ïðàâèø íÿêàêâè ñìåòêè ñ ïî-ãîëÿìà òî÷íîñò, íå ìàíèïóëàöèÿ íà ìíîæåñòâà.
-
7th October 2006 11:02 #8Registered User
Join Date: Aug:2006
Location: Mars
Posts: 14
Èìàõ ïðåäâèï äâóÿäðåíèòå ïðîöåñîðè êàê ùå ñå ñïðàâÿò ñïðÿìî åäíîÿäðåíèòå.
Originally Posted by barnie
Íî ïàê ñè ìèñëÿ ÷å åäíà 64 áèò-êà ùå ãî âðúòíå ïî-áúðçî îò 32.
È òîâà ñ ìåìîðèòå å ïî÷òè âÿðíî, íî ïàìåòòà ñå äèãà äî ìàëêî ñëåä íà÷àëîòî, êúäå ñå èçâúðøâà èñòèíñêàòà ìàíèïóëàöèÿ, êîÿòî âñúùíîñò å âèä ñëîæíî èçáðîÿâàíå è ñè òîâàðè äîâîëíî ïðîöåñîðà (áðîÿ íà ìíîæåñòâàòà, êîèòî òðÿáâà äà ãåíåðèðà å ãîëÿì, à òå îò ñâîÿ ñòðàíà ñà ìàëêè)
Ïîñëå èäâàò ñúùèíñêèòå èç÷èñëåíèÿ êîèòî íàèñòèíà áàâÿò-çà âñÿêî ìíîæåñòâî ñå ïðåñìÿòàò âñè÷êè âúçìîæíè ñóìè, êîèòî ìîãàò äà ñå ïîëó÷àò. È ïëþñ òîâà ñå èçïîëçâà ðåêóðñèÿ. Ò.å. â ïî-ãîëÿìàòà ÷àñò îò âðåìåòî ïðîöåñîðà ùå ïðåñìÿòà ñóìè (íà åäíîöèôðåìè ÷èñëà!). Íî ïðåñìåòíàòèòå ñóìè ñå èçòðèâàò ìàëêî ñëåä êàòî ñå èç÷èñëÿò. Èçïîëçâàõ ñóìè, çàùîòî òîâà áåøå íàé-ïðîñòîòî, çà êîåòî ìîãà äà ñå ñåòÿ, è áè òðÿáâàëî ïî-ðàâíîìåðíî äà ñå èç÷èñëÿâà.




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè