Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
16321 | bpr | 1 | !set methtit=Intercambiar los dos lados de una desigualdad |
20 | reyssat | 2 | !set methenv=ZZ QQ RR |
3 | !set methparmtype=parm inequality |
||
16321 | bpr | 4 | !set methhelp=Este método reescribe la desigualdad \(a < b) como \(b > a),\ |
5 | o viceversa. |
||
20 | reyssat | 6 | |
7 | !if $wims_read_parm iswordof form check |
||
16321 | bpr | 8 | !goto $wims_read_parm |
20 | reyssat | 9 | !endif |
10 | |||
11 | !exit |
||
12 | :form |
||
16321 | bpr | 13 | Intercambiar ambos lados de la desigualdad |
14 | !read deduc/methparm.phtml 1 |
||
20 | reyssat | 15 | |
16 | !exit |
||
17 | :check |
||
16321 | bpr | 18 | !distribute items $methparmobj1 into data,left,sign,right |
19 | methexp=Intercambia los dos lados de \($left $sign $right) |
||
20 | reyssat | 20 | |
16321 | bpr | 21 | newsign=!translate internal <> to >< in $sign |
22 | newobject1=$right $newsign $left |
||
23 | oldobject=1 |
||
20 | reyssat | 24 | |
16321 | bpr | 25 | contextlist=$ct_Always,\ |
26 | $ct_Onlywhen ambos lados son positivos,\ |
||
27 | $ct_Onlywhen ambos lados tienen el mismo signo,\ |
||
28 | $ct_Onlywhen la desigualdad es estricta |
||
20 | reyssat | 29 | |
16321 | bpr | 30 | resultlist=$newobject1,\ |
31 | $right $sign $left |
||
20 | reyssat | 32 | |
33 | !exit |