Rev 5763 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5763 | Rev 16321 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !set |
1 | !set methtit:Sustitución en una expresión |
2 | !set |
2 | !set methtit2:Sustitución en una expresión algebraica global o parcial |
3 | !set methenv=ZZ QQ RR CC |
3 | !set methenv=ZZ QQ RR CC |
4 | !set methparmtype=parm algexp nocomma nonesting, parm equation >, choice 2 |
4 | !set methparmtype=parm algexp nocomma nonesting, parm equation >, choice 2 |
5 | !set |
5 | !set methhelp:Sustitución en una expresión según una ecuación existente. |
6 | 6 | ||
7 | !if $wims_read_parm iswordof form check |
7 | !if $wims_read_parm iswordof form check |
8 | !goto $wims_read_parm |
8 | !goto $wims_read_parm |
9 | !endif |
9 | !endif |
10 | 10 | ||
11 | !exit |
11 | !exit |
12 | :form |
12 | :form |
13 |
|
13 | Aplicar |
14 |
|
14 | !formselect methparm3 list 1,2 prompt sustitución, sustitución inversa |
15 |
|
15 | !read deduc/methparm.phtml 2 |
16 |
|
16 | $ en la expresión <br/> |
17 |
|
17 | !read deduc/methparm.phtml 1 |
18 | !exit |
18 | !exit |
19 | :check |
19 | :check |
20 |
|
20 | !distribute items $methparmobj2 into hd,left,eq,right |
21 |
|
21 | eqt== |
22 |
|
22 | !if $eq!=$eqt |
23 |
|
23 | error=Mala justificación de la sustitución. |
24 | !exit |
24 | !exit |
25 |
|
25 | !endif |
26 |
|
26 | !if $methparm3=2 |
27 | !exchange left,right |
27 | !exchange left,right |
28 |
|
28 | !endif |
29 |
|
29 | !distribute items $methparmobj1 into hd2,exp2 |
30 |
|
30 | !read deduc/sub/simplify ratsubst($right,$left,$exp2) |
31 |
|
31 | !if $out=$empty |
32 | error=Fail |
32 | error=Fail |
33 | !exit |
33 | !exit |
34 |
|
34 | !endif |
35 | 35 | ||
36 |
|
36 | newobject1=$out |
37 |
|
37 | oldobject=1 |
38 |
|
38 | methexp=Sustitución \($left = $right). |
39 | !exit |
39 | !exit |
40 | - |