Function F#除法函数错误：应为支持运算符的类型'/'；但是给定一个函数类型_Function_F#

Function F#除法函数错误：应为支持运算符的类型'/'；但是给定一个函数类型

function f#

Function F#除法函数错误：应为支持运算符的类型'/'；但是给定一个函数类型,function,f#,Function,F#,我不是F#程序员。我正在修改现有的库我试着慢慢地把它捡起来我要做的是把两个函数分开我可以通过库的其余部分看到它，所以我知道这是可能的，但是当我尝试分割时，我得到了错误 “需要支持运算符“/”的类型，但给定了函数类型。可能缺少函数的参数” 这就是错误发生的地方 let sharpeRatio2 pfRets bmkRets x = let top pfRets bmkRets = excessReturns2 pfRets bmkRets let bottom pfRets

我不是F#程序员。我正在修改现有的库

我试着慢慢地把它捡起来

我要做的是把两个函数分开

我可以通过库的其余部分看到它，所以我知道这是可能的，但是当我尝试分割时，我得到了错误

“需要支持运算符“/”的类型，但给定了函数类型。可能缺少函数的参数”

这就是错误发生的地方

let sharpeRatio2 pfRets bmkRets x  =
    let top pfRets bmkRets = excessReturns2 pfRets bmkRets
    let bottom pfRets x = volatilty pfRets false x
    let result = top / bottom
    result

我认为调用的子函数都很好，在我创建的波动性函数上只有一个问号，它应该将std结果乘以sqrt（12）

顶部（返回）

有什么想法吗

谢谢gws这对你来说应该很有用：

open System
let rnd = Random()
rnd.NextDouble()

let ret1 = List.init 100 (fun _ -> rnd.NextDouble() - 0.5)
let ret2 = List.init 100 (fun _ -> rnd.NextDouble() - 0.5)

let inline activeReturn (ret, bmkRet) = ret - bmkRet
let excessReturns2 (pfRets: seq<float>) bmkRets =
    Seq.zip pfRets bmkRets |> Seq.map activeReturn |> Seq.sum

let var xs nmethod = 
    match Seq.fold (fun (i, s, sumsq) x -> i + 1, s + x, sumsq + x * x) (0, 0., 0.) xs with
    | 0, _, _ -> 0.
    | 1, _, _ when not nmethod -> 0.
    | n, xsum, xsumsq ->
        // denominator is (n-1) or n
        let d = if nmethod then float n else float n - 1.
        (xsumsq - xsum * xsum / float n) / d

let std xs nmethod = sqrt (var xs nmethod)
let volatilty xs nmethod x = (std xs nmethod) * sqrt (x)


let sharpeRatio2 pfRets bmkRets x  =
    let top = excessReturns2 pfRets bmkRets
    let bottom  = volatilty pfRets false x
    let result = top / bottom
    result

sharpeRatio2 ret1 ret2 12.

在划分活跃回报时，您还使用投资组合回报标准差。如果需要查看信息比率，理想情况下应该使用主动回报率的标准差

这应该适合您：

open System
let rnd = Random()
rnd.NextDouble()

let ret1 = List.init 100 (fun _ -> rnd.NextDouble() - 0.5)
let ret2 = List.init 100 (fun _ -> rnd.NextDouble() - 0.5)

let inline activeReturn (ret, bmkRet) = ret - bmkRet
let excessReturns2 (pfRets: seq<float>) bmkRets =
    Seq.zip pfRets bmkRets |> Seq.map activeReturn |> Seq.sum

let var xs nmethod = 
    match Seq.fold (fun (i, s, sumsq) x -> i + 1, s + x, sumsq + x * x) (0, 0., 0.) xs with
    | 0, _, _ -> 0.
    | 1, _, _ when not nmethod -> 0.
    | n, xsum, xsumsq ->
        // denominator is (n-1) or n
        let d = if nmethod then float n else float n - 1.
        (xsumsq - xsum * xsum / float n) / d

let std xs nmethod = sqrt (var xs nmethod)
let volatilty xs nmethod x = (std xs nmethod) * sqrt (x)


let sharpeRatio2 pfRets bmkRets x  =
    let top = excessReturns2 pfRets bmkRets
    let bottom  = volatilty pfRets false x
    let result = top / bottom
    result

sharpeRatio2 ret1 ret2 12.

在划分活跃回报时，您还使用投资组合回报标准差。如果需要查看信息比率，理想情况下应该使用主动回报率的标准差

当你写作时

let top pfRets bmkRets = excessReturns2 pfRets bmkRets

您没有根据传入的变量

pfRets2

和

bmkRets

计算

top

的值。相反，您只定义了一个函数，

top

，该函数的参数名恰好与

shapeRatio2

的参数名相同，但这些参数未指定

也就是说，这两个函数都接受名为

pfRets

和

bmkRets

的参数，但调用

excessReturns2

也不会自动调用具有相同参数的

top

；它只记录它的定义

显然，这同样适用于

bottom

由于希望

top

和

bottom

是值，因此需要定义它们而不带参数（这是值和函数之间最简单的区别：后者带参数，前者不带参数）：