Subversion Repositories wimsdev

Rev

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

Rev 5763 Rev 16321
Line 1... Line 1...
1 
!set methtit=Addition d'équations avec coefficients
 1 
!set methtit=Suma de ecuaciones con coeficientes
2 
!set methparmtype=parm equation >,parm equation >,\
 2 
!set methparmtype=parm equation >,parm equation >,\
3 
	number, number, choice 2
 3 
	number, number, choice 2
4 
!set methparmrelax=5
 4 
!set methparmrelax=5
5 
!set methhelp=Cette méthode calcule la somme avec coefficients de deux équations.\
 5 
!set methhelp=Este método calcula la suma con los coeficientes de dos ecuaciones.\
6 
	Le résultat peut soit être rajouté aux hypothèses, soit remplacer\
 6 
El resultado puede agregarse a las suposiciones o reemplazar\
7 
	l'une des deux équations de départ.
 7 
una de las dos ecuaciones iniciales.
8 
 
 8 
 
9 
!if $wims_read_parm iswordof form check
 9 
!if $wims_read_parm iswordof form check
10 
 !goto $wims_read_parm
 10 
 !goto $wims_read_parm
11 
!endif
 11 
!endif
12 
 
 12 
 
13 
!exit
 13 
!exit
14 
:form
 14 
:form
15 
 Introduire une nouvelle équation qui est <br/>
 15 
Introducir una nueva ecuación que es <br/>
16 
 !default methparm3=1
 16 
 !default methparm3=1
17 
 !default methparm4=1
 17 
 !default methparm4=1
18 
 !read deduc/methparm.phtml 3,5
 18 
 !read deduc/methparm.phtml 3,5
19 
 fois l'équation
 19 
 veces la ecuacion
20 
 !read deduc/methparm.phtml 1
 20 
 !read deduc/methparm.phtml 1
21 
 <br/> plus
 21 
 <br/> plus
22 
 !read deduc/methparm.phtml 4,5
 22 
 !read deduc/methparm.phtml 4,5
23 
 fois l'équation
 23 
 veces la ecuacion
24 
 !read deduc/methparm.phtml 2
 24 
 !read deduc/methparm.phtml 2
25 
 <br/>
 25 
 <br/>
26 
 Cette nouvelle équation va
 26 
Esta nueva ecuación va a
27 
 !formselect methparm5 list 0,1,2 prompt \
 27 
 !formselect methparm5 list 0,1,2 prompt \
28 
	être rajoutée dans les hypothèses,\
 28 
  añadirse a los supuestos,\
29 
	remplacer la première,\
 29 
  reemplazar al primero,\
30 
	remplace la deuxième
 30 
  reemplazar al segundo
31 
!exit
 31 
!exit
32 
:check
 32 
:check
33 
 !ifval $methparm3=0 and $methparm4=0
 33 
 !ifval $methparm3=0 and $methparm4=0
34 
  error=Les coefficients sont nuls !
 34 
  error=¡Los coeficientes son cero!
35 
  !exit
 35 
  !exit
36 
 !endif
 36 
 !endif
37 
 !ifval ($methparm=1 and $methparm3=0) or \
 37 
 !ifval ($methparm=1 and $methparm3=0) or \
38 
	($methparm=2 and $methparm4=0)
 38 
	($methparm=2 and $methparm4=0)
39 
  error=Vous voulez remplacer une équation dont le coefficient dans\
 39 
  error=¿Quieres reemplazar una ecuación cuyo coeficiente en\
40 
	la somme est nul&nbsp;? Cela vous fera perdre de\
 40 
    la suma es cero? ¡Esto hará que pierdas\
41 
	l'information&nbsp;!
 41 
    información!
42 
  !advance penalty
 42 
  !advance penalty
43 
  !exit
 43 
  !exit
44 
 !endif
 44 
 !endif
45 
 !distribute items $methparmobj1 into data1,left1,sign1,right1
 45 
 !distribute items $methparmobj1 into data1,left1,sign1,right1
46 
 !distribute items $methparmobj2 into data2,left2,sign2,right2
 46 
 !distribute items $methparmobj2 into data2,left2,sign2,right2
47 
 !if $data1 issametext $data2
 47 
 !if $data1 issametext $data2
48 
  error=Cette méthode interdit l'addition d'une équation avec elle-même.
 48 
  error=Este método prohíbe la suma de una ecuación consigo misma.
49 
  !exit
 49 
  !exit
50 
 !endif
 50 
 !endif
51 
 methexp=\(($methparm3)*($left1 $sign1 $right1) + ($methparm4)*($left2 $sign2 $right2))
 51 
 methexp=\(($methparm3)*($left1 $sign1 $right1) + ($methparm4)*($left2 $sign2 $right2))
52
52
53 
 !read deduc/sub/simplify ($methparm3)*($left1) + ($methparm4)*($left2)\
 53 
 !read deduc/sub/simplify ($methparm3)*($left1) + ($methparm4)*($left2)\