Subversion Repositories wimsdev

!set methtit=ÖØд»ý·Ö

!set methenv=ZZ QQ RR

!set methparmtype=parm function integrate, function

!set methhelp=°Ñ»ý·ÖµÄºËÖØд³ÉµÈ¼ÛµÄÐÎʽ.

!if $wims_read_parm iswordof form check

 !goto $wims_read_parm

!endif

!exit

:form

 !reset methparm3

 !set N=!linecnt $mtobj1

 !if $N=1

  !set l=!item 2 to -1 of $mtobj1

  !set l=!mathsubst integrate= in $l

  !set l=!declosing $l

  !set v=!item 2 of $l

 !endif

 °Ñ»ý·Ö

 !read deduc/methparm.phtml 1

 ÖØд³É

 <p><center><table border=0>

 <tr><td nowrap>

 \(integrate())

 !read deduc/methparm.phtml 2,40

 !if $N=1

  d$v

 !else

  d<input size="4" name="methparm3">

 !endif

 </td></tr></table></center>

!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

 methparm3=!word 1 of $methparm3

 !if $methparm3!=$empty and $methparm3!=$ivar

  error=ÕâÀïÄã²»Äܸıä±äÁ¿Ãû³Æ. Çë¸ÄÕý.

  !exit

 !endif

 !read deduc/sub/checkzero ($iker)-($methparm2)

 !if $out=$empty

  error=bad_data

  !exit

 !endif

 !if $out!=yes

  error=ÖØд´íÎó. Çë¸ÄÕý.

  !exit

 !endif

 newobject1=integrate($methparm2,$ivar)

 oldobject=1

 methexp=ÖØд

!exit