!!! fichier d'initialisation pour l'exo de type 1 !!!

!if $titre=$empty 
  auteur=Joachim YAMEOGO
  imel=yameogo@math.unice.fr
  titre=test
  enonceR=!record 1 of comsDir/enonces
!endif

rpmat=$propsrepList

propsList=
obsList=

!if $obsrecord!=$empty
  obsnb=!linecnt $obsrecord
  !for i=1 to $obsnb
    obsList=!append line $(obsrecord[$i;]), to $obsList
  !next i
   obsList=!replace line number $obsnb by $(obsrecord[$obsnb;]) in $obsList
!endif

!if $propsrecord!=$empty
  pn=!linecnt $propsrecord
  pn=$[$pn-1]
  propsnb=$pn  
  !for i=1 to $pn
    prop=$(propsrecord[$i;])
    prop=!trim $prop
    !if ; isin $prop
      propsList=!append line $prop, to $propsList
     !else
      propsList=!append line ($prop), to $propsList
    !endif
  !next i
  prop=!char 1 to -2 of $(propsList[$pn;])
  propsList=!replace line number $pn by $prop in $propsList   
!endif


!if $demo=oui
  obsList=!record 1 of demosDir/demo1data
  propsList=!record 2 of demosDir/demo1data
  propsrepList=!record 3 of demosDir/demo1data
  obsnb=!itemcnt $obsList
  propsnb=!itemcnt $propsList
  ckchnb=2
  enonceR=!record 4 of demosDir/demo1data
  indicList_obj=!record 5 of demosDir/demo1data
!endif
 
chronobs=0
etapesnb=6

typvarcnt=15

!if $indicList_obj!=$empty
  !for i=1 to $obsnb
    dinc=!trim $(indicList_obj[$i;])
    dinc=!char 2 of $dinc
    !if $dinc=0
      indicList_obj=!replace line number $i by (0,$ $) in $indicList_obj
    !endif
  !next i
  Lnb=!linecnt $indicList_obj
  !if $Lnb<$obsnb
    !for i=1 to $[$obsnb-$Lnb]
      !append line (0,$ $) to $indicList_obj
    !next i
  !endif
!endif
