
1. 该代码可在Mathematica 13.1.0.0(TraditionalForm)下正确运行。
2. 对代码运行时间的描述基于MacBook Pro (MD101CH/A)。
3. 私聊或评论区留言获取源代码。
自旋是自然界中的常见现象,但它背后的详细统计学原理却很少被讨论。本文旨在启发人们思考这个问题。
给定一定数量的粒子(假设它们在球形空间均匀分布),使得它们具有相同的速度大小(假设为 c)并且在三维空间中随机运动。这样,在一定时间内它们的运动分量会产生围绕它们整体质心的旋转效应。










去掉上述函数中无意义的部分后,在整个单位球内进行积分(运行该代码大约需要24秒):

将上述结果对 x 求一阶导:



按照上述积分结果,将上述函数进行归一化:





整个证明过程结束。
注意:成功运行这些代码,需要首先对下面的 "MyDirection = **" 进行修改。将其改为类似于 MyDirection = "/Users/yourdirection/" 的形式后,按 Shift+Enter 运行。
MyDirection=**;
Protect[MyDirection];
Off[General::wrsym];





Export[MyDirection<>"figure1.eps",aa,Background->None];
图二


图三
注意:这些代码运行时间大约为5小时。





购买软件/免费试用【13.1.0中英文 Wolfram 软件】
免责声明:本文系网络转载或改编,未找到原创作者,版权归原作者所有。如涉及版权,请联系删武汉格发信息技术有限公司,格发许可优化管理系统可以帮你评估贵公司软件许可的真实需求,再低成本合规性管理软件许可,帮助贵司提高软件投资回报率,为软件采购、使用提供科学决策依据。支持的软件有: CAD,CAE,PDM,PLM,Catia,Ugnx, AutoCAD, Pro/E, Solidworks ,Hyperworks, Protel,CAXA,OpenWorks LandMark,MATLAB,Enovia,Winchill,TeamCenter,MathCAD,Ansys, Abaqus,ls-dyna, Fluent, MSC,Bentley,License,UG,ug,catia,Dassault Systèmes,AutoDesk,Altair,autocad,PTC,SolidWorks,Ansys,Siemens PLM Software,Paradigm,Mathworks,Borland,AVEVA,ESRI,hP,Solibri,Progman,Leica,Cadence,IBM,SIMULIA,Citrix,Sybase,Schlumberger,MSC Products...