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