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 |