[rkward-cvs] SF.net SVN: rkward: [1924] trunk/rkward/rkward/plugins/distributions/clt

[tfry at users.sourceforge.net]

Revision: 1924
          http://svn.sourceforge.net/rkward/?rev=1924&view=rev
Author:   tfry
Date:     2007-06-01 07:00:25 -0700 (Fri, 01 Jun 2007)

Log Message:
-----------
Allow grid in all CLT plugins, but don't allow ylim

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/distributions/clt/plot_clt_common.php
    trunk/rkward/rkward/plugins/distributions/clt/plot_clt_snippets.xml

Modified: trunk/rkward/rkward/plugins/distributions/clt/plot_clt_common.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/clt/plot_clt_common.php	2007-06-01 11:13:15 UTC (rev 1923)
+++ trunk/rkward/rkward/plugins/distributions/clt/plot_clt_common.php	2007-06-01 14:00:25 UTC (rev 1924)
@@ -42,7 +42,9 @@
 	if ($scalenorm) $normMuSigma_tag = ""; // defaults to mean=0, sd=1.
 	else $normMuSigma_tag = ", mean = avg.exp, sd = sqrt(avg.var)";
 
+	$plotpre = getRK_val ("plotoptions.code.preprocess");
 	$plotoptions = getRK_val ("plotoptions.code.printout");
+	$plotadds = getRK_val ("plotoptions.code.calculate");
 	if ($fun == "hist") {
 		$normFun = "dnorm"; // draw normal density on the histogram
 		$histcalcoptions = getRK_val ("histogram_opt.code.calculate"); // options that goes into hist() function
@@ -95,6 +97,7 @@
 try ({
 <?
 	}
+	if (!empty ($plotpre)) printIndented ("\t", $plotpre);
 	if ($fun == "hist") {
 ?>
 	plot(dist.hist<? echo ($yLim); echo ($histplotoptions); ?>)
@@ -109,6 +112,7 @@
 	lines (x=normX, y=normY, type="<? getRK ("normpointtype"); ?>"<? getRK ("normlinecol.code.printout"); ?>)
 <?
 	}
+	if (!empty ($plotadds)) printIndented ("\t", $plotadds);
 	if ($final) {
 ?>
 })

Modified: trunk/rkward/rkward/plugins/distributions/clt/plot_clt_snippets.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/clt/plot_clt_snippets.xml	2007-06-01 11:13:15 UTC (rev 1923)
+++ trunk/rkward/rkward/plugins/distributions/clt/plot_clt_snippets.xml	2007-06-01 14:00:25 UTC (rev 1924)
@@ -4,6 +4,8 @@
 	<snippet id="clt_logic">
 		<set id="plotoptions.allow_log" to="false"/>
 		<set id="plotoptions.allow_type" to="false"/>
+		<set id="plotoptions.allow_grid" to="true"/>
+		<set id="plotoptions.allow_ylim" to="false"/>
 		<set id="plotoptions.default_xlab" to="Sample Averages"/>
 		
 		<set id="normlinecol.default_color" to="red" />


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.