XProfan

Kompilieren Markieren Separieren

- Seite 2 -

Gary12345

Proc Lösungsformel1'Wert bei -b-...

    parameters a!,b!,c!
    declare r!
    set("decimals",2)
    r!=-b!-sqrt(b!*b!-4*a!*c!) / 2*a!
    return ROUND(r!,2)

EndProc

Testwert:
Kompilieren Markieren Separieren

var test1! = Lösungsformel1(1,2,1)
print test1!

Wenn ich es richtig sehe, heißt die Funktion dann so:

Lösungsformel(a,b,c).

Liefert bei den oberen Testwerten immer noch falsche Werte zurück. Bei anderen Werten stürzt es wieder ab?

LG

XProfan X2
MfG
Gary12345

Thomas
Freier

Such doch mal im WEB. Z.B.: [...]

Gruß Thomas
Windows XP SP2, XProfan X2

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

probier mal r!=b!+sqrt(abs(b!*b!-4*a!*c!)) / 2*a! weil XProfan::sqrt negative
Werte beim Param net so lieb gewinnen mag.

Kompilieren Markieren Separieren

Gary12345

Proc Lösungsformel1'Wert bei -b-...

    parameters a!,b!,c!
    declare r!
    set("decimals",2)
    r!=b!+sqrt(abs(b!*b!-4*a!*c!)) / 2*a!
    return ROUND(r!,2)

EndProc

Gibt meiner Ansicht immer noch falsche Werte zurück? Ist jemand der anderen Meinung? Aber zumindestens keine Fehlermeldungen mehr.

XProfan X2
MfG
Gary12345

Julian
Schmidt

Hallo Gary,

probier mal. Falls die selben Werte rauskommen müsste es richtig sein.

r!=((b!/a!)/2)+sqrt(abs(((b!/a!)/2)^2-(c!/a!)))
r!=((b!/a!)/2)-sqrt(abs(((b!/a!)/2)^2-(c!/a!)))

Gruß

Julian

[OFFTOPIC]Die neuen Boxen gefallen mir nicht. Neuer Tag "Slant-Box" wäre schön. Sonst werde ich wohl oder übel für dieses Forum einen neuen Textbaustein für eine einfache HTML-Box für mich einführen müssen.

[/OFFTOPIC]

XProfan X2
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

[OFFTOPIC]
Julian Schmidt (28.01.13)

Die neuen Boxen gefallen mir nicht. Neuer Tag "Slant-Box" wäre schön. Sonst werde ich wohl oder übel für dieses Forum einen neuen Textbaustein für eine einfache HTML-Box für mich einführen müssen.

Habs Dir eingebaut (siehe Dein Posting) -

immer her mit den Ideen für solch Codes!
[/OFFTOPIC]

E.T.

Gary12345 (28.01.13)

...
Hat jemand eine Ahnung von quadratischen Gleichungen.
...

Jo, ich

!! So sind Fussboden-Fliesen meist quadratisch und wenn's verlegt ist, sollte alles gleich sein

Mal ehrlich, sollte man nicht, wenn man solche Berechnungen durchführen will, wenigsten die dazu gehörige Mathematik "gelöffelt" haben

??

Gary12345 (28.01.13)

Gibt meiner Ansicht immer noch falsche Werte zurück?

Frage oder Feststellung ??
Was wären denn dann die richtigen Werte ??

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Gary12345

Hallo,

@Julian Schmidt) Kommen zwei verschiedene Werte raus.
Noch andere Vorschläge?

Mal ehrlich, sollte man nicht, wenn man solche Berechnungen durchführen will, wenigsten die dazu gehörige Mathematik "gelöffelt" haben ??

1. Schriftlich kann ich diese ausrechnen
2. Die Umwandlung von schriftlich zu CODE ist schwieriger als gedacht

Bye

MfG
Gary12345

Julian
Schmidt

Hallo Gary,
nein eben nicht!
Zur Überprüfung meiner Lösungsformel von oben, hier nochmal die Kontrolle:

r!=((b!/a!)/2)+sqrt(abs(((b!/a!)/2)^2-(c!/a!)))
r!=((b!/a!)/2)-sqrt(abs(((b!/a!)/2)^2-(c!/a!)))

Erstmal die rechnerische Lösung einer Aufgabe...

3x²+9x+6=0 | : 3
x²+3x+2=0

nun haben wir..
p=3 und q=2
Nun setzen wir in die PQ-Formel ein.
Also
x1/2 = -(p / 2) +/- Wurzel2( (p / 2) ^ 2 - q )
x1/2 = -(3 / 2) +/- Wurzel2( (3 / 2) ^ 2 - 2 )

Nun auflösen. Also
x1/2 = -1,5 +/- Wurzel2( 2,25 - 2 )
x1/2 = -1,5 +/- Wurzel2( 0,25 )
x1/2 = -1,5 +/- 0.5
x1=-1
x2=-2

Hier kommen zwei Lösungen heraus. -1 und -2.

Jetzt das ganze noch mit meiner oben geposteten Formel.
Kompilieren Markieren Separieren

CLS
print PQ(3,9,6)
waitinput

Proc PQ

    parameters a!,b!,c!
    set("decimals",2)
    var Lösungsformel1! = -((b!/a!)/2)+sqrt(abs(((b!/a!)/2)^2-(c!/a!)))
    var Lösungsformel2! = -((b!/a!)/2)-sqrt(abs(((b!/a!)/2)^2-(c!/a!)))
    return Str$(ROUND(Lösungsformel1!,2))+" | "+Str$(ROUND(Lösungsformel2!,2))

EndProc

Die Ausgabe sagt mir genauso -1 und -2

Die Formel stimmt also!

LG

Julian

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Gary12345

War ein Denkfehler, sorry. Hab (blöderweise) gedacht, dass die zwei Werte (also die ausgegeben von XPROFAN) gleich sein sollten. War natürlich ein Leichtsinnsfehler!

Danke!

XProfan X2
MfG
Gary12345

Julian
Schmidt

Wohl eher ein grobfahrlässiger Denk und Mathe-Fehler.

Du solltest auch verhindern das negative Wurzeln gezogen werden dürfen, sonst wird dir noch eine schöne Fehlermeldung entgegen springen. Ebenso mit Division durch 0.

Gary12345

Jo ich habe den Vorschlag bekomme, eine globale Fehlervariable wie mErr& zu verwenden. Werde aber erst schauen, dass ich das alle Funktionen (die ich mir vorgestellt habe) einzubauen und dann kann man ja weiterschaun, was draus wird.

Danke!

MfG
Gary12345