1
2
3

#r FSharp.Plot.dll

" Could not locate the assembly "FSharp.Plot.dll" "

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

// zedgraphplot.fs
// 10.5.07 Matt Valerio
//
// 

#light

module Esl.FSharp.Plotting

#I @"..\..\Shared\DLL\" ;; // need to put the path to the ZedGraph.dll here
#r @"ZedGraph.dll" ;;

open System;
open System.Drawing;
open System.Windows.Forms;
open System.Reflection;
open ZedGraph;

type ZedGraphPlot = class
  inherit Form

  // This should be private...
  val mutable _zedGraphControl : ZedGraphControl;

  new(title : string) as x = 
    {
      _zedGraphControl = new ZedGraphControl();
    }
    then
      x.Text <- title;
      x.Size <- new Size(600,400);
      x._zedGraphControl.Dock <- DockStyle.Fill;
      x.Controls.Add(x._zedGraphControl);
       
  member x.ZedGraphControl
    with get() = x._zedGraphControl;
    
  member x.GraphPane
    with get() = x._zedGraphControl.GraphPane;
    
  member x.Title
    with get() = x.GraphPane.Title.Text;
    and set(y) = x.GraphPane.Title.Text <- y;
    
  member x.XLabel
    with get() = x.GraphPane.XAxis.Title.Text;
    and set(y) = x.GraphPane.XAxis.Title.Text <- y;
    
  member x.YLabel
    with get() = x.GraphPane.YAxis.Title.Text;
    and set(y) = x.GraphPane.YAxis.Title.Text <- y;
end

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

#light
#I @"..\..\Shared\DLL\" ;;
#r @"ZedGraph.dll" ;;
#I @"..\Esl.FSharp.Plotting\bin" ;;
#r @"Esl.FSharp.Plotting.dll" ;;
open System;
open System.Drawing;
open System.Windows.Forms;
open ZedGraph;
open Esl.FSharp.Plotting;

// Create the plot window
let f = new ZedGraphPlot("Test Plot");
f.Title <- "Test Plot";
f.XLabel <- "Frequency (GHz)";
f.YLabel <- "Gain (dB)";

// Calculate some sample data
let x = [1.0 .. 100.0] |> List.to_array;
let y = Array.map (fun a -> (sin (a/10.0) * a) ) x;

// Set up the curve
let curve1 = f.GraphPane.AddCurve("sim1.dat",x ,y, Color.Red);
curve1.Line.Width <- float32 2.0;
curve1.Symbol.Size <- float32 5.0;
curve1.Symbol.Fill.Type <- FillType.Solid;
curve1.Symbol.Fill.Color <- Color.Green;

// Autoscale the axes
f.GraphPane.AxisChange();
f.Show();
f.Focus();
f.Activate();

1
2
3
4
5
6
7
8
9
10
11
12
13

#light

#r "FSharp.Plot.dll"
#r "FSharp.Plot.Excel.dll"
open Microsoft.FSharp.Plot.Excel
open Microsoft.FSharp.Plot.Interactive

let ps = [| (1.,"c"); (-2.,"p") |]
plot (Bars(ps))

let xs = [| 1.0 .. 20.0 |]
let ys = [| 2.0 .. 21.0 |]
let pp= plot(Area(xs,ys))