1、先枚举2n拆分成两个素数和的方法：pr[n_]:=DeleteCases[If[PrimeQ[#]&&PrimeQ[2*n-#],{#,2*n-#},0]&/@Range[3,n,2],0]那么，容易验证160有8种分拆方法：pr[80]
2、可视化，就是把这些点画出来：ListPlot[pr[80],AspectRatio->Automatic]//Image
3、把6到160之间所有的偶数，全部分拆：points=pr[#]&/@Range[6,160,2]
4、把这些点画出来：ListPlot[points,AspectRatio->Automatic]
5、600到1000之间的偶数分拆：ListPlot[pr[#]&/@Range[300,500,2],PlotRange->{300,1000},AspectRatio->Automatic]
6、2000到2200之间的偶数分拆：ListPlot[pr[#]&/@Range[1000,1100,2],PlotRange->{1000,2200}]
7、考察分拆的方法数目：Show[ListPlot[{#,Length[pr[#]]}&/@Range[6,100,2],PlotStyle->Orange],ListLinePlot[{#,Length[pr[#]]}&/@Range[6,100,2]]]
8、把直角坐标转化为极坐标：Length[pr[#]]*{Cos[# Degree],Sin[# Degree]}
9、Length[pr[#]]*{Cos[2# Degree],Sin[2# Degree]}：
10、把6到7200之间的偶数分拆，方法数转化为极坐标形式的可视化：Length[pr[#]]*{Cos[2# Degree],Sin[2# Degree]}&/@Range[6,3600,2]
