Gleichungslöser

**Mars**

Moin

In der SB war mal davon die Rede einen "Gleichungslöser" zu machen.
Das problem war dabei, dass es ziemlich kompliziert ist ein Programm zu schreiben, das Termumformungen beherrscht.

Also musste eine andere Methode her. ---> Ausprobieren

Mit dieser Methode arbeitet mein Skript.
Leider enthält es ein paar Bugs, sodass oftmals kein Ergebnis ausgegeben werden kann, weil die Annäherung an das Richtige Ergebnis im Sand verläuft.

Die Funktionsweise ist folgende:
Es gibt eine obere und Untere Schranke für das ergebnis.
Es wird mit beiden der Term gelöst und die Differenz zwichen den Beiden Seiten berechnet.
Dann werden die Schranken neu gesetzt, sodass sie das Richtige Ergebnis immer weiter einschränken, bis schließlich beide Schranken das ergebnis sind (Grenzwert)

Bei einigen Aufgaben Funktioniert das auch wunderbar, bei anderen wird eine Schranke Falsch gesetzt, wodurch das ergebnis außerhalb der Schranken liegt. Dann kann es auch nicht mehr erreicht werden.

Falls jemand viiel Zeit und auch etwas Lust dazu hat kann er sich meinen absolut Chaotischen Code mal reinziehen und auf Fehlersuche gehen^^
Falls jemand nur was so zum spaß haben will ist er hier auch richtig. Das Skript klappt zumindest manchmal kann bei Mathe Hausaufgaben den Taschenrechner aber noch nicht ersetzen^^

Spoiler anzeigen

[autoit]

#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('GUICloseOnESC', 0)
Opt('GUIOnEventMode', 1)

[/autoit] [autoit][/autoit] [autoit]

Global $Kommastellen = 3, $Min = 0, $Max = 10000

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate('Gleichungslöser', 500, 200, _CenterX(500), _CenterY(200), -1, 0x00000080)
GUISetOnEvent(-3, '_Exit')

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(3, 3, 494, 34, 2, '0x000000')
$hInput_1 = GUICtrlCreateEdit('', 5, 5, 490, 30, 64 + 1, 0)
GUICtrlSetFont($hInput_1, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(3, 43, 494, 34, 2, '0x000000')
$hOutput_1 = GUICtrlCreateEdit('', 5, 45, 490, 30, 64 + 2049, 0)
GUICtrlSetFont($hOutput_1, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(3, 83, 178, 34, 2, '0x000000')
GUICtrlCreateLabel('Ergebnisbereich:', 8, 85, 170, 30)
GUICtrlSetFont(-1, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(3, 123, 58, 34, 2, '0x000000')
GUICtrlCreateLabel('Min:', 8, 125, 50, 30)
GUICtrlSetFont(-1, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(59, 123, 193, 34, 2, '0x000000')
$hErg_Min = GUICtrlCreateEdit('-1000', 61, 125, 189, 30, 64 + 1, 0)
GUICtrlSetFont($hErg_Min, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(250, 123, 59, 34, 2, '0x000000')
GUICtrlCreateLabel('Max:', 250 + 5, 125, 50, 30)
GUICtrlSetFont(-1, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(250 + 57, 123, 190, 34, 2, '0x000000')
$hErg_Max = GUICtrlCreateEdit('1000', 250 + 59, 125, 186, 30, 64 + 1, 0)
GUICtrlSetFont($hErg_Max, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(3, 163, 178, 34, 2, '0x000000')
GUICtrlCreateLabel('Kommastellen:', 8, 165, 170, 30)
GUICtrlSetFont(-1, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

_Rahmen(178 + 1, 163, 100, 34, 2, '0x0000000')
$Komma = GUICtrlCreateEdit('5', 181, 165, 96, 30, 64 + 1, 0)
GUICtrlSetFont(-1, 18, 400, 0, 'Calibri', 5)

[/autoit] [autoit][/autoit] [autoit]

;~ $Konsole = GUICtrlCreateEdit('', 500, 5, 395, 190)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $hGUI)

[/autoit] [autoit][/autoit] [autoit]

While Sleep(25)
;~ If _IsPressed('02') Then GUICtrlSetData($Konsole, '')
If _IsPressed('0D') Then GUICtrlSetData($hOutput_1, 'X = ' & _Ausrechnen(GUICtrlRead($hInput_1)))

[/autoit] [autoit][/autoit] [autoit]

$Kommastellen = GUICtrlRead($Komma)
$Min = StringReplace(GUICtrlRead($hErg_Min),',', '.')
$Max = StringReplace(GUICtrlRead($hErg_Max),',', '.')
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Diff($a)
If $a[0] > $a[1] Then
Return $a[0] - $a[1]
Else
Return $a[1] - $a[0]
EndIf
EndFunc ;==>_Diff

[/autoit] [autoit][/autoit] [autoit]

Func _Ausrechnen($sInput)
If StringInStr($sInput, '=') And StringInStr($sInput, 'x', 0) Then
$sInput = StringReplace($sInput, ',', '.')
$sInput = StringReplace($sInput, ')(', ')*(')
$sInput = StringReplace($sInput, 'x(', 'x*(')
$sInput = StringReplace($sInput, ')x', ')*x')
$sInput = StringReplace($sInput, '0x', '0*x')
$sInput = StringReplace($sInput, '1x', '1*x')
$sInput = StringReplace($sInput, '2x', '2*x')
$sInput = StringReplace($sInput, '3x', '3*x')
$sInput = StringReplace($sInput, '4x', '4*x')
$sInput = StringReplace($sInput, '5x', '5*x')
$sInput = StringReplace($sInput, '6x', '6*x')
$sInput = StringReplace($sInput, '7x', '7*x')
$sInput = StringReplace($sInput, '8x', '8*x')
$sInput = StringReplace($sInput, '9x', '9*x')
;~ ToolTip($sInput)
Local $Fertig = False, $Testzahl[3] = [$Min, ($Max+$Min)/2, $Max], $Diff[3] = [0, 0, 0], $Tmp[2], $Zahl, $Stop = False
Local $a = StringSplit($sInput, '=')
$a[1] = StringReplace($a[1], ' ', '', 0, 1)
$a[2] = StringReplace($a[2], ' ', '', 0, 1)
If $a[1] <> '' And $a[2] <> '' Then

[/autoit] [autoit][/autoit] [autoit]

Local $d[2], $b[2], $c[2]

[/autoit] [autoit][/autoit] [autoit]

$Timer = TimerInit()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While $Fertig = False
If TimerDiff($Timer)/1000 > 3 Then Return 'Error - Das ergebnis konnte nicht ermittelt werden.'

[/autoit] [autoit][/autoit] [autoit]

;~ $Stop = False

[/autoit] [autoit][/autoit] [autoit]

$d[0] = Execute(StringReplace($a[1], 'x', $Testzahl[0], 0, 0))
$d[1] = Execute(StringReplace($a[2], 'x', $Testzahl[0], 0, 0))

[/autoit] [autoit][/autoit] [autoit]

If Round($d[0], $Kommastellen) = Round($d[1], $Kommastellen) Then
$Fertig = True
$Zahl = $Testzahl[0]
Else

[/autoit] [autoit][/autoit] [autoit]

$Diff[0] = _Diff($d)

[/autoit] [autoit][/autoit] [autoit]

$b[0] = Execute(StringReplace($a[1], 'x', $Testzahl[2], 0, 0))
$b[1] = Execute(StringReplace($a[2], 'x', $Testzahl[2], 0, 0))

[/autoit] [autoit][/autoit] [autoit]

If Round($b[0], $Kommastellen) = Round($b[1], $Kommastellen) Then
$Fertig = True
$Zahl = $Testzahl[2]
Else

[/autoit] [autoit][/autoit] [autoit]

$Diff[2] = _Diff($b)

[/autoit] [autoit][/autoit] [autoit]

$c[0] = Execute(StringReplace($a[1], 'x', $Testzahl[1], 0, 0))
$c[1] = Execute(StringReplace($a[2], 'x', $Testzahl[1], 0, 0))

[/autoit] [autoit][/autoit] [autoit]

If Round($c[0], $Kommastellen) = Round($c[1], $Kommastellen) Then
$Fertig = True
$Zahl = $Testzahl[1]
Else

[/autoit] [autoit][/autoit] [autoit]

$Diff[1] = _Diff($c)

[/autoit] [autoit][/autoit] [autoit]

$Tmp[0] = $Diff[0]
If $Diff[1] < $Tmp[0] Then $Tmp[0] = $Diff[1]
If $Diff[2] < $Tmp[0] Then $Tmp[0] = $Diff[2]
$Tmp[1] = $Diff[0]
If $Diff[1] > $Tmp[1] Then $Tmp[1] = $Diff[1]
If $Diff[2] > $Tmp[1] Then $Tmp[1] = $Diff[2]

[/autoit] [autoit][/autoit] [autoit]

_C(@CRLF & 'Diff Unten'& Round($Diff[0],$Kommastellen) &' Diff Mitte'& Round($Diff[1],$Kommastellen)&' Diff Oben'& Round($Diff[2],$Kommastellen))

[/autoit] [autoit][/autoit] [autoit]

Switch String($Tmp[0])

[/autoit] [autoit][/autoit] [autoit]

Case String($Diff[0])
_C(@CRLF & 'Unten am kleinsten')
;~ Sleep(500)
_C(@CRLF & Round($Diff[1],$Kommastellen) &' '& Round($Diff[2],$Kommastellen))
;~ Sleep(1500)
;~ If $Stop = False Then
If $Diff[1] < $Diff[2] Then
;Unten, Mitte, Oben
_C(@CRLF & 'Unten,Mitte,Oben')
If $Testzahl[0] < $Testzahl[1] Then
$Testzahl[2] = $Testzahl[1]
Else
$Testzahl[2] = $Testzahl[0]
$Testzahl[0] = $Testzahl[1]
EndIf
;~ $Stop = True
Else
;Unten, Oben, Mitte
;~ If $Testzahl[0] > $Testzahl[2] Then
;~
;~ $Testzahl[1] = $Testzahl[2]
EndIf
;~ EndIf

[/autoit] [autoit][/autoit] [autoit]

Case String($Diff[1])
_C(@CRLF & 'Mitte am kleinsten')
;~ If $Stop = False Then
_C(@CRLF & Round($Diff[0],$Kommastellen) &' '& Round($Diff[2],$Kommastellen))

[/autoit] [autoit][/autoit] [autoit]

If $Diff[0] < $Diff[2] Then
;Mitte,Unten,Oben
_C(@CRLF & 'Mitte,unten,oben')
If $Testzahl[0] < $Testzahl[1] Then
$Testzahl[2] = $Testzahl[1]
Else
$Testzahl[2] = $Testzahl[0]
$Testzahl[0] = $Testzahl[1]
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ $Testzahl[0] = $Testzahl[1]
;~ $Stop = True
Else
;Mitte,Oben,Unten
_C(@CRLF & 'Mitte,oben,unten')

[/autoit] [autoit][/autoit] [autoit]

If $Testzahl[1] < $Testzahl[2] Then
$Testzahl[0] = $Testzahl[1]
Else

[/autoit] [autoit][/autoit] [autoit]

$Testzahl[0] = $Testzahl[2]
$Testzahl[2] = $Testzahl[1]
EndIf
;~ $Stop = True
EndIf
;~ EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case String($Diff[2])
_C(@CRLF & 'Oben am kleinsten')

[/autoit] [autoit][/autoit] [autoit]

;~ If $Stop = False Then
If $Diff[0] < $Diff[1] Then
;Oben, Unten, Mitte
;~ $Testzahl[1] = $Testzahl[2]
;~ $Testzahl[2] = $Testzahl[0]
;~ $Testzahl[0] = $Testzahl[1]
Else
;Oben, Mitte, Unten
_C(@CRLF & 'Oben,Mitte,Unten')
If $Testzahl[1] < $Testzahl[2] Then

[/autoit] [autoit][/autoit] [autoit]

$Testzahl[0] = $Testzahl[1]
Else
$Testzahl[0] = $Testzahl[2]
$Testzahl[2] = $Testzahl[1]
EndIf
;~ $Stop = True

[/autoit] [autoit][/autoit] [autoit]

EndIf
;~ EndIf

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

$Testzahl[1] = ($Testzahl[0] + $Testzahl[2]) / 2

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndIf
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

;~ If $Diff[0] And $Diff[1] And $Diff[2] = 0 Then $Fertig = True

[/autoit] [autoit][/autoit] [autoit]

_C(@CRLF & 'Zusammenfassung' & @CRLF & Round($d[0],$Kommastellen) & '-' & Round($d[1],$Kommastellen) & '=' & Round($Diff[0],$Kommastellen) & @CRLF & Round($b[0],$Kommastellen) & '-' & Round($b[1],$Kommastellen) & '=' & Round($Diff[2],$Kommastellen) & @CRLF & Round($c[0],$Kommastellen) & '-' & Round($c[1],$Kommastellen) & '=' & Round($Diff[1],$Kommastellen) & @CRLF & Round($Testzahl[0],$Kommastellen) & ' ' & Round($Testzahl[1],$Kommastellen) & ' ' & Round($Testzahl[2],$Kommastellen))
;~ Sleep(1000)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Return Round($Zahl, $Kommastellen)

[/autoit] [autoit][/autoit] [autoit]

;~ ToolTip($a[1] &' '& $a[2])
EndIf
EndIf
EndFunc ;==>_Ausrechnen

[/autoit] [autoit][/autoit] [autoit]

Func _C($sText)
;~ GUICtrlSetData($Konsole, $sText, 1)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Rahmen($links, $oben, $breite, $hoehe, $strichstaerke, $farbe)
Local $a[8]
$a[0] = GUICtrlCreateLabel("", $links, $oben, $breite, $strichstaerke)
$a[1] = GUICtrlSetBkColor(-1, $farbe)
$a[2] = GUICtrlCreateLabel("", $links, $oben, $strichstaerke, $hoehe)
$a[3] = GUICtrlSetBkColor(-1, $farbe)
$a[4] = GUICtrlCreateLabel("", $links + $breite - $strichstaerke, $oben, $strichstaerke, $hoehe)
$a[5] = GUICtrlSetBkColor(-1, $farbe)
$a[6] = GUICtrlCreateLabel("", $links, $oben + $hoehe - $strichstaerke, $breite, $strichstaerke)
$a[7] = GUICtrlSetBkColor(-1, $farbe)
Local $Return = 1
If $a[1] + $a[3] + $a[5] + $a[7] <> 4 Then $Return = 0
For $i = 0 To 6 Step 2
If $a[$i] = 0 Then $Return = 0
Next
Return $Return
EndFunc ;==>_Rahmen

[/autoit] [autoit][/autoit] [autoit]

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit] [autoit][/autoit] [autoit]

Func _CenterX($a)
Return @DesktopWidth / 2 - $a / 2
EndFunc ;==>_CenterX

[/autoit] [autoit][/autoit] [autoit]

Func _CenterY($a)
Return @DesktopHeight / 2 - $a / 2
EndFunc ;==>_CenterY

[/autoit]

[Blockierte Grafik: http://img3.imagebanana.com/img/qf9gvf9l/Document0009.png]
[Blockierte Grafik: http://img3.imagebanana.com/img/h8ruboa6/Document0081.png]

Hier sieht man eine relativ komplexe gleichung (für anfänger :P) die gelöst wurde. (Hoffentlich korrekt^^)

PS: Die Berechnung kann man durch dücken von Enter Starten !

Update1: Es werden nun auch Kommas verwendet. (z.B. 5,5 kann man jetzt auch nutzen statt 5.5)
Update2: Man kann nun das Multiplizierenzeichen bei einigen Stellen weglassen. ( z.B. 5x = 5*x oder (x+1)(x-1) = (x+1)*(x-1) )

Anmerkung: Oftmals kann das Ergebnis nicht ausgegeben werden, da die Schranken manchmal Falsch gesetzt werden, sodass das ergebnis außerhalb dieser liegt. Wenn man das ergebnis in etwa kennt kann man die Schranken vorher schon etwas einstellen. Dann klappt es manchmal^^

mfg
Mars(i)

PrideRage

Sehr schönes Skript.
Kann einem ganz gut weiterhelfen, jedoch brauchen wir in Mathe mehr als die Lösung
Für mich funzt das Skript wunderbar und deswegen find ich's auch klasse.
Mich nervt trotzdem dass "x" manchmal 0 bleibt ohne offensichtlichen Grund.
Du solltest also ein error handling einbauen.
MfG. PrideRage

**Mars**

Wenn die berechnung nicht binnen 5sek abgeschlossen ist wird automatisch Null ausgegeben. (z.B. bei x^2=100 was man sogar im Kopf kann^^)
Das ist, weil die Rechnung dann hängt. (was an einem Fehler im Programm liegt den ich kenne, der aber für die zeit die ich noch wach bin (1Min) nicht mehr zu beheben ist)
Ich versuche mich Morgen nochmal daran das Teil zu verbessern^^
mfg
Mars(i)

nof@ker2

Ich habe dazu auch eine Lösung.
Das Skript formt den Term um und kommt über mehrere Schritte zur Lösung.

Spoiler anzeigen

[autoit]

#include-once
#include <Array.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

Func MathsAmp_SolveEqu ($eString)
$sSides = StringSplit ($eString,"=")
If UBound ($sSides,1) <> 3 Then Return False
$xSides = 0
If StringInStr ($sSides [1],"x") And StringInStr ($sSides [2],"x") Then
$xSides = 3
ElseIf StringInStr ($sSides [1],"x") Then
$xSides = 2
ElseIf StringInStr ($sSides [2],"x") Then
$xSides = 1
ElseIf Not StringInStr ($sSides [1],"x") And Not StringInStr ($sSides [2],"x") Then
Return False
EndIf

[/autoit] [autoit][/autoit] [autoit]

$inBracket = _StringBetween ($eString,"(",")")
If IsArray ($inBracket) Then
Local $bracketReplace [UBound($inBracket,1)]
For $x = 0 To UBound ($inBracket,1)-1
If StringInStr ($inBracket [$x],"x") Then
$arr1 = MathsAmp_SplitFak ($inBracket [$x])
$solved = SolveArray ($arr1)
$bracketReplace [$x] = $solved
Else
$inBracketTemp = StringReplace($inBracket[$x],":","/")
$bracketReplace [$x] = Execute ($inBracketTemp)
EndIf
Next
EndIf

[/autoit] [autoit][/autoit] [autoit]

If IsArray ($inBracket) Then
$inBracket = ClearArray ($inBracket,0)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If IsArray ($inBracket) Then
For $aa = 0 To UBound ($inBracket,1)-1
$eString = StringReplace ($eString,"("&$inBracket [$aa]&")",$bracketReplace [$aa])
Next
EndIf

[/autoit] [autoit][/autoit] [autoit]

$eeSplit = StringSplit ($eString,"=")
$LeftSideArray = MathsAmp_SplitFak ($eeSplit [1])
$RightSideArray = MathsAmp_SplitFak ($eeSplit [2])
$SolvedAA = SolveArray ($LeftSideArray)
$SolvedBB = SolveArray ($RightSideArray)

[/autoit] [autoit][/autoit] [autoit]

$SolveEqu = SolveEqu ($SolvedAA,$SolvedBB)
Return $SolveEqu
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func SolveEqu ($LeftSide,$RightSide) ; 4x - 10 = 3x + 4
$xLeft = GetXCount ($LeftSide)
$xRight = GetXCount ($RightSide)
$cLeft = GetCountCount ($LeftSide)
$cRight = GetCountCount ($RightSide)

[/autoit] [autoit][/autoit] [autoit]

If $xLeft > $xRight Then
$xMain = $xLeft - $xRight
$cRighted = $cRight - $cLeft
Return $cRighted / StringReplace ($xMain,"x","")
Else
$xMain = $xRight - $xLeft
$cLefted = $cLeft - $cRight
Return $cLefted / StringReplace ($xMain,"x","")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func GetXCount ($Side)
$sp = MathsAmp_SplitFak ($Side)
For $a = 1 To UBound ($sp,1)-1
If StringInStr ($sp [$a],"x") Then
Return StringReplace ($sp [$a],"x","")
EndIf
Next
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func GetCountCount ($Side)
$sp = MathsAmp_SplitFak ($Side)
For $a = 1 To UBound ($sp,1)-1
If StringInStr ($sp [$a],"x") Then
$sp [$a] = ''
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

$sp = ClearArray ($sp,1)
Return _ArrayToString ($sp,"",1)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func MathsAmp_SplitFak ($aString)
; 5+x-4*2:6
$elementBef = ''
$aPos = 0

[/autoit] [autoit][/autoit] [autoit]

Local $Elements [1]
Do
$elementBef = ''
Do
$aPos += 1
$elementBef &= StringMid ($aString,$aPos,1)
Until StringInStr ($elementBef,"*") Or StringInStr ($elementBef,":") Or StringInStr ($elementBef,"+") Or StringInStr ($elementBef,"-") Or $aPos = StringLen ($aString)
If $aPos < StringLen ($aString) Then
_ArrayAdd ($Elements,StringMid($elementBef,1,StringLen ($elementBef)-1))
_ArrayAdd ($Elements,StringRight ($elementBef,1))
Else
_ArrayAdd ($Elements,$elementBef)
EndIf
Until $aPos = StringLen ($aString)

[/autoit] [autoit][/autoit] [autoit]

Return ClearArray ($Elements,1)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func SolveArray ($mArray)
If $mArray [1] = '+' Or $mArray [1] = '-' Then
_ArrayDelete ($mArray,1)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local $x = 1
; Divisionen durchführen
For $x = 1 To UBound ($mArray,1)-1
If $mArray [$x] = ':' Then
If StringInStr ($mArray [$x-1],"x") Then
$aResultTemp = XReplace ($mArray [$x-1]) / $mArray [$x+1]&"x"
$mArray [$x-1] = ''
$mArray [$x] = $aResultTemp
$mArray [$x+1] = ''
Else
$aResultTemp = $mArray [$x-1]/$mArray [$x+1]
$mArray [$x-1] = ''
$mArray [$x] = $aResultTemp
$mArray [$x+1] = ''
EndIf
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

$mArray = ClearArray ($mArray,1)

[/autoit] [autoit][/autoit] [autoit]

; Multiplikationen durchführen
For $x = 1 To UBound ($mArray,1)-1
If $mArray [$x] = '*' Then
If StringInStr ($mArray [$x-1],"x") Then
$aResultTemp = XReplace ($mArray [$x-1]) * $mArray [$x+1]&"x"
$mArray [$x-1] = ''
$mArray [$x] = $aResultTemp
$mArray [$x+1] = ''
Else
$aResultTemp = $mArray [$x-1]*$mArray [$x+1]
$mArray [$x-1] = ''
$mArray [$x] = $aResultTemp
$mArray [$x+1] = ''
EndIf
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

$mArray = ClearArray ($mArray,1)

[/autoit] [autoit][/autoit] [autoit]

Local $NonXValue = 0
Local $XValue = 0

[/autoit] [autoit][/autoit] [autoit]

; Addition und Subtraktion durchführen
For $x = 1 To UBound ($mArray,1)-1
If Not StringInStr ($mArray [$x],"x") Then ; Non X Value
If $mArray [$x-1] <> '-' Then
$NonXValue += $mArray [$x]
Else
$NonXValue -= $mArray [$x]
EndIf
Else
If $mArray [$x-1] <> '-' Then
$XValue += XReplace ($mArray [$x])
Else
$XValue -= XReplace ($mArray [$x])
EndIf
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

If $NonXValue = 0 Then $NonXValue = ''
If $XValue = 0 Then $XValue = ''
If $NonXValue > 0 And $XValue <> '' Then
$NonXValue = '+'&$NonXValue
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $XValue <> '' then
$BackValue = $XValue &"x"& $NonXValue
Else
$BackValue = $NonXValue
EndIf

[/autoit] [autoit][/autoit] [autoit]

Return $BackValue
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func XReplace ($xString)
If $xString = 'x' Then Return 1
Return StringReplace ($xString,"x","")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func ClearArray ($aArray,$Start)
$a = $Start
Do
If $aArray [$a] = '' Then
_ArrayDelete ($aArray,$a)
Else
$a += 1
EndIf
Until $a >= UBound ($aArray,1)-1
If $aArray [UBound($aArray,1)-1] = '' Then _ArrayDelete ($aArray,UBound($aArray,1)-1)
Return $aArray
EndFunc

[/autoit]

z.B. x+4-(2x:2)=x+8 , oder so , Potenzen und Wurzeln werden noch nicht unterstützt.

**autoBert**

Hallo Marsi,

ich hoffe du brauchst hiefür keine 5 Sekunden um dies zu lösen:

autoit.de/wcf/attachment/11278/

@nof@ker2 du solltest noch eine GUI darum stricken. Bei folgenden Tests haben Potenzen geklappt:

2x+5=7
2^x+5=9

Danach hatte ich aber gleich einen fehlerhaften Versuch x^2+16=20 mit Abbruch -1.#INF , so man ihn bei Potenzen noch nicht einsetzen kann

mfg autoBert

Ineluki

Ich hab grad das hier gefunden:
Klick
Scheint recht schnell zu sein und scheint auch zu funktionieren.

**Mars**

Zitat von autoBert

Hallo Marsi,

ich hoffe du brauchst hiefür keine 5 Sekunden um dies zu lösen:

Das Problem ist, dass du '2x' hingeschrieben hast. du musst ihm die Anweisungen direkt geben. also 2*x statt 2x schreiben.
Ich versuche mal das irgendwie einzubauen.

Das problem sollte nun nicht mehr auftreten. (mit dem 2x). 2x wird jetzt intern direkt in 2*x verwandelt.

Eine kleine Änderung gibts im Anfangspost schon. Kommas werden jetzt automatisch in der Berechnung in punkte verwandelt (weil es immernoch einige Leute gibt die Kommas statt Punkte benutzen)

[Blockierte Grafik: http://img3.imagebanana.com/img/y8myit8g/Document0099.png]
(Bäm. 5.71kb bei 116.280 Pixeln^^)

mfg
Mars(i)