Subversion Repositories wimsdev

/*

 3/5/2008 version 0.02 [added item 10]

 18/5/2008 version 0.03 [added item 11]

 19/5/2008 version 0.04 [added item 12,13,14,15]

 12/2012 version 0.05 [added item 16...26]

 5/2014 version 0.06 [ added item 27,28]

 6/2016 version 0.07 [added item 29]

 3/2018 version 0.08 [added item 30]

 6/2017 version 0.09 [added item 32] modified item 24

 this is all very premature !!! The naming needs to be adapted to f1,f2...f20

  1 science(t)  checks scientific notation 4e+4 --> 4*10^4              : returns modified t or "error"

  2 check_o(t)  checks letter o instead of number 0                     : returns 0 or 1 (0=error,1=success)           

  3 check_f(t)  checks parenthesis usage in functions sin()             : returns 0 or 1       

  4 check_x(t)  checks usage of x as multiplication *                   : returns 0 or 1

  5 specialroot(t)      converts sqrt[a](b) to b^(1/a)                          : returns modified t or "error"

  6 speciallog(t)       converts log[a](b) to log(b)/(log(a))                   : returns modified t or "error"

  7 nthroot(t)  converts root(b,a) to b^(1/a)                           : returns modified t or "error"

  8 check_log_NaN(t)    checks negative numbers in log                          : returns 0 or 1

  9 check_sqrt_NaN(t)   checks negative numbers in sqrt                         : returns 0 or 1

 10 normalize(t)        converts accents to letters without...                  : returns modified t or "error"

 11 prefix(t)           converts SI prefixes to powers of 10                    : returns modified t or "error"

 12 check_s2(t) checks and corrects powers 10^01,10^0.1                 : returns modified t or "error"

 13 arrows(t,arg1,arg2,arg3)

        t is answer ; if needed "t" will be corrected for special sqrt[] and log[] syntax

        arg1=switch:

                arg1=0  : converts ascii arrows to unified "->"

                arg1=1  : converts ascii arrows to unified "\u2192"

                arg1=2  : returns no arrows ,just the text after the last arrow

                arg1=3  : returns no arrows...the answer is an array

                arg1=4  : returns the answer ,checks on all steps if arg2 and "=" are present

        arg2=x  : variable name in needed ($varlist?)

        arg3=3  : amount -if any- of arrows...

 14 keywords(t) convert all keywords to  ' and '                        : returns modified t or "error"

 15 upper_f(t)  converts all 'known' functions and 'and' to uppercase   : returns modified t or "error"

 16 is_number(t)        checks if no text is present                            : returns 0 or 1  (0=error,1=success)

 17 is_real_number(t)   checks if real number: no sqrt or e+ allowed                    : returns 0 or 1  (0=error,1=success)

 18 make_description(list,cnt) converts wims item list into javascript array size "cnt" : returns array(cnt)

 19 myConfirm(txt,reply,server,session,module,counter,color) will send answer to server...or not

 20 nospace(string) returns string without spaces

 21 singlespace(string) returns  string with multiple spaces collapsed (including trailing spaces; eg trim)

 22 word2items(string) returns itemlist (not a js-array ) 1 2 3 -> 1,2,3

 23 rawmath(string) returns modified string 4x -> 4*x  ; 4sin(3pi) -> 4*sin(3*pi)

 24 words2string(words,separator) returs modified string 1 2 3 --> 1:2:3 or 1@2@3

 25 wordcnt(string) || wordcount(string) returns amount of words " A   B  ABC     " = 3  [a space is not a word]

 26 is_text(string) returns 0 if number are present in text

 27 shuffle(array) : returns randomized array

 28 randint(x1,x2) : returns random integer between x1 and x2

 29 plusminus(t) : reforms the answer t : x= pm 5 or x= pm 6 (etc) into x=5 or x=-5 or x=6 or x=-6  : returns modified t or "error"  [pm -> \u00B1 can be used with mathmlinput app.]

 30 disable_mathml_input(): called only in answer.phtml to disable some mathml formula$n with inputfields.

 31 check_js_injection(reply) : checks for substring 'script>' in a reply (case / space insensitive, array or string-based reply)

*/

function disable_mathml_input(){

    /* change to 'input' when wims_mathml changes... */

    if( document.getElementsByTagName('textarea') != null ){

        var len = document.getElementsByTagName('textarea').length;

        for(var p= 0 ; p<len ;p++){

            document.getElementsByTagName('textarea')[p].setAttribute('readonly','readonly');

        };

    };

};

function shuffle(array) {

    for (var i = array.length - 1; i > 0; i--) {

        var j = Math.floor(Math.random() * (i + 1));

        var temp = array[i];

        array[i] = array[j];

        array[j] = temp;

    };

    return array;

};

function randint(min,max){return Math.floor(Math.random()*(max-min+1)+min);};

function SetTexAppSize(){

    if( document.getElementById('TexApp1') ){ // starts with 1 !!!!

        var p = 1;var xsize,ysize;

        while ( document.getElementById('TexApp'+p) ){

            try{

                xsize = document.getElementById('TexApp'+p).getPrefferedWidth();

                ysize = document.getElementById('TexApp'+p).getPrefferedHeight();

                document.getElementById('TexApp'+p).width = xsize;

                document.getElementById('TexApp'+p).height = ysize;

                p++;

            }catch(e){setAlarm("The resizing of the applet went wrong...<br />May be your java \"virtual machine\" is very slow in starting up...<br />Try a reload on the page ...<br />or try a different -more recent- browswer<br />Use the Oracle / SUN java plugin...the \"OpenJDK plugin (icedtea)\" is known to have some serious problems");return;}// problems on opera (bug)

        };

        if(document.getElementById('wait_for_applet')){

            document.getElementById('wait_for_applet').style.display = "none";

        };

    };

};

function setAlarm(txt){

    var h = parseInt( (document.documentElement.clientHeight)/2);

    var w = parseInt( (document.documentElement.clientWidth)/2 - 200);

    var alarmbox = document.getElementById('alarmtext');

    alarmbox.style.top = h+'px';

    alarmbox.style.left = w+'px';

    alarmbox.style.display = "block"

    alarmbox.innerHTML=txt;

    window.scrollTo(w,h-120);

    setTimeout('resetAlarm()',4000);

};

function check_js_injection(r){

  r = r.toString().toLowerCase(); r = nospace(r);

  return r.indexOf('script>');

};

function myConfirm(txt,reply,server,session,module,counter,color){

    if( check_js_injection(reply) > 0 ){setAlarm('@#! JAVASCRIPT !#@');return;}

    reply=encodeURIComponent(reply);

//    reply = reply.replace(/'/g,'%22'); // need to replace '  

    reply = reply.replace(/'/g,"\\'"); // need to escape " 

    var h = parseInt( (document.documentElement.clientHeight)/2);

    var w = parseInt( (document.documentElement.clientWidth)/2 - 200);

    var alarmbox = document.getElementById('alarmtext');

    alarmbox.style.top = h+'px';

    alarmbox.style.left = w+'px';

    alarmbox.style.display = "block";

    window.scrollTo(w,h-120);

    alarmbox.innerHTML=r0+'<br /><span style=\"color:red\"><tt>'+txt+'</tt></span><br />'+"<input type=\"button\" id=\"schaersvoorde_confirm_ok_button\" value="+r45+" onclick=\"javascript:document.getElementById(\'schaersvoorde_exercise\').setAttribute(\'style\',\'background-color:"+color+"\');if(xcalc_window != null ){ xcalc_window.close();};if( typeof popup !== 'undefined'){popup.close();};document.location.href = \'"+server+"?session="+session+"&module="+module+"&cmd=reply&reply"+counter+"="+reply+"\';\" />&nbsp;&nbsp;<input type=\"button\" id=\"schaersvoorde_confirm_nok_button\" value="+r46+" onclick=\"javascript:resetAlarm()\" \>"

};

function resetAlarm(){

    document.getElementById('alarmtext').style.display = "none";

};

function science(t){// corrected: startvalue+3 != startvalu*10^3 :)

    t=t.replace(/\*\*/g,'^');

    t=t.replace(/x10/g,'*10')

    e=t.indexOf('e');

    if(e != -1){

        cc=['0','1','2','3','4','5','6','7','8','9'];

        var c0;var c1;var t0;var t1;var c;var a;var trouble=0;var s;

        while(e!=-1){

            t0=t.charAt(e-1);

            t1=t.charAt(e+1);

            t2=t.charAt(e+2);

            c0=0;c1=0;

            for(s=0;s<10;s++){a=cc[s];if(t0==a){c0=1;}}

            for(s=0;s<10;s++){a=cc[s];if(t1==a){c1=1;}}

            if(c0==1 && c1==1){t=t.replace('e','*10^');}

            if(c0==1 && c1==0 && t1=="+"){t=t.replace('e+','*10^');}

            if(c0==1 && c1==0 && t1=="-"){t=t.replace('e-','*10^-');}

            if(c0==1 && c1==0 && t1==""){t=t.replace('e','E');}

            t=t.replace('e','E');

            e=t.indexOf('e');

            trouble++;if(trouble>100){setAlarm(r20);t="error";return t;}

        };

        t=t.replace(/E/g,"e");

        t=t.replace(/10\^0/g,"10^");

    };

    return t;

};

function check_o(t){

    var alfabet="abcdefghijklmonpqrstuvwxyz";

    var Alfabet="ABCDEFGHIJKLMONPQRSTUVWXYZ";

    var dingen=['1','2','3','4','5','6','7','8','9','0','.','+','-','*','/','^','=',' '];

    var ld=dingen.length;var t2;var d;var sa;

    var os=['o','O'];var o;var trouble=0;

    for(s=0;s<2;s++){

        o=os[s];t1=t.indexOf(o)

        while(t1!=-1){

            if(t1<1){t2='a';}else{t2=t.charAt(t1-1);}

            t3=t.charAt(t1+1);

            if(t3!=" " && t2!=" "){

                if(alfabet.indexOf(t2)==-1 && Alfabet.indexOf(t2)==-1 && alfabet.indexOf(t3)==-1 && Alfabet.indexOf(t3)==-1){

                    for(sa=0;sa<ld;sa++){

                        d=dingen[sa];

                        if(t3==d || t2==d){

                            setAlarm(r5);return 0;

                        };

                    };

                };

            };

            t=t.replace(o,'0');t1=t.indexOf(o);

            trouble++;if(trouble>200){setAlarm(r20);return 0;};

        };

    };

    return 1;

};

function check_f(t){

    if(t.indexOf('^^') > 0 ){setAlarm(r48);return 0;};

    t=t.replace(/log\[/g,'#');

    t=t.replace(/sqrt\[/g,'#');

    var ft;var ismatch;var fun;var F;var c0;var t1;

    var functies=['log','ln','abs','sqrt','sin','cos','tan','atan','acos','sinh','cosh','tanh'];

    ft=functies.length;var trouble=0;

    var len = t.length;var fnd = 0;

    var numbers="0123456789";

    for(var s=0;s<ft;s++){

        fun=functies[s];ismatch=t.indexOf(fun);F=fun.toUpperCase();c0=fun.length;

        while(ismatch != -1 ){

            c=c0+ismatch;t1=t.substring(c,c+1);

            fnd = 0;

            if( t1 == '^'){

                for(var r=c;r<len-1;r++){

                    var c1 = t.charAt(r);

                    var isnumber = numbers.indexOf(c1);

                    var c2 = t.charAt(r+1);

                    if( c2 == '(' && isnumber != -1){

                        fnd = 1;

                        break;

                    }

                }

            };

            if(t1=='(' || (t1=='^' && fnd == 1) ){

                t=t.replace(fun,F);ismatch=t.indexOf(fun);

            }

            else

            {

                setAlarm(r9);return 0;

            }

            trouble++;if(trouble>200){setAlarm(r20);return 0;}

        };

    };

    return 1;

};

function check_x(t){

    var dingen=['1','2','3','4','5','6','7','8','9','0'];

    var t2;var t3;var d;var chk;var trouble=0;

    t1=t.indexOf('x');

    /// tollerate: x1= x2= etc ---> t1>0

    while(t1>0){

        chk=0;

        t2=t.charAt(t1-1);

        t3=t.charAt(t1+1);

        for(s=0;s<10;s++){

            d=dingen[s];

            if(t2==d){chk=chk+1;}if(t3==d){chk=chk+1;};

        };

        if(chk==2){setAlarm(r7);return 0;};

        t=t.replace('x','*');t1=t.indexOf('x');

        trouble++;if(trouble>100){setAlarm(r20);return 0;};

    };

    return 1;

};

function specialroot(t){

    var power;var sqrt;var begin;var end;var mod;var tot;var wait;var got;var chr;var t1;var t2;var t3;var t4;var test;var org;

    t2=t.indexOf("](");if(t2==-1){setAlarm(r11);t="error";return t;}

    org=t;t=t.replace(/sqrt\(/g,"SQRT(");

    t=t.replace(/log\[/g,"LOG~");t=t.replace(/sqrt\[/g,"@[");test=t.replace(/[a-z]\[/g,"#");

    if(test.indexOf("#")!=-1){setAlarm(r11);t="error"; return t;};

    t2=t.indexOf("[");var trouble=0;

    while(t2 != -1){

        begin=t.indexOf("@");t2=t.indexOf("[");t3=t.indexOf("]");

        if(t2==begin+1 && t3>t2){

            power=t.substring(t2+1,t3);

            if(power.length==0){setAlarm(r16);t="error";return t;};

            if(power<2){setAlarm(r16);t="error";return t;}

            t4="["+power+"]";t=t.replace(t4,'');

            tot=t.length;wait=0;got=0;end=0;

            for(s=begin;s<tot;s++){

                if(end==0){

                    chr=t.charAt(s);

                    if(chr=="("){wait=wait+1;};

                    if(chr==")"){got=got+1;};

                    if(got!=0){if(wait==got){end=s;};};

                };

            };

            begin=begin+2;

            sqrt=t.substring(begin,end);

            mod=(power % 2);

            if(sqrt<0 && mod!=1){setAlarm(r16);t="error";return t;};

            t=t.replace("@("+sqrt+")","("+sqrt+")^(1/("+power+"))");

        }

        else

        {

         t=t.replace("]","?");

        };

        trouble++;if(trouble>100){setAlarm(r20);t="error";return t;};

    };

    t=t.replace(/SQRT\(/g,"sqrt(");t=t.replace(/LOG~/g,"log[");t=t.replace(/~/g,"[");t=t.replace(/\?/g,"]");t=t.replace(/@/g,"sqrt");

    return t;

};

function speciallog(t){

    var noemer;var teller;var begin;var end;var tot;var wait;var got;var chr;var t1;var t2;var t3;var t4;

    t2=t.indexOf("](");if(t2==-1){setAlarm(r11);t="error";return t;}

    t=t.replace(/log\(/g,'LOG(');

    t=t.replace(/log/g,"@");

    t2=t.indexOf("[");var trouble=0;

    while(t2 != -1){

        begin=t.indexOf("@");t3=t.indexOf("]");

        if(t2==begin+1 && t3>t2){

            grondtal=t.substring(t2+1,t3);

            if(grondtal=="10"){setAlarm(r14);t="error";return t;}

            if(grondtal=="e" || grondtal=='E'){setAlarm(r15);t="error";return t;}

            t4="["+grondtal+"]";t=t.replace(t4,'');

            tot=t.length;wait=0;got=0;end=0;

            for(s=begin;s<tot;s++){

                if(end==0){

                    chr=t.charAt(s);

                    if(chr=="("){wait=wait+1;}

                    if(chr==")"){got=got+1;}

                    if(got!=0){if(wait==got){end=s;}}

                }

            }

            begin=begin+2;teller=t.substring(begin,end);

            if(grondtal==teller){setAlarm(r17);}

            t=t.replace("@("+teller+")","(~("+teller+")/~("+grondtal+"))");

        }else{t=t.replace("[","%");}

        t2=t.indexOf("[");

        trouble++;if(trouble>100){setAlarm(r20);t="error";return t;}

    }

    t=t.replace(/\%/g,"[");t=t.replace(/~/g,"log");t=t.replace(/LOG\(/g,"log(");t=t.replace(/@/g,"log");

    return t;

}

function check_log_NaN(t){

    t=t.replace(/log\(/g,'@(');if(t.indexOf('@')==-1){return 1;}

    if(t.indexOf('--')!=-1 || t.indexOf('++')!=-1 ){setAlarm(r18);return 0;}

    /* 3/2017 added ^ to dingen ; eval return 0 for eval(4^6) */

    dingen=['^','@','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];

    begin=t.indexOf('@');var exp;var variable;var trouble=0;var sa;

    while(begin != -1){

        t1=t.indexOf('(');

        t2=t.indexOf(')');

        if(t1=begin+1 && t2>t1){

            tot=t.length;wait=0;got=0;end=0;

            for(s=begin;s<tot;s++){

                if(end==0){

                    chr=t.charAt(s);

                    if(chr=="("){wait=wait+1;}

                    if(chr==")"){got=got+1;}

                    if(got!=0){if(wait==got){end=s;}}

                }

            }

            begin=begin+2;exp=t.substring(begin,end);sa=0;variable=0;

            while(sa<28){v=dingen[sa];w=exp.indexOf(v);if(w!=-1){sa=28;variable=1;}sa++;}

            if(variable==0){test=eval(exp);if(test<=0){setAlarm(r16);return 0;}}

            t=t.replace('@(','log(');begin=t.indexOf('@');

        }else{return 1;}

        trouble++;

        if(trouble>100){setAlarm(r20);return 0;}

    }

    return 1;

}

function check_sqrt_NaN(t){

    t=t.replace(/sqrt\(/g,'@(');if(t.indexOf('@')==-1){return 1;}

    if(t.indexOf('--')!=-1 || t.indexOf('++')!=-1 ){setAlarm(r18);return 0;}

    dingen=['@','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];

    begin=t.indexOf('@');var exp;var variable;var trouble=0;var s;var sa;

    while(begin != -1){

        t1=t.indexOf('(');

        t2=t.indexOf(')');

        if(t1=begin+1 && t2>t1){

            tot=t.length;wait=0;got=0;end=0;

            for(s=begin;s<tot;s++){

                if(end==0){

                    chr=t.charAt(s);

                    if(chr=="("){wait=wait+1;}

                    if(chr==")"){got=got+1;}

                    if(got!=0){if(wait==got){end=s;}}

                }

            }

            begin=begin+2;exp=t.substring(begin,end);exp=exp.replace(/\ /g,'');sa=0;variable=0;

            while(sa<27){v=dingen[sa];w=exp.indexOf(v);if(w!=-1){sa=27;variable=1;}sa++;}

            if(variable==0){test=eval(exp);if(test<0){setAlarm(r16);return 0;}}

            t=t.replace('@(','sqrt(');begin=t.indexOf('@');

        }else{return 1;}

        trouble++;

        if(trouble>100){setAlarm(r20);return 0;}

    }

    return 1;

}

function nthroot(t){

    var test=t.replace(/root/g,'@');

    if(test.indexOf('@')==-1){return t;}

    var t1;var t2;var t3;var exp;var variable;

    var under;var wait;var end;var got;var s;var trouble=0;

    t=t.replace(/root/g,'@');var begin=t.indexOf('@');

    var tot=t.length;

    while(begin != -1){

        t1=t.indexOf('(');

        t2=t.indexOf(')');

        if(t1=begin+1 && t2>t1){

            wait=0;got=0;end=0;

            for(s=begin;s<tot;s++){

                if(end==0){

                    chr=t.charAt(s);

                    if(chr=="("){wait=wait+1;}

                    if(chr==")"){got=got+1;}

                    if(got!=0){if(wait==got){end=s;}}

                }

            }

            under=t.substring(begin+2,end);

            t3=under.indexOf(',');

            if(t3==-1){t=t.replace("@("+under+")","sqrt%"+under+"#");}

            else{

                variable=under.substring(0,t3);

                exp=under.substring(t3+1,end)

                if(exp.indexOf(',')!=-1 || variable.indexOf(',')!=-1 ){setAlarm(r20);t="error";return t;}

                t=t.replace("@("+under+")","%"+variable+"#^%1/%"+exp+"##");

            }

        }

        else

        {

            t=t.replace('(','%');

            t=t.replace(')','#');

        }

        tot=t.length;

        begin=t.indexOf('@');

        trouble++;if(trouble>100){setAlarm(r20);t="error";return t;}

    }

    t=t.replace(/\%/g,'(');

    t=t.replace(/#/g,')');

    return t;

}

function normalize(t){

    // we can't use lower.case() because of F(x)= x^123 + C :(

    var accent_H = ['Æ','Ã','À','Ä','Â','É','È','Ë','Ê','Ã','Ì','Ã','Î','Ó','Ò','Ö','Ô','Ú','Ù','Ü','Û','Ç','²','³','¼','½','¾','ß'];

    var normal_H = ['AE','A','A','A','A','E','E','E','E','A','I','I','I','O','O','O','O','U','U','U','U','C','^2','^3','0.25','0.5','0.75','S'];

    var accent_L = ['ò','ó','ô','õ','ö','ø','ù','ú','û','ü','à','á','â','ã','ä','å','ç','è','é','ê','ë','ì','í','î','ï','ñ','æ'];

    var normal_L = ['o','o','o','o','o','o','u','u','u','u','a','a','a','a','a','a','c','e','e','e','e','i','i','i','i','n','ae'];

    var char_t;var s;var str_a;var str_n;var trouble=0;

    for(s=0;s<accent_H.length;s++){

        str_a=accent_H[s];

        str_n=normal_H[s];

        while(t.indexOf(str_a)!=-1){

            t=t.replace(str_a,str_n);

            trouble++;if(trouble>200){setAlarm(r20);t="error";return t;}

        }

    }

    trouble=0;

    for(s=0;s<accent_L.length;s++){

        str_a=accent_L[s];

        str_n=normal_L[s];

        while(t.indexOf(str_a)!=-1){

            t=t.replace(str_a,str_n);

            trouble++;if(trouble>200){setAlarm(r20);t="error";return t;}

        }

    }

    return t;

}

function prefix(t){

    // replace SI prefixes 

    // still no good: case sensitive !!! can not / will not do a lowercase on the student reply ...

    var SI=['*10^-1','*10^1','*10^6','*10^12','*10^15','*10^18','*10^15','*10^12','*10^9','*10^6','*10^3','*10^2','*10^1','*10^-1','*10^-2','*10^-3','*10^-6','*10^-9','*10^-12','*10^-15','*10^-18'];

    var VA1=['déci','déca','méga','téra','péta','exa','peta','tera','giga','mega','kilo','hecto','deca','deci','centi','milli','micro','nano','pico','femto','atto'];

    var VA2=['Déci','Déca','Méga','Téra','Péta','Exa','Peta','Tera','Giga','Mega','Kilo','Hecto','Deca','Deci','Centi','Milli','Micro','Nano','Pico','Femto','Atto'];

    var trouble=0;var l=VA1.length;var prefix1;var prefix2;var prefix3;var x1;var x2;var x3;var s;var number;var s1;var s2;var s3;var rep=0;var t;var x4;

    for (s=0;s<l;s++){

        number=SI[s];prefix1=VA1[s];prefix2=VA2[s];prefix3=prefix1.toUpperCase();x1=t.indexOf(prefix1);x2=t.indexOf(prefix2);x3=t.indexOf(prefix3)

        while(x1 != -1 || x2 !=-1 || x3 !=-1){

            rep=0;s1=t.indexOf('*'+prefix1);s2=t.indexOf('*'+prefix2);s3=t.indexOf('*'+prefix3);

            if(s1 != -1){t=t.replace('*'+prefix1,number);rep=1;}if(s2 != -1){t=t.replace('*'+prefix2,number);rep=1;}if(s3 != -1){t=t.replace('*'+prefix3,number);rep=1;}

            if(rep==0){t=t.replace(prefix1,number);t=t.replace(prefix2,number);t=t.replace(prefix3,number);}

            x1=t.indexOf(prefix1);x2=t.indexOf(prefix2);x3=t.indexOf(prefix3);

            trouble++;if(trouble>200){setAlarm(r20);t="error";return t;}

        }

    }

    if(t.charAt(0)=='*'){x4=t.length;t=t.substring(1,x4);}

    return t;  

}

function check_s2(t){

    // scientific notation...broken exponents or 10^03 or 10^+3 10^0.4 10^.5 10^12.3 ...

    var x=t.indexOf('^');

    if(x != -1){

        var x1=t.charAt(x+1);var x2=t.charAt(x+2);var x3=t.charAt(x+3);

        if(x1 == '.' || x2 == '.' || x3 == '.'){setAlarm(r10);t="error";return t;}

        if(x1 == '0' && x2 == ''  && x3 == '' ){t=t.replace(/\*10\^0/,'*1');}

        if(x1 == '0' && x2 != '' ){x=x.replace(/10\^0/,'10^');}

        if(x1 == '+' && x2 == ''  && x3 == '' ){setAlarm(r16);t="error";return t;}

        if(x1 == '+' && x2 != '' ){t=t.replace(/\^\+/g,'^');}

    }

    return t;

}

function keywords(t){

    var kwords=[' en ',' et ',' of ',' or ',' ou ',' plus ',' and ','and/or',' & '];

    var a1;t=t.replace(/\~/g,' ');var trouble=0;t=t.toLowerCase();

    for (var s=0 ; s<kwords.length ; s++){

        a1=kwords[s];

        while(t.indexOf(a1) != -1){

            t=t.replace(a1,'~');

            trouble++;if(trouble>100){setAlarm(r20);t="error";return t;}

        }

    }

    t=t.replace(/\~/g,' and ');

    return t;

}

function upper_f(t){