!!! fichier de traitement de l'exercice 1 !!!

vf=

!if $parmlist=$empty
  alert=$(alerts[1;])
  !exit
!endif

parmlist=!rawmath $parmlist
repsnb=1
reps1=$parmlist
NonValide=$(alerts[2;])
!read comsDir/repclean

!if $alertreps1!=$empty
  alert=$NonValide
  parmlist=$reps1
  !exit
!endif

parmlistnb=!itemcnt $parmlist

!if $parmlistnb!=2
  note=0
  module_score=$note
  vf=$(vfbool[2;])
  !read answer.phtml
  status=done
  !exit 
!endif

r1=!item 1 of $parmlist
r2=!item 2 of $parmlist
rpoly=(t-($r1))*(t-($r2))
TF=!exec maxima ratsimp($polyp-($rpoly));

!if $TF=0
  note=10
  vf=$(vfbool[1;])
 !else
  note=0
  vf=$(vfbool[2;])
!endif

module_score=$note
!read answer.phtml
status=done



