Subversion Repositories wimsdev

Rev

Rev 16321 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16321 Rev 17187
Line 10... Line 10...
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 
Introducir una nueva ecuación que es <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 
 veces la ecuacion
 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 
 veces la ecuacion
 23 
 veces la ecuacion
24 
 !read deduc/methparm.phtml 2
 24 
 !read deduc/methparm.phtml 2
25 
 <br/>
 25 
 <br>
26 
Esta nueva ecuación va a
 26 
Esta nueva ecuación va a
27 
 !formselect methparm5 list 0,1,2 prompt \
 27 
 !formselect methparm5 list 0,1,2 prompt \
28 
  añadirse a los supuestos,\
 28 
  añadirse a los supuestos,\
29 
  reemplazar al primero,\
 29 
  reemplazar al primero,\
30 
  reemplazar al segundo
 30 
  reemplazar al segundo
Line 47... Line 47...
47 
 !if $data1 issametext $data2
 47 
 !if $data1 issametext $data2
48 
  error=Este método prohíbe la suma de una ecuación consigo misma.
 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)\
54 
	($methparm3)*($right1) + ($methparm4)*($right2)
 54 
	($methparm3)*($right1) + ($methparm4)*($right2)
55 
 !distribute lines $out into newleft, newright
 55 
 !distribute lines $out into newleft, newright
56 
 !if $newleft=$empty or $newright=$empty
 56 
 !if $newleft=$empty or $newright=$empty
57 
  error=bad_data
 57 
  error=bad_data