Subversion Repositories wimsdev

!!! fichier de traitement des données de l'exo de type 2 !!!

## l'étape 4
!if $navig!=$etape
  chronobs=0
  chronfoncs=0
  etape=$navig
  rfmatL=
  rindic=
  !exit
!endif

!if $foncsrep=$empty
  exalert=$(alerts[1;])
  !exit
!endif
  
!if $(ftypList[$(foncstypList[$[$chronfoncs+1]]);])=matrix
  foncsrep=!rawmatrix $foncsrep
  ligne1=!line 1 of $foncsrep
  colns=!itemcnt $ligne1
  ligns=!linecnt $foncsrep
  errnb=0
  !for i=1 to $ligns
    L=!line $i of $foncsrep
    n=!itemcnt $L
    !if $n!=$colns
      errnb=$[$errnb+1]
    !endif
  !next i
  !if $errnb!=0
    exalert=$(alerts[4;])
    !exit
  !endif
  foncsrep=!translate $\
  $ to ; in $foncsrep
  foncsrep=($foncsrep)
!endif
  
chronfoncs=$[$chronfoncs+1]

rfmatL=!append item ($foncsrep) to $rfmatL
!if $foncsrepList!=$empty
  foncsrepL=!replace item number $chronfoncs by ($foncsrep) in $(foncsrepList[$[$chronobs+1];])
  foncsrepList=!replace line number $[$chronobs+1] by $foncsrepL in $foncsrepList  
!endif
 
temp_indic=!translate $\
$ to $ $ in $exo_indic
temp_indic=!trim $temp_indic
!if $temp_indic=$empty
  temp_indic=(0,0)
 !else
   temp_indic=(1,$temp_indic)
!endif

rindicL=!append item $temp_indic to $rindicL
!if $indicList_fonc!=$empty
  indicL=!replace item number $chronfoncs by $temp_indic in $(indicList_fonc[$[$chronobs+1];])
  indicList_fonc=!replace line number $[$chronobs+1] by $indicL in $indicList_fonc
!endif
  
!if $chronfoncs=$foncsnb
  chronfoncs=0
  chronobs=$[$chronobs+1]
  rfmat=!append line $rfmatL to $rfmat
  rindic=!append line $rindicL to $rindic
  foncsrep=
  rfmatL= 
  rindicL=
  
  !if $chronobs=$obsnb
    etape=$[$etape+1]
    foncsrepList=$rfmat
    indicList_fonc=$rindic
    chronobs=0
    rfmat=
    rindic=
  !endif
  
!endif
exo_indic=
!exit