Subversion Repositories wimsdev

Rev

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

Rev 5763 Rev 16117
Line 8... Line 8...
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 
 !reset methparm3
 13 
!reset methparm3
14 
 !set N=!linecnt $mtobj1
 14 
!set N=!linecnt $mtobj1
15 
 !if $N=1
 15 
!if $N=1
16 
  !set l=!item 2 to -1 of $mtobj1
 16 
  !set l=!item 2 to -1 of $mtobj1
17 
  !set l=!mathsubst integrate= in $l
 17 
  !set l=!mathsubst integrate= in $l
18 
  !set l=!declosing $l
 18 
  !set l=!declosing $l
19 
  !set v=!item 2 of $l
 19 
  !set v=!item 2 of $l
20 
 !endif
 20 
!endif
21 
 Réécrire l'intégration
 21 
Réécrire l'intégration
22 
 !read deduc/methparm.phtml 1
 22 
!read deduc/methparm.phtml 1
23 
 en
 23 
en
24 
 <p><center><table border=0>
 24 
<p><center><table border=0>
25 
 <tr><td nowrap>
 25 
<tr><td nowrap>
26 
 \(integrate())
 26 
\(integrate())
27 
 !read deduc/methparm.phtml 2,40
 27 
!read deduc/methparm.phtml 2,40
28 
 !if $N=1
 28 
!if $N=1
29 
  d$v
 29 
  d$v
30 
 !else
30 
!else
31 
  d<input size=4 name=methparm3/>
 31 
  d<input size=4 name=methparm3/>
32 
 !endif
 32 
!endif
33 
 </td></tr></table></center>
 33 
 </td></tr></table></center>
34 
!exit
 34 
!exit
35 
:check
 35 
:check
36 
 ker=!item 2 of $methparmobj1
 36 
ker=!item 2 of $methparmobj1
37 
 ker=!mathsubst integrate= in $ker
 37 
ker=!mathsubst integrate= in $ker
38 
 ker=!trim $ker
 38 
ker=!trim $ker
39 
 ker=!declosing $ker
 39 
ker=!declosing $ker
40 
 !distribute items $ker into iker,ivar
 40 
!distribute items $ker into iker,ivar
41 
 vartest=!varlist $ivar
 41 
vartest=!varlist $ivar
42 
 !if $ivar != $vartest
 42 
!if $ivar != $vartest
43 
  error=Fail
 43 
  error=Fail
44 
  !exit
 44 
  !exit
45 
 !endif
 45 
!endif
46 
 
 46 
 
47 
 methparm3=!word 1 of $methparm3
 47 
methparm3=!word 1 of $methparm3
48 
 !if $methparm3!=$empty and $methparm3!=$ivar
 48 
!if $methparm3!=$empty and $methparm3!=$ivar
49 
  error=Vous ne pouvez pas changer le nom de variable ici. Veuillez corriger.
 49 
  error=Vous ne pouvez pas changer le nom de variable ici. Veuillez corriger.
50 
  !exit
 50 
  !exit
51 
 !endif
 51 
!endif
52 
 !read deduc/sub/checkzero ($iker)-($methparm2)
 52 
!read deduc/sub/checkzero ($iker)-($methparm2)
53 
 !if $out=$empty
 53 
!if $out=$empty
54 
  error=bad_data
 54 
  error=bad_data
55 
  !exit
 55 
  !exit
56 
 !endif
 56 
!endif
57 
 !if $out!=yes
 57 
!if $out!=yes
58 
  error=Mauvaise réécriture. Veuillez corriger.
 58 
  error=Mauvaise réécriture. Veuillez corriger.
59 
  !exit
 59 
  !exit
60 
 !endif
 60 
!endif
61
- 
 
62 
 newobject1=integrate($methparm2,$ivar)
 - 
 
63 
 oldobject=1
 - 
 
64 
 methexp=réécriture
 - 
 
65 
!exit
 - 
 
66 
 
 61 
 
- 
 
 62 
newobject1=integrate($methparm2,$ivar)
- 
 
 63 
oldobject=1
- 
 
 64 
methexp=réécriture
- 
 
 65 
!exit