mathematica到底有多厉害

1、Mathematica到底有多厉害？我拿来玩比较多正经计算少，已经完全不是编程、计算工具类。首先，绘图。以前用数学函数plot坐标轴绘制的皮卡丘。那么我们就可以依据这个特征来制作动画。有屏幕的地方就有东方Project的Badapple。视频点击http:/www.acfun.tv/v/ac1709546然后我们来玩下乐器演奏功能。mathematica里面内置了估计又100种左右的音色，具体请自行查找关于SoundNote的信息。另外还不止这些，它除了可以输出超低音C-1到高音B9，还可以输出半音那种东西，像上面写的C#,Cb这些，所以只要稍微有点了解音乐乐谱和mathematica的话，就

2、可以拿它来演出音乐了为了方便后面的演奏，我们需要写个简单的函数先，可以输出从指定的一个音，比如说C4，往上数或者往下数n个音的那个音符，比如C4+7=C5，C4+1=D4，C4-1=B3这种：Letter2Numletter_:=SwitchToUpperCaseletter,"C",1,"D",2,"E",3,"F",4,"G",5,"A",6,"B",7;Number2Letternum_:=Switchnum,1,"C",2,&q

3、uot;D",3,"E",4,"F",5,"G",6,"A",7,"B"GetTonebase_,idx_:=Moduletone=Charactersbase1,step=Charactersbase2,Number2LetterModLetter2Numtone-1+Modidx,7,7+1<>ToStringToExpressionstep+Flooridx/7实践测试一闪一闪亮晶晶GetMusicSingleTonei_:=Module,Ifi=0,

4、Play0,t,0,1,SoundNoteGetTone"C4",i,1;（*一闪一闪亮晶晶*）xingxing=FlattenRiffleIntegerDigits1155665,IntegerDigits4433221,IntegerDigits5544332,IntegerDigits5544332,IntegerDigits11556654433221,0;SoundTableGetMusicSingleTone#i,i,1,Length#,20&xingxing第一人称视角模拟游戏Mathematica3D视角这是一个叫Vespa的博主做的一个游戏

5、。他是浙大研究生，印象中是图像处理跟微波光子学专业的，恩，也是跟我一样拿Mathematica当玩具玩的，不过他玩得溜。Mma设置3D视角有很多参数，他只用两个：ViewVector和ViewAngle。前者可以指定两个点，表示视角是站在A点往B点方向看过去。后者是模拟相机的半角，可以直接理解成视角大小，效果上等价于缩放；因为我们绘图的窗口是恒定大小的，现在看的位置和方向也指定好了，那么这个角度越小，说明显示在绘图窗口的东西只是在3D世界中很小的一点，但是这一点却要放满整个窗口（我们的眼睛），换言之我们可以看到更多细节，也就是放大效果；【其实这个跟我们想模拟的没什么关联，毕竟跑酷运动员眼睛是不

6、可能任意改变视野角度的是吧，但是Mma比较烦一点就是，你不设置这个，它就自己“自适应”地变化，无奈之下只好手动把这个参数定死】。代码：戏2D版本3D版本PoorperformancefromGraphics3D下载：百度盘360云盘迅雷快传推箱子游戏下载链接：百度盘360云盘Poke24nums_:=ModuletoExprs,expand,next,exprs,toExprsx_,y_:="（"<>#<>"）"&/Flattenx<>#<&

7、amp;gt;y,y<>#<>x&/"+","-","*","/"expandset_:=FlattenFunctionsub,AppendComplementset,sub,#&/toExprssub/Subsetsset,2,1;nextsets_:=Flattenexpand/sets,1;exprs=FlattenNestnext,ToString/nums,Lengthnums-1;SelectDeleteDuplic

8、atesexprs,QuietToExpression#=24&In2:=Poke243,4,5,7Out2:=(3*4)+(5+7),(5+7)+(3*4),(3*4)+(7+5),(7+5)+(3*4),(3*4)*(7-5),(7-5)*(3*4),(7+(5+(3*4),(5+(3*4)+7),(7+(3*4)+5),(3*4)+5)+7),(5+(7+(3*4),(7+(3*4)+5),(5+(3*4)+7),(3*4)+7)+5),(4*3)+(5+7),(5+7)+(4*3),(4*3)+(7+5),(7+5)+(4*3),(4*3)*(7-5),(7-5)*(4

9、*3),(7+(5+(4*3),(5+(4*3)+7),(7+(4*3)+5),(4*3)+5)+7),(5+(7+(4*3),(7+(4*3)+5),(5+(4*3)+7),(4*3)+7)+5),(3+5)*(7-4),(7-4)*(3+5),(5+3)*(7-4),(7-4)*(5+3),(4*5)-(3-7),(5*4)-(3-7),(4-(5*(3-7),(4-(3-7)*5),(7-3)+(4*5),(4*5)+(7-3),(7-3)+(5*4),(5*4)+(7-3),(4+(5*(7-3),(5*(7-3)+4),(4+(7-3)*5),(7-3)*5)+4),(3*(7-(4

10、-5),(7-(4-5)*3),(3*(7+(5-4),(7+(5-4)*3),(3*(5-4)+7),(5-4)+7)*3),(7-(3-(4*5),(7+(4*5)-3),(4*5)-3)+7),(7+(4*5)-3),(4*5)+7)-3),(7-(3-(5*4),(7+(5*4)-3),(5*4)-3)+7),(7+(5*4)-3),(5*4)+7)-3),(3*(5-(4-7),(5-(4-7)*3),(3*(5+(7-4),(5+(7-4)*3),(3*(7-4)+5),(7-4)+5)*3),(3*(5+7)-4),(5+7)-4)*3),(3*(7+5)-4),(7+5)-4)

11、*3),(4*(3*(7-5),(3*(7-5)*4),(4*(7-5)*3),(7-5)*3)*4),(3*(4*(7-5),(4*(7-5)*3),(3*(7-5)*4),(7-5)*4)*3)甚至更复杂的创建符号数学所支持的计算机动画游戏模拟城市3000(SimCity3000)就有利用Mathematica实时生成数学上正确的道路网。图片去水印调用Mathematica的Inpaint函数，Mma语法支持直接把图片当做参数直接传进去。抓取相册图片调用变量XMLElement，结构化源文件。也是Vespa写的API。DownLoadDouBanCurPage_,URL_:=Blockst

12、,PicAddress,rawpic,NextPage,(*PrintURL;*)(*读取源文件*)st=ImportURL,"XMLObject"(*获取图片URL*)PicAddress=Casesst,XMLElement"li",_,"data-id"->_,_,_,XMLElement"div","class"->"cover",_,XMLElement"a","shape"->&qu

13、ot;rect","href"->_,_,XMLElement"img","src"->src_,_,_,_:>src,0,Infinity;（*转成大图URL*）rawpic=StringReplace#,"thumb"->"raw"&/PicAddress;Printrawpic;（*输出*）Export"e:/"<>StringSplit#,"/&qu

14、ot;-1,Import#&/rawpic;NextPage=Casesst,XMLElement"a",_,"href"->src_,_,ToStringCurPage+1:>src,0,Infinity;IfLengthNextPage!=0,DownLoadDouBanCurPage+1,NextPage1,Return统计字母频率，加密、破解字母频率密码调用DictionaryLookup函数，它可以返回各门语言的单词，还可以根据正则表达式之类的输入来搜索单词，想要找出字母组成的单词代码如下。获取所有单

15、词的信息，代码和结果把上面的结果以列表的形式显示出来，对每个字母出现的频率排序。寻找最相似的汉字这个是顾森(Matrix67)的博客看到的，嗯，还是要吐槽下这数学达人是北京大学中文系应用语言学调用函数Rasterize，以图片的格式输出运算结果。比如，下面这个句子可以打印由(x+1)An的展开式的“倒影”：可以利用这个函数很方便地分析汉字在图象上的性质。函数Binarize可以把图象转换为单色单通道，ImageData则可以把图象转换成数组的形式，以便我们定量分析。可以把一个汉字转换成12*12的01矩阵：利用这个特征，可以做一张“汉字视力表”。制作蒙太奇马赛克拼图imagePool=MapW

16、ithi=Import#,i,MeanFlattenNi1,1,1&,FileNames"Pool/*.jpg"closeMatchc_:=RandomChoiceTakeSortByimagePool,Normc-#2&,201;GridReverseMapcloseMatch,Import"MasterImage.tif"1,1,2,Spacings->0,0Pool/*.jpg是图库;MasterImage.tif是目标图片。构建一个显示所有气象站的地球仪显示出世界各地气象站位置的地球仪。map=Joi

17、n(ListFirstCountryData#,"Polygon")&/CountryData);coordsToXYZlist_:=TransposeCos#1*Cos#2,Cos#1*Sin#2,Sin#1&ReverseTransposelist*Pi/180.;stations=WeatherData;coords=coordsToXYZWeatherData#,"Longitude",WeatherData#,"Latitude"&/stations;globe=FirstPa

18、rametricPlot3D.99*SinuSinv,CosuSinv,Cosv,u,-Pi,Pi,v,-Pi,Pi,MaxRecursion->4,Axes->None,PlotStyle->Opacity.5;Graphics3Dglobe,Black,Line/coordsToXYZ/map,Red,Pointcoords,Boxed->False,ImageSize->Medium,Lighting->"Neutral"分析图像中的分段细胞对分段图像采用blob分析技术，标记显微镜图像中完整且不重叠的细胞位置和大小。分析道路网络与图像处理功能结合，建立并分析道路网络.突出显示预定区域内的街道。img=WolframAlpha"ChampaignIL","Map:CityData",1,"Image"g=MorphologicalGraphBinarizeColorNegateimg,EdgeStyle->LightGray;Rowimg,HighlightGraphg,NeighborhoodGraphg,4