Subversion Repositories wimsdev

!set methtit=°Ñ»ý·Ö²ð·ÖΪ¶þ
!set methenv=ZZ QQ RR
!set methparmtype=parm function integrate, function
!set methhelp=±¾·½·¨°Ñ \(integrate(A+B,t)) ²ð³É\
 \(integrate(A,t) + integrate(B,t)).

!if $wims_read_parm iswordof form check
 !goto $wims_read_parm
!endif

!exit
:form
 !set N=!linecnt $mtobj1
 !reset methparm3
 !if $N>1 and $methsubstep=1
  :first
  !set methsubstep=2
  Ñ¡ÔñÓû·Ö²ðµÄ»ý·Ö: <p>
  !read deduc/methparm.phtml 1
 !else
  !bound methparm1 between integer 0 and $N default 1
  !if $methparm1=0 or $error!=$empty
   !goto first
  !endif
  <input type="hidden" name="methparm1" value="$methparm1">
  !set methsubstep=1
  !set l=!line $methparm1 of $mtobj1
  !set l=!item 2 to -1 of $l
  !set k=!mathsubst integrate= in $l
  !set k=!declosing $k
  !set v=!item 2 of $k
  д³É \($l = integrate(f1($v),$v) + integrate(f2($v),$v)), ÆäÖÐ
  <p>
  \(f1($v) = ) <input size=30 name=methparm2 value="$methparm2"> (±ØÐëÓеÄ), <br>
  \(f2($v) = ) <input size=30 name=methparm3> (¿ÉÑ¡µÄ).
 !endif
!exit
:check
 ker=!item 2 of $methparmobj1
 ker=!mathsubst integrate= in $ker
 ker=!trim $ker
 ker=!declosing $ker
 !distribute items $ker into iker,ivar
 vartest=!varlist $ivar
 !if $ivar != $vartest
  error=ʧ°Ü
  !exit
 !endif

 !if $methparm3=$empty
  !read deduc/sub/simplify ($iker)-($methparm2)
  !if $out=$empty
   error=bad_data
   !exit
  !endif
  methparm3=$out
 !else
  wims_rawmath_variables=$variables
  methparm3=!rawmath $methparm3
 !endif
 !read deduc/sub/checkzero ($iker)-($methparm2)-($methparm3)
 !if $out=$empty
  error=bad_data
  !exit
 !endif
 !if $out!=yes
  error=¼Ó·¨´í. Çë¸ÄÕý.
  !exit
 !endif

 newobject1=(integrate($methparm2,$ivar)+integrate($methparm3,$ivar))
 oldobject=1
 !reset methparm3
 methexp=
!exit