Tcl 8.4-绘制条形图

我想创建一个包含5行和2列的表格的柱状图（看起来更像是条形图），每列都是x轴和y轴

我是TCL的新手，在这里发帖之前，我尝试了很多东西！我发现有一个叫做plot chart的软件包，从wiki下载并试用过

#! /bin/env tclsh
lappend auto_path /u/vbhaskar/work/proj2/ECE_x81_PROJECT_2
package require plotchart
canvas .c -background white -width 400 -height 200
pack   .c -fill both
#
# Create the plot with its x- and y-axes
#
set s [::Plotchart::createXYPlot .c {0.0 100.0 10.0} {0.0 100.0 20.0}]
foreach {x y} {0.0 32.0 10.0 50.0 25.0 60.0 78.0 11.0 } {
    $s plot series1 $x $y
}
$s title "Data series"
exit 0

试过上面的代码，不完全理解，但是更好

我收到错误消息，说找不到包

---

在Tcl 8.4版本中，有没有一种简单的方法可以实现我的功能？我在Synopsys DC shell中执行

源代码

我不会使用任何库，而是使用一些简单的代码

set mylist [list 0 1 2 8 3 9 4 2 5 19 6 12]
array set arr $mylist

#parray arr

foreach element [array names arr] {
    puts -nonewline "x($element) "
    for {set i 0} {$i <= $arr($element)} {incr i} {
        puts -nonewline "-"
    }
    puts -nonewline "$arr($element)"
    puts "\n"
}

---

希望有帮助。

我不会使用任何库，而是使用一些简单的代码

set mylist [list 0 1 2 8 3 9 4 2 5 19 6 12]
array set arr $mylist

#parray arr

foreach element [array names arr] {
    puts -nonewline "x($element) "
    for {set i 0} {$i <= $arr($element)} {incr i} {
        puts -nonewline "-"
    }
    puts -nonewline "$arr($element)"
    puts "\n"
}

---

希望有帮助。

谢谢Bordoloi！这有帮助！谢谢波多洛伊！这有帮助！