type Parameter =
| Fixed of double
| Free of double ref
with
override m.ToString() =
match m with
| Fixed v -> sprintf "%f" v
| Free v -> sprintf "$%f" v.Value
static member (~!) m =
match m with
| Fixed v -> v
| Free v -> !v
type Parameter =
| Fixed of double
| Fr