一类具有表示基础物理潜力的模型
  1. 介绍
  2. 模型的基本形式
  3. 典型行为
  4. 极限行为和涌现几何
  5. 串代换系统的更新过程
  6. 我们模型中的更新过程
  7. 我们模型中的等价性和计算
  8. 与物理学的潜在关系
  9. 其他材料
  10. 工具书类
  11. 索引

4.5维度的概念

在传统几何学中,任何连续空间的一个基本特征是其维数。我们已经看到,至少在某些情况下,我们可以根据可识别几何的出现来描述我们模型的极限行为具有一定的尺寸。因此,这表明,即使我们不容易识别模型中的传统几何结构,我们也可以使用维的概念来描述模型的极限行为。

对于标准连续空间,定义尺寸很简单,通常是根据指定位置所需的坐标数。如果我们对一个连续的空间进行离散近似,比如说用一个逐渐精细的网格,我们仍然可以根据网格上的坐标数来确定维度。但是现在假设我们只有一个网格的连通图。我们能推断出它对应的维度吗?

我们可以选择绘制网格,使其根据坐标进行布局,这里是在1维、2维和3维欧几里德空间中:

网格图[{10},顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]
网格图〔{10,顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]
网格图[{5,5,5},顶点样式->ResourceFunction[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]

但这些都是相同的图,具有相同的连接信息:

网格图[{10,10},图形布局->#,顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]&/@{“SpringElectricalEmbedding”,“教程嵌入”、“RadialEmbedding”、“离散螺旋嵌入”}

所以仅仅从图的内在信息或者,更准确地说,从一系列越来越大的图的信息中我们能推断出它可能对应的空间维度吗?

这个我们将遵循的程序简单明了(参见[1:第479页][22]). 对于任何一点X(X)在图中定义第页(X(X))是图形中最多可以到达的点数图形距离 第页。这可以看作是半径为的球的体积第页在以为中心的图形中X(X)

对于方形栅格,定义第页(X(X))用于连续第页从中心点开始:

制作BallPicture[g_,rmax_]:=模块〔{gg=无向图〔g〕,cg},cg=图形中心〔g〕;表[HighlightGraph[gg,NeighborhodGraph[gg,cg,r]],{r,0,rmax}]];图[#,序列[图像大小->60,顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“空间图形”,“顶点样式”],EdgeStyle->ResourceFunction[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]]&/@MakeBallPicture[网格图[{11,11}],7]

对于无限网格,我们有:

对于一维栅格,相应的结果是:

制作BallPicture[g_,rmax_]:=模块[{gg=UndirectedGraph[g],cg},cg=GraphCenter[gg];表[HighlightGraph[gg,NeighborhoodGraph[gg,cg,r]],{r,0,rmax}]];图[#,序列[图像大小->60,顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“空间图形”,“顶点样式”],EdgeStyle->ResourceFunction[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]]&/@制作球图片[GridGraph[{11}],7]

对于3D网格,它是:

制作BallPicture[g_,rmax_]:=模块[{gg=UndirectedGraph[g],cg},cg=GraphCenter[gg];表[HighlightGraph[gg,NeighborhodGraph[gg,cg,r]],{r,0,rmax}]];图形[#,图像大小->80,顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]&/@MakeBallPicture[GridGraph[{7,7,7}],5]

一般来说,对于d日-三维立方网格(参见[1以下为:第1031页])结果是一个终止的超几何级数(和z(z)d日在(z(z)+1)第页/(z(z)-1)第页+1)以下为:

但对我们来说,重要的特点是这完全可以从图的连通性信息中计算出来与…成比例第页d日

对于比网格规则性更低的图形,会发生什么?这是一张由随机三角测量二维区域的:

rgraph=网格连接图[离散区域[矩形[],MaxCellMeasure->.002],顶点大小->微小,顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]

再一次,在图形距离处达到的点数第页长得像第页2以下为:

rgraph=网格连接图[离散区域[矩形[],MaxCellMeasure->.002],顶点大小->微小,顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]];模块[{cg},cg=GraphCenter[rgraph];表[HighlightGraph[rgraph,NeighborhodGraph[rgraph,cg,r],图像大小->95],{r,6}]]

普通情况下d日-维连续欧几里德空间,球的体积正好是

我们应该预期,如果在某种意义上,我们的图形限制为d日-那么与此相对应,第页应始终显示第页d日增长。

然而,还有许多微妙的问题。第一个在实践中立即明显如果我们的图形是有限的(如上面的网格),那么会有边缘效应阻止第页d日增长第页当球的半径与图形的半径相当时。下图显示了边长为11的网格与无限网格的比较结果第页d日术语本身:

表[带[{u=第一个[值[ResourceFunction[“图形邻域卷”][网格图[表[11,d]],图形中心[GridGraph[表[11,d]]]]},列表线条图[反向@{转座[{Range[Length[u]]-1,u}],表[求值[{r,完全简化@功能扩展[二项式[r,d]超几何2F1[-d,1+r,1-d+r,-1]]}],{r,0,长度[u]-1}],表[{r,2^d/d!r^d},{r,0,长度[u-1]}]},网格->全部,帧->真,绘图范围->{0,最大[u]+1},打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”],如果[d==3,PlotLegends->(文本[样式[#,指令[FontSize->.85继承,FontFamily->“Source Serif Pro”,灰度[0.25]]]&/@{样式[上标[“r”,“d”],斜体],“无限网格”,“有限网格”}),PlotLegends->无],尾声->文本[Style[Row[{Style[“d”,Italic],StringTemplate[“=``”][d]}],指令[FontSize->13,FontFamily->“Source Serif Pro”,灰度[0.2]],缩放[{0,1}],{-1.5,1.3}]],{d,1,3}]

人们可以想象,如果有一个环形网格图例如:

图形[ResourceFunction[“TorusGraph”][{11,7}],顶点样式->ResourceFunction[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]]

但实际上第页(X(X))因为环形图上的任何点都与普通网格中的中心点完全相同;只是现在有限大小的效果来自于图中环绕圆环的路径。

不过,只要第页与图形的半径相比较小但足够大,我们可以看到整体第页d日生长我们可以从以下测量值中推断出一个有效维度第页

实际上,评估第页进行维数估计,是计算对数差作为第页以下为:

以下是网格图的中心点(或类似环形图中的任何点)的结果:

网格尺寸[d,s]:=资源函数[“日志差异”][N[第一个[值[ResourceFunction[“图形邻域卷”][网格图[表[s,d]],图形中心[GridGraph[表[s,d]]]]];GraphicsRow[{ListLinePlot[{griddim[1,51],表[{r,1},{r,26}]},PlotStyle->{ResourceFunction[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”],点},PlotRange->{0,1.5},Frame->True],ListLinePlot[{griddim[2,51],表[{r,2},{r,51}]},PlotStyle->{ResourceFunction[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”],点},帧->真],ListLinePlot[{griddim[3,21],表[{r,3},{r,30}]},PlotStyle->{ResourceFunction[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”],点},帧->真]},图像大小->大]

结果远非完美。对于小型第页 一个对电网的详细结构很敏感第页到图形的有限总体大小。但是,例如,对于2D网格图,随着图的大小逐渐增加,我们可以看到值的扩展区域第页我们对尺寸的估计是准确的:

网格尺寸[d,s]:=资源函数[“LogDifferences”][N[第一个[值[ResourceFunction[“图形邻域卷”][网格图[表[s,d]],图形中心[网格图形[表[s,d] ]]]]];(*griddata=表格[griddim[2,s],{s,25200,25}]*)网格数据={{2.321928094887362,2.356581185211473,2.273087307226175,2.216941690327061, 2.179126837524771, 2.152292761139919, 2.13235671871315, 2.1169935238862974`, 2.104804512968222, 2.0949039301137318`, 2.0867055636886356`, 2.0798067605722705`, 1.9252283343656778`, 1.6669708956150553`, 1.4593953099565267`, 1.28831913108682134`,1.126843289342518,0.9829140915168155,0.8462402896565637, 0.7129739503358662, 0.5800317763245048, 0.4447517996502539, 0.30465844614280185`, 0.1572820070795648},压缩数据[“1:eJwBnQFi/iFib1JlAQAAAADIAABxo3kJT5MCQEzRhjxH2gJAu+nrZUgvAkDfv8jsS7wBQNMJKA3abgFAohtkROU3AUAWOxIKEQ8BQMl790ya7wBAr1+dv6PWAECDzeD9XMIAQDhkw6+SsQBAxkIVunGjAEDCNZV7ZJcAQC72eAX+jABAwkkMe2DAECLRCpS9HsAQMD9EbbjdABACiTl5pVuAECn4gsR7WgAQMJ2OirRYwBA公司+JZCmy5fAECARHNE9VoAQOTpx8EXVwBAYsbO3IpTAEA1UdsR3///P366cNY7Ov4/+NitExoZ/D+YLtxkADf6PzbEnETMhfg/5pmqLfz69j8xQ8RqkY71P6pw7/pUOvQ/K1 Ron1n58j8JzxzgpMfxP9b+fZLxofA/9yUI9gYL7z/r6O1DeDP34LzsHtvuo/T+uRIxqk6D/BNzwoYYzmP/NSe1bXdOQ/qDVzMcRa4j9X0FSRkjvgP/mvKIKGKdw/1+wDZsLH1z8m/UuF7UzTP6mig0sOaM0/2atLnMrvwz9D丹麦L3gky0PxYhSvAxsJQ/sRrBEA==“],压缩数据[”1:eJwBXQKi/SFib1JlAQAAAAEoAAABxo3kJT5MCQEzRhjxH2gJAu+nrZUgvAkDfv8jsS7wBQNMJKA3abgFAohtkROU3AUAWOxIKEQ8BQMl790ya7wBAr1+dv6PWAECDzeD9XMIAQDhkw6+SsQBAxkIVunGjAEDCNZV7ZJcAQC72eAX+jABAwkkMe2DAECLRCpS9HsAQMD9EbbjdABACiTl5pVuAECn4gsR7WgAQMJ2OirRYwBA公司+JZCmy5fAECARHNE9VoAQOTpx8EXVwBAYsbO3IpTAECots8fRVAAQHCkeIE公司+TQBAUoDaInBKAEA4HT0b1EcAQLYfhU5lRQBA1prBSx9DAEBqRhMy/kAAQNpzkJr+PgBAV98bh09AEAm72FOWDsAQIfRXZmsOQBAw5LqThg4AEAFnv6PmTYAQCG0Zl59lf8/0ANKZo0C/j83BOVuj5P8PygMuA6OQvs/EhuQkcEK+j8wDiT4R+j4PwR3XZfw1/c/qKfpXRXX9j99npfEfeP1P5iES7RI+/Q/Yn2bgdsc9D8Talas1EbzP71ZrXEBePI/J4E9glWv8T+g2chb5OwP9QDdefbLPA/nwVNKgDj7j+x06J7TnLtP8MvkUZuBuw/iFgA20Se6j94B40YzTjpPyC7mNMT1ec/HlXJvDRy5j8OJASyVw/lP8s+vmSuq+M/y3o2RXJG4j95ARSl4t7gP4kQTgyG6N4/RDiaF7ML3D+p9LEN2yXZPymM2CmMNdY/b+j7mVE50z9DT7/msC/QP6Eu8r9OLso/jGA5B0/cwz9c2g9VWcy6P7CqMOREIqs/m5kI4w==“],压缩数据[”1:eJwBLQPS/CFib1JlAQAAAAGQAAABxo3kJT5MCQEzRhjxH2gJAu+nrZUgvAkDfv8jsS7wBQNMJKA3abgFAohtkROU3AUAWOxIKEQ8BQMl790ya7wBAr1+dv6PWAECDzeD9XMIAQDhkw6+SsQBAxkIVunGjAEDCNZV7ZJcAQC72eAX+jABAwkkMe2DAECLRCpS9HsAQMD9EbbjdABACiTl5pVuAECn4gsR7WgAQMJ2空气+JZCmy5fAECARHNE9VoAQOTpx8EXVwBAYsbO3IpTAECots8fRVAAQHCkeIE公司+TQBAUoDaInBKAEA4HT0b1EcAQLYfhU5lRQBA1prBSx9DAEBqRhMy/kAAQNpzkJr+PgBAV98bh09AEAm72FOWDsAQIfRXZmsOQBAw5LqThg4AEAFnv6PmTYAQDlSRK8uNQBAxvDRKtYzAEC2Wc+mjjIAQHKM4ehWMQBAxWg71C0wAEADKzlmEi8AQPcLMDLgBAs30l5QAtAEDR8g43CSwAQK3BaPUbKwBAUuI+ezgqAEA8/O4wXikAQEOAnNj7//8/jYPQwj8U/z/sBhiLNev9P6kchaw81vw/BSgCYcXS+z8GVznypN76P/5Pwb4C+Pk/P27WW0kd+T8ug7DSGk34P44XyD1Hhvc/jQ5OO8XH9j8ruiHNqxD2P2r38lctYPU/gkjYhZO19D8xNWbeOxD0P9/工作CUb/M/FzPt8hvT8j/LRfjCWjryPxWjRzTmpPE/NjFon1wS8T+SqZ+mZILwPxFXHk5Y6e8/19rbnc7R7j+rUrGln73tP4nEIrOw/i40MqE6d6z80DfEgP5DqPwJWFk+thOk/zyB/PjJ66D8TeEjfa3DnPw7GM1v8ZuY/KNTke4ld5T8xCV8fvFPkP8vKpLg/SeM/r26l2sE94j8WyeLL8TDhP5jvaSGAIuA/iubIvzwk3j+jFND/f7bP8gkrIGm1Nk/Gf8BCZ2k1z+66YegRG7VPz5mmar/MNM/UYaJiC7s0D8u9379XT7NP5joli+3ksg//+lRChbUwz+k9IPxPQK+P/7T7zzYMLQ/xoVW7S9ipD8RFUt8UJWEP98Kbtc公司=“],压缩数据[”1:eJwNj3lQ1AUcxb8LkYGBcioRQyD3fYSwLPD9BiuHEjaECsohcgxRIwtYg62QhYFyJSgZq5QEO3至6qyRI8myroAWSDsc4qIhlwHLfSyrLFu/P9585s28efOe9ZHsmHQWAJxglNNwXHfvOS2KkhUHhsu1qGVKkR7hoUXD4gcze/5gUa+uo778KIt+tEjjTvixyIxjpGe4hUUP+WtRgnkgYXKduGEAqKj7+UbCPSD/NKmw+iZQR4jpnZwGoHu+Nfy0C0DuynwdTTnjI229ZouAyrjOMSt8oLYNw+axY0B6thMvao4CXR3dbDibyeQ+C3CWpQKpvg256J4MdJKbx109CDQ+1SnZdgDoSMejp6UfAjU191jt+gCI15j/ZfD7QDEn5Ta83cwOyyCLvnCgZquvo9N3AQ0IJHusQoGywoy9NQQkzzsr0AQDHRi2KLYMArKfT4mO4wCVyBJrf2UDSauno7f7A+l8r/mmdicQO4YrdPdlfi3InAd8mN74niuV3kC55SOT+72A2jM5fW6eQNou7AwjDyB1D0+k7Q4kKrCbADcg2ZKBn64r0DVJ5qqFC7NzNJjv7wwUqJ7zTHIC+tzhcWm5I/Nz0OUNqQPQBcW8F4uhlaeeIMweKOPhMXm1HZDH1qLzE7ZACQEcXjDDxliJ公司道路0OIKdi2W4Ww5ju8OYsG6C5H0QWT6yBlt2VgVEMfeanhqXvAD0beWydL/4PmwPr6006NPjTraA8jXwD2WULXkK1Gi8dj8/rdVKjzSfChpCUdfxqzDxNVf8KIz+2e2uL4iUees8lt4XzEmdPn2+MOKfC6yafxpkurqGiSuv1qtg1DF6vkrDvKrFTUpQgcFai6Avf7ohLq5guX5KNG66i/tMd7WZlK9h+Xyqo3LSC4l8EoF2yjBWm8oueusvoU/xz8pOKJSzhr6mkJkuY35Ua1VK3iIe/+1u70nERQ8MjnQx+W0CWb2H31tAFtHxVwBtqnMebiSGhmvY55OqkToRMzWLb1WzzDINZjF/huTr6zqDZoLI2KlGB+9dXbtcWT2NXWzxv8MYUjuvzlnqHJnHhBKcwftMkWjtss/f3+Rfj7NYElPwCB3Jb17llE3hG7dq0/fdxvLtTaXZ2dAw/aq27flJ/DGfEkstt公司fqM4nlPUaZ8ygknGnadKzzxHNDcOK0kZRlaFTXbstWf4j+j0ZjflECY1jXZIOHIM5N/hSA公司Gcaaqv3WkZQCbPNJculf7MJF9X/iuSy/OiMoFHYdkaKny2XvYoAcfDF2pDTj4F0qH/3wzR9CJG4X7uPseSbLoXLImhZjr32r9623b2NJRESNkfcN9O7vf00v5jL+DymQweQ=“],压缩数据[”1:eJwNz3tUzAkUB/A7PdgKKVFrTKwKaZGpJpp7l2KqI0mhGOrTZNYjyxnNzvs公司9rDtOZkVJak8drfHKo8wxFa7qakhtskwZ2K2WlKekxvWT3298c9n3PPueee公司79cx+oBYwgKAs8wczD9itiHTiILVqcK1OiOq6OySBLobUUvVw+6gShY9M3OZrtvPot/YMf76lSyaI7A2t7JkUb30fXCuAag08kJVvhYopeHV+I4aIO8YRWnGTSDlqtnlB/OBalZkSWOygXgjCaYTMmZft4DfkwJ0wt9VPCQFuj9uVfbmMJD5An171n6g31strHrimLtvfF3VO4FGz67K40UCJfof8h/eDtTW+aDaNhwoWqlqTgsDulzW6BCwESi+ICFJ9DmQOFHnFL+eycHxY2vWApU5/BgiCQDS5lYHOawG2rNm1rIJAtIdOpU7IQIKb2GncvyAFhm+DNkqAPpJ/UXOVR8gRca7EDtvINOL公司电子+k5XkA+Yv9S3gqmV5/aVevJ/N3WWHRyGdDXstdvt/CB6uIEmqUeQMZuPrHW7kBjjfFyYx6Q/NhCPSwFUg/MWGm2BOhaddww243J2SqSersCCcd6PSIWA33HbUqTuTA9n7t9ouACZXcZ+CxGBw/z3DWLgGLrD+syFgK5z0w5o18AtMNXEC9iLNhUzb7gDLQ4Vb2exShuWFu2xwmo95Kc/cIRaJA3Igxm9DR0tijmA1GOtQoZXRM3aaocgDYW3qpZzWhTbL33sT0QZ/6Uoi2MTvJzgXoOUOMhJ963jPPQ3nM4/l9xl4F84DWvHCyRUaf86n3mtlAhYma8aOM5rndionJSXy8LoAtj5pE6Wiy公司IPrMBA7x7kbWq8dRLyscM7MbxzTJMCsidgxtT79Ls6n8iEr7以上0u48YVS1wQul/eDz5tm/Bmw94cPffy9aHfkDVtpu3HyhGsW/O5rFK31GsrK2qenrnPZ7uzhT+sfw93jOdJ+HeHUFjvruLTjiCO51NnmTWDWOh8MphdugwXqo78IOwZQhF4平方8sAQhoSYSU8YDWHurRue0dmDKLt4U+TMG8Q9JmXTS5QD2Cd/tF8TNYAB8ZLNyWP9OD1xSnFWTj++rKu3G1jZj7NPhQeberDe7vPGXES+jDa0fKr8k/7sKJdyz6WYEANa04zt6oXX7Zn8IKn9mKvZsBSsbEH85zTvXfldWPL1OIRm44uVF27blHi2YWisM9kpknvkC+W10xt7MRfMv6alcHpxIgIH33q3rd4xeVsan1F型B6obgC2y6MBYN8Px+u3tmFw+KQ4t0WOMzuR6xYc2fM63DzQEtmHjDUXws+w32LSkJHRDeyuqLXYHBi1vxTF1Q3xp0msUtDwIilG9wrcnmk+K575Cxz+dPZSPXuJkflLteMS/yApKHuT0/4OLVfdbRxN16OXHL42a8QKNbYfCuTlNmG6aUGzv公司qMWniVoXuyIN1srCJtu4z/DSrl795iI1Rpv2zBQ4PsFI61+9Hno04GUrvza0fYQztmi/PzKsxJ9NFpZYPlZg4RlbXl72fYxTT8uS3CnHY5kXZ2m5t3F0X1HgVosrWNux9yrbOw+3pc4V9kmk+D/TpRP5电压“],压缩数据[”1:eJwNz3k01XkYBvAvpk5EY01ZugjZurZjl/cdS3Y5mDRlOKOrjJG91dpYmkFFQpSasbZzmYwaEk5JC92SQrZ7Xdmvfe1e8/vjPZ/znvOe9zyPamC4V5AQIeQhNZElZ0UP5AijGyvN2rFHGP8bmwhy0hfGgcaXk671QvhBVEuiJ0wIixUZ9lwzIdxuJS0m9b0QtsUuuxXyCFYGFDWWdBFMfjvI92smaM5oqbzCJPjCVu5JZAnBZpPcWEY+QfrSmU2CTGp3VjecSiaYYa/jtRBL8BlfqpYTQ1BMnTuSG0awgr1V公司aiqYujtlqcM6SnAlz/Y6PYBgkn20/eJhgsNjrU3yvgQDX7R/SfcmeLu2g+bgSTCi9Mx5G3eCXkk9ahEuVA7lfYqdjgRraakeQQ4EuwqbXGl2BEP2yxgJkGBPdFahwIag74BimvI+gpq8XzwwRG8wPq54L4FwZYr4x47zAluuim4XGBK0MLLvpJuQvWaYel0GVN/f+oov2REMCpzaPSgIcHnwVadew0IiuhaHJPWJ/itI6JGhE6wJl6DS/YSZM1tMxPVI/igKXhRUZfKybaJNdchaP1t2sBfm+C5PZ/SM7Wonp91t7TsIZg/wTMUoqQZiBXu1yR4rC2m54oGQX3J5KtcdYJ+llYRNpSlPk2KRbsJaqexXIQovd461oaoEZy+VaPYrUpwnr5k7UZpzBsbaFEhiAXS7UCpk+TT2Ugj6FlW3WxHKXtHOvT1LoLKKpvLD1Kq1Vxz4ioT7IhWo5+mVIJdxuKUN06I型mJYqEdzfrSYPlBY30uq+KBIsS+rkx1G21Rq9oVFKPqOLPVcg6IDlt0IpZbOZ公司J7dT5ghnn WresbA/MfdiBOVq6c4KFcr4heNV73dQvZ2Z+WmUIShwtaaM/0输出YV6eYFw2s/c+pffTuWvHKTNk7fY8Ym3AlqzKc/LKG5DMbM1SiBDA7M3JXvVXfDgpY/n8ng4fjpzoGjTM/gYx6a8CHfjrMM4Qf5UQtg7mJj88Thxeg1/HTZdm/deg3dEpPa1vFfipnwQLAavA8epirnFX4JDVis3h8BUYcnm01rO+DLGsmjinjGWwkLxoFqW8DAsT+kq61UvwKZrh6Oy8BDVMnboy9iJsy/0ioZSwCJK9qu7piotwZ4B7992TBfDBQj/WkQUIitQ5ESGYhwEr+由c4nngnLVTUnOAHUjolXf提供8eYg5g16auTPwTOfXv1wnIPrO9lF7eOz4N2QwjPImwUbfYnQFNtZoF9Psazj公司zUCJWL9nfdEMuC8nMc67zUCGo1rd7DIPZBTupWgf4sHtdYeYy4+nYVaPMSKqNA0JQbmQlDgFW8MCu3o4k3B68x9图纸6TIJ4cdZz9cAJMzProDLkJ8L8bWxUdNw7NxbmifM4YzG5K4k26jkHRxECJwT+jcLe5bOyR0igwZJhrIalfobBKIsFm例如SiyxsSaL4j4K0ncpTfyIU7ybThVi0uXObGbQ7PHgavFAtpzioHfnsilikbyIGR25H0hTY2yN8040QZsuHPir0N568NgXO/5pzUxiDoDml9lA0aBFl2/t/LVwdgOiyjJcK/H5QeGO8+o9kHtIAu9sxkL0z8+0H7KbMH0geqFVpiumFD5GAb2+Qz2NI9DcliF/g99tITMD9CR LD4MbQTvj4vi9AU+MDaFyScZfrZcHQ0dbdYZfeQZ5CuLhGQju4Ztedbu1+DSEJKQdS9dtgTe5qPC3xBeRPpaz/+LIFqsuYT7+KNYHH7wGOGhfroWCtvlpzqRbKB8fzXDyZoJqjYiRmWgEvi6PXlX3z4X8dqXKY公司“],压缩数据[”1:eJwNz3s0FHgbB/Af6S2D3IoYmoxUaGdCWrc8zxvdEIVd7W6tU6u0NsVSWZeTjm3qSK/FKBQpU5a0uezSnTHHLSTSYCq3Go3LoDGyCvP+/njO5zznPOc536/FoRP+h9UIIY10Igt+0/TLUEEfdp7bDok6PhoeByTq4591Y1j3o/V8KXmeh3JcTW8yQzxlH6thkauBgx9XTVsipvxyZkgeC84t7pATDCptX9+fy1BxDRvfQygvVbVzyMLCBY65gZF3KFIOdTzOKFFLrvWmMnTyJ40dPGXxlHsGZev/JdNEHGGulQ5nGChYNa+vKj9O6Ui037TwT/vbz1KieYYKJnlOf09wTfDzcIjYMIHqp//iY5gOCflW2sbXsIRghizrrvJuifKGFHeNEc5luYnTsIVrLO+R7eRlCcI/RmeRAM225ov4AEJVF/5Cy4EwzqY/LMtxBcO3HQd58rwfPtB7JLnAmK0kd8VzoRXJy3kJq9maCzv+c9jiPtNdluI3agf79ru/0/e4K/pgzIvrUjWHfUtfOrjQX2关于MeASnGuLqFjEIViRYCUlXxFsVyz7WnMDwbvCo9NMW5pz0D3OyYag29z4xh+tCau60pOWU97dtsuFa0jeGV0wk6NytryNm+luCRpmhJuhVBrl4SX7qG4H4X1wh3qiBQyMy1JGjNa/dSo/q37qgMYxMcv17B7LEgOMX55OZDdZgY7hOtJojZBs+BapMY2FnNIrjnVnmtB3V5kcGx5lUEzVf/5/a3VHZF1k6pOcG2KDbnNNUMVjloU6+FL9osMCO4vYdtDFTna7z7b5gEbyV2zsdTmyrtW1hUvRoOo86U4Da8ff0YdXla2Ukjaob6H6dqTQj2nsm8FEGdFZgUrqYmKENLO1bS3rvKrvCoYbjg7UZNyGc/mTImGJ9W9rqEGvBUkRVKfWTYPWRJnd+qrBowIrh7JFKVT71秒r1V2kFq1T1oSbUNNlnzYQXB3zddartDTQjTeRBJvelQJXai1p/TZalReyfn公司LzxbTjAkpUErk1qiIhVqVRQ双功能V5FZCgnX4zowtQoCxXU3yzADwGXHSvm4cmryOtic7z4Gs1eCCkfA5ed2U9vMqdgyXxey73lX6Bq0eqXMYdv4DuFslc8tPPUMVIEyZ4fQYZtyU1vWcW3hbOcLJ/mYWmYnlbCJkFqzjr6uYr/0KElgmr0I6天S/qaJ2Bp46C0xuOzcCrpu7nfO0ZsC7jT8n/+gRb/KpUzIBPUHON80RjdhosStR/T82fBu+7ccxbu6bhefCyPK5SCXcT64JN85WgyxsS792tBLl9Fk/0ZQoeNASNHrgzBexNuj/r7Z+C8ysFLs06U+AZ/vrQmRoFCPIj81ZFK2BvglfQ1fUKqLS/niV7+xHUlxhqfM74CIWxOQ0ir49Q3m/Bd1H/CF6pg/yAh5Pw+H1QqEbUJNiq6gw9NkxCevNFbe2WCZDdzNK7gBNgzMKTsn/G4VTxCZbZhnHI9htLMSiQA/unmGePTOVQ6J8dtjRjDH5gT8YPa42B6fcmvD3nRsFtWjOGqxqB7sC+4pjfRsDWw0S8SjkMIrPNjBUnhkHfr6jYd0QG4+esjlYflgHcd3D9YeAD5FXoBxsd+AClog4fafcQ5DEfVz4OHAK9BUlS2gspEE5r8z4fKYgdHnYsaXwPJ3bHLOZ7vIe Lip5pxdN34ORtEWTq8g4MZfzPqr8H4b82ji3Z3EGIarzU9rZoAEw公司/3DCrtRyAs86Tb9xy+2FTQ8pOT6N+0NTJ3Z5r3ge9oebRAp1eSFs5UZ089wbgpKjLbeQ1xFvF/lIolsBiO8b6KmEPlHTFlu+70w0ZpvKbMRldIA0sPbMoVgy5c8H3pT++giQfzRtaWzvBuH1v+EHLlxCaesP2pXoHWJp61fj0vwDl8gBh1Ok2sAi9ZKZt0woOjY2Wzt3PYOzVMvmLs43Aj+9dWrS2HgQvZk9来自Bd6fWjfCDQsgv3paiMf4EfN+NTPkuewAaCpl1sOXf8KAl9M/S7/4CwZxUXhUogJ/D2dHrjvMhuVNSw7gQDf8H/ozGnw公司=="]};ListLinePlot[griddata,Epilog->{指令[ColorData[97,2],厚,带点],无限线[{0,2},{1,0}]},帧->真,打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”]]

从增长率测量维度的一个显著特征第页(X(X))测量在某种意义上是局部的:它从一个特定的位置开始X(X)当然,在观察连续较大的球时,第页(X(X))将对图形中逐渐远离的部分敏感X(X)但结果仍取决于X(X)除非图形是同质的(如上面的环形网格),否则人们通常希望至少在一个可能的位置范围内求平均值X(X)下面是对上述随机2D图中心的一组起点进行平均的示例。这个误差线表明1σ范围在从不同点获得的值的分布中X(X)

rgraph=网格连接图[离散区域[矩形[],MaxCellMeasure->.002],顶点大小->微小,顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“顶点样式”],边缘样式->ResourceFunction[“WolframPhysicsProjectStyleData”][“SpatialGraph”,“EdgeLineStyle”]];列表线条图[资源函数[“日志差异”][Mean圆形/@转座[值[ResourceFunction[“GraphNeighborhoodVolumes”][rgraph,顶点列表[NeighborhodGraph[rgraph,GraphCenter[rgraph],1]],自动]]]],帧->真,打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”]]

到目前为止,我们已经研究了近似于标准整数维空间的图。但是分形空间呢[23]? 让我们考虑一个西尔皮因斯基图,并查看图中球的增长情况:

模块[{cg,sier=索引图[MeshConnectivityGraph[SierpinskiMesh[6],0],顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“空间图形”,“顶点样式”],边缘样式->资源函数[“WolframPhysicsProjectStyleData”][“空间图形”,“边缘线样式”]]},cg=第一个[GraphCenter[sier]];表[已标记[HighlightGraph[sier,NeighborhodGraph[sier,cg,r],图像大小->140],文本[Style[Row[{Style[“r”,Italic],StringTemplate[“=`”][r]}],指令[GrayLevel[.25],FontSize->.85继承,FontFamily->“Source Serif Pro”]]],{r,5,20,5}]]

估算维度第页(X(X))我们得到的所有点的平均值(对于由6和7个递归细分构成的图):

图形行[表[模块[{sier=索引图[MeshConnectivityGraph[SierpinskiMesh[ss],0]],w},w=资源函数[“日志差异”][平均/@转座[值[ResourceFunction[“GraphNeighborhoodVolumes”][sier,All,自动]]]];ListLinePlot[{w,表[{r,日志[2,3]},{r,长度[w]},PlotStyle->{ResourceFunction[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”],点},帧->真]],{ss,6,7}],图像大小->大]

虚线表示标准Hausdorff维数日志2(3)锡尔皮滑雪三角区为1.58[23]. 这些图片表明第页近似于此值。但为了获得准确的值,我们看到,除了其他一切,我们还需要对不同值的维度进行平均估计第页

因此,最终我们有相当多的限制。首先,我们需要图形的整体大小较大。其次,我们需要以下值的范围第页用于测量第页 与图形大小相比较小。第三,我们需要这些值相对于图中的各个节点要大,并且要足够大,以便我们能够容易地测量第页这将是一种形式第页d日此外,如果图不是齐次的,我们需要对一个区域求平均值X(X)与图中不均匀性的大小相比,这是很大的,但与第页我们将使用第页最后,正如我们刚才看到的,我们可能需要对不同范围的第页估计外形尺寸。

如果我们有类似网格图的东西,所有这些都会很好地完成。但当然,在某些情况下,我们可以立即判断出它行不通完全图,第二个一棵树以下为:

{CompleteGraph[20,序列[顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“空间图形”,“顶点样式”],EdgeStyle->ResourceFunction[“WolframPhysicsProjectStyleData”][“空间图形”,“边缘线条样式”]]],TreePlot[KaryTree[255],中心,序列[顶点样式->资源函数[“WolframPhysicsProjectStyleData”][“空间图形”,“顶点样式”],EdgeStyle->资源函数[“WolframPhysicsProjectStyleData”][“空间图形”、“边缘线样式”]]}

对于一个完整的图,不可能有一个范围第页“小于图形半径”的值,用于估计增长率第页对于一棵树,第页呈指数级增长,而不是第页,所以我们对维度的估计Δ(第页)只会随着第页以下为:

列表线条图[资源函数[“日志差异”][Mean圆形/@转座[值[ResourceFunction[“GraphNeighborhoodVolumes”][KaryTree[2047],全部,自动]]],帧->真,打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”]]

但尽管存在这些问题,我们可以尝试将我们的方法应用于模型生成的对象。在构造时,这些对象对应于有向图或超图。但就我们目前的目的而言,在确定距离时,我们将忽略直接性,有效地考虑特定元素中的所有元素k个-ary关系不管他们的订单彼此保持单位距离。

作为第一个示例,考虑2 我们在上面讨论的规则是“编织”一个简单的网格:

资源函数[“WolframModel”][{{1,2,2},{3,1,4}}->{{2,5,2},{2,3,5},5,5}},{{0,0,0},},200,“最终状态图”]

当我们运行这个规则时,它产生的结构变得更大,因此更容易估计第页。下图显示Δ(第页)(从中心点开始)连续多步计算。我们看到,正如预期的那样,维度估计值似乎收敛到值2:

居中维度估计列表[g_Graph]:=资源函数[“日志差异”][N[First[值[资源函数[“图形邻域卷”][g,图形中心[g]]]]];显示[ListLinePlot[表[CenteredDimensionEstimateList[无方向图[资源函数[“HypergraphToGraph”][资源函数[“WolframModel”][{{1,2,2},{3,1,4}}->{{2,5,2},{2,3,5} ,{4,5,5}},{0,0,0},},t,“最终状态”]]],{t,500,2500,500}],帧->真,打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”]],绘图[2,{r,0,50},PlotStyle->Dotted]]

值得一提的是,如果我们不计算第页(X(X))通过从中心点开始,而不是对所有点进行平均,我们将得到一个不太有用的结果,主要是边缘效应:

HypergraphDimensionEstimateList[hg_]:=资源函数[“LogDifferences”][Mean圆形/@转座[值[ResourceFunction[“HypergraphNeighborhoodVolumes”][hg,All,自动]]]];显示[ListLinePlot[表[HypergraphDimensionEstimateList[资源函数[“WolframModel”][{{1,2,2},{3,1,4}}->{{2,5,2},{2,3,5} ,{4,5,5}},{{0,0,0},},t,“最终状态”]],{t,500,2500,500}],帧->真,打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”]],绘图[2,{r,0,50},PlotStyle->Dotted]]

作为第二个示例,考虑2缓慢生成某种复杂曲面的规则:

资源函数[“WolframModel”][{{1,1,2},{1,3,4}}->{{4,4,5},},2,5}},{{0,0,0},},500,“最终状态图”]

随着时间的推移,我们发现似乎越来越接近于维度2,这反映了这样一个事实:尽管我们可以最好地绘制嵌入3D空间的对象,但其固有曲面是二维的(尽管,正如我们稍后将讨论的那样,它也显示了曲率的影响):

HypergraphDimensionEstimateList[hg_]:=资源函数[“日志差异”][Mean圆形/@转座[值[ResourceFunction[“HypergraphNeighborhoodVolumes”][hg,All,自动]]]];显示[ListLinePlot[表[HypergraphDimensionEstimateList[资源函数[“WolframModel”][{{1,1,2},{1,3,4}}->{{4,4,5},}5,4,2} ,{3,2,5}},{{0,0,0},},t,“最终状态”]],{t,500,2500,500}],帧->真,打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”]],绘图[2,{r,0,50},PlotStyle->Dotted]]

上述连续维度估计值在规则演变过程中以500步间隔。作为另一个示例,考虑212 442规则,其中几何体通过细分过程快速出现:

资源函数[“WolframModel”][{{1,2,3},{4,5,6},{1,4}}->{{2,7,8},{3,9,10}, {5, 11, 12}, {6, 13, 14}, {13, 8}, {7, 10}, {9, 12}, {11, 14}}, {{0, 0}, {0, 0}, {0, 0}, {0, 0, 0}, {0, 0, 0}},9,“最终状态图”]

这些是该规则演变过程中所有前10个步骤的维度估计:

HypergraphDimensionEstimateList[hg_]:=资源函数[“日志差异”][Mean圆形/@转座[值[ResourceFunction[“HypergraphNeighborhoodVolumes”][hg,All,自动]]]];显示[ListLinePlot[表[HypergraphDimensionEstimateList[资源函数[“WolframModel”][{{1,2,3},{4,5,6},[1,4}}->{2,7,8}, {3, 9, 10}, {5, 11, 12}, {6, 13, 14}, {13, 8}, {7, 10}, {9, 12}, {11, 14}}, {{0, 0}, {0, 0}, {0, 0}, {0, 0, 0},{0,0,0}},t,“最终状态”]],{t,1,10}],帧->真,打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”]],绘图[2,{r,0,100},PlotStyle->Dotted]]

我们还可以通过查看生成明显嵌套结构的规则来验证我们的方法。例如22 42产生以下结果的规则:

资源函数[“WolframModel”][{{1,2},{3,2}}->{2,4},},4} },{{0,0},}

前15个步骤中的每个步骤的结果都与维度日志有很好的对应关系2(3)1.58:

HypergraphDimensionEstimateList[hg_]:=资源函数[“日志差异”][Mean圆形/@转座[值[ResourceFunction[“HypergraphNeighborhoodVolumes”][hg,All,自动]]]];显示[ListLinePlot[表[HypergraphDimensionEstimateList[资源函数[“WolframModel”][{{1,2},{3,2}}->{2,4},},4} },{{0,0},},15} ],帧->真,绘图范围->{0,自动},打印样式->资源函数[“WolframPhysicsProjectStyleData”][“GenericLinePlot”,“PlotStyles”]],Plot[Log[2,3],{r,0,150},PlotStyle->虚线]]