Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 20 | Rev 16321 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !set |
1 | !set methtit2=Dividir una desigualdad por un número distinto de cero |
2 | !set |
2 | !set methtit=Dividir una desigualdad por un número |
3 | !set methenv=ZZ QQ RR |
3 | !set methenv=ZZ QQ RR |
4 | !set methparmtype=number,parm inequality |
4 | !set methparmtype=number,parm inequality |
5 | !set |
5 | !set methhelp=Este método transforma una desigualdad del estilo \(A > B)\ |
6 | en |
6 | en la desigualdad equivalente \(A/n > B/n) (o \(A/n < B/n)), donde \(n) es un número\ |
7 |
|
7 | distinto de cero. |
8 | 8 | ||
9 | !if $wims_read_parm iswordof form check |
9 | !if $wims_read_parm iswordof form check |
10 | !goto $wims_read_parm |
10 | !goto $wims_read_parm |
11 | !endif |
11 | !endif |
12 | 12 | ||
13 | !exit |
13 | !exit |
14 | :form |
14 | :form |
15 |
|
15 | Dividir la desigualdad |
16 |
|
16 | !read deduc/methparm.phtml 2 |
17 |
|
17 | $ entre un número |
18 |
|
18 | !read deduc/methparm.phtml 1,10 |
19 | 19 | ||
20 | !exit |
20 | !exit |
21 | :check |
21 | :check |
22 |
|
22 | !distribute items $methparmobj2 into data,left,sign,right |
23 |
|
23 | !ifval $methparm1=0 |
24 |
|
24 | error=¡División por cero! |
25 | !advance penalty |
25 | !advance penalty |
26 | !exit |
26 | !exit |
27 |
|
27 | !endif |
28 |
|
28 | methexp=Diviser \($left $sign $right) par \($methparm1) |
29 | 29 | ||
30 |
|
30 | !read deduc/sub/simplify ($left) / ($methparm1)\ |
31 | ($right) / ($methparm1) |
31 | ($right) / ($methparm1) |
32 |
|
32 | !distribute lines $out into newleft, newright |
33 |
|
33 | !if $newleft=$empty or $newright=$empty |
34 | error=bad_data |
34 | error=bad_data |
35 | !exit |
35 | !exit |
36 |
|
36 | !endif |
37 |
|
37 | !if $methparm1<0 |
38 | newsign=!translate internal <> to >< in $sign |
38 | newsign=!translate internal <> to >< in $sign |
39 |
|
39 | !else |
40 | newsign=$sign |
40 | newsign=$sign |
41 |
|
41 | !endif |
42 |
|
42 | newobject2=$newleft $newsign $newright |
43 |
|
43 | oldobject=2 |
44 | 44 | ||
45 |
|
45 | contextlist=$ct_Onlywhen el divisor es distinto de cero,\ |
46 | $ct_Onlywhen |
46 | $ct_Onlywhen el divisor es positivo,\ |
47 | $ct_Always,\ |
47 | $ct_Always,\ |
48 | $ct_Onlywhen |
48 | $ct_Onlywhen ambos lados son positivos,\ |
49 | $ct_Onlywhen |
49 | $ct_Onlywhen ambos lados tienen el mismo signo,\ |
50 | $ct_Onlywhen |
50 | $ct_Onlywhen la desigualdad es estricta |
51 | 51 | ||
52 |
|
52 | badsign=!translate internal <> to >< in $newsign |
53 | resultlist=$newobject2,\ |
53 | resultlist=$newobject2,\ |
54 | $newright $newsign $newleft,\ |
54 | $newright $newsign $newleft,\ |
55 | $newleft $badsign $newright |
55 | $newleft $badsign $newright |
56 | 56 | ||
57 | !exit |
57 | !exit |
58 | - |