Subversion Repositories wimsdev

Rev

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