有人可以帮助我使用 R 包deSolve / ReacTran,它可用于求解任何抛物型偏微分方程:
\n\n\n\n我在本书 \n Karline Soetaert、Jeff_Cash、Francesca Mazzia:Solving Partial Differential Equations in R,第 9 章,第 179-181 页中找到了类似的示例,\n其中是方程的解:
\n\n\n\n书籍在线版:Solving Partial Differential Equations in R
\n\nPDE 和解定义如下:
\n\nSchrodinger <- function(t, u, parms) {\ndu <- 1i * tran.1D (C = u, D = 1, dx = xgrid)$dC +\n1i * gam * abs(u)\xcb\x862 * u\nlist(du) }\n\nN <- 300\nxgrid <- setup.grid.1D(-20, 80, N = N)\nx <- xgrid$x.mid\n\nout <- ode.1D(y = yini, parms = …Run Code Online (Sandbox Code Playgroud) 我有一个R闪亮滑块输入的问题."圆形功能"无法正常工作,如图所示.我做错什么了吗 ?
sliderInput("Er", "Choose expected return (in percent)",
min = min, max = max, value = min , round = -1,
sep = "" , post = "%", ticks = FALSE
)
Run Code Online (Sandbox Code Playgroud)