您可以使用标准的 .NET 重载:
open MathNet.Numerics.LinearAlgebra
type Sigmoid() = class end with
static member sigmoid (z:float) = 1.0 / (1.0 + exp(-z))
static member sigmoid (z:Matrix<float>) = z.Map (fun x -> Sigmoid.sigmoid(x))
static member sigmoid (z:Vector<float>) = z.Map (fun x -> Sigmoid.sigmoid(x))
// Usage
let x = Sigmoid.sigmoid 4.3
let y = Sigmoid.sigmoid (matrix [[1.0; 2.0]; [3.0; 4.0]])
let z = Sigmoid.sigmoid (vector [1.0; 2.0])
// Results
val x : float = 0.9866130822
val y : Matrix<float> =
DenseMatrix 2x2-Double
0.731059 0.880797
0.952574 0.982014
val z : Vector<float> = seq [0.7310585786; 0.880797078]
这不会影响性能,因为重载决议是在编译时完成的。
对标准 .NET 重载不满意?不想将函数编码为成员?你想让它更通用(也接受 float32)并且可以扩展到其他类型吗?
使用静态类型约束:
type Sigmoid() = class end with
static member Sigmoid (_:Sigmoid, z:float ) = 1.0 / (1.0 + exp(-z))
static member Sigmoid (_:Sigmoid, z:float32) = 1.0f / (1.0f + exp(-z))
let inline _sigmoid (s:'Sigmoid) (x:'T) :'T =
((^T or ^Sigmoid) : (static member Sigmoid : 'Sigmoid * 'T -> 'T) (s, x))
let inline sigmoid x = _sigmoid (Sigmoid()) x
type Sigmoid with
static member inline Sigmoid (_:Sigmoid, z:Matrix<'T>) = z.Map (fun x -> sigmoid x)
static member inline Sigmoid (_:Sigmoid, z:Vector<'T>) = z.Map (fun x -> sigmoid x)
// Usage
let x = sigmoid 4.3
let y = sigmoid (matrix [[ 1.0; 2.0 ];[ 3.0; 4.0 ]])
let z = sigmoid (vector [ 1.0; 2.0 ])
let x' = sigmoid 4.3f
let y' = sigmoid (matrix [[1.0f; 2.0f];[ 3.0f; 4.0f]])
let z' = sigmoid (vector [ 1.0f; 2.0f])
更新
请注意,@TheInnerLight 在评论中指出,对于您的特定sigmoid
功能,您还可以编写:
let inline sigmoid z =
LanguagePrimitives.GenericOne / (LanguagePrimitives.GenericOne + exp(-z))
这将适用于float
和float32
这最终也适用于向量和矩阵,具体取决于它们的实现。
如果所有操作 negate、divide 和 exp 在这些类型上已经是通用的并且它们都支持 GenericOne,那么对于您的特定情况来说,这将是一个更好的解决方案。
不幸的是,截至今天,MathNet 并没有以这种方式实现MatrixGenericOne
和exp
Vector。