(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 9441, 283] NotebookOptionsPosition[ 7048, 217] NotebookOutlinePosition[ 8799, 268] CellTagsIndexPosition[ 8756, 265] WindowTitle->ParallelMapMonitored | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Map f in parallel, monitoring progress:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7831296060110693`*^9, 3.783129624227647*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"ParallelMapMonitored\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ParallelMapMonitored\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ParallelMapMonitored"], BoxID -> "ParallelMapMonitored", Selectable->False], "[", RowBox[{"f", ",", RowBox[{"Range", "[", "10", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.783129559852892*^9, 3.78312959942787*^9}}, CellLabel->"In[13]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "1", "]"}], ",", RowBox[{"f", "[", "2", "]"}], ",", RowBox[{"f", "[", "3", "]"}], ",", RowBox[{"f", "[", "4", "]"}], ",", RowBox[{"f", "[", "5", "]"}], ",", RowBox[{"f", "[", "6", "]"}], ",", RowBox[{"f", "[", "7", "]"}], ",", RowBox[{"f", "[", "8", "]"}], ",", RowBox[{"f", "[", "9", "]"}], ",", RowBox[{"f", "[", "10", "]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.783129602797674*^9, 3.79304598485072*^9, 3.7931192991552415`*^9, 3.8449384393776207`*^9, 3.844938511699992*^9, {3.844939362514131*^9, 3.844939377883341*^9}, 3.844939426647599*^9, 3.8468456210495663`*^9, 3.84728798483776*^9}, CellLabel->"Out[13]=", CellID->818119057] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Short", "@", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"ParallelMapMonitored\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ParallelMapMonitored\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ParallelMapMonitored"], BoxID -> "ParallelMapMonitored", Selectable->False], "[", RowBox[{"FactorInteger", ",", RowBox[{"Range", "[", RowBox[{ RowBox[{"10", "^", "50"}], ",", RowBox[{ RowBox[{"10", "^", "50"}], "+", "100"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7931192536014295`*^9, 3.7931193589320445`*^9}, { 3.844939479139255*^9, 3.8449394797300367`*^9}, 3.8449395121573963`*^9, 3.847287959187394*^9, {3.847288012493486*^9, 3.847288013365507*^9}}, CellLabel->"In[14]:=", CellID->245865921], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "50"}], "}"}]}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "99", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"353", ",", "1"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"69857", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"206209", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"66554101249", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"75118313082913", ",", "1"}], "}"}]}], "}"}]}], "}"}], Short]], "Output", TaggingRules->{}, CellChangeTimes->{3.847287978290258*^9, 3.8472880247506866`*^9}, CellLabel->"Out[14]//Short=", CellID->1362870330] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ParallelMapMonitored | Example Notebook", FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[633, 23, 168, 7, 70, "Subsection",ExpressionUUID->"1a7705cd-58a1-42ba-91a8-06c72d08643b", CellID->462042388], Cell[804, 32, 161, 3, 70, "Text",ExpressionUUID->"1dfb6922-9cd0-4115-a244-bb7fb57cb49f", CellID->13078159], Cell[CellGroupData[{ Cell[990, 39, 1878, 52, 70, "Input",ExpressionUUID->"a7d12faa-f4af-45c4-a429-5619d75ca9bd", CellID->443871870], Cell[2871, 93, 768, 20, 70, "Output",ExpressionUUID->"f3af42e3-53f5-4d9b-ab97-4bb9fa03fba3", CellID->818119057] }, Open ]], Cell[CellGroupData[{ Cell[3676, 118, 2230, 59, 70, "Input",ExpressionUUID->"06daaa89-2d06-4493-8bc6-05ba41e2592f", CellID->245865921], Cell[5909, 179, 1111, 34, 70, "Output",ExpressionUUID->"3714718e-2280-4d20-b2ef-40636b809277", CellID->1362870330] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)