(x0+x1) (x0-x1) (x0*x1) (x0/x1) (x0%%x1) (x0 ^ x1) sqr(x0) e{CHARX}p(x0) (10 ^ x0) log(x0) (log(x0)/Log(10)) (log(x0)/Log(x1)) floor(x0) ceiling(x0) abs(x0) (1/(x0)) (-(x0)) (x0) (x0 ^ 2) (x0 ^ 3) (x0 ^ 4) (x0 ^ 5) (if (x0 < 0) -(-x0 ^ (1.0/3.0)) else (x0 ^ (1.0/3.0))) (x0 ^ (1/4)) (if (x0 < 0) -(-x0 ^ (1.0/5.0)) else (x0 ^ (1.0/5.0))) (x0+x1+x2) (x0-x1-x2) (x0*x1*x2) (x0/x1/x2) (x0+x1+x2+x3) (x0-x1-x2-x3) (x0*x1*x2*x3) (x0/x1/x2/x3) min(x0,x1) min(x0,x1,x2) min(x0,x1,x2,x3) ma{CHARX}(x0,x1) ma{CHARX}(x0,x1,x2) ma{CHARX}(x0,x1,x2,x3) ((x0+x1)/2) ((x0+x1+x2)/3) ((x0+x1+x2+x3)/4) gepLogi(x0) gepLogi2(x0,x1) gepLogi3(x0,x1,x2) gepLogi4(x0,x1,x2,x3) gepGau(x0) gepGau2(x0,x1) gepGau3(x0,x1,x2) gepGau4(x0,x1,x2,x3) (0.0) (1.0) (0.0) (1.0) (pi) (2.718281828459045) sin(x0) cos(x0) tan(x0) (1/sin(x0)) (1/cos(x0)) (1/tan(x0)) gepAsin(x0) gepAcos(x0) atan(x0) gepAcsc(x0) gepAsec(x0) gepAcot(x0) sinh(x0) cosh(x0) tanh(x0) gepCsch(x0) gepSech(x0) gepCoth(x0) asinh(x0) acosh(x0) atanh(x0) gepAcsch(x0) gepAsech(x0) gepAcoth(x0) (1-x0) (if((x0 < 0) || (x1 < 0)) 1 else 0) (if((x0 >= 0) || (x1 >= 0)) 1 else 0) (if((x0 <= 0) || (x1 <= 0)) 1 else 0) (if((x0 < 1) || (x1 < 1)) 1 else 0) (if((x0 >= 1) || (x1 >= 1)) 1 else 0) (if((x0 <= 1) || (x1 <= 1)) 1 else 0) (if((x0 < 0) && (x1 < 0)) 1 else 0) (if((x0 >= 0) && (x1 >= 0)) 1 else 0) (if((x0 <= 0) && (x1 <= 0)) 1 else 0) (if((x0 < 1) && (x1 < 1)) 1 else 0) (if((x0 >= 1) && (x1 >= 1)) 1 else 0) (if((x0 <= 1) && (x1 <= 1)) 1 else 0) (if(x0 < x1) x0 else x1) (if(x0 > x1) x0 else x1) (if(x0 <= x1) x0 else x1) (if(x0 >= x1) x0 else x1) (if(x0 = x1) x0 else x1) (if(x0 <> x1) x0 else x1) (if(x0 < x1) 1 else 0) (if(x0 > x1) 1 else 0) (if(x0 <= x1) 1 else 0) (if(x0 >= x1) 1 else 0) (if(x0 = x1) 1 else 0) (if(x0 <> x1) 1 else 0) (if(x0 < x1) (x0+x1) else (x0-x1)) (if(x0 > x1) (x0+x1) else (x0-x1)) (if((x0 <= x1) (x0+x1) else (x0-x1)) (if(x0 >= x1) (x0+x1) else (x0-x1)) (if(x0 = x1) (x0+x1) else (x0-x1)) (if(x0 <> x1) (x0+x1) else (x0-x1)) (if(x0 < x1) (x0*x1) else (x0/x1)) (if(x0 > x1) (x0*x1) else (x0/x1)) (if(x0 <= x1) (x0*x1) else (x0/x1)) (if(x0 >= x1) (x0*x1) else (x0/x1)) (if(x0 = x1) (x0*x1) else (x0/x1)) (if(x0 <> x1) (x0*x1) else (x0/x1)) (if(x0 < x1) (x0+x1) else (x0*x1)) (if(x0 > x1) (x0+x1) else (x0*x1)) (if(x0 <= x1) (x0+x1) else (x0*x1)) (if(x0 >= x1) (x0+x1) else (x0*x1)) (if(x0 = x1) (x0+x1) else (x0*x1)) (if(x0 <> x1) (x0+x1) else (x0*x1)) (if(x0 < x1) (x0+x1) else sin(x0*x1)) (if(x0 > x1) (x0+x1) else sin(x0*x1)) (if(x0 <= x1) (x0+x1) else sin(x0*x1)) (if(x0 >= x1) (x0+x1) else sin(x0*x1)) (if(x0 = x1) (x0+x1) else sin(x0*x1)) (if(x0 <> x1) (x0+x1) else sin(x0*x1)) (if(x0 < x1) (x0+x1) else atan(x0*x1)) (if(x0 > x1) (x0+x1) else atan(x0*x1)) (if(x0 <= x1) (x0+x1) else atan(x0*x1)) (if(x0 >= x1) (x0+x1) else atan(x0*x1)) (if(x0 = x1) (x0+x1) else atan(x0*x1)) (if(x0 <> x1) (x0+x1) else atan(x0*x1)) (if(x0 < 0) x1 else x2) (if(x0 > 0) x1 else x2) (if(x0 <= 0) x1 else x2) (if(x0 >= 0) x1 else x2) (if(x0 = 0) x1 else x2) (if(x0 <> 0) x1 else x2) (if((x0+x1) < x2) (x0+x1) else x2) (if((x0+x1) > x2) (x0+x1) else x2) (if((x0+x1) <= x2) (x0+x1) else x2) (if((x0+x1) >= x2) (x0+x1) else x2) (if((x0+x1) = x2) (x0+x1) else x2) (if((x0+x1) <> x2) (x0+x1) else x2) (if((x0+x1) < x2) (x0+x1) else (x0+x2)) (if((x0+x1) > x2) (x0+x1) else (x0+x2)) (if((x0+x1) <= x2) (x0+x1) else (x0+x2)) (if((x0+x1) >= x2) (x0+x1) else (x0+x2)) (if((x0+x1) = x2) (x0+x1) else (x0+x2)) (if((x0+x1) <> x2) (x0+x1) else (x0+x2)) (if((x0+x1) < x2) (x0+x1) else (x0-x2)) (if((x0+x1) > x2) (x0+x1) else (x0-x2)) (if((x0+x1) <= x2) (x0+x1) else (x0-x2)) (if((x0+x1) >= x2) (x0+x1) else (x0-x2)) (if((x0+x1) = x2) (x0+x1) else (x0-x2)) (if((x0+x1) <> x2) (x0+x1) else (x0-x2)) (if((x0+x1) < x2) (x0+x1) else (x0*x2)) (if((x0+x1) > x2) (x0+x1) else (x0*x2)) (if((x0+x1) <= x2) (x0+x1) else (x0*x2)) (if((x0+x1) >= x2) (x0+x1) else (x0*x2)) (if((x0+x1) = x2) (x0+x1) else (x0*x2)) (if((x0+x1) <> x2) (x0+x1) else (x0*x2)) (if((x0+x1) < x2) (x0+x1) else (x0/x2)) (if((x0+x1) > x2) (x0+x1) else (x0/x2)) (if((x0+x1) <= x2) (x0+x1) else (x0/x2)) (if((x0+x1) >= x2) (x0+x1) else (x0/x2)) (if((x0+x1) = x2) (x0+x1) else (x0/x2)) (if((x0+x1) <> x2) (x0+x1) else (x0/x2)) (if((x0+x1) < x2) (x0*x1) else (x0+x2)) (if((x0+x1) > x2) (x0*x1) else (x0+x2)) (if((x0+x1) <= x2) (x0*x1) else (x0+x2)) (if((x0+x1) >= x2) (x0*x1) else (x0+x2)) (if((x0+x1) = x2) (x0*x1) else (x0+x2)) (if((x0+x1) <> x2) (x0*x1) else (x0+x2)) (if((x0+x1) < x2) (x0*x1) else (x0-x2)) (if((x0+x1) > x2) (x0*x1) else (x0-x2)) (if((x0+x1) <= x2) (x0*x1) else (x0-x2)) (if((x0+x1) >= x2) (x0*x1) else (x0-x2)) (if((x0+x1) = x2) (x0*x1) else (x0-x2)) (if((x0+x1) <> x2) (x0*x1) else (x0-x2)) (if((x0+x1) < x2) (x0*x1) else (x0*x2)) (if((x0+x1) > x2) (x0*x1) else (x0*x2)) (if((x0+x1) <= x2) (x0*x1) else (x0*x2)) (if((x0+x1) >= x2) (x0*x1) else (x0*x2)) (if((x0+x1) = x2) (x0*x1) else (x0*x2)) (if((x0+x1) <> x2) (x0*x1) else (x0*x2)) (if((x0+x1) < x2) (x0*x1) else (x0/x2)) (if((x0+x1) > x2) (x0*x1) else (x0/x2)) (if((x0+x1) <= x2) (x0*x1) else (x0/x2)) (if((x0+x1) >= x2) (x0*x1) else (x0/x2)) (if((x0+x1) = x2) (x0*x1) else (x0/x2)) (if((x0+x1) <> x2) (x0*x1) else (x0/x2)) (if((x0+x1) < x2) (x0+x1+x2) else sin(x0*x1*x2)) (if((x0+x1) > x2) (x0+x1+x2) else sin(x0*x1*x2)) (if((x0+x1) <= x2) (x0+x1+x2) else sin(x0*x1*x2)) (if((x0+x1) >= x2) (x0+x1+x2) else sin(x0*x1*x2)) (if((x0+x1) = x2) (x0+x1+x2) else sin(x0*x1*x2)) (if((x0+x1) <> x2) (x0+x1+x2) else sin(x0*x1*x2)) (if((x0+x1) < x2) (x0+x1+x2) else atan(x0*x1*x2)) (if((x0+x1) > x2) (x0+x1+x2) else atan(x0*x1*x2)) (if((x0+x1) <= x2) (x0+x1+x2) else atan(x0*x1*x2)) (if((x0+x1) >= x2) (x0+x1+x2) else atan(x0*x1*x2)) (if((x0+x1) = x2) (x0+x1+x2) else atan(x0*x1*x2)) (if((x0+x1) <> x2) (x0+x1+x2) else atan(x0*x1*x2)) (if(x0 < x1) x2 else x3) (if(x0 > x1) x2 else x3) (if(x0 <= x1) x2 else x3) (if(x0 >= x1) x2 else x3) (if(x0 = x1) x2 else x3) (if(x0 <> x1) x2 else x3) (if((x0+x1) < (x2+x3)) x2 else x3) (if((x0+x1) > (x2+x3)) x2 else x3) (if((x0+x1) <= (x2+x3)) x2 else x3) (if((x0+x1) >= (x2+x3)) x2 else x3) (if((x0+x1) = (x2+x3)) x2 else x3) (if((x0+x1) <> (x2+x3)) x2 else x3) (if((x0+x1) < (x2+x3)) (x0+x1) else (x2+x3)) (if((x0+x1) > (x2+x3)) (x0+x1) else (x2+x3)) (if((x0+x1) <= (x2+x3)) (x0+x1) else (x2+x3)) (if((x0+x1) >= (x2+x3)) (x0+x1) else (x2+x3)) (if((x0+x1) = (x2+x3)) (x0+x1) else (x2+x3)) (if((x0+x1) <> (x2+x3)) (x0+x1) else (x2+x3)) (if((x0+x1) < (x2+x3)) (x0+x1) else (x2-x3)) (if((x0+x1) > (x2+x3)) (x0+x1) else (x2-x3)) (if((x0+x1) <= (x2+x3)) (x0+x1) else (x2-x3)) (if((x0+x1) >= (x2+x3)) (x0+x1) else (x2-x3)) (if((x0+x1) = (x2+x3)) (x0+x1) else (x2-x3)) (if((x0+x1) <> (x2+x3)) (x0+x1) else (x2-x3)) (if((x0+x1) < (x2+x3)) (x0+x1) else (x2*x3)) (if((x0+x1) > (x2+x3)) (x0+x1) else (x2*x3)) (if((x0+x1) <= (x2+x3)) (x0+x1) else (x2*x3)) (if((x0+x1) >= (x2+x3)) (x0+x1) else (x2*x3)) (if((x0+x1) = (x2+x3)) (x0+x1) else (x2*x3)) (if((x0+x1) <> (x2+x3)) (x0+x1) else (x2*x3)) (if((x0+x1) < (x2+x3)) (x0+x1) else (x2/x3)) (if((x0+x1) > (x2+x3)) (x0+x1) else (x2/x3)) (if((x0+x1) <= (x2+x3)) (x0+x1) else (x2/x3)) (if((x0+x1) >= (x2+x3)) (x0+x1) else (x2/x3)) (if((x0+x1) = (x2+x3)) (x0+x1) else (x2/x3)) (if((x0+x1) <> (x2+x3)) (x0+x1) else (x2/x3)) (if((x0+x1) < (x2+x3)) (x0*x1) else (x2+x3)) (if((x0+x1) > (x2+x3)) (x0*x1) else (x2+x3)) (if((x0+x1) <= (x2+x3)) (x0*x1) else (x2+x3)) (if((x0+x1) >= (x2+x3)) (x0*x1) else (x2+x3)) (if((x0+x1) = (x2+x3)) (x0*x1) else (x2+x3)) (if((x0+x1) <> (x2+x3)) (x0*x1) else (x2+x3)) (if((x0+x1) < (x2+x3)) (x0*x1) else (x2-x3)) (if((x0+x1) > (x2+x3)) (x0*x1) else (x2-x3)) (if((x0+x1) <= (x2+x3)) (x0*x1) else (x2-x3)) (if((x0+x1) >= (x2+x3)) (x0*x1) else (x2-x3)) (if((x0+x1) = (x2+x3)) (x0*x1) else (x2-x3)) (if((x0+x1) <> (x2+x3)) (x0*x1) else (x2-x3)) (if((x0+x1) < (x2+x3)) (x0*x1) else (x2*x3)) (if((x0+x1) > (x2+x3)) (x0*x1) else (x2*x3)) (if((x0+x1) <= (x2+x3)) (x0*x1) else (x2*x3)) (if((x0+x1) >= (x2+x3)) (x0*x1) else (x2*x3)) (if((x0+x1) = (x2+x3)) (x0*x1) else (x2*x3)) (if((x0+x1) <> (x2+x3)) (x0*x1) else (x2*x3)) (if((x0+x1) < (x2+x3)) (x0*x1) else (x2/x3)) (if((x0+x1) > (x2+x3)) (x0*x1) else (x2/x3)) (if((x0+x1) <= (x2+x3)) (x0*x1) else (x2/x3)) (if((x0+x1) >= (x2+x3)) (x0*x1) else (x2/x3)) (if((x0+x1) = (x2+x3)) (x0*x1) else (x2/x3)) (if((x0+x1) <> (x2+x3)) (x0*x1) else (x2/x3)) (if((x0+x1) < (x2+x3)) sin(x0*x1) else sin(x2*x3)) (if((x0+x1) > (x2+x3)) sin(x0*x1) else sin(x2*x3)) (if((x0+x1) <= (x2+x3)) sin(x0*x1) else sin(x2*x3)) (if((x0+x1) >= (x2+x3)) sin(x0*x1) else sin(x2*x3)) (if((x0+x1) = (x2+x3)) sin(x0*x1) else sin(x2*x3)) (if((x0+x1) <> (x2+x3)) sin(x0*x1) else sin(x2*x3)) (if((x0+x1) < (x2+x3)) atan(x0*x1) else atan(x2*x3)) (if((x0+x1) > (x2+x3)) atan(x0*x1) else atan(x2*x3)) (if((x0+x1) <= (x2+x3)) atan(x0*x1) else atan(x2*x3)) (if((x0+x1) >= (x2+x3)) atan(x0*x1) else atan(x2*x3)) (if((x0+x1) = (x2+x3)) atan(x0*x1) else atan(x2*x3)) (if((x0+x1) <> (x2+x3)) atan(x0*x1) else atan(x2*x3))
gepModel <- function(d){CRLF}{
gepModel <- function(d){CRLF}{{CRLF}{CRLF}{TAB}ROUNDING_THRESHOLD <- {set_ff#Threshold}{CRLF}
 {TAB}{labelname} <- {labelindex}{CRLF} {TAB}{labelname} <- {labelindex}{CRLF} {CRLF} 1 1
return(dblTemp){CRLF}}
{tempvarname} <- if({tempvarname} >= ROUNDING_THRESHOLD) 1 else 0{CRLF}{CRLF}}
 gepLogi <- function(x){CRLF}{{CRLF}{TAB}return(1 / (1 + exp(-x))){CRLF}}{CRLF} gepLogi2 <- function(x, y){CRLF}{{CRLF}{TAB}return(1 / (1 + exp(-(x + y)))){CRLF}}{CRLF} gepLogi3 <- function(x, y, z){CRLF}{{CRLF}{TAB}return(1 / (1 + exp(-(x + y + z)))){CRLF}}{CRLF} gepLogi4 <- function(a, b, c, d){CRLF}{{CRLF}{TAB}return(1 / (1 + exp(-(a + b + c + d)))){CRLF}}{CRLF} gepGau <- function(x){CRLF}{{CRLF}{TAB}return (exp(-(x ^ 2))){CRLF}}{CRLF} gepGau2 <- function(x, y){CRLF}{TAB}return (exp(-((x + y) ^ 2))){CRLF}}{CRLF} gepGau3 <- function(x, y, z){CRLF}{TAB}return (exp(-((x + y + z) ^ 2))){CRLF}}{CRLF} gepGau4 <- function(a, b, c, d){CRLF}{TAB}return (exp(-((a + b + c + d) ^ 2))){CRLF}}{CRLF} gepAcsc <- function(x){CRLF}{{CRLF}{TAB}return (atan(sign(x)/sqrt(x*x-1))){CRLF}} gepAsec <- function(x){CRLF}{{CRLF}{TAB}return (2*atan(1)-atan(sign(x)/sqrt(x*x-1))){CRLF}} gepAcot <- function(x) {CRLF}{{CRLF}{TAB}return(atan(1/x)){CRLF}} gepCsch <- function(x){CRLF}{{CRLF}{TAB}if (abs(x) > 709){CRLF}{TAB}{TAB}return (0){CRLF}{TAB}else{CRLF}{TAB}{TAB}return (2/(exp(x)-exp(-x))){CRLF}} gepSech <- function(x) {CRLF}{{CRLF}{TAB}if (abs(x) > 709){CRLF}{TAB}{TAB}return (0){CRLF}{TAB}else{CRLF}{TAB}{TAB}return (2/(exp(x)+exp(-x))){CRLF}} gepCoth <- function(x) {CRLF}{{CRLF}{TAB}if (abs(x) <= 709){CRLF}{TAB}{TAB}return ((exp(x)+exp(-x))/(exp(x)-exp(-x))){CRLF}{TAB}else{CRLF}{TAB}{{CRLF}{TAB}{TAB}if (x > 0){CRLF}{TAB}{TAB}{TAB}return (-1){CRLF}{TAB}{TAB}else{CRLF}{TAB}{TAB}{TAB}return (1){CRLF}{TAB}}{CRLF}} gepAcsch <- function(x){CRLF}{{CRLF}{TAB}return (log((sign(x)*sqrt(x*x+1)+1)/x)){CRLF}} gepAsech <- function(x){CRLF}{TAB}return(log((sqr(-x * x + 1) + 1) / x)){CRLF}}{CRLF} gepAcoth <- function(x){CRLF}{TAB}return(log((x + 1) / (x - 1)) / 2){CRLF}}{CRLF} function if else # 1 # Add a DDF with the name {FUNCTION_SYMBOL} in {LANGUAGE}{CRLF}# and a parameter list equivalent to {PARAMETER_LIST}{CRLF} # Add a UDF with the name {FUNCTION_SYMBOL} in {LANGUAGE}{CRLF}