怎么有效压缩表达式

c=KnotData["Trefoil","SpaceCurve"];n=FrenetSerretSystem[c[u],u][[-1,2;;]];ParametricPlot3D[Evaluate[5c[u]+RotationMatrix[7u].{2Cos[v],Sin[v]}.n],{u,0,2Pi},{v,0,2Pi},Mesh->None,PlotStyle->MaterialShading["Copper"],Lighting->"ThreePoint",PlotPoints->50,ViewPoint->{1,0,2}]
以这段代码为例，目前有270个字符。
请问如何减小整个表达式的长度，还可以正常被执行，不改变计算结果。

大佬救命

不感兴趣

开通SVIP免广告

代码先偷走了

我感觉我自带话题终结者属性

目前我能想到的有两个，
尽可能使用前缀表达式，可以少一个字符
将重复使用的函数重命名成单字符
another example：
x=Cos;y=Sin;c=KnotData[{3,1},"SpaceCurve"]@u;n=FrenetSerretSystem[c,u][[-1,2;;]];ParametricPlot3D[9c+RotationMatrix[5u].{x@v,y@v}.n(3+x[3v]+x[6v]),{u,0,2Pi},{v,0,2Pi},PlotStyle->MaterialShading@"Glazed",Lighting->"ThreePoint",Mesh->None,PlotPoints->50,ViewPoint->Top]
不知哪位大佬还能压缩这个表达式的长度

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

3回复贴，共1页

<<返回mathematica吧

分享到:

日	一	二	三	四	五	六