From d89d6e1ac00609fc59be5df89e41e5ac3f004617 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Thu, 8 Sep 2022 14:39:01 +0200 Subject: Fixed stupid mistake in inverse function. --- IsingScalingFunctionExamples.nb | 119 +++++++++++++++++----------------------- 1 file changed, 51 insertions(+), 68 deletions(-) diff --git a/IsingScalingFunctionExamples.nb b/IsingScalingFunctionExamples.nb index ea6931e..7f37ad0 100644 --- a/IsingScalingFunctionExamples.nb +++ b/IsingScalingFunctionExamples.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 539998, 9397] -NotebookOptionsPosition[ 534600, 9303] -NotebookOutlinePosition[ 534997, 9319] -CellTagsIndexPosition[ 534954, 9316] +NotebookDataLength[ 539208, 9380] +NotebookOptionsPosition[ 533908, 9287] +NotebookOutlinePosition[ 534304, 9303] +CellTagsIndexPosition[ 534261, 9300] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -629,8 +629,7 @@ Cell[BoxData[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}]}]}], ",", - RowBox[{ - RowBox[{"-", "uh"}], "==", + RowBox[{"uh", "==", RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", "R", "]"}], @@ -642,12 +641,12 @@ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", - RowBox[{"R", ",", "1", ",", "0", ",", + RowBox[{"R", ",", "2", ",", "0", ",", SuperscriptBox["10", "8"]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{ - RowBox[{"Sign", "[", "uh", "]"}], "1"}], ",", + RowBox[{"Sign", "[", "uh", "]"}], "0.5"}], ",", RowBox[{"-", RowBox[{ RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], @@ -660,8 +659,8 @@ Cell[BoxData[ 3.8716235634680767`*^9}, {3.8716238133855333`*^9, 3.871623826096807*^9}, { 3.871624083622401*^9, 3.871624365683359*^9}, 3.871624437060791*^9, { 3.871624474669331*^9, 3.871624494893714*^9}, {3.87162891423326*^9, - 3.871628921457245*^9}}, - CellLabel->"In[74]:=",ExpressionUUID->"27f70f50-5ebf-4a6d-94af-1a6bfe816e28"], + 3.871628921457245*^9}, {3.871629472283608*^9, 3.871629506652087*^9}}, + CellLabel->"In[88]:=",ExpressionUUID->"27f70f50-5ebf-4a6d-94af-1a6bfe816e28"], Cell[CellGroupData[{ @@ -674,37 +673,22 @@ Cell[BoxData[ RowBox[{ RowBox[{"Data", "[", "2", "]"}], "[", "\"\\"", "]"}]}], "]"}], "[", - RowBox[{ - RowBox[{"6", "/", "10"}], ",", "0.2"}], "]"}]], "Input", + RowBox[{"0.8", ",", "0.01"}], "]"}]], "Input", CellChangeTimes->{{3.871624380395876*^9, 3.871624486365077*^9}, { - 3.871628883904001*^9, 3.871628909432775*^9}}, - CellLabel->"In[75]:=",ExpressionUUID->"8965277f-d2d2-40c8-b8ca-7816448c9503"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "reged", - "\"The point \\!\\(\\*RowBox[{\\\"{\\\", \ -RowBox[{\\\"0.543260400931124`\\\", \\\",\\\", \\\"1.148407773492004`\\\"}], \ -\\\"}\\\"}]\\) is at the edge of the search region \ -\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1.148407773492004`\ -\\\"}], \\\",\\\", \\\"1.148407773492004`\\\"}], \\\"}\\\"}]\\) in coordinate \ -\\!\\(\\*RowBox[{\\\"2\\\"}]\\) and the computed search direction points \ -outside the region.\"", 2, 75, 40, 31834900206562845425, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.871624424018366*^9, 3.871624495554133*^9}, { - 3.8716288885286217`*^9, 3.871628922299012*^9}}, - CellLabel-> - "During evaluation of \ -In[75]:=",ExpressionUUID->"a3d42e0f-bd1e-49b1-8d2a-a9faf8854a08"], + 3.871628883904001*^9, 3.871628909432775*^9}, {3.871629457267346*^9, + 3.871629525012162*^9}}, + CellLabel->"In[93]:=",ExpressionUUID->"8965277f-d2d2-40c8-b8ca-7816448c9503"], Cell[BoxData[ RowBox[{"{", RowBox[{ - RowBox[{"R", "\[Rule]", "0.543260400931124`"}], ",", - RowBox[{"\[Theta]", "\[Rule]", "1.148407773492004`"}]}], "}"}]], "Output", + RowBox[{"R", "\[Rule]", "2.5550984351177726`"}], ",", + RowBox[{"\[Theta]", "\[Rule]", "1.1459055298636132`"}]}], "}"}]], "Output",\ + CellChangeTimes->{{3.871624407919861*^9, 3.8716244955603247`*^9}, { - 3.871628888535161*^9, 3.8716289223051*^9}}, - CellLabel->"Out[75]=",ExpressionUUID->"0e650aa6-b018-45af-8c81-ff1b91e82c5a"] + 3.871628888535161*^9, 3.8716289223051*^9}, {3.871629457518793*^9, + 3.871629525242256*^9}}, + CellLabel->"Out[93]=",ExpressionUUID->"4a56b86c-fd32-4aa6-8c0b-bb95b62204d9"] }, Open ]], Cell[CellGroupData[{ @@ -9301,7 +9285,7 @@ Cell[BoxData[ CellLabel->"Out[9]=",ExpressionUUID->"3fd3b5f8-4da9-404f-8b20-64b6c99239f0"] }, Open ]] }, -WindowSize->{1914., 1019.25}, +WindowSize->{954., 1019.25}, WindowMargins->{{0.75, Automatic}, {3, Automatic}}, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->"Default.nb", @@ -9345,59 +9329,58 @@ Cell[25619, 524, 878, 26, 25, "Input",ExpressionUUID->"d0b98ea5-26fd-48d2-9fd3-0 Cell[26500, 552, 377, 9, 22, "Message",ExpressionUUID->"54591efa-3e06-4780-a52d-356be312bb3b"], Cell[26880, 563, 1835, 50, 58, "Output",ExpressionUUID->"3e64dfbd-1d75-4bd6-b63e-4e5bec743e80"] }, Open ]], -Cell[28730, 616, 1735, 47, 25, "Input",ExpressionUUID->"27f70f50-5ebf-4a6d-94af-1a6bfe816e28"], +Cell[28730, 616, 1760, 46, 40, "Input",ExpressionUUID->"27f70f50-5ebf-4a6d-94af-1a6bfe816e28"], Cell[CellGroupData[{ -Cell[30490, 667, 523, 13, 22, "Input",ExpressionUUID->"8965277f-d2d2-40c8-b8ca-7816448c9503"], -Cell[31016, 682, 794, 15, 22, "Message",ExpressionUUID->"a3d42e0f-bd1e-49b1-8d2a-a9faf8854a08"], -Cell[31813, 699, 368, 7, 25, "Output",ExpressionUUID->"0e650aa6-b018-45af-8c81-ff1b91e82c5a"] +Cell[30515, 666, 550, 13, 22, "Input",ExpressionUUID->"8965277f-d2d2-40c8-b8ca-7816448c9503"], +Cell[31068, 681, 421, 9, 25, "Output",ExpressionUUID->"4a56b86c-fd32-4aa6-8c0b-bb95b62204d9"] }, Open ]], Cell[CellGroupData[{ -Cell[32218, 711, 608, 17, 25, "Input",ExpressionUUID->"6c1d3718-7a8d-41a6-98ea-98fe3318bcfa"], -Cell[32829, 730, 235, 4, 25, "Output",ExpressionUUID->"8b0315bf-6d61-4278-a829-dedfe692066f"] +Cell[31526, 695, 608, 17, 25, "Input",ExpressionUUID->"6c1d3718-7a8d-41a6-98ea-98fe3318bcfa"], +Cell[32137, 714, 235, 4, 25, "Output",ExpressionUUID->"8b0315bf-6d61-4278-a829-dedfe692066f"] }, Open ]], Cell[CellGroupData[{ -Cell[33101, 739, 606, 16, 22, "Input",ExpressionUUID->"516a4819-1b7b-40d4-a8ad-e2086998c231"], -Cell[33710, 757, 7198, 136, 175, "Output",ExpressionUUID->"cb4c528f-0710-481a-bfb2-44297fb7fba9"] +Cell[32409, 723, 606, 16, 22, "Input",ExpressionUUID->"516a4819-1b7b-40d4-a8ad-e2086998c231"], +Cell[33018, 741, 7198, 136, 175, "Output",ExpressionUUID->"cb4c528f-0710-481a-bfb2-44297fb7fba9"] }, Open ]], Cell[CellGroupData[{ -Cell[40945, 898, 526, 13, 22, "Input",ExpressionUUID->"aed31f23-624a-4974-a440-50445111532a"], -Cell[41474, 913, 14567, 257, 179, "Output",ExpressionUUID->"2d0442be-aad9-4e64-bcb2-9c95e259b44d"] +Cell[40253, 882, 526, 13, 22, "Input",ExpressionUUID->"aed31f23-624a-4974-a440-50445111532a"], +Cell[40782, 897, 14567, 257, 179, "Output",ExpressionUUID->"2d0442be-aad9-4e64-bcb2-9c95e259b44d"] }, Open ]], Cell[CellGroupData[{ -Cell[56078, 1175, 1501, 38, 22, "Input",ExpressionUUID->"47f1d4ba-afc2-44f3-aeb8-a071f0e8c4f9"], -Cell[57582, 1215, 574, 12, 32, "Message",ExpressionUUID->"a415b118-1097-4155-84e3-609dd9a85a38"], -Cell[58159, 1229, 614, 13, 22, "Message",ExpressionUUID->"8871feea-390b-4d51-8323-ededa45e1a08"], -Cell[58776, 1244, 574, 12, 32, "Message",ExpressionUUID->"d90fd7e9-775c-4fd4-8a1d-aa407ff8abe4"], -Cell[59353, 1258, 576, 12, 32, "Message",ExpressionUUID->"e5d7a12d-1671-4c8c-989b-ec0f9f4c67a0"], -Cell[59932, 1272, 652, 13, 22, "Message",ExpressionUUID->"bdad9088-50c1-4d40-ad09-4fbb47c24899"], -Cell[60587, 1287, 614, 13, 22, "Message",ExpressionUUID->"4c080a0f-6df2-46f1-bc2d-7a054fb75363"], -Cell[61204, 1302, 616, 13, 22, "Message",ExpressionUUID->"cbf1491d-6d6b-408a-9961-e6e37a65a0a6"], -Cell[61823, 1317, 656, 13, 22, "Message",ExpressionUUID->"c77564c1-0ba4-4c7f-959b-735db191f7a0"] +Cell[55386, 1159, 1501, 38, 22, "Input",ExpressionUUID->"47f1d4ba-afc2-44f3-aeb8-a071f0e8c4f9"], +Cell[56890, 1199, 574, 12, 32, "Message",ExpressionUUID->"a415b118-1097-4155-84e3-609dd9a85a38"], +Cell[57467, 1213, 614, 13, 22, "Message",ExpressionUUID->"8871feea-390b-4d51-8323-ededa45e1a08"], +Cell[58084, 1228, 574, 12, 32, "Message",ExpressionUUID->"d90fd7e9-775c-4fd4-8a1d-aa407ff8abe4"], +Cell[58661, 1242, 576, 12, 32, "Message",ExpressionUUID->"e5d7a12d-1671-4c8c-989b-ec0f9f4c67a0"], +Cell[59240, 1256, 652, 13, 22, "Message",ExpressionUUID->"bdad9088-50c1-4d40-ad09-4fbb47c24899"], +Cell[59895, 1271, 614, 13, 22, "Message",ExpressionUUID->"4c080a0f-6df2-46f1-bc2d-7a054fb75363"], +Cell[60512, 1286, 616, 13, 22, "Message",ExpressionUUID->"cbf1491d-6d6b-408a-9961-e6e37a65a0a6"], +Cell[61131, 1301, 656, 13, 22, "Message",ExpressionUUID->"c77564c1-0ba4-4c7f-959b-735db191f7a0"] }, Open ]], Cell[CellGroupData[{ -Cell[62516, 1335, 356, 5, 22, "Input",ExpressionUUID->"c6e27107-d1c1-4def-bce7-5bfc77efa117"], -Cell[62875, 1342, 431003, 7099, 264, 351059, 5788, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"65425ede-668b-4584-b959-e541ddaed240"] +Cell[61824, 1319, 356, 5, 22, "Input",ExpressionUUID->"c6e27107-d1c1-4def-bce7-5bfc77efa117"], +Cell[62183, 1326, 431003, 7099, 264, 351059, 5788, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"65425ede-668b-4584-b959-e541ddaed240"] }, Open ]], Cell[CellGroupData[{ -Cell[493915, 8446, 474, 12, 22, "Input",ExpressionUUID->"d91d527e-9cac-4ce1-9ae6-5ff3208121a2"], -Cell[494392, 8460, 4330, 89, 171, "Output",ExpressionUUID->"559d6958-bbd1-42f4-b122-f3904597675f"] +Cell[493223, 8430, 474, 12, 22, "Input",ExpressionUUID->"d91d527e-9cac-4ce1-9ae6-5ff3208121a2"], +Cell[493700, 8444, 4330, 89, 171, "Output",ExpressionUUID->"559d6958-bbd1-42f4-b122-f3904597675f"] }, Open ]], Cell[CellGroupData[{ -Cell[498759, 8554, 1771, 32, 24, "Input",ExpressionUUID->"5a79a2e7-c8b4-40fb-9154-88fdcc27bd73"], -Cell[500533, 8588, 14400, 247, 630, "Output",ExpressionUUID->"a6b30fc2-c088-4262-94f2-edcc475c95da"] +Cell[498067, 8538, 1771, 32, 24, "Input",ExpressionUUID->"5a79a2e7-c8b4-40fb-9154-88fdcc27bd73"], +Cell[499841, 8572, 14400, 247, 630, "Output",ExpressionUUID->"a6b30fc2-c088-4262-94f2-edcc475c95da"] }, Open ]], -Cell[514948, 8838, 162, 3, 22, "Input",ExpressionUUID->"536d20a8-587f-4cd2-8d38-d67784bf6d33"], +Cell[514256, 8822, 162, 3, 22, "Input",ExpressionUUID->"536d20a8-587f-4cd2-8d38-d67784bf6d33"], Cell[CellGroupData[{ -Cell[515135, 8845, 347, 7, 24, "Input",ExpressionUUID->"91e758ec-72b9-4894-b62d-8872e6b4ee42"], -Cell[515485, 8854, 369, 7, 28, "Output",ExpressionUUID->"7ebcdde0-d788-47fa-bc62-df9697e7a7a4"] +Cell[514443, 8829, 347, 7, 24, "Input",ExpressionUUID->"91e758ec-72b9-4894-b62d-8872e6b4ee42"], +Cell[514793, 8838, 369, 7, 28, "Output",ExpressionUUID->"7ebcdde0-d788-47fa-bc62-df9697e7a7a4"] }, Open ]], Cell[CellGroupData[{ -Cell[515891, 8866, 1225, 20, 24, "Input",ExpressionUUID->"deab78a8-001c-48e2-8e09-f201bb4cea29"], -Cell[517119, 8888, 4606, 106, 179, "Output",ExpressionUUID->"9cd66a8a-65ca-4fb7-ba2c-0e30d1efdb75"] +Cell[515199, 8850, 1225, 20, 24, "Input",ExpressionUUID->"deab78a8-001c-48e2-8e09-f201bb4cea29"], +Cell[516427, 8872, 4606, 106, 179, "Output",ExpressionUUID->"9cd66a8a-65ca-4fb7-ba2c-0e30d1efdb75"] }, Open ]], Cell[CellGroupData[{ -Cell[521762, 8999, 1327, 21, 24, "Input",ExpressionUUID->"ac67b8f1-5341-473f-9d1d-922e2695ed9e"], -Cell[523092, 9022, 11492, 278, 179, "Output",ExpressionUUID->"3fd3b5f8-4da9-404f-8b20-64b6c99239f0"] +Cell[521070, 8983, 1327, 21, 24, "Input",ExpressionUUID->"ac67b8f1-5341-473f-9d1d-922e2695ed9e"], +Cell[522400, 9006, 11492, 278, 179, "Output",ExpressionUUID->"3fd3b5f8-4da9-404f-8b20-64b6c99239f0"] }, Open ]] } ] -- cgit v1.2.3-54-g00ecf