Subversion Repositories wimsdev

Rev

Rev 20 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 16120
Line 1... Line 1...
1 
!set methtit=Exchange the two sides of an equation
 1 
!set methtit=Exchange the two sides of an equation
2 
!set methparmtype=parm equation
 2 
!set methparmtype=parm equation
3 
!set methhelp=This method rewrites the eqnation \(a = b) into \(b = a).
 3 
!set methhelp=This method rewrites the eqnation \(a = b) into \(b = a).
4 
 
 4 
 
5 
!if $wims_read_parm iswordof form check
 5 
!if $wims_read_parm iswordof form check
6 
 !goto $wims_read_parm
 6 
  !goto $wims_read_parm
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
!exit
 9 
!exit
10 
:form
 10 
:form
11 
 Exchange the two sides of the equation
 11 
 Exchange the two sides of the equation
12 
 !read deduc/methparm.phtml 1
 12 
!read deduc/methparm.phtml 1
13 
 
 13 
 
14 
!exit
 14 
!exit
15 
:check
 15 
:check
16 
 !distribute items $methparmobj1 into data,left,sign,right
 16 
!distribute items $methparmobj1 into data,left,sign,right
17 
 methexp=Exchange the two sides of \($left $sign $right)
 17 
methexp=Exchange the two sides of \($left $sign $right)
18 
 
 18 
 
19 
 newobject1=$right $sign $left
 19 
newobject1=$right $sign $left
20 
 oldobject=1
 20 
oldobject=1
21 
 
 21 
 
22 
 contextlist=$ct_Always,\
 22 
contextlist=$ct_Always,\
23 
	$ct_Onlywhen the two sides are positive,\
 23 
	$ct_Onlywhen the two sides are positive,\
24 
	$ct_Onlywhen the two sides are of the same sign
 24 
	$ct_Onlywhen the two sides are of the same sign
25 
 
 25 
 
26 
!exit
 26 
!exit
27 
 
 -