Type control

[Han]

(03-13-2015 10:39 PM)salvomic Wrote:  Han,
so it goes better:

Code:


EXPORT ANOVA(a)
...
BEGIN
CASE
IF (SIZE(a)==0) THEN a:=0.05; END;
IF (TYPE(a)<>0) THEN ANOVA_help(); RETURN("Usage: ANOVA(a)");  END;
IF (a <=0 OR a>= 1) THEN RETURN("Significance level must be > 0 AND <1"); END;
DEFAULT
END; // case
...

I control that "a" be a number (or give the user a function with help), and if it's a number that its value be in the interval.
But SIZE(a)==0 still doesn't work.
I thought to make "a" parameter option, but I don't remember if it's possible in EXPORT myfunction()... or not.
i.e. EXPORT ANOVA(a:=0.05) doesn't work.

Salvo

It appears I misunderstood you, then. If you want to have a sequence of control flow in which you add more conditions that must be met, then you need to nest your if statements:

Code:

IF (TYPE(a)<>0) THEN
    ANOVA_help(); RETURN("Usage: ANOVA(a)"); 
ELSE
    IF (a <=0 OR a>= 1) THEN
      RETURN("Significance level must be > 0 AND <1");
    ELSE
    ... (rest of your code here)
    END;
END;

There's no point to checking the size of 'a' since multiple arguments in Home view would produce an argument count error (no list behavior like in CAS view) as your program only specifies one argument (which must be given in order for the program to even run).

Non-CAS programs cannot be "overloaded" to handle both cases in which an argument is passed, or when no arguments are passed. You have to specify one or the other. This is why the SIZE(a)==0 check is redundant. Just to be clear, this is regarding the behavior of a non-CAS program.