1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#----------------------------------------------------------------------------
# $Id: x05.tcl 11572 2011-02-21 07:39:43Z arjenmarkus $
#----------------------------------------------------------------------------
proc x05 {{w loopback}} {
set npts 2047
matrix data f $npts
# Fill up data points
set delta [expr 2.0 * $::PLPLOT::PL_PI / $npts]
for {set i 0} {$i < $npts} {incr i} {
data $i = [expr sin($i * $delta)]
}
$w cmd plcol0 1
$w cmd plhist $npts data -1.1 1.1 44 0
$w cmd plcol0 2
$w cmd pllab "#frValue" "#frFrequency" \
"#frPLplot Example 5 - Probability function of Oscillator"
# Restore defaults
# $w cmd plcol0 1
}
|
