beta.f90
来自「visual fortran常用数值算法集—原代码」· F90 代码 · 共 7 行
F90
7 行
FUNCTION beta(z,w)
REAL beta,w,z
!USES gammln
REAL gammln
beta=exp(gammln(z)+gammln(w)-gammln(z+w))
END FUNCTION beta
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?