Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- s[t_?NumericQ] := Sum[NIntegrate[Exp[-Abs[t2 - t1]/tA]*t1^(a-1)*t2^(a-1)*MittagLefflerE[a,a,-(t1/tp)^a]*MittagLefflerE[a,a,-(t2/tp)^a],{t1, 0, t}, {t2, 0, t}], {p, 2, n}]
- LogLogPlot[s[t],{t,0.001,1000}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
