!!! fichier de traitement de l'exercice 9 !!!

vf=

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

!! verification de la validite de la reponse !!
rmat=!rawmatrix $rmat

repsnb=1
reps1=!translate $\
$ to , in $rmat
NonValide=$(alerts[2;])
!read comsDir/repclean

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

rmatsize=!linecnt $rmat
!if $rmatsize!=3
  alert=$(alerts[3;])
  !exit
!endif

!for i=1 to 3
  L$(i)=!line $i of $rmat
  l$(i)=!itemcnt $(L$(i))
!next i
  
!if $l1!=3 or $l2!=3 or $l3!=3
  alert=$(alerts[3;])
  !exit
!endif

!!!! traitement d'une reponse valide !!!!
rmat=matrix([$L1],[$L2],[$L3])
diffmat=$mat-($rmat)
TF=!exec maxima is(equal($diffmat,zeromatrix(3,3)));

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

rmat=!texmath [$L1;$L2;$L3]
rmat=\($rmat)

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