Changeset 3956 for branches/blt4/examples/zoo/curve/curve.tcl

Timestamp:

Sep 24, 2013, 4:38:54 PM (11 years ago)

Author:

gah

Message:

sync with trunk

File:

• branches/blt4/examples/zoo/curve/curve.tcl (modified) (3 diffs)

branches/blt4/examples/zoo/curve/curve.tcl

@@ -3 +3 @@
 # ======================================================================
 #  AUTHOR:  Michael McLennan, Purdue University
-#  Copyright (c) 2004-2005  Purdue Research Foundation
+#  Copyright (c) 2004-2012  HUBzero Foundation, LLC
 #
 #  See the file "license.terms" for information on usage and
@@ -44 +44 @@
         "Frequency of the input source."
     $driver put output.curve(multi$factor).xaxis.units "Hz"
-    $driver put output.curve(multi$factor).xaxis.scale "log"
+    #$driver put output.curve(multi$factor).xaxis.scale "log"
     $driver put output.curve(multi$factor).yaxis.label "Current"
     $driver put output.curve(multi$factor).yaxis.description \
@@ -75 +75 @@
 }
 
+# generate a bar curve
+$driver put output.curve(bars).about.label "Bar chart"
+$driver put output.curve(bars).about.description \
+    "This is an example of a scatter curve."
+$driver put output.curve(bars).about.type "bar"
+$driver put output.curve(bars).xaxis.label "Time"
+$driver put output.curve(bars).xaxis.description "Time during the experiment."
+$driver put output.curve(bars).xaxis.units "s"
+$driver put output.curve(bars).yaxis.label "Voltage v(11)"
+$driver put output.curve(bars).yaxis.description "Output from the amplifier."
+$driver put output.curve(bars).yaxis.units "V"
+
+for {set x 0} {$x < $npts} {incr x} {
+    set y [expr {sin($x)/(1+$x)}]
+    $driver put -append yes output.curve(bars).component.xy "$x $y\n"
+}
+
+# generate mixed curves on the same plot
+set deg2rad 0.017453292519943295
+
+$driver put output.curve(line).about.group "Mixed element types"
+$driver put output.curve(line).about.label "Sine"
+$driver put output.curve(line).about.description \
+    "This is an example of a mixed curves on the same plot."
+$driver put output.curve(line).xaxis.label "Degrees"
+#$driver put output.curve(line).yaxis.label "Sine"
+$driver put output.curve(line).about.type "line"
+for {set x 0} {$x <= 360} {incr x 30} {
+    set y [expr {sin($x*$deg2rad)}]
+    $driver put -append yes output.curve(line).component.xy "$x $y\n"
+}
+
+$driver put output.curve(bar).about.group "Mixed element types"
+$driver put output.curve(bar).about.label "Cosine"
+$driver put output.curve(bar).about.description \
+    "This is an example of a mixed curves on the same plot."
+$driver put output.curve(bar).xaxis.label "Degrees"
+#$driver put output.curve(bar).yaxis.label "Cosine"
+$driver put output.curve(bar).about.type "bar"
+$driver put output.curve(bar).about.style "-barwidth 24.0"
+
+for {set x 0} {$x <= 360} {incr x 30} {
+    set y [expr {cos($x*$deg2rad)}]
+    $driver put -append yes output.curve(bar).component.xy "$x $y\n"
+}
+
+$driver put output.curve(point).about.group "Mixed element types"
+$driver put output.curve(point).about.label "Random"
+$driver put output.curve(point).about.description \
+    "This is an example of a mixed curves on the same plot."
+$driver put output.curve(point).xaxis.label "Degrees"
+#$driver put output.curve(point).yaxis.label "Random"
+$driver put output.curve(point).about.type "scatter"
+for {set x 0} {$x <= 360} {incr x 10} {
+    set y [expr {(rand() * 2.0) - 1}]
+    $driver put -append yes output.curve(point).component.xy "$x $y\n"
+}
+
 # save the updated XML describing the run...
 Rappture::result $driver