Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !set methtit2=Diviser une équation par un nombre non-nul |
2 | !set methtit=Diviser une équation par un nombre |
||
3 | !set methenv=ZZ QQ RR CC |
||
4 | !set methparmtype=number,parm equation |
||
5 | !set methhelp=Cette méthode transforme une équation \(A = B)\ |
||
6 | en l'équation équivalente \(A/n = B/n), où \(n) est un nombre\ |
||
7 | non-nul. |
||
8 | |||
9 | !if $wims_read_parm iswordof form check |
||
16117 | bpr | 10 | !goto $wims_read_parm |
20 | reyssat | 11 | !endif |
12 | |||
13 | !exit |
||
14 | :form |
||
15 | Diviser l'équation |
||
16 | !read deduc/methparm.phtml 2 |
||
17 | par un nombre |
||
18 | !read deduc/methparm.phtml 1,10 |
||
19 | |||
20 | !exit |
||
21 | :check |
||
16117 | bpr | 22 | !distribute items $methparmobj2 into data,left,sign,right |
23 | !ifval $methparm1=0 |
||
20 | reyssat | 24 | error=Division par zéro ! |
25 | !advance penalty |
||
26 | !exit |
||
16117 | bpr | 27 | !endif |
28 | methexp=Diviser \($left $sign $right) par \($methparm1) |
||
20 | reyssat | 29 | |
16117 | bpr | 30 | !read deduc/sub/simplify ($left) / ($methparm1)\ |
20 | reyssat | 31 | ($right) / ($methparm1) |
16117 | bpr | 32 | !distribute lines $out into newleft, newright |
33 | !if $newleft=$empty or $newright=$empty |
||
20 | reyssat | 34 | error=bad_data |
35 | !exit |
||
16117 | bpr | 36 | !endif |
37 | newsign=$sign |
||
38 | newobject2=$newleft $newsign $newright |
||
39 | oldobject=2 |
||
20 | reyssat | 40 | |
16117 | bpr | 41 | contextlist=$ct_Onlywhen le diviseur est non-nul,\ |
20 | reyssat | 42 | $ct_Onlywhen le diviseur est positif,\ |
43 | $ct_Always,\ |
||
44 | $ct_Onlywhen les deux côtés sont positifs,\ |
||
45 | $ct_Onlywhen les deux côtés sont de même signe |
||
16117 | bpr | 46 | |
20 | reyssat | 47 | !exit |