Subversion Repositories wimsdev

Rev

Rev 5976 | Rev 16135 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5976 Rev 16120
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=You can rewrite the kernel of an integral in an equivalent form.
 4 
!set methhelp=You can rewrite the kernel of an integral in an equivalent form.
5 
 
 5 
 
6 
!if $wims_read_parm iswordof form check
 6 
!if $wims_read_parm iswordof form check
7 
 !goto $wims_read_parm
 7 
  !goto $wims_read_parm
8 
!endif
 8 
!endif
9 
 
 9 
 
10 
!exit
 10 
!exit
11 
:form
 11 
:form
12 
 !reset methparm3
 12 
!reset methparm3
13 
 !set N=!linecnt $mtobj1
 13 
!set N=!linecnt $mtobj1
14 
 !if $N=1
 14 
!if $N=1
15 
  !set l=!item 2 to -1 of $mtobj1
 15 
  !set l=!item 2 to -1 of $mtobj1
16 
  !set l=!mathsubst integrate= in $l
 16 
  !set l=!mathsubst integrate= in $l
17 
  !set l=!declosing $l
 17 
  !set l=!declosing $l
18 
  !set v=!item 2 of $l
 18 
  !set v=!item 2 of $l
19 
 !endif
 19 
!endif
20 
 Rewrite the integration
 20 
 Rewrite the integration
21 
 !read deduc/methparm.phtml 1
 21 
!read deduc/methparm.phtml 1
22 
 in
 22 
 in
23 
<table class="wimsnoborder wimscenter">
 23 
<div class="wimscenter">
24 
 <tr><td nowrap>
 - 
 
25 
 \(integrate())
 24 
\(integrate())
26 
 !read deduc/methparm.phtml 2,40
 25 
!read deduc/methparm.phtml 2,40
27 
 !if $N=1
 26 
!if $N=1
28 
  d$v
 27 
  d$v
29 
 !else
28 
!else
30 
  d<input size="4" name="methparm3"/>
 29 
  d<input size="4" name="methparm3" />
31 
 !endif
 30 
!endif
32 
 </td></tr></table>
 31 
</div>
33 
!exit
 32 
!exit
34 
:check
 33 
:check
35 
 ker=!item 2 of $methparmobj1
 34 
ker=!item 2 of $methparmobj1
36 
 ker=!mathsubst integrate= in $ker
 35 
ker=!mathsubst integrate= in $ker
37 
 ker=!trim $ker
 36 
ker=!trim $ker
38 
 ker=!declosing $ker
 37 
ker=!declosing $ker
39 
 !distribute items $ker into iker,ivar
 38 
!distribute items $ker into iker,ivar
40 
 vartest=!varlist $ivar
 39 
vartest=!varlist $ivar
41 
 !if $ivar != $vartest
 40 
!if $ivar != $vartest
42 
  error=Fail
 41 
  error=Fail
43 
  !exit
 42 
  !exit
44 
 !endif
 43 
!endif
45 
 
 44 
 
46 
 methparm3=!word 1 of $methparm3
 45 
methparm3=!word 1 of $methparm3
47 
 !if $methparm3!=$empty and $methparm3!=$ivar
 46 
!if $methparm3!=$empty and $methparm3!=$ivar
48 
  error=You cannot change the variable name here. Please correct.
 47 
  error=You cannot change the variable name here. Please correct.
49 
  !exit
 - 
 
50 
 !endif
 48 
  !exit!endif
51 
 !read deduc/sub/checkzero ($iker)-($methparm2)
 49 
!read deduc/sub/checkzero ($iker)-($methparm2)
52 
 !if $out=$empty
 50 
!if $out=$empty
53 
  error=bad_data
 51 
  error=bad_data
54 
  !exit
 52 
  !exit
55 
 !endif
 53 
!endif
56 
 !if $out!=yes
 54 
!if $out!=yes
57 
  error=Bad rewriting. Please correct.
 55 
  error=Bad rewriting. Please correct.
58 
  !exit
 56 
  !exit
59 
 !endif
 57 
!endif
60
- 
 
61 
 newobject1=integrate($methparm2,$ivar)
 - 
 
62 
 oldobject=1
 - 
 
63 
 methexp=rewriting
 - 
 
64 
!exit
 - 
 
65 
 
 58 
 
- 
 
 59 
newobject1=integrate($methparm2,$ivar)
- 
 
 60 
oldobject=1
- 
 
 61 
methexp=rewriting
- 
 
 62 
!exit