level 6
想用mathematica进行积分公式推导,待积分的公式里除自变量外,有些字符代表常数,但是未赋值所以显示蓝色,请问怎样在mathematica中将他们定义为常数呢?
找到了以下几种方法:
一:
n = n;
n // Protect;
m = m;
m // Protect;
l = l;
l // Protect;
这种一直运行不出来
二:
SetAttribute[n, Constant];
SetAttribute[m, Constant];
SetAttribute[l, Constant];
这个也积了一段时间无结果。
在此请教各位大佬了,谢谢!
2021年03月02日 08点03分
1
level 6
代码如下:
SetAttribute[\[Alpha], Constant];
SetAttribute[\[Theta], Constant];
SetAttribute[r, Constant];
Q = \[Integral]-1/\[Pi]*
E^(-2 ((\[Alpha]Cos[\[Theta]] - \[Beta]Sin[\[Theta]]) Cosh[
r] + (SuperStar[\[Alpha]] Cos[\[Theta]] -
SuperStar[\[Beta]] Sin[\[Theta]]) Sinh[r])^2)*2/\[Pi]*
E^(-2 (\[Alpha]Sin[\[Theta]] + \[Beta]Cos[\[Theta]])^2)*(-((\
\[Alpha]Cos[\[Theta]] - \[Beta]Sin[\[Theta]]) Cosh[
r] + (SuperStar[\[Alpha]] Cos[\[Theta]] -
SuperStar[\[Beta]] Sin[\[Theta]]) Sinh[r])^4 +
1) \[DifferentialD]\[Beta]
2021年03月04日 03点03分
3
直接从mathematica中复制过来的,谢谢各位大佬了。
2021年03月04日 03点03分
吧务
level 10
1. SetAttributes打错了,而且没必要Constant
2. 变量之间乘法要加空格
3. 共轭用\[Conjugate]而不是上标*
2021年03月05日 09点03分
5
第3条参4楼的楼中楼。这帖我简直有点想加精了。
2021年03月06日 04点03分
level 6
百度时常就要验证账号,但是手机号又换了总登录不上去,这两次都回复巨慢。谢谢各位了。
2021年03月05日 13点03分
6