Subversion Repositories wimsdev

Rev

Rev 20 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!set methtit2=Réécriture algébrique d'une expression
2
!set methtit=Réécrire une expression
3
!set methenv=ZZ QQ RR CC
4
!set methparmtype=parm algexp nocomma nonesting, function
5
!set methhelp=Déduction par réecriture algébrique. Seules les équivalences\
6
 arithmétiques sont acceptées dans cette réécriture.
7
 
8
!if $wims_read_parm iswordof form check
16117 bpr 9
  !goto $wims_read_parm
20 reyssat 10
!endif
11
 
12
!exit
13
:form
16117 bpr 14
Réécrire l'expression
15
!read deduc/methparm.phtml 1
16
en
17
!read deduc/methparm.phtml 2,20
18
!set methremark=Seules les équivalences arithmétiques sont acceptées dans\
20 reyssat 19
  cette réécriture.
20
!exit
21
:check
16117 bpr 22
!distribute items $methparmobj1 into data,exp
23
!read deduc/sub/checkzero ($exp)-($methparm2)
24
!if $out=$empty
20 reyssat 25
  error=bad_data
26
  !exit
16117 bpr 27
!endif
28
!if $out!=yes
20 reyssat 29
  error=unjustified
30
  !exit
16117 bpr 31
!endif
32
methexp=Réécriture de \($exp)
20 reyssat 33
 
16117 bpr 34
newobject1=$methparm2
35
oldobject=1
20 reyssat 36
 
37
!exit