式子;If[a1>0,Print["正"];,If[a<0,Print["负"];,Print[0];];];最好把代码粘贴上来
string.hstrstr函数函数名:strstr功能:在串中查找指定字符串的第一次出现用法:char*strstr(char*str1,char*str2);说明:返回指向第一次出现str2位置的指针,如果没找到则返回NULL。调用函数,判断返回...
mathematica可以计算复数域的值,所以你这个不等式并不是在整个定义域上都是真的。解不等式可以试试Reduce函数Reduce[x^2>-1]如果你要断言它在整个实数域上为真,那么可以这么写:SameQ[Reduce[x^2>-1],x\[E...
对于标题的问题,我只能说这类问题没通用方法,常用的是Reduce,Simplify,Minimize,Maximize。对于你的具体的问题,Simplify似乎可以一战:Simplify[(8cw-5c^2+3a^2-b^2-2ab-6bc+2a...
对于收敛的级数Sum[1/k^2,{k,1,Infinity}]输出是pi^2/6对于发散的级数Sum[1/k,{k,1,Infinity}]输出应该是无穷大,但是mathematica在算这个发散级数的时候,还会有一串警告信息输出。主要的思路就是,...
MatrixRank[{{1,2,3},{4,5,6},{7,8,9}}]秩和向量个数不一样就是相关。
0返回0,具体参考Sign函数的文档。举例:list={-1,2,1.5,Sqrt[2],0,-3/2};Sign@#/.{1->"正",-1->"负",0->"零"}&/@list可以得到结果为{"负","正","正","正","
Assuming[bl1>bl2,TrueQ[Refine[bl1-bl2>0]]]:True
在一个边长为1的正八边形中,每条边的所对应的“圆心角”为2π/8=π/4,因此“圆周角”α就等于π/8。由下图我们可以轻易看出,Cot[π/8]=√2+1。哈哈!我大笑,原来Mathematica也有做不到的...
y[x_]:=x^2;(*这是解;*)y''[x]+y'[x]+y[x]===2+2x+x^2(*这是微分方程;*)你只需将上面的解和方程写成真实形式,就可以了.