Changeset 3015 for trunk/gui/scripts
- Timestamp:
- May 23, 2012, 10:39:52 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/histogramresult.tcl
r3014 r3015 545 545 set xv [$dataobj mesh $comp] 546 546 set yv [$dataobj values $comp] 547 foreach x [$xv range 0 end] y [$yv range 0 end] { 548 append csvdata \ 549 [format "%20.15g, %20.15g\n" $x $y] 550 } 547 if { [$xv length] > 0 && [$yv length] > 0 } { 548 foreach x [$xv range 0 end] y [$yv range 0 end] { 549 append csvdata \ 550 [format "%20.15g, %20.15g\n" $x $y] 551 } 552 } 551 553 set first 0 552 554 } … … 717 719 # Compute default bar width for histogram elements. 718 720 if { [$zv length] == [$xv length] } { 719 foreach x [$xv range 0 end] y [$yv range 0 end] z [$zv range 0 end] { 720 set elem "elem[incr count]" 721 set _elem2dataobj($elem) $dataobj 722 $g element create $elem -x $x -y $y -barwidth $z \ 723 -label $label -foreground $color \ 724 -mapx $mapx -mapy $mapy 725 } 721 if { [$xv length] > 0 && [$yv length] > 0 } { 722 set xvalues [$xv range 0 end] 723 set yvalues [$yv range 0 end] 724 set zvalues [$zv range 0 end] 725 foreach x $xvalues y $yvalues z $zvalues { 726 set elem "elem[incr count]" 727 set _elem2dataobj($elem) $dataobj 728 $g element create $elem -x $x -y $y -barwidth $z \ 729 -label $label -foreground $color \ 730 -mapx $mapx -mapy $mapy 731 } 732 } 726 733 } else { 727 734 set r [blt::vector expr {max($xv) - min($xv)}] 728 set z [expr {$r / ([$xv length]-1) * 0.8}] 735 set length [$xv length] 736 if { $length > 1 } { 737 set z [expr {$r / ([$xv length]-1) * 0.8}] 738 } else { 739 set z 1 740 } 729 741 set elem "elem[incr count]" 730 742 set _elem2dataobj($elem) $dataobj
Note: See TracChangeset
for help on using the changeset viewer.