Type control

[salvomic]

(03-13-2015 06:34 PM)Han Wrote:  That doesn't make sense. How can you check if a is from 0 to 1 without first checking to see that a is in fact a number? I didn't read much into your code, except to look for how control flow was giving you errors.

thank you for your patience
in fact I'm trying doing that: control if "a" is a number, but first if it was given (and this only doesn't works):

new code:

Code:


BEGIN local spar;
spar:= SIZE(a);
CASE
IF ((spar==0)) THEN RETURN("Usage: ..."); END
IF (TYPE(spar)==6 OR TYPE(a)<>0) THEN RETURN("Usage: ...");  END
// control to avoid lists {} and []...
IF (a <=0 OR a>= 1) THEN RETURN("Significance level must be > 0 AND <1"); END
// control for interval
IF ((size(D1) == 0) OR (size(D1) == 0) OR (size(D3) = 0)) THEN RETURN("Statistics 1var, D1 ..."); END
DEFAULT
END; // case

only the IF spar==0 doesn't control for no input, IMHO...