Wolfram mathematica 无法解决隐式微分

我试图用x=1的隐式微分问题来求解斜率，但NSolve无法解决它。我怎样才能避开这个问题

eqn[x_, y_] := x*Sin[y] - y*Sin[x] == 2 (*note: bound is -5<=x<=5,-5<=y<=5*)

yPrime = Solve[D[eqn[x, y[x]], x], y'[x]] /. {y[x] -> y, 
y'[x] -> y'} // Simplify
{{Derivative[1][y] -> (y Cos[x] - Sin[y])/(x Cos[y] - Sin[x])}}

NSolve[eqn[x, y] /. x -> 1, y] (*this doesn't work*)

---

eqn[x\u，y\u]：=x*Sin[y]-y*Sin[x]==2（*注意：绑定为-5
NSolve
并不是作业的正确工具

从

如果你的方程只涉及线性函数或多项式，那么
您可以使用
NSolve
获得所有数据的数值近似值
但是，当你的方程涉及到更复杂的问题时
功能，通常没有系统的程序来查找所有
在这种情况下，您可以使用
FindRoot
来
搜索解决方案。你必须给
FindRoot
一个开始它的位置
搜索

由于您的函数不是真正的多项式函数，因此以下操作有效：

FindRoot[eqn/.x->1,{y,-2}]
{y -> -2.7881400978783035` }

您可以将其插入
yprime

选择起点并不明显，但是快速绘制轮廓图始终有效：

ContourPlot[x*Sin[y] - y*Sin[x], {x, -5, 5}, {y, -5, 5}, Contours -> {2}]

它表明，你的方程并非对所有
x
都是唯一的，为什么你定义
yPrime
然后不使用它？隐式微分在哪里？不清楚你在问什么。