Subversion Repositories wimsdev

goback=0

errortext=$empty

n=$counter

# check on scientific notation 3e+12 3*10^12

test=!nospace $AAA

!if x10 isin $test

    ex=!record 68 of $remarkdir/commonremarks.$taal

    maxscore=$[$P1*$maxscore]

    !if $teaching=1

	goback=1

	errortext=$ex

      !exit

    !else

	!if $extra=$empty

	    extra=$ex

	!else

	    extra=$extra<br />$ex

	!endif

	AAA=!replace internal x10 by *10 in $AAA

    !endif

!else

    test=!replace [0-9]e[0-9] by @ in $test

    !if @ isin $test

	maxscore=$[$P1*$maxscore]

	testvar1=!replace internal e by e+ in $AAA

	testvar1=<span style="color:green">$testvar1</span>

	testvar2=<br /><span style="color:red">$AAA</span>

	errortext=!record 16 of $remarkdir/commonremarks.$taal

	goback=1

	!exit

    !endif

    AAA=!replace internal ** by ^ in $AAA

    AAA=!replace internal e+ by *10^ in $AAA

    AAA=!replace internal e- by *10^- in $AAA

    !for p=1 to 3

	AAA=!replace internal ** by * in $AAA

    !next p

    t=!char 1 of $AAA

    !if $t=*

	AAA=!char 2 to -1 of $AAA

    !endif

!endif

!exit