1. 该代码可在Mathematica 13.1.0.0(TraditionalForm)下正确运行。
2. 对代码运行时间的描述基于MacBook Pro (MD101CH/A)。
去掉上述函数中无意义的部分后,在整个单位球内进行积分(运行该代码大约需要24秒):
将上述结果对 x 求一阶导:
按照上述积分结果,将上述函数进行归一化:
整个证明过程结束。
注意:成功运行这些代码,需要首先对下面的 "MyDirection = **" 进行修改。将其改为类似于 MyDirection = "/Users/yourdirection/" 的形式后,按 Shift+Enter 运行。
MyDirection=**;
Protect[MyDirection];
Off[General::wrsym];
图一
Export[MyDirection<>"figure1.eps",aa,Background->None];
图二
图三
注意:这些代码运行时间大约为5小时。
武汉墨光是光机电领域优质服务商,提供 SYNOPSYS™光学设计软件、ASAP高级光学系统分析软件、APEX光机系统分析与设计软件、JCMsuite 纳米光学仿真分析软件、PCGrate 光栅设计软件、RP Fiber Power 光纤激光器及光纤器件设计软件、Mathematica 科学计算软件 等产品的推广、销售、咨询、培训、技术支持、软件二次开发及解决方案等服务,辅助高校教学科研、研究所进行高端技术研发以及光机电厂商利用光学软件研发各领域的光学器件与光机系统,在最短时间内完成量产并获利。