Rev 16120 | Rev 16209 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 16120 | Rev 16135 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !set methenv=ZZ QQ RR |
2 | !set methenv=ZZ QQ RR |
3 | !set methparmtype=parm function integrate, function |
3 | !set methparmtype=parm function integrate, function |
4 | !set methhelp=This method applies the change of variable |
4 | !set methhelp=This method applies the change of variable \ |
5 | integral. |
5 | on an indefinite integral. |
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 | !set N=!linecnt $mtobj1 |
13 | !set N=!linecnt $mtobj1 |
Line 28... | Line 28... | ||
28 | !set k=!mathsubst integrate= in $l |
28 | !set k=!mathsubst integrate= in $l |
29 | !set k=!declosing $k |
29 | !set k=!declosing $k |
30 | !set v=!item 2 of $k |
30 | !set v=!item 2 of $k |
31 | !set nvar=!item 1 of $newvariables |
31 | !set nvar=!item 1 of $newvariables |
32 | Change of variable: |
32 | Change of variable: |
33 |
|
33 | <div class="wimscenter"> |
34 |
|
34 | \($l = integrate(f($v),$v) = integrate(f(h($nvar))h'($nvar),$nvar)) , |
35 | </div> |
35 | </div> |
36 | with |
36 | with |
37 | \($v = h($nvar) = ) |
37 | \($v = h($nvar) = ) |
38 | !read deduc/methparm.phtml 2,36 |
38 | !read deduc/methparm.phtml 2,36 |
39 | . |
39 | . |
Line 69... | Line 69... | ||
69 | n=!itemcnt $inv |
69 | n=!itemcnt $inv |
70 | inv2=!nospace $inv |
70 | inv2=!nospace $inv |
71 | eq== |
71 | eq== |
72 | !if $n!=1 or +++**$newvar$eq notin +++**$inv2 |
72 | !if $n!=1 or +++**$newvar$eq notin +++**$inv2 |
73 | error=Impossible to find the inverse function of $methparm2, which is\ |
73 | error=Impossible to find the inverse function of $methparm2, which is\ |
74 |
|
74 | for future substitution:\ |
75 | use the reverse change of variable. |
75 | use the reverse change of variable. |
76 | !exit |
76 | !exit |
77 | !endif |
77 | !endif |
78 |
|
78 | substed=!mathsubst $ivar=($methparm2) in $iker |
79 |
|
79 | !read deduc/sub/checkzero diff(($substed)*($diff),$newvar) |
80 |
|
80 | difftest=$out |
81 |
|
81 | !read deduc/sub/simplify ($substed)*($diff)\ |
82 | ($substed)*($diff)*$newvar |
82 | ($substed)*($diff)*$newvar |
83 | !distribute lines $out into newker,ktest |
83 | !distribute lines $out into newker,ktest |
84 | !if $newker=$empty or $ktest=$empty or $difftest=$empty |
84 | !if $newker=$empty or $ktest=$empty or $difftest=$empty |
85 | !goto bad_data |
85 | !goto bad_data |
86 | !endif |
86 | !endif |
87 | 87 | ||
88 | !if strictintegrate iswordof $m_options and $difftest=yes |
88 | !if strictintegrate iswordof $m_options and $difftest=yes |
89 | error=This change of variable is not allowed for this environment.\ |
89 | error=This change of variable is not allowed for this environment.\ |
90 | Please change the method. |
90 | Please change the method. |
91 | !exit |
91 | !exit |
92 | !endif |
92 | !endif |
93 | 93 | ||
94 | !if $difftest=yes |
94 | !if $difftest=yes |
95 | newobject1=$ktest |
95 | newobject1=$ktest |