XProfan

Kompilieren Marca Separación

- Página 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 Marca Separación

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

Wenn Yo correcto sehe, heißt el Función entonces así:

Lösungsformel(a,b,c).

Liefert en el oberen Testwerten siempre todavía falsche Werte zurück. En otro Werten stürzt lo otra vez de?

LG

XProfan X2
MfG
Gary12345

Thomas
Freier

Such doch veces en el WEB. Z.B.: [...]

Gruß Thomas
Windows XP SP2, XProfan X2

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

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

Kompilieren Marca Separación

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 siempre todavía falsche Werte zurück? Ist alguien el otro Meinung? Aber zumindestens no Fehlermeldungen mehr.

XProfan X2
MfG
Gary12345

Julian
Schmidt

¡Hola Gary,

probier veces. Falls el selben Werte rauskommen debería lo correcto ser.

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

Saludo

Julian

[OFFTOPIC]El neuen Boxen gefallen No. Neuer Tag "Slant-Box" wäre schön. Sonst voluntad Yo wohl oder übel para dieses Foro una neuen Textbaustein para una einfache HTML-Box para mich einführen necesario.

[/OFFTOPIC]

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

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

[OFFTOPIC]
Julian Schmidt (28.01.13)

El neuen Boxen gefallen No. Neuer Tag "Slant-Box" wäre schön. Sonst voluntad Yo wohl oder übel para dieses Foro una neuen Textbaustein para una einfache HTML-Box para mich einführen necesario.

Habs Usted instalado (siehe Su Posting) -

siempre her con el Ideen para solch Codes!
[/OFFTOPIC]

E.T.

Gary12345 (28.01.13)

...
Sombrero alguien una Idea de quadratischen Gleichungen.
...

Jo, Yo

!! So son Fussboden-Fliesen meist quadratisch y wenn's verlegt es, debería alles igual ser

Tiempo ehrlich, debería uno no, si uno solche Berechnungen durchführen voluntad, wenigsten el dazu gehörige Mathematik "gelöffelt" haben

??

Gary12345 (28.01.13)

Gibt meiner Ansicht siempre todavía falsche Werte zurück?

Cuestión oder Feststellung ??
Was wären porque entonces el 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

¡Hola,

@Julian Schmidt) Kommen zwei verschiedene Werte fuera.
Noch otro Propuestas?

Tiempo ehrlich, debería uno no, si uno solche Berechnungen durchführen voluntad, wenigsten el dazu gehörige Mathematik "gelöffelt" haben ??

1. Schriftlich kann Yo esta ausrechnen
2. El Umwandlung de schriftlich a CODE es schwieriger como pensamiento

Bye

MfG
Gary12345

Julian
Schmidt

¡Hola Gary,
nein eben no!
A Überprüfung meiner Lösungsformel de oben, hier otra vez el 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 el rechnerische Solución uno Tarea...

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

nun haben wir..
p=3 y q=2
Nun conjunto wir en el PQ-Formel una.
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 y -2.

Jetzt todos todavía con meiner oben geposteten Formel.
Kompilieren Marca Separación

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

El Edición sagt me genauso -1 y -2

El Formel stimmt also!

LG

Julian

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

Gary12345

War una Denkfehler, sorry. Hab (blöderweise) pensamiento, dass el zwei Werte (Así que el ausgegeben de XPROFAN) igual ser debería. War natürlich una Leichtsinnsfehler!

Gracias!

XProfan X2
MfG
Gary12345

Julian
Schmidt

Wohl más una grobfahrlässiger Denk y Mathe-Fehler.

Usted debe auch verhindern el negative Wurzeln elaborado voluntad dürfen, sonst se dir ni schöne Fehlermeldung entgegen springen. También con Division por 0.

Gary12345

Jo Yo el Vorschlag bekomme, una globale Fehlervariable como mErr& utilizarse. Werde aber sólo schauen, dass Yo el todos Características (el Yo vorgestellt habe) einzubauen y luego puede ser sí weiterschaun, qué draus se.

Gracias!

MfG
Gary12345