mcell/mdl/testsuite/parser/valid/variables.mdl

a = 1
b = "foo"
c = [ 1, 2, 3, 4, 5]
d = a
e = d + 123
d = b
f = d & "bar" & "chicken"
d = c
g = INPUT_FILE

e1  = PI
e2  = (e1)
e3  = EXP(e2)
e4  = LOG(e3)
e5  = LOG10(e3)
e6  = MAX(e4, e5)
e7  = MIN(e4, e5)
e8  = ROUND_OFF(3, e6)
e9  = ROUND_OFF(3, e7)
e10 = FLOOR(e8)
e11 = CEIL(e9)
e12 = SIN(e10)
e13 = COS(e10)
e14 = e12*e12 + e13*e13
e15 = TAN(e10)
e16 = ASIN(0.5)
e17 = ACOS(0.5)
e18 = ATAN(0.5)
e19 = SQRT(2.0)
e20 = ABS(-1.0)
e21 = ABS(1.0)
e22 = ABS(0.0)
e23 = MOD(2.1, 1.7)
e24 =(RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM
    + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM + RAND_UNIFORM) / 64
e25 =(RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN
    + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN + RAND_GAUSSIAN) / 64
e26 = SEED
e27 = STRING_TO_NUM("1")
e28 = STRING_TO_NUM("1.2")
e29 = STRING_TO_NUM("-1.2")
e30 = STRING_TO_NUM("-1.4e-4")
e31 = (e27 + e28) * (e28 - e27)
e32 = +4
e33 = -5
e34 = 2.1 ^ 3

s1  = "3.14159265358979"
s2  = "3.14159265358979"
s3  = "23.1406926327793"
s4  = "3.14159265358979"
s5  = "1.36437635384184"
s6  = "3.14159265358979"
s7  = "1.36437635384184"
s8  = "3.14"
s9  = "1.36"
s10 = "3"
s11 = "2"
s12 = "0.141120008059867"
s13 = "-0.989992496600445"
s14 = "1"
s15 = "-0.142546543074278"
s16 = "0.523598775598299"
s17 = "1.0471975511966"
s18 = "0.463647609000806"
s19 = "1.4142135623731"
s20 = "1"
s21 = "1"
s22 = "0"
s23 = "0.4"
s24 = "0.5/.03608439182435161028"
s25 = "0.0/0.125"
sprintf(s26, "%g", SEED)
s27 = "1"
s28 = "1.2"
s29 = "-1.2"
s30 = "-0.00014"
s31 = "0.44"
s32 = "4"
s33 = "-5"
s34 = "9.261"

testfile = fopen(basename & "-expressions.dat", "w")
nexpr = 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e1,  s1) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e2,  s2) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e3,  s3) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e4,  s4) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e5,  s5) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e6,  s6) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e7,  s7) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e8,  s8) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr,  e9,  s9) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e10, s10) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e11, s11) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e12, s12) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e13, s13) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e14, s14) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e15, s15) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e16, s16) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e17, s17) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e18, s18) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e19, s19) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e20, s20) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e21, s21) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e22, s22) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e23, s23) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g ~= %s\n", nexpr, e24, s24) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g ~= %s\n", nexpr, e25, s25) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e26, s26) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e27, s27) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e28, s28) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e29, s29) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e30, s30) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e31, s31) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e32, s32) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e33, s33) nexpr = nexpr + 1
fprintf(testfile, "%03g: %.15g == %s\n", nexpr, e34, s34) nexpr = nexpr + 1
fclose(testfile)