分享一些wolfram壁纸，Logo以及复刻Logo的程序。

wolfram壁纸

下面分享几张收藏的wolfram壁纸：
wolfram alpha壁纸
wolfram language壁纸
wolfram 壁纸

wolfram小图标

分享一些wolfram的小图标，可以用来制作wolfram手机主题。
之前对利用wolfram图标制作手机主题热衷了一段时间，但是制作的手机主题需要通过魔秀桌面来完成，个人能力还不足以开发一个真正的wolfram主题。其次，网上找到的图标质量参差不齐，wolfram的图标太少，用来替代app图标不直观。因此，后来就没有再进行完善了。。。。。。＞﹏＜\
a.png
a1.png
a2.png
a3.png
could.png
e.png
engine.png
enterprise mma 1.png
enterprise mma.jpg
mma .png
notebookedition.png
player.png
q.png
script.jpg
systemmodeler.png
wolf 1.png
wolf 2.png
wolfram 00.png
wolfram 3D.png
wolfram an.png
wolfram appliance.png
wolfram mma12.png
wolfram one.png
wolfram wolf.png
制作的wolfram手机主题太丑了，ヽ（≧□≦）ノ连我自己也看不下去。。。。。。
主题1
主题2
主题3
把图标的背景去除用的是mathematica的RemoveBackground命令，注意需要导出png格式。

mathematica Logo复刻

对于mma的logo，还可以进行复刻：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Clear["`*"];
   w[col_, r_] := 
     Module[{p = 
        Riffle[CirclePoints[{0.7*r, 0}, 10], 
         CirclePoints[{r, (2*Pi)/20}, 10]]},
      {col, FilledCurve@Line[p~Join~{p[[1]]}]}];
   n[col_, r_, a_] := 
    Module[{p = 
       Riffle[CirclePoints[{0.2*a*r, Pi/10}, 5], 
        CirclePoints[{0.8*r, (3 Pi)/10}, 5]]}, 
     p = p~Join~{p[[1]], p[[2]]}; 
     {col, FilledCurve@
       Table[BezierCurve[p[[2 i ;; 2 i + 2]]], {i, 1, 5}]}]
   Manipulate[
    Graphics[{w[Red, 1.05*r], 
       n @@@ ({{White, Red, White, Red}, {1*r, 0.73*r, 0.5*r, 
            0.3*r}, {1*r, 1.4*r, 1.7*r, 1.8*r}} // Transpose)} // 
      Flatten], {r, 0.8, 1.5}]

效果如下：
mmalogo复刻
内部图形的弯曲程度可以进行调节。

本文采用CC-BY-SA-3.0协议，转载请注明出处
作者: 得意喵~