【〇疼】伪三维参数绘图
mathematica吧
全部回复
仅看楼主
吧务
level 15
xzcyr 楼主
这个〇疼念头是在回复这帖(https://tieba.baidu.com/p/5794390993)的过程中产生的:
如果出于某种原因(比如…………好吧我一个例子也想不出来)我们需要用一张二维线图来装成三维线图的话,该怎么办?
于是就有了下面的玩意儿……:
vector[x] = {1, 0}; angle = 35 °; vector[y] = {Cos[angle], Sin[angle]};
vector[z] = {0, 1};
to2dpoint = Function[point,
(vector /@ {x, y, z}) point // Total];
coord = Arrow[{{0, 0}, 2 #}] & /@ (vector /@ {x, y, z}) // Graphics;
fakeParametricPlot3D[argument__] :=
Graphics[Cases[ParametricPlot3D[argument],
Line[a_] :> Line[to2dpoint /@ a], ∞]]~Show~coord
fakeParametricPlot3D[{Cos[x], 1/2 Sin[x], 0}, {x, 0, 2 Pi}]
虽然没什么用,但写都写出来了那就在吧里贴一份算了……
2018年08月04日 14点08分 1
1