Question

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

我是TCL的新手，在发布之前我已尝试过多项内容！我发现有一个名为plot plot的包，从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中做source <file_name.tcl>

Answer 1

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

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"
}

检查o / p：

x(4) ---2

x(0) --1

x(5) --------------------19

x(6) -------------12

x(2) ---------8

x(3) ----------9

希望它有所帮助。

Tcl 8.4 - 绘制条形图

1 个答案: