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 16135
Line 6... Line 6...
6 
 into the equivalent equation \(A*n = B*n), where \(n) is a number,\
 6 
 into the equivalent equation \(A*n = B*n), where \(n) is a number,\
7 
 which must be non-zero in order to guarantie the equivalence of the\
 7 
 which must be non-zero in order to guarantie the equivalence of the\
8 
 originating equation and the transformed one.
 8 
 originating equation and the transformed one.
9 
 
 9 
 
10 
!if $wims_read_parm iswordof form check
 10 
!if $wims_read_parm iswordof form check
11 
 !goto $wims_read_parm
 11 
  !goto $wims_read_parm
12 
!endif
 12 
!endif
13 
 
 13 
 
14 
!exit
 14 
!exit
15 
:form
 15 
:form
16 
 Multiply the equation
 16 
 Multiply the equation
Line 18... Line 18...
18 
 by the number
 18 
 by the number
19 
 !read deduc/methparm.phtml 1,10
 19 
 !read deduc/methparm.phtml 1,10
20 
 
 20 
 
21 
!exit
 21 
!exit
22 
:check
 22 
:check
23 
 !distribute items $methparmobj2 into data,left,sign,right
 23 
!distribute items $methparmobj2 into data,left,sign,right
24 
 !if $methparm1=0
 24 
!if $methparm1=0
25 
  error=Multiply an equation by 0 makes you lose information, and is therefore\
 25 
  error=Multiply an equation by 0 makes you lose information, and is therefore\
26 
   prohibited.
 26 
   prohibited.
27 
  !advance penalty
 27 
  !advance penalty
28 
  !exit
 28 
  !exit
29 
 !endif
 29 
!endif
30 
 methexp=Multiply \($left $sign $right) by \($methparm1)
 30 
methexp=Multiply \($left $sign $right) by \($methparm1)
31 
 
 31 
 
32 
 !read deduc/sub/simplify ($left) * ($methparm1)\
 32 
!read deduc/sub/simplify ($left) * ($methparm1)\
33 
	($right) * ($methparm1)
 33 
	($right) * ($methparm1)
34 
 !distribute lines $out into newleft,newright
 34 
!distribute lines $out into newleft,newright
35 
 !if $newleft=$empty or $newright=$empty
 35 
!if $newleft=$empty or $newright=$empty
36 
  error=bad_data
 36 
  error=bad_data
37 
  !exit
 37 
  !exit
38 
 !endif
 38 
!endif
39 
 newsign=$sign
 39 
newsign=$sign
40 
 newobject2=$newleft $newsign $newright
 40 
newobject2=$newleft $newsign $newright
41 
 oldobject=2
 41 
oldobject=2
42 
 
 42 
 
43 
 contextlist=$ct_Onlywhen the multiplier is non-zero,\
 43 
contextlist=$ct_Onlywhen the multiplier is non-zero,\
44 
	$ct_Onlywhen the multiplier is positive,\
 44 
	$ct_Onlywhen the multiplier is positive,\
45 
	$ct_Onlywhen the two sides are positive,\
 45 
	$ct_Onlywhen the two sides are positive,\
46 
	$ct_Onlywhen the two sides are of the same sign
 46 
	$ct_Onlywhen the two sides are of the same sign
47
- 
 
48 
!exit
 - 
 
49 
 
 47 
 
- 
 
 48 
!exit