Rev 7210 | 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=本方法把 \(integrate(A+B,t)) 拆成\ |
||
5 | \(integrate(A,t) + integrate(B,t)). |
||
6 | |||
7 | !if $wims_read_parm iswordof form check |
||
8 | !goto $wims_read_parm |
||
9 | !endif |
||
10 | |||
11 | !exit |
||
12 | :form |
||
13 | !set N=!linecnt $mtobj1 |
||
14 | !reset methparm3 |
||
15 | !if $N>1 and $methsubstep=1 |
||
16 | :first |
||
17 | !set methsubstep=2 |
||
18 | 选择欲分拆的积分: <p> |
||
19 | !read deduc/methparm.phtml 1 |
||
20 | !else |
||
21 | !bound methparm1 between integer 0 and $N default 1 |
||
22 | !if $methparm1=0 or $error!=$empty |
||
23 | !goto first |
||
24 | !endif |
||
17234 | bpr | 25 | <input type="hidden" name="methparm1" value="$methparm1"> |
2071 | zjchen | 26 | !set methsubstep=1 |
27 | !set l=!line $methparm1 of $mtobj1 |
||
28 | !set l=!item 2 to -1 of $l |
||
29 | !set k=!mathsubst integrate= in $l |
||
30 | !set k=!declosing $k |
||
31 | !set v=!item 2 of $k |
||
32 | 写成 \($l = integrate(f1($v),$v) + integrate(f2($v),$v)), 其中 |
||
33 | <p> |
||
17234 | bpr | 34 | \(f1($v) = ) <input size=30 name=methparm2 value="$methparm2"> (必须有的), <br> |
35 | \(f2($v) = ) <input size=30 name=methparm3> (可选的). |
||
2071 | zjchen | 36 | !endif |
37 | !exit |
||
38 | :check |
||
39 | ker=!item 2 of $methparmobj1 |
||
40 | ker=!mathsubst integrate= in $ker |
||
41 | ker=!trim $ker |
||
42 | ker=!declosing $ker |
||
43 | !distribute items $ker into iker,ivar |
||
44 | vartest=!varlist $ivar |
||
45 | !if $ivar != $vartest |
||
46 | error=失败 |
||
47 | !exit |
||
48 | !endif |
||
49 | |||
50 | !if $methparm3=$empty |
||
51 | !read deduc/sub/simplify ($iker)-($methparm2) |
||
52 | !if $out=$empty |
||
53 | error=bad_data |
||
54 | !exit |
||
55 | !endif |
||
56 | methparm3=$out |
||
57 | !else |
||
58 | wims_rawmath_variables=$variables |
||
59 | methparm3=!rawmath $methparm3 |
||
60 | !endif |
||
61 | !read deduc/sub/checkzero ($iker)-($methparm2)-($methparm3) |
||
62 | !if $out=$empty |
||
63 | error=bad_data |
||
64 | !exit |
||
65 | !endif |
||
66 | !if $out!=yes |
||
67 | error=加法错. 请改正. |
||
68 | !exit |
||
69 | !endif |
||
17234 | bpr | 70 | |
2071 | zjchen | 71 | newobject1=(integrate($methparm2,$ivar)+integrate($methparm3,$ivar)) |
72 | oldobject=1 |
||
73 | !reset methparm3 |
||
74 | methexp= |
||
75 | !exit |
||
76 |