1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
Notebook[{Cell[
CellGroupData[{Cell[
BoxData[StyleBox[RowBox[{StyleBox[RowBox[{"(*"," ",RowBox[
{RowBox[{"List"," ","of"," ","fast"," ","Deleglise"}],"-",RowBox[{"Rivat"," ","alpha"," ","factors"," ","found"," ","by"," ","running"," ","pi",RowBox[
{"(","x",")"}]," ",RowBox[{"benchmarks","."}]}]}]," ","*)"}],FontColor -> GrayLevel[
0.5]],"\[IndentingNewLine]","\[IndentingNewLine]",RowBox[{"alpha"," ","="," ",RowBox[
{"{",StyleBox[RowBox[{"(*"," ",RowBox[{"{",RowBox[{"x",","," ","alpha"}],"}"}]," ","*)"}],
FontColor -> GrayLevel[0.5]]," ",RowBox[{RowBox[{"{",RowBox[{"1",","," ","1"}],"}"}],",",RowBox[
{"{",RowBox[{RowBox[{"10","^","7"}],",","2.210"}],"}"}],","," ",RowBox[{"{",RowBox[
{RowBox[{"10","^","9"}],",","3.590"}],"}"}],","," ",RowBox[{"{",RowBox[{RowBox[{"10","^","10"}],",","4.900"}]," ","}"}],","," ",RowBox[
{"{",RowBox[{RowBox[{"10","^","11"}],","," ","6.211"}],"}"}],","," "," ",RowBox[{"{",RowBox[
{RowBox[{"10","^","12"}],",","8.154"}],"}"}],",",RowBox[{"{",RowBox[{RowBox[{"10","^","13"}],","," ","9.857"}],"}"}],",",RowBox[
{"{",RowBox[{RowBox[{"10","^","14"}],","," ","11.715"}],"}"}],",",RowBox[{"{",RowBox[
{RowBox[{"10","^","15"}],",","14.628"}],"}"}],",",RowBox[{"{",RowBox[{RowBox[{"10","^","16"}],",","18.138"}],"}"}],",",RowBox[
{"{",RowBox[{RowBox[{"10","^","17"}],","," ","23.375"}],"}"}],",",RowBox[{"{",RowBox[
{RowBox[{"10","^","18"}],","," ","28.992"}],"}"}],",",RowBox[{"{",RowBox[{RowBox[
{"10","^","19"}],",","34.240"}],"}"}],",",RowBox[{"{",RowBox[{RowBox[{"10","^","20"}],",","42.741"}],"}"}],",",RowBox[
{"{",RowBox[{RowBox[{"10","^","21"}],",","53.706"}],"}"}],",",RowBox[{"{",RowBox[
{RowBox[{"10","^","22"}],",","67.605"}],"}"}],",",RowBox[{"{",RowBox[{RowBox[{"10","^","23"}],",","83.126"}],"}"}]}],"}"}]}]}]]],
"Input",ExpressionUUID -> "98e07a75-ba0c-4e32-ac60-ce3dcb649c89",CellChangeTimes -> {{3634213444.9403696`,3634213445.624035`},{3634215431.555122`,3634215513.2840934`},{3634215600.175366`,3634215619.788096`},3634215656.990878`,3634215720.8094654`,{3634215766.7969522`,3634215767.1650066`},{3634215844.568947`,3634215848.768384`},{3634215892.499003`,3634215899.1052933`},{3634215948.6720448`,3634215967.4688087`},{3634216242.103594`,3634216251.921739`},3634217349.492552`,{3634314695.950554`,3634314708.6478233`},3634322609.691835`,{3634323167.2555017`,3634323170.063471`},3634323273.8673983`,{3634323441.217924`,3634323444.9257107`},{3634404012.629353`,3634404027.9052`},{3634405024.424403`,3634405024.582734`},{3634581315.4704723`,3634581326.85883`},{3652340017.483922`,3652340090.0428767`},{3652340122.6925707`,3652340163.1045513`},{3652340205.1790833`,3652340257.8472652`},{3652340388.683112`,3652340400.128792`},3652340486.932126`,{3652343296.0802717`,3652343320.5731187`},{3652343353.095994`,3652343375.283201`},{3652358670.776546`,3652358671.261818`},{3652359327.963564`,3652359357.5432653`},{3652799391.654447`,3652799407.7294073`},{3652799459.199575`,3652799460.1652946`},{3652894051.835206`,3652894053.576467`}},
CellLabel -> "In[6]:= "],Cell[
BoxData[RowBox[{"{",RowBox[{RowBox[{"{",RowBox[{"1",",","1"}],"}"}],",",RowBox[
{"{",RowBox[{"10000000",",","2.21`"}],"}"}],",",RowBox[{"{",RowBox[{"1000000000",",","3.59`"}],"}"}],",",RowBox[
{"{",RowBox[{"10000000000",",","4.9`"}],"}"}],",",RowBox[{"{",RowBox[{"100000000000",",","6.211`"}],"}"}],",",RowBox[
{"{",RowBox[{"1000000000000",",","8.154`"}],"}"}],",",RowBox[{"{",RowBox[{"10000000000000",",","9.857`"}],"}"}],",",RowBox[
{"{",RowBox[{"100000000000000",",","11.715`"}],"}"}],",",RowBox[{"{",RowBox[{"1000000000000000",",","14.628`"}],"}"}],",",RowBox[
{"{",RowBox[{"10000000000000000",",","18.138`"}],"}"}],",",RowBox[{"{",RowBox[{"100000000000000000",",","23.375`"}],"}"}],",",RowBox[
{"{",RowBox[{"1000000000000000000",",","28.992`"}],"}"}],",",RowBox[{"{",RowBox[{"10000000000000000000",",","34.24`"}],"}"}],",",RowBox[
{"{",RowBox[{"100000000000000000000",",","42.741`"}],"}"}],",",RowBox[{"{",RowBox[
{"1000000000000000000000",",","53.706`"}],"}"}],",",RowBox[{"{",RowBox[{"10000000000000000000000",",","67.605`"}],"}"}],",",RowBox[
{"{",RowBox[{"100000000000000000000000",",","83.126`"}],"}"}]}],"}"}],StandardForm],
"Output",ExpressionUUID -> "bdff06d0-4cf5-486b-8168-4173f7469dd9",CellLabel -> "Out[6]= "]},
Open],ExpressionUUID -> "c6cc9c82-3e59-4e7d-b5d1-0a4f9de2a577"],Cell[
CellGroupData[
{Cell[
BoxData[RowBox[{"ListLogLinearPlot","[",RowBox[{"alpha",",",RowBox[{"Filling","\[Rule]","Bottom"}],","," ",RowBox[
{"Joined","\[Rule]"," ","True"}]}],"]"}]],"Input",ExpressionUUID -> "381aa3c9-7179-4b58-b173-8ed7facd4779",
CellChangeTimes -> {{3634314818.7325907`,3634314834.692454`},3634323448.934331`,3634403977.189968`},
CellLabel -> "In[7]:= "],Cell[
BoxData[GraphicsBox[{{},GraphicsComplexBox[CompressedData[
"1:eJxTTMoPSmViYGBQAWIQjQo+2BevsmuxljNwWOf+sEpkHaPDjv/an9V3mjjskGt9HbiDxyF61SKteWzmDrNmgoCww78QySSREEuHT5d8kwRuSDgs+N8/s2uhtQOTdrvYTT8FB+dVbBcZ3ts6CERYbjmxTdkBYr4DxPw8dYcj/3/O/+bi6LDimLd5p6Oug1jo1t0bs50cxG+e+x6sbOSQvqrges4kZwew8xLMoe5xcTi90HXb5782Dlyhz/ke33d1kAc5T84R6j53iP1xrg5r/se6Rep6OLyrsTeNu+UFda8nRP2zAAf/VVdqz1d5Qdx/IsQBPURg8hhBNRpe4PACAC404rE="],
{{{},{EdgeForm[],Directive[RGBColor[0.368417,0.506779,0.709798],Opacity[0.2]],GraphicsGroupBox[
{PolygonBox[CompressedData["1:eJxTTMoPSmNkYGAoZgESPpnFJWnCyDxPkJyhJxOItIBQlhDKHEKZQShTCGUCoYwhlBGEgmo3AJtlCSYtwKQ5mDQDk6Zg0gRMGoNJIwBRQRGn"]]}]},{},{}},{{},{},{Hue[
0.67,0.6,0.6],Directive[PointSize[0.012833333333333334],RGBColor[0.368417,0.506779,
0.709798],AbsoluteThickness[1.6]],LineBox[CompressedData["1:eJxTTMoPShNkYGAoZgESPpnFJZ6MQIYhmDQCk8Zg0gRMmoJJMzBpDiYtwKSlJxNIlwGEMoRQRhDKGEKZQChTCGUGocwB1ZgNwg=="]]}},{{Directive[
PointSize[0.012833333333333334],RGBColor[0.368417,0.506779,0.709798],AbsoluteThickness[
1.6]]}},{{Directive[PointSize[0.012833333333333334],RGBColor[0.368417,0.506779,0.709798],
AbsoluteThickness[1.6]]},{}},{{Directive[PointSize[0.012833333333333334],RGBColor[
0.368417,0.506779,0.709798],AbsoluteThickness[1.6]]},{}}}],{{},{}}},DisplayFunction -> Identity,
GridLines -> {None,None},DisplayFunction -> Identity,DisplayFunction -> Identity,
DisplayFunction -> Identity,DisplayFunction -> Identity,AspectRatio -> NCache[Power[
GoldenRatio,-1],0.6180339887498948],Axes -> {True,True},AxesLabel -> {None,None},
AxesOrigin -> {-2.2296299229469256,0},RuleDelayed[DisplayFunction,Identity],Frame -> {{False,False},{False,False}},
FrameLabel -> {{None,None},{None,None}},FrameTicks -> {{Automatic,Automatic},{Charting`ScaledTicks[
{Log,Exp}],Charting`ScaledFrameTicks[{Log,Exp}]}},GridLines -> {None,None},GridLinesStyle -> Directive[
GrayLevel[0.5,0.4]],Method -> CompressedData["1:eJzlUEEKwjAQrNWDNw+Cd99SFQTF0hbv0W5hMWZDsgHr600qRCrVg1cvw+xkZjbs8kRFkyZJYicedmj5NRVOQjn35KAZr3iHXBLvhbmAsZ2hMg7e7AtPMiJToxIMtiKSIU3Kft0y82SFVkvRbpw6h0AzCo6ph6j0G8L7gKlTxh7WN/0cQqL0X8cuEUtyYXjAgLH3U3lQtjUoRm5/2pD2XPHMGWmE+iikgz85wgPGMIEC"],
PlotRange -> {{-2.2296299229469256,52.95945713886305},{0,83.126}},PlotRangeClipping -> True,
PlotRangePadding -> {{Scaled[0.02],Scaled[0.02]},{Scaled[0.02],Scaled[0.05]}},Ticks -> {Charting`ScaledTicks[
{Log,Exp}],Automatic},ExpressionUUID -> "b57b858b-3a16-469c-b4f4-d0d343d694b4"],StandardForm],
"Output",ExpressionUUID -> "09e1aace-ebda-428e-b088-297f8330b5ed",CellLabel -> "Out[7]= "]},
Open],ExpressionUUID -> "3dee870b-691e-4967-b97c-1a8c21e6eaed"],Cell[
BoxData[RowBox[
{"\[IndentingNewLine]",StyleBox[RowBox[{"(*"," ",RowBox[{"alpha"," ","is"," ","a"," ","tuning"," ","factor"," ","that"," ","balances"," ","the"," ","compuation"," ","of"," ","the"," ","easy"," ","special"," ","leaves"," ","and"," ","the"," ","hard"," ","special"," ",RowBox[
{"leaves","."," ","The"}]," ","formula"," ","below"," ","is"," ","used"," ","in"," ","the"," ","file"," ",RowBox[
{"src","/",RowBox[{"common",".","cpp"}]}]," ","to"," ","calculate"," ","a"," ","fast"," ","alpha"," ","factor"," ","for"," ","the"," ","computation"," ","of"," ","pi",RowBox[
{RowBox[{"(","x",")"}],"."}]}]," ","*)"}],FontColor -> GrayLevel[0.5]]}]],"Input",
ExpressionUUID -> "395d2b11-0885-4260-8798-56cd1cf28627",CellChangeTimes -> {{3652359107.254675`,3652359108.209537`},{3652893880.0309653`,3652893884.6280956`},3652894058.9063597`}],Cell[
CellGroupData[
{Cell[
BoxData[RowBox[{"NonlinearModelFit","[",RowBox[{"alpha",","," ",RowBox[{RowBox[
{"a",RowBox[{RowBox[{"(",RowBox[{"Log","[","x","]"}],")"}],"^","3"}]}]," ","+",RowBox[
{"b",RowBox[{RowBox[{"(",RowBox[{"Log","[","x","]"}],")"}],"^","2"}]}]," ","+",RowBox[
{"c"," "," ",RowBox[{"Log","[","x","]"}]}]," ","+"," ","d"}],","," ",RowBox[{"{",RowBox[
{"a",",","b",","," ","c",","," ","d"}],"}"}],","," ","x"}],"]"}]],"Input",ExpressionUUID -> "4ac9bd14-2037-4ad0-a96d-768fc4d12dd4",
CellChangeTimes -> {{3634216277.450708`,3634216312.60785`},{3634216345.523642`,3634216356.1640286`},{3634314801.6652737`,3634314810.0460567`},3634322645.710272`,{3634323063.590989`,3634323065.7776113`},3634323459.263245`,{3634323494.476931`,3634323495.748851`}},
CellLabel -> "In[8]:= "],Cell[
BoxData[TagBox[RowBox[{"FittedModel","[",TagBox[PanelBox[
TagBox[RowBox[{RowBox[{"0.3722531248523318`","\[VeryThinSpace]"}],"+",RowBox[{"1.0016458739314358`"," ",RowBox[
{"Log","[","x","]"}]}],"-",RowBox[{"0.06919089416584696`"," ",SuperscriptBox[RowBox[
{"\[LeftSkeleton]","1","\[RightSkeleton]"}],"2"]}],"+",RowBox[{"0.0014891783958610755`"," ",SuperscriptBox[
RowBox[{"Log","[","x","]"}],"3"]}]}],Function[Short[Slot[1],2]]],FrameMargins -> 5],
Editable -> False],"]"}],InterpretTemplate[Function[FittedModel[{"Nonlinear",{a -> 0.0014891783958610755,b -> -0.06919089416584696,c -> 1.0016458739314358,d -> 0.3722531248523318},{{x},Plus[
d,Times[c,Log[x]],Times[b,Power[Log[x],2]],Times[a,Power[Log[x],3]]]}},{1},{{1,1},{10000000,2.21},{1000000000,3.59},{10000000000,4.9},{100000000000,6.211},{1000000000000,8.154},{10000000000000,9.857},{100000000000000,11.715},{1000000000000000,14.628},{10000000000000000,18.138},{100000000000000000,23.375},{1000000000000000000,28.992},{10000000000000000000,34.24},{100000000000000000000,42.741},{1000000000000000000000,53.706},{10000000000000000000000,67.605},{100000000000000000000000,83.126}},
Function[Null,Internal`LocalizedBlock[{a,b,c,d,x},Slot[1]],{HoldAll}]]]],Editable -> False,
Selectable -> True,SelectWithContents -> True],StandardForm],"Output",ExpressionUUID -> "b60d9093-0ddf-45bd-ac51-4fc27362ad35",
CellLabel -> "Out[8]= "]},Open],ExpressionUUID -> "e0d40001-42f7-4556-8f92-017997279a9e"]},
WindowSize -> {1216,756},WindowMargins -> {{0,Automatic},{Automatic,0}},PrintingCopies -> 1,
PrintingPageRange -> {1,Automatic},StyleDefinitions -> "Default.nb",FrontEndVersion -> "12. for Wolfram Cloud 1.54.0.1 (January 17, 2020)"]
|
