Subversion Repositories wimsdev

Rev

Rev 5763 | Blame | Compare with Previous | Last modification | View Log | RSS feed

!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