level 2
155要长高!
楼主
代码如下:
h = 6.62607015*10^-34 ;(*普朗克常数*)
c = 299792458;(*光速*)
k = 1.380649*10^(-23);(*玻尔兹曼常数*)
e = 1.6*10^-19;
b[x_] := (1 - x) (11.4 - 19.4 x);
EG[x_] := x 0.64 e + (1 - x) 3.43 e - b[x] x (1 - x) e;
Subscript[EG, 1] = 3.43 e;
Subscript[EG, 2] = EG[0.5];
\[CapitalDelta]EG = (Subscript[EG, 1] - Subscript[EG, 2]);
\[Phi][\[Epsilon]a_, \[Epsilon]b_, Ts_, \[Mu]_] := (2 \[Pi])/(h^3 c^2)
Integrate[\[Epsilon]^2/(
E^((\[Epsilon] - \[Mu])/(k Ts)) -
1), {\[Epsilon], \[Epsilon]b, \[Epsilon]a}] e;
\[Phi]2 = \[Phi][\[CapitalDelta]EG, Subscript[EG, 2], 300, \[Mu]1]
或者可以利用这个求个数值方程也可以
不必要表达式
2022年06月13日 02点06分
1
h = 6.62607015*10^-34 ;(*普朗克常数*)
c = 299792458;(*光速*)
k = 1.380649*10^(-23);(*玻尔兹曼常数*)
e = 1.6*10^-19;
b[x_] := (1 - x) (11.4 - 19.4 x);
EG[x_] := x 0.64 e + (1 - x) 3.43 e - b[x] x (1 - x) e;
Subscript[EG, 1] = 3.43 e;
Subscript[EG, 2] = EG[0.5];
\[CapitalDelta]EG = (Subscript[EG, 1] - Subscript[EG, 2]);
\[Phi][\[Epsilon]a_, \[Epsilon]b_, Ts_, \[Mu]_] := (2 \[Pi])/(h^3 c^2)
Integrate[\[Epsilon]^2/(
E^((\[Epsilon] - \[Mu])/(k Ts)) -
1), {\[Epsilon], \[Epsilon]b, \[Epsilon]a}] e;
\[Phi]2 = \[Phi][\[CapitalDelta]EG, Subscript[EG, 2], 300, \[Mu]1]
或者可以利用这个求个数值方程也可以
