17
function getContRangeParameters () {
18
options['n'] = getValue ("n");
19
options['min'] = getValue ("min");
20
options['max'] = getValue ("max");
24
function getDiscontRangeParameters () {
25
options['min'] = getValue ("min");
26
options['max'] = getValue ("max");
27
options['n'] = options['max'] - options['min'] + 1;
30
function doPrintout (final) {
31
fun = getValue ("function");
32
log = (getValue ("log") == 1);
39
if (log) log_option = ", log=TRUE";
42
label = "distribution";
43
if (getValue("lower") == "1") {
44
tail_option = ", lower.tail = TRUE";
45
tail_label = ", \"Tail\",\"Lower\"";
47
tail_option = ", lower.tail = FALSE";
48
tail_label = ", \"Tail\",\"Upper\"";
50
if (log) log_option = ", log.p=TRUE";
52
if (log) log_label = ', "Scale", "logarithmic"';
53
else log_label = ', "Scale", "normal"';
56
options['is_density'] = is_density;
57
options['label'] = label;
58
options['tail_option'] = tail_option;
59
options['tail_label'] = tail_label;
60
options['log_option'] = log_option;
61
options['log_label'] = log_label;
68
echo ('rk.graph.on ()\n');
72
echo (' curve ('); doFunCall (); echo (', from=' + options['min'] + ', to=' + options['max'] + ', n=' + options['n'] + getValue ("plotoptions.code.printout") + ')\n');
74
plot_adds = getValue ("plotoptions.code.calculate");
75
if (!empty (plot_adds)) {
77
printIndented ("\t", plot_adds);
81
echo ('rk.graph.off ()\n');