网上看到有人贴了一段用mathematica绘制函数图像的语句,不知道具体是怎样的?
谁有这个软件? 帮忙画一些,把图贴出来? 代码如下
ParametricPlot3D[{-(1/12) E^(-4 ((-(18/E)+18 y)^2+81 (-1+1/4 Sqrt[1+16 z^2])^2)^2)+3 E^(-13/10 Abs[-1+1/4 Sqrt[1+16 z^2]]^2) y Log[ y],z,y},{y,0,1},{z,-2,2},BoxRatios->{1,3.4,1.7},Boxed->False,Axes->None,Mesh->None,ColorFunction->RGBColor[230/256,200/256,190/256],PlotStyle->Directive[RGBColor[240/256,200/256,190/256],Opacity[1.0],Specularity[White,10]],PerformanceGoal->"Quality",PlotPoints->50,ViewPoint->{-0.971695,-1.64591,0.571664},PlotTheme->{"Classic",Lighting->{{"Directional", Yellow, {5,5,5}}}},ImageSize->Large]
Plot3D[15 x*Log10[x] y (y - 1) +
Exp[-((25 x - 25/E)^2 + (25 y - 25/2)^2)^3]/25, {x, 0, 1}, {y, 0,
1}, Mesh -> False, Boxed -> False, Axes -> False,
ViewPoint -> {1, 1, 1}, ViewVertical -> {1, 0, 0},
BoxRatios -> {1, 1, 5/7}]