Subversion Repositories wimsdev

Rev

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

Rev 7210 Rev 16321
Line 1... Line 1...
1 
!set methtit=Couper une intégration en deux
 1 
!set methtit=Dividir una integración en dos
2 
!set methenv=ZZ QQ RR
 2 
!set methenv=ZZ QQ RR
3 
!set methparmtype=parm function integrate, function
 3 
!set methparmtype=parm function integrate, function
4 
!set methhelp=Cette méthode permet d'écrire \(integrate(A+B,t)) en\
 4 
!set methhelp=Este método permite escribir \(integrate(A+B,t)) como\
5 
 \(integrate(A,t) + integrate(B,t)).
 5 
 \(integrate(A,t) + integrate(B,t)).
6 
 
 6 
 
7 
!if $wims_read_parm iswordof form check
 7 
!if $wims_read_parm iswordof form check
8 
 !goto $wims_read_parm
 8 
  !goto $wims_read_parm
9 
!endif
 9 
!endif
10 
 
 10 
 
11 
!exit
 11 
!exit
12 
:form
 12 
:form
13 
 !set N=!linecnt $mtobj1
 13 
!set N=!linecnt $mtobj1
14 
 !reset methparm3
 14 
!reset methparm3
15 
 !if $N>1 and $methsubstep=1
 15 
!if $N>1 and $methsubstep=1
16 
  :first
 16 
  :first
17 
  !set methsubstep=2
 17 
  !set methsubstep=2
18 
  Choisissez l'intégrale à couper : <p>
 18 
  Elija la integral a cortar:
- 
 
 19 
  <p>
19 
  !read deduc/methparm.phtml 1
 20 
  !read deduc/methparm.phtml 1
- 
 
 21 
  </p>
20 
 !else
 22 
!else
21 
  !bound methparm1 between integer 0 and $N default 1
 23 
  !bound methparm1 between integer 0 and $N default 1
22 
  !if $methparm1=0 or $error!=$empty
 24 
  !if $methparm1=0 or $error!=$empty
23 
   !goto first
 25 
    !goto first
24 
  !endif
 26 
  !endif
25 
  <input type="hidden" name="methparm1" value="$methparm1" />
 27 
  <input type="hidden" name="methparm1" value="$methparm1" />
26 
  !set methsubstep=1
 28 
  !set methsubstep=1
27 
  !set l=!line $methparm1 of $mtobj1
 29 
  !set l=!line $methparm1 of $mtobj1
28 
  !set l=!item 2 to -1 of $l
 30 
  !set l=!item 2 to -1 of $l
29 
  !set k=!mathsubst integrate= in $l
 31 
  !set k=!mathsubst integrate= in $l
30 
  !set k=!declosing $k
 32 
  !set k=!declosing $k
31 
  !set v=!item 2 of $k
 33 
  !set v=!item 2 of $k
32 
  Ecrire \($l = integrate(f1($v),$v) + integrate(f2($v),$v)), où
 34 
  Écrire \($l = integrate(f1($v),$v) + integrate(f2($v),$v)), où
33 
  <p>
 35 
  <p>
34 
  \(f1($v) = ) <input size="30" name="methparm2" value="$methparm2" /> (obligatoire), <br/>
 36 
  \(f1($v) = ) <input size="30" name="methparm2" value="$methparm2" /> (obligatoire), <br/>
35 
  \(f2($v) = ) <input size="30" name="methparm3" /> (facultative).
 37 
  \(f2($v) = ) <input size="30" name="methparm3" /> (facultative).
- 
 
 38 
  </p>
36 
 !endif
 39 
!endif
37 
!exit
 40 
!exit
38 
:check
 41 
:check
39 
 ker=!item 2 of $methparmobj1
 42 
ker=!item 2 of $methparmobj1
40 
 ker=!mathsubst integrate= in $ker
 43 
ker=!mathsubst integrate= in $ker
41 
 ker=!trim $ker
 44 
ker=!trim $ker
42 
 ker=!declosing $ker
 45 
ker=!declosing $ker
43 
 !distribute items $ker into iker,ivar
 46 
!distribute items $ker into iker,ivar
44 
 vartest=!varlist $ivar
 47 
vartest=!varlist $ivar
45 
 !if $ivar != $vartest
 48 
!if $ivar != $vartest
46 
  error=Fail
 49 
  error=Fail
47 
  !exit
 50 
  !exit
48 
 !endif
 51 
!endif
49 
 
 52 
 
50 
 !if $methparm3=$empty
 53 
!if $methparm3=$empty
51 
  !read deduc/sub/simplify ($iker)-($methparm2)
 54 
  !read deduc/sub/simplify ($iker)-($methparm2)
52 
  !if $out=$empty
 55 
  !if $out=$empty
53 
   error=bad_data
 56 
    error=bad_data
54 
   !exit
 57 
    !exit
55 
  !endif
 58 
  !endif
56 
  methparm3=$out
 59 
  methparm3=$out
57 
 !else
 60 
!else
58 
  wims_rawmath_variables=$variables
 61 
  wims_rawmath_variables=$variables
59 
  methparm3=!rawmath $methparm3
 62 
  methparm3=!rawmath $methparm3
60 
 !endif
 63 
!endif
61 
 !read deduc/sub/checkzero ($iker)-($methparm2)-($methparm3)
 64 
!read deduc/sub/checkzero ($iker)-($methparm2)-($methparm3)
62 
 !if $out=$empty
 65 
!if $out=$empty
63 
  error=bad_data
 66 
  error=bad_dataSuma incorrecta. Corrija por favor.
64 
  !exit
 67 
  !exit
65 
 !endif
 68 
!endif
66 
 !if $out!=yes
 69 
!if $out!=yes
67 
  error=Mauvaise addition. Veuillez corriger.
 70 
  error=Suma incorrecta. Corrija por favor.
68 
  !exit
 71 
  !exit
69 
 !endif
 72 
!endif
70
- 
 
71 
 newobject1=(integrate($methparm2,$ivar)+integrate($methparm3,$ivar))
 - 
 
72 
 oldobject=1
 - 
 
73 
 !reset methparm3
 - 
 
74 
 methexp=
 - 
 
75 
!exit
 - 
 
76 
 
 73 
 
- 
 
 74 
newobject1=(integrate($methparm2,$ivar)+integrate($methparm3,$ivar))
- 
 
 75 
oldobject=1
- 
 
 76 
!reset methparm3
- 
 
 77 
methexp=
- 
 
 78 
!exit