Subversion Repositories wimsdev

Rev

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

Rev 16321 Rev 17187
Line 19... Line 19...
19 
!else
 19 
!else
20 
  !bound methparm1 between integer 0 and $N default 1
 20 
  !bound methparm1 between integer 0 and $N default 1
21 
  !if $methparm1=0 or $error!=$empty
 21 
  !if $methparm1=0 or $error!=$empty
22 
    !goto first
 22 
    !goto first
23 
  !endif
 23 
  !endif
24 
  <input type="hidden" name="methparm1" value="$methparm1" />
 24 
  <input type="hidden" name="methparm1" value="$methparm1">
25 
  !set methsubstep=1
 25 
  !set methsubstep=1
26 
  !set l=!line $methparm1 of $mtobj1
 26 
  !set l=!line $methparm1 of $mtobj1
27 
  !set l=!item 2 to -1 of $l
 27 
  !set l=!item 2 to -1 of $l
28 
  !set k=!mathsubst integrate= in $l
 28 
  !set k=!mathsubst integrate= in $l
29 
  !set k=!declosing $k
 29 
  !set k=!declosing $k
Line 68... Line 68...
68 
inv=!declosing $inv
 68 
inv=!declosing $inv
69 
n=!itemcnt $inv
 69 
n=!itemcnt $inv
70 
inv2=!nospace $inv
 70 
inv2=!nospace $inv
71 
eq==
 71 
eq==
72 
!if $n!=1 or +++**$newvar$eq notin +++**$inv2
 72 
!if $n!=1 or +++**$newvar$eq notin +++**$inv2
73 
  error=No se pudo encontrar la función recíproca de $methparm2
73 
  error=No se pudo encontrar la función recíproca de $methparm2
74 
        necesaria para una mayor sustitución:
74 
        necesaria para una mayor sustitución:
75 
        use el cambio de variable inversa.
 75 
        use el cambio de variable inversa.
76 
  !exit
 76 
  !exit
77 
!endif
 77 
!endif
78 
substed=!mathsubst $ivar=($methparm2) in $iker
 78 
substed=!mathsubst $ivar=($methparm2) in $iker
79 
!read deduc/sub/checkzero diff(($substed)*($diff),$newvar)
 79 
!read deduc/sub/checkzero diff(($substed)*($diff),$newvar)