解决方案不是已经写在上面了吗……就这三行代码。顺便提供一个更快但是更需要对Mathematica有理解的解法:
ClearAll[f]哇,真的可以,但是我不太理解,unitstep 和 map 的含义啊,按下F1,查自带帮助去。自带帮助已经说的很详细了。好吧,其实我的那个mathematica不知道为什么f1 从来搜索不到函数。八成是安装有问题。一个变通方法是,使用在线版的Mathematica帮助。你在网上搜一下Mathematica Documentation就可以找到了。
SetAttributes[f, Listable]
f[\[Tau]_, m_] := UnitStep[m - \[Tau]]
f[5, mat]