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)