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
|
#!/usr/bin/env tclsh
## -*- tcl -*-
package require Tk
# plotdemos11.tcl --
# Test and demonstrate log X-Y plots and log-log plots
#
package require Plotchart
#
# Log X plot of y = log(x)
#
pack [canvas .c1 -bg white]
set p [::Plotchart::createLogXYPlot .c1 {1 1000} {0 5 1}]
foreach x {1 2 5 10 20 50 100 200 500 1000} {
$p plot series1 $x [expr {log($x)}]
}
$p title "y = log(x)"
#
# Log-log plot - use y = x**n
#
pack [canvas .c2 -bg white] -side top
set p [::Plotchart::createLogXLogYPlot .c2 {1 1000} {1 1e6}]
$p dataconfig series1 -colour green
$p dataconfig series2 -colour blue
$p dataconfig series3 -colour red
foreach x {1 2 5 10 20 50 100 200 500 1000} {
$p plot series1 $x [expr {sqrt($x)}]
$p plot series2 $x [expr {$x*$x}]
$p plot series3 $x [expr {$x*sqrt($x)}]
}
$p title "y = x**n, n = 1/2, 2, 3/2"
$p xticklines grey
|
