Я пытаюсь построить следующее уравнение с c
на оси Y и n
на оси X для L~10^-61
и 'c ~ 10 ^ -61` (при необходимости я могу уменьшить их оба до управляемых значений):
-0.00003 = Binomial[n,2]*((1.37832*10^-7 Cos[(2 Sqrt[3] w ArcSinh[(c L)/(2 Sqrt[3])])/
c])/(L Sqrt[12 + c^2 L^2]))
Я просто не могу сделать это, используя Plot
или Plot3D
. Есть ли какой-то особенный трюк, который я пропускаю? Мой n
имеет порядок 10^23
.
Я сделал следующее:
Plot3D[{F[1/1000, 10^-61, k, 100], -3*^-5*(Binomial[n, 2])^-1}, {n,
10^16, 10^17}, {k, 10^60, 10^61}, PlotPoints -> 100,
MaxRecursion -> 5, WorkingPrecision -> 110, AxesLabel -> Automatic,
PlotLegends -> "Expressions"]
Я не получил хороший 3DPlot
, а также если я возьму порядок n будет выше, чем на графике. Что там означает спайк? Пожалуйста, помогите мне понять это и получите хороший сюжет в 2D c
и n
.