Question

在mathematica中,如何绘制直线x=1,另外还想问,如何在同一个坐标系中标上两个函数的名称

Answer 1

ContourPlot[x==1,{x,-10,10},{y,-10,10}]

这个直线画得不好

{Text["Sin[x]",{4.76,-1},{0,1}],

Text["x",{3.2,3.5},{0,-1}]}]