XProfan

Kompilieren Marque Séparation

- page 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)

En

/a>

Testwert:
Kompilieren Marque Séparation

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

si je es richtig vois, est qui Funktion ensuite so:

Lösungsformel(a,b,c).

Liefert chez den oberen Testwerten toujours falsche Werte zurück. chez anderen Werten stürzt es wieder ab?

LG

XProfan X2
MfG
Gary12345

Thomas
Freier

Such doch la fois im WEB. Z.B.: [...]

Gruß Thomas
Windows XP SP2, XProfan X2

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

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

Kompilieren Marque Séparation

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)

En

/a>

Gibt meiner Ansicht toujours falsche Werte zurück? Ist quelqu'un qui anderen attitude? mais zumindestens aucun Fehlermeldungen plus.

XProfan X2
MfG
Gary12345

Julian
Schmidt

allô Gary,

probier la fois. si qui selben Werte rauskommen devrait es richtig son.

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

Salut

Julian

[OFFTOPIC]qui neuen Boxen plaisons Je ne. Neuer journée "Slant-Box" wäre joli. Sonst werde je wohl ou bien übel pour cet Forum une neuen Textbaustein pour une simple HTML-Box pour mich einführen doit.

[/OFFTOPIC]

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

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

[OFFTOPIC]
Julian Schmidt (28.01.13)

qui neuen Boxen plaisons Je ne. Neuer journée "Slant-Box" wäre joli. Sonst werde je wohl ou bien übel pour cet Forum une neuen Textbaustein pour une simple HTML-Box pour mich einführen doit.

Tricolore Dir incorporé (siehe Dein Posting) -

toujours her avec den idées pour solch Codes!
[/OFFTOPIC]

E.T.

Gary12345 (28.01.13)

...
Hat quelqu'un une Ahnung de quadratischen Gleichungen.
...

Jo, je

!! So sommes Fussboden-Fliesen meist carrée et wenn's verlegt ist, sollte alles juste son

la fois honnête, sollte on pas, si on solche Berechnungen durchführen veux, wenigsten qui en supplément gehörige mathématique "gelöffelt" avons

??

Gary12345 (28.01.13)

Gibt meiner Ansicht toujours falsche Werte zurück?

Frage ou bien Feststellung ??
quoi wären car ensuite qui 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

Salut,

@Julian Schmidt) venons deux verschiedene Werte raus.
encore autre Propositions?

la fois honnête, sollte on pas, si on solche Berechnungen durchführen veux, wenigsten qui en supplément gehörige mathématique "gelöffelt" avons ??

1. Schriftlich peux je cet ausrechnen
2. qui Umwandlung de schriftlich trop CODE ist schwieriger comme gedacht

Bye

MfG
Gary12345

Julian
Schmidt

allô Gary,
non plan pas!
Zur Überprüfung meiner Lösungsformel de dessus, ici nochmal qui 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 qui rechnerische Solution einer devoir...

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

eh bien avons wir..
p=3 et q=2
eh bien mettons wir dans qui PQ-Formel un.
alors
x1/2 = -(p / 2) +/- Wurzel2( (p / 2) ^ 2 - q )
x1/2 = -(3 / 2) +/- Wurzel2( (3 / 2) ^ 2 - 2 )

eh bien auflösen. alors
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

ici venons deux Lösungen heraus. -1 et -2.

maintenant cela ganze encore avec meiner dessus geposteten Formel.
Kompilieren Marque Séparation

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))

oc

qui Ausgabe sagt mir genauso -1 et -2

qui Formel stimmt alors!

LG

Julian

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

Gary12345

était un Denkfehler, sorry. Hab (blöderweise) gedacht, dass qui deux Werte (alors qui ausgegeben de XPROFAN) juste son devrait. était naturellement un Leichtsinnsfehler!

merci!

XProfan X2
MfG
Gary12345

Julian
Schmidt

Wohl plutôt un grobfahrlässiger Denk et Mathe-faute.

Du devrait aussi verhindern cela negative Wurzeln gezogen volonté dürfen, sonst wird dir encore une belle Fehlermeldung entgegen springen. Ebenso avec Division par 0.

Gary12345

Jo j'ai den Vorschlag bekomme, une globale Fehlervariable comment mErr& trop verwenden. Werde mais seulement regarder, dass je cela alle Funktionen (qui je mir vorgestellt habe) einzubauen et ensuite peux on oui weiterschaun, quoi draus wird.

merci!

MfG
Gary12345