Subversion Repositories wimsdev

Rev

Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!set methtit2=Diviser une équation par un nombre non-nul
2
!set methtit=Diviser une équation par un nombre
3
!set methenv=ZZ QQ RR CC
4
!set methparmtype=number,parm equation
5
!set methhelp=Cette méthode transforme une équation \(A = B)\
6
 en l'équation équivalente \(A/n = B/n), où \(n) est un nombre\
7
 non-nul.
8
 
9
!if $wims_read_parm iswordof form check
16117 bpr 10
  !goto $wims_read_parm
20 reyssat 11
!endif
12
 
13
!exit
14
:form
15
 Diviser l'équation
16
 !read deduc/methparm.phtml 2
17
 par un nombre
18
 !read deduc/methparm.phtml 1,10
19
 
20
!exit
21
:check
16117 bpr 22
!distribute items $methparmobj2 into data,left,sign,right
23
!ifval $methparm1=0
20 reyssat 24
  error=Division par zéro !
25
  !advance penalty
26
  !exit
16117 bpr 27
!endif
28
methexp=Diviser \($left $sign $right) par \($methparm1)
20 reyssat 29
 
16117 bpr 30
!read deduc/sub/simplify ($left) / ($methparm1)\
20 reyssat 31
	($right) / ($methparm1)
16117 bpr 32
!distribute lines $out into newleft, newright
33
!if $newleft=$empty or $newright=$empty
20 reyssat 34
  error=bad_data
35
  !exit
16117 bpr 36
!endif
37
newsign=$sign
38
newobject2=$newleft $newsign $newright
39
oldobject=2
20 reyssat 40
 
16117 bpr 41
contextlist=$ct_Onlywhen le diviseur est non-nul,\
20 reyssat 42
	$ct_Onlywhen le diviseur est positif,\
43
	$ct_Always,\
44
	$ct_Onlywhen les deux côtés sont positifs,\
45
	$ct_Onlywhen les deux côtés sont de même signe
16117 bpr 46
 
20 reyssat 47
!exit