Subversion Repositories wimsdev

Rev

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 on an indefinite\
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
   <div class="wimscenter">
33
  <div class="wimscenter">
34
 	\($l = integrate(f($v),$v) = integrate(f(h($nvar))h'($nvar),$nvar)) ,
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
 	necessary for future substitution:\
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
 substed=!mathsubst $ivar=($methparm2) in $iker
78
substed=!mathsubst $ivar=($methparm2) in $iker
79
 !read deduc/sub/checkzero diff(($substed)*($diff),$newvar)
79
!read deduc/sub/checkzero diff(($substed)*($diff),$newvar)
80
 difftest=$out
80
difftest=$out
81
 !read deduc/sub/simplify ($substed)*($diff)\
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