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 |