level 1
温柔以待io
楼主
t[s_] := 2/(137*Pi)*(Log[E, s/(5.11*10^(-4))] - 1)
d[s_] := (Pi^2/3 - 1/2)/(137*Pi) + 3*t/4 + (9/32 - Pi^2/12)*t^2
A = 4*Pi/(3*137^2)
Plot[Integrate[
A*(t[s]*x^(t[s] - 1)*(1 + d[s]) - (t[s] + t[s]^2/4) +
x*(t[s]/2 - 3*t[s]^2/8))/(s*(1 - x)), {x, 0, 0.2258}], {s, 3.05,
3.12}]
2022年01月25日 04点01分
1
d[s_] := (Pi^2/3 - 1/2)/(137*Pi) + 3*t/4 + (9/32 - Pi^2/12)*t^2
A = 4*Pi/(3*137^2)
Plot[Integrate[
A*(t[s]*x^(t[s] - 1)*(1 + d[s]) - (t[s] + t[s]^2/4) +
x*(t[s]/2 - 3*t[s]^2/8))/(s*(1 - x)), {x, 0, 0.2258}], {s, 3.05,
3.12}]
