Subversion Repositories wimsdev

!set methtit=±í´ïʽÄÚµÄÌæ»»

!set methtit2=ÕûÌå»ò¾Ö²¿±í´ïʽÄÚµÄÌæ»»

!set methenv=ZZ QQ RR CC

!set methparmtype=parm algexp nocomma nonesting, parm equation >, choice 2

!set methhelp=¸ù¾ÝÒÑÓеÈʽÔÚ±í´ïʽÄÚ×÷Ìæ»».

!if $wims_read_parm iswordof form check

 !goto $wims_read_parm

!endif

!exit

:form

 Ó¦ÓÃ

 !formselect methparm3 list 1,2 prompt Ìæ»», ÄæÌæ»»

 !read deduc/methparm.phtml 2

 ÓÚ±í´ïʽ <br/>

 !read deduc/methparm.phtml 1

!exit

:check

 !distribute items $methparmobj2 into hd,left,eq,right

 eqt==

 !if $eq!=$eqt

  error=´íµÄÌæ»».

  !exit

 !endif

 !if $methparm3=2

  !exchange left,right

 !endif

 !distribute items $methparmobj1 into hd2,exp2

 !read deduc/sub/simplify ratsubst($right,$left,$exp2)

 !if $out=$empty

  error=ʧ°Ü

  !exit

 !endif

 newobject1=$out

 oldobject=1

 methexp=Ìæ»» \($left = $right).

!exit