Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
20 reyssat 1
!set methtit=Réécrire une intégrale
2
!set methenv=ZZ QQ RR
3
!set methparmtype=parm function integrate, function
4
!set methhelp=Vous pouvez réécrire le noyau d'une intégrale en une forme\
5
 équivalente.
6
 
7
!if $wims_read_parm iswordof form check
16119 bpr 8
  !goto $wims_read_parm
20 reyssat 9
!endif
10
 
11
!exit
12
:form
16117 bpr 13
!reset methparm3
14
!set N=!linecnt $mtobj1
15
!if $N=1
20 reyssat 16
  !set l=!item 2 to -1 of $mtobj1
17
  !set l=!mathsubst integrate= in $l
18
  !set l=!declosing $l
19
  !set v=!item 2 of $l
16117 bpr 20
!endif
21
Réécrire l'intégration
22
!read deduc/methparm.phtml 1
16119 bpr 23
$ en
24
<div class="wimscenter">
16117 bpr 25
\(integrate())
26
!read deduc/methparm.phtml 2,40
27
!if $N=1
20 reyssat 28
  d$v
16117 bpr 29
!else
17187 bpr 30
  d<input size="4" name="methparm3">
16117 bpr 31
!endif
16119 bpr 32
</div>
20 reyssat 33
!exit
34
:check
16117 bpr 35
ker=!item 2 of $methparmobj1
36
ker=!mathsubst integrate= in $ker
37
ker=!trim $ker
38
ker=!declosing $ker
39
!distribute items $ker into iker,ivar
40
vartest=!varlist $ivar
41
!if $ivar != $vartest
20 reyssat 42
  error=Fail
43
  !exit
16117 bpr 44
!endif
20 reyssat 45
 
16117 bpr 46
methparm3=!word 1 of $methparm3
47
!if $methparm3!=$empty and $methparm3!=$ivar
20 reyssat 48
  error=Vous ne pouvez pas changer le nom de variable ici. Veuillez corriger.
49
  !exit
16117 bpr 50
!endif
51
!read deduc/sub/checkzero ($iker)-($methparm2)
52
!if $out=$empty
20 reyssat 53
  error=bad_data
54
  !exit
16117 bpr 55
!endif
56
!if $out!=yes
20 reyssat 57
  error=Mauvaise réécriture. Veuillez corriger.
58
  !exit
16117 bpr 59
!endif
60
 
61
newobject1=integrate($methparm2,$ivar)
62
oldobject=1
63
methexp=réécriture
20 reyssat 64
!exit