对内存和CPU要求比较高的一条Mathematica指令

标签：mathematica   内存   64位   

下面这个Mathematica命令,似乎普通的笔记本电脑都会进入假死机状态, 也许16G以上内存的64位机会好些:

h=ParametricPlot3D[{30Sin[t]+20Sin[(3t)/2]+Cos[300t](1-(225(Cos[t]+Cos[(3t)/2])^2)/(451+
450Cos[(5t)/2]-15Sqrt[451+450Cos[(5t)/2]]Sin[t]+
15Sqrt[451+450Cos[(5t)/2]]Sin[(3t)/2]))+(15(Cos[t]+
Cos[(3t)/2])Sin[300t])/(451+450Cos[(5t)/2]-15Sqrt[451+450Cos[(5t)/2]]Sin[t]+
15Sqrt[451+450Cos[(5t)/2]]Sin[(3t)/2]),30Cos[t]-20Cos[(3t)/
2]+((Sqrt[451+450Cos[(5t)/2]]-15Sin[t]+15Sin[(3t)/2])(15Cos[t]Cos[300t]+15Cos[(3t)/2]Cos[300t]-Sin[300t]))/(-451-
450Cos[(5t)/2]+15Sqrt[451+450Cos[(5t)/2]]Sin[t]-15Sqrt[451+450Cos[(5t)/2]]Sin[(3t)/2]),
2t-(15(Cos[t]Cos[300t]+Cos[(3t)/2]Cos[300t]+2Cos[(5t)/4](30Cos[(5t)/4]+Sqrt[451+450Cos[(5t)/2]]Sin[t/4])Sin[
300t]))/(451+450Cos[(5t)/2]-15Sqrt[451+450Cos[(5t)/2]]Sin[t]+15Sqrt[451+450Cos[(5t)/2]]Sin[(3t)/2]),{t,0,4Pi},Axes->False,Boxed->False,
PlotStyle->Directive[Orange,Opacity[1],Specularity[White,20],
CapForm[None],JoinForm["Miter"],Thickness->0.01],ImageSize->1500,PlotPoints->1500,
Method->{"TubePoints"->160}]/.Line[pts_,rest___]:>Tube[pts,0.35,rest];
Export["testSoleNoidz2.png",h]

对内存和CPU要求比较高的一条Mathematica指令

标签：mathematica   内存   64位   

原文地址：http://blog.csdn.net/stereohomology/article/details/45935297