Algebre V1.0 et V2.0 par aerith "aeris_vallee@hotmail.com"
Pour une utilisation partiel ou complette dans un script me prevenir svp

Algebre 1.0 remplie les meme fonction que le script de depart

alias algebre {
  ;Nom      : $algebre
  ;Syntaxe  : $algebre(calcul,valeurs)
  ;Exemple  : $algebre(a+b=c,a=2;b=6)
  ;Retourne : Valeur de c : 8

  var %partiecalculun $gettok($$1,1,61)
  var %partiecalculdeux $gettok($$1,2,61)
  var %maximum $len(%partiecalculun)
  var %index 1
  while (%index <= %maximum) {
    var %lettreactive $mid(%partiecalculun,%index,1)
    var %lettresuivante $mid(%partiecalculun,$calc(%index + 1),1)
    var %ascactive $asc(%lettreactive)
    var %ascsuivante $asc(%lettresuivante)
    var %activelettre $false
    var %suivantelettre $false
    if (%ascactive >= 65) && (%ascactive <= 90) var %activelettre $true
    if (%ascactive >= 97) && (%ascactive <= 122) var %activelettre $true
    if (%ascactive >= 48) && (%ascactive <= 57) var %activelettre $true
    if (%ascsuivante >= 65) && (%ascsuivante <= 90) var %suivantelettre $true
    if (%ascsuivante >= 97) && (%ascsuivante <= 122) var %suivantelettre $true
    if (%ascsuivante >= 48) && (%ascasuivante <= 57) var %suivantelettre $true
    if (%suivantelettre == $true) && (%activelettre == $true) {
      var %partiecalculun $mid(%partiecalculun,1,%index)
      var %partiedeux $mid(%partiecalculun,$calc(%index + 1),$len(%partiecalculun))
      var %partiecalculun %partiune $+ * $+ %partiedeux
    }
    inc %index 1
  }
  var %index 1
  while (%index <= $gettok($$2,0,59)) {
    var %egalite $gettok($$2,%index,59)
    var %lettre = $gettok(%egalite,1,61)
    var %chiffre = $gettok(%egalite,2,61)
    var %partiecalculun = $replace(%partiecalculun,%lettre,%chiffre)
    inc %index 1
  }
  var %reponse $calc(%partiecalculun)
  return Valeur de %partiecalculdeux : %reponse
}


il a ete optimiser et fonction de la meme magniere


Algebre 2.0 est une evolution du 1.0
il developpe mieu le resultat et suporte des equations de forme diferente