!!! fichier de prsentation de l'tape 4 !!!
<center>
  <b><font color="darkcyan" size="+1"> Etape $etape <u> saisie des valeurs des fonctions</u></font></b>
<table>
  <tr>
    <td>
      <p style="background-color:lightblue">
      Indiquez pour l'objet et la fonction
      ci-dessous, la valeur de la fonction.
      </p>
    </td>
  </tr>
</table>
</center>
<br>
!set obtemp=!line $[$chronobs+1] of $obsrecord
!set obtemp=!trim $obtemp
!set obtemp=!char 2 to -2 of $obtemp
!set indictemp=!trim $(indicList_fonc[$[$chronobs+1];$[$chronfoncs+1]])
!set com=!char 4 to -2 of $indictemp
!set indictemp=!trim $com

!set foncsrep=!trim $(foncsrepList[$[$chronobs+1];$[$chronfoncs+1]])
!set foncsrep=!char 2 to -2 of $foncsrep

!set fonc=!line $[$chronfoncs+1] of $foncsrecord
!set fonc=!trim $fonc
!set fonc=!char 2 to -2 of $fonc

<center>
  <table border="3">
    <tr>
      <th align="center" bgcolor="lightblue">
       Objet
      </th>
      <th align="center" bgcolor="wheat">
       Fonction
      </th>
      </th>
      <th align="center">
       Valeur de la fonction
      </th>
    </tr>
    <tr>
      <td bgcolor="lightblue" align="center">
        <table>
	  <tr>
	    <td bgcolor="white">
	      $obtemp
	    </td>
	  </tr>
	</table>
      </td>
      <td bgcolor="wheat" align="center">
        <table>
	  <tr>
	    <td bgcolor="white">
	      $fonc
	    </td>
	  </tr>
	</table>
      </td>
      <td align="center" nowrap="nowrap">
        !if $(ftypList[$(foncstypList[$[$chronfoncs+1]]);])!=matrix
          <input size="20" name="foncsrep" value="$foncsrep">
	 !else
	   !set foncsrep=!declosing $foncsrep
	   !set foncsrep=!translate ; to $\
	   $ in $foncsrep
           <textarea rows="6" cols="10" name="foncsrep">$foncsrep</textarea>
	!endif
	&nbsp; type du rsultat: <font color="magenta"><b>
	$(typafList[$(foncstypList[$[$chronfoncs+1]]);]) </b></font>
      </td>
    </tr>
    <tr>
      <td colspan="3" bgcolor="white">
        <hr>
        Saisir ici si besoin une indication pour cette question:
	<br>
	<center>
	  !set wims_backslash_insmath=no
	  !set indictemp=!reinput $indictemp
	  <textarea name="exo_indic" rows="5" cols="60">$indictemp</textarea>
	  !set wims_backslash_insmath=yes
	</center>
      </td>
    </tr>
  </table>
</center>

!read comsDir/valideb
