Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 38
Line 34... Line 34...
34 
 check2=($methparm2) - ($methparm4)
 34 
 check2=($methparm2) - ($methparm4)
35
35
36 
 !read deduc/sub/checkzero $check1\
 36 
 !read deduc/sub/checkzero $check1\
37 
	$check2
 37 
	$check2
38 
 !distribute line $out into out1, out2
 38 
 !distribute line $out into out1, out2
39 
 !read deduc/sub/Simplify ($check1) / ($check2)
 39 
 !read deduc/sub/_Simplify ($check1) / ($check2)
40 
 out3=$out
 40 
 out3=$out
41 
 !if $out1=yes or $out2=yes
 41 
 !if $out1=yes or $out2=yes
42 
  !if $out1!=yes or $out2!=yes
 42 
  !if $out1!=yes or $out2!=yes
43 
   !goto badequiv
 43 
   !goto badequiv
44 
  !endif
 44 
  !endif