Plot Mathematica-绘制直接从solve创建的函数的输出

我有一些相当长的矩阵代数，我正试图画出结果。轴上似乎什么也没有出现，我也不太清楚问题出在哪里。我使用以下提示成功地从solve的输出创建了一个函数： 但它就是不会策划

以下（简要）是代码：

eqn=m.{1，r}={t，0}

sols1=Solve[eqn，{t，r}]

m是一个复矩阵

以下是输出：

{{t->-（-1.cos[9.62458s]^2-（1.+0.I）sin[9.62458s]^2）/(
cos[9.62458 s]-（0.+2.4087 I）sin[9.62458 s]），
r->（（0.+2.1913 I）sin[9.62458 s]）/(
cos[9.62458 s]-（0.+2.4087 I）sin[9.62458 s]）}

到目前为止还不错（除了Mathematica似乎对整个cos^2+sin^2=1的事情有点麻烦）

然后我试着画出t的实部作为s的函数：

Plot[Re[t/.sols1]，{s，0，0.4}]

而我只得到了空斧子

我尝试将输出分配给函数并以这种方式绘制

f[s]=t/。sols1[[1,1]]

Plot[Re[f[s]]，{s，0，0.4}]

我仍然得到一个空轴。我在Matlab中转录了这个函数，它的绘图很好，所以我知道解决方案是合理的。我必须为几个矩阵m求解这个问题，这些矩阵越来越有毛，所以转录到Matlab是不理想的。我想在Mathematica中正确地绘制

---

有什么想法吗？

尝试使用mathematica语法。即，

Sin

代替

Sin

；同样适用于

cos

：

In[1]:= sols1={
{t->-((-1. cos[9.62458 s]^2-(1.+0. I) sin[9.62458 s]^2)/(cos[9.62458 s]-(0.+2.4087 I) sin[9.62458 s]))
,r->((0.+2.1913 I) sin[9.62458 s])/(cos[9.62458 s]-(0.+2.4087 I) sin[9.62458 s])}
}/.{cos->Cos,sin->Sin}//FullSimplify//Chop
Out[1]= {{t->1./(Cos[9.62458 s]-(0. +2.4087 I) Sin[9.62458 s]),r->1/(-1.09921-(0. +0.45635 I) Cot[9.62458 s])}}

然后，例如

GraphicsColumn[Plot[t /. sols1 // #, {s, 0, .4}, PlotLabel -> #[t], Frame -> True] & /@ {Re, Im, Abs[#]^2 &}]

---

应该可以很好地工作。

您需要大写

Sin

和

Cos

，然后它就会工作。@b.gatessucks谢谢！伙计，我觉得自己像个傻瓜