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
|
(* $Id: x05.ml 10463 2009-09-23 20:56:58Z hezekiahcarty $
Histogram demo.
*)
open Plplot
let pi = atan 1.0 *. 4.0
let npts = 2047
(*--------------------------------------------------------------------------*\
* Draws a histogram from sample data.
\*--------------------------------------------------------------------------*)
let () =
(* Parse and process command line arguments *)
plparseopts Sys.argv [PL_PARSE_FULL];
(* Initialize plplot *)
plinit ();
(* Fill up data points *)
let delta = 2.0 *. pi /. float_of_int npts in
let data = Array.init npts (fun i -> sin (float_of_int i *. delta)) in
plcol0 1;
plhist data (-1.1) 1.1 44 [PL_HIST_DEFAULT];
plcol0 2;
pllab "#frValue" "#frFrequency"
"#frPLplot Example 5 - Probability function of Oscillator";
plend ();
()
|
