Seite 1 von 1
Gleichungssysteme mit PB ausrechnen
Verfasst: 04.12.2004 00:30
von MJP
Hi...,
Ich hätte da gerne mal ein Problem!
Auf dem Blatt kann ich die Gleichungssysteme ausrechnen aber in PB weis ich halt nicht wie das ganze aussehen soll.
Hätte da jemand einen Tipp für mich?
THx MJP
Verfasst: 04.12.2004 01:38
von Deeem2031
Das Codearchiv ist dein Freund. Musst nur wissen das sowas unter "Eval"-Funktionen läuft.
Verfasst: 04.12.2004 13:56
von NicTheQuick
Welche Gleichungssysteme meinst du jetzt speziell? Also was willst du ausrechnen?
Polynome?
Integrale?
Stammfunktionen?
Ableitungen?
Quatratische Funktionen?
@Deeem2031: Die Eval-Funktion kann keine Gleichungssysteme lösen, sondern lediglich Terme ohne Variablen ausrechnen.
Verfasst: 04.12.2004 14:29
von Deeem2031
arg, natürlich... vielleicht sollte ich nichtmehr nach Mitternacht posten
Verfasst: 04.12.2004 14:45
von remi_meier
Code: Alles auswählen
Procedure GaussSolve(*Matrix.l, N.l)
Protected N, h.f, i, j, k, *Matrix, *Matrix0
N = N - 1
Dim __matrix.f(N, N - 1)
*Matrix0 = @__matrix()
__matrix() = *Matrix
For i = 0 To N - 1
h = __matrix(i, i)
If h = 0
__matrix() = *Matrix0
Dim __matrix.f(0, 0)
ProcedureReturn 0
EndIf
For j = 0 To N
__matrix(j, i) = __matrix(j, i) / h
Next
For j = 0 To N - 1
If i <> j
h = __matrix(i, j)
For k = 0 To N
__matrix(k, j) = __matrix(k, j) - __matrix(k, i) * h
Next
EndIf
Next
Next
__matrix() = *Matrix0
Dim __matrix.f(0, 0)
ProcedureReturn 1
EndProcedure
#x = 3
#y = 2
Dim Matrix.f(#x - 1, #y - 1)
For y = 0 To #y - 1
For x = 0 To #x - 1
Read Matrix(x, y)
Next
Next
GaussSolve(@Matrix(), #x)
line.s
For y = 0 To #y - 1
For x = 0 To #x - 1
line + StrF(Matrix(x, y)) + " "
Next
Debug line
line = ""
Next
DataSection
matrix:
Data.f 7, 2, 3
Data.f 8, 3, 9
EndDataSection
Das ist ein einfacher Lösungsalgorithmus für lineare Gleichungssysteme. Wenn du wissen willst, wies funktioniert, dann Google (Gauss-Algorithmus) oder frag mich...
greetz
remi
Verfasst: 04.12.2004 15:06
von MJP
@NicTheQuick
ohhhh sorry!
ich meinte natürlich lineare Gleichungssysteme
@remi_meier
THx für die Hilfe!
Sorry, aber ich gehe in die neunte Klasse
Irgendwie ist das für mich Fachchinesisch!
Wie funktioniert das ganze?
@all Thx! MJP
Verfasst: 05.12.2004 22:02
von NetSlayer
Hm, stimmt, Matrizen gibts in der neunten Klasse noch nicht.
Hatten wir auch nur, weil uns unsere Lehrerin freundlicherweise erklärt hat, wie unser Taschenrechner unsere linearen Gleichungssysteme löst. Kann ich jetzt aber auch nicht allzu gut erklären, frag lieber wen anders *g*.