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 |