Subversion Repositories wimsdev

Rev

Rev 5763 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2071 zjchen 1
!set methtit=重写积分
2
!set methenv=ZZ QQ RR
3
!set methparmtype=parm function integrate, function
4
!set methhelp=把积分的核重写成等价的形式.
5
 
6
!if $wims_read_parm iswordof form check
7
 !goto $wims_read_parm
8
!endif
9
 
10
!exit
11
:form
12
 !reset methparm3
13
 !set N=!linecnt $mtobj1
14
 !if $N=1
15
  !set l=!item 2 to -1 of $mtobj1
16
  !set l=!mathsubst integrate= in $l
17
  !set l=!declosing $l
18
  !set v=!item 2 of $l
19
 !endif
20
 把积分
21
 !read deduc/methparm.phtml 1
22
 重写成
23
 <p><center><table border=0>
24
 <tr><td nowrap>
25
 \(integrate())
26
 !read deduc/methparm.phtml 2,40
27
 !if $N=1
28
  d$v
17234 bpr 29
 !else
30
  d<input size="4" name="methparm3">
2071 zjchen 31
 !endif
32
 </td></tr></table></center>
33
!exit
34
:check
35
 ker=!item 2 of $methparmobj1
36
 ker=!mathsubst integrate= in $ker
37
 ker=!trim $ker
38
 ker=!declosing $ker
39
 !distribute items $ker into iker,ivar
40
 vartest=!varlist $ivar
41
 !if $ivar != $vartest
42
  error=失败
43
  !exit
44
 !endif
45
 
46
 methparm3=!word 1 of $methparm3
47
 !if $methparm3!=$empty and $methparm3!=$ivar
48
  error=这里你不能改变变量名称. 请改正.
49
  !exit
50
 !endif
51
 !read deduc/sub/checkzero ($iker)-($methparm2)
52
 !if $out=$empty
53
  error=bad_data
54
  !exit
55
 !endif
56
 !if $out!=yes
57
  error=重写错误. 请改正.
58
  !exit
59
 !endif
17234 bpr 60
 
2071 zjchen 61
 newobject1=integrate($methparm2,$ivar)
62
 oldobject=1
63
 methexp=重写
64
!exit
65