let plotModelCos =
let model = PlotModel(Title = "Example 1")
model.Series.Add(new OxyPlot.Series.FunctionSeries(Math.Cos, 0.0, 10.0, 0.1, "cos(x)"))
model
let plotModelHeatMap =
let model = PlotModel (Title = "Heatmap")
model.Axes.Add(LinearColorAxis (Palette = OxyPalettes.Rainbow(100)))
let singleData = [ for x in 0 .. 99 -> Math.Exp((-1.0 / 2.0) * Math.Pow(((double)x - 50.0) / 20.0, 2.0)) ]
let data = Array2D.init 100 100 (fun x y -> singleData.[x] * singleData.[(y + 30) % 100] * 100.0)
let heatMapSeries =
HeatMapSeries(X0 = 0.0, X1 = 99.0, Y0 = 0.0, Y1 = 99.0, Interpolate = true,
RenderMethod = HeatMapRenderMethod.Bitmap, Data = data)
model.Series.Add(heatMapSeries)
model
let plotModels = [ plotModelCos; plotModelHeatMap ]
let view (model: Model) dispatch =
View.CarouselPage(children=
[ for m in plotModels ->
View.ContentPage(content =
View.PlotView(model=m,
horizontalOptions=LayoutOptions.FillAndExpand,
verticalOptions=LayoutOptions.FillAndExpand)) ])