Rev 16321 | Go to most recent revision | Details | 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 |
||
9 | !goto $wims_read_parm |
||
10 | !endif |
||
11 | |||
12 | !exit |
||
13 | :form |
||
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\ |
||
19 | cette réécriture. |
||
20 | !exit |
||
21 | :check |
||
22 | !distribute items $methparmobj1 into data,exp |
||
23 | !read deduc/sub/checkzero ($exp)-($methparm2) |
||
24 | !if $out=$empty |
||
25 | error=bad_data |
||
26 | !exit |
||
27 | !endif |
||
28 | !if $out!=yes |
||
29 | error=unjustified |
||
30 | !exit |
||
31 | !endif |
||
32 | methexp=Réécriture de \($exp) |
||
33 | |||
34 | newobject1=$methparm2 |
||
35 | oldobject=1 |
||
36 | |||
37 | !exit |
||
38 |