Umrechnung Kosinuswert/Winkel

[JulianT]

Dankesehr, der Ansatz mit dem ArcCos hat mir sehr geholfen!

Delphi-Quellcode:

//Berechnen des Vektorenwinkels
cos_alpha:=skalarprodukt/(BetragA*BetragB);
EditCoswinkel.Text:=FloatToStr(cos_alpha);
alphabog:=ArcCos(cos_alpha);
alphagrad:= BogenZuGrad(alphabog);
EditWinkel.Text:=FloatToStr(alphagrad);

Sollte jetzt alles richtig sein

6o3l7.png

Ich würde die Ergebnisse nun noch gerne runden, die anderen 3 Edits programmiere ich später. Runden ging glaube ich mit FloatToStrF und ffFixed irgendwie, oder? Wie würde eine Codezeile aussehen, wenn ich auf 3 Nachkommastellen runden möchte?

[himitsu]

Zitat von JulianT:

Runden ging glaube ich mit FloatToStrF und ffFixed irgendwie, oder?

Ähhh, nein?

Runden = Round, RoundTo, Trunc usw.,
aber die Ausgabe in einem "bestimmten Format" ginge natürlich auch mit Format oder FloatToStrF (F wie Format).

Aber wenn man mal in die Hilfe (F1) schauen würde, dann stünde dort alles Wichtige drin, wie man etwas benutzt, bzw. was man den Parametern übergeben müsste, vorallem wenn man den gewünschten Befehl schon kennt.

[JulianT]

Zitat von himitsu:

Zitat von JulianT:

Runden ging glaube ich mit FloatToStrF und ffFixed irgendwie, oder?

Ähhh, nein?

Runden = Round, RoundTo, Trunc usw.,
aber die Ausgabe in einem "bestimmten Format" ginge natürlich auch mit Format oder FloatToStrF (F wie Format).

Aber wenn man mal in die Hilfe (F1) schauen würde, dann stünde dort alles Wichtige drin, wie man etwas benutzt, bzw. was man den Parametern übergeben müsste, vorallem wenn man den gewünschten Befehl schon kennt.

Ich sagte ja bereits, dass das ein Nachteil ist, wenn man Wissen aus den 2000ern vermittelt bekommt und der Lehrer so wirkt, als hätte er das irgendwann mal auswendig gelernt.^^

Ich hab jetzt noch ein Problem mit den Datentypen Extended und Integer. Das Skalarprodukt ist als Integerwert deklariert, die Function RoundTo arbeitet ja laut Wiki mit Extended, was natürlich eine Inkompatibilität zur Folge hat. Ich weiß, dass ich mich jetzt ein bisschen dämlich anstelle, aber ich möchte wirklich gerne wissen, wie ich mit RoundTo arbeite, denn ich würde lieber neues kennenlernen, als mich nur auf dem alten dann auszuruhen. Und keine Sorge ich arbeite das noch nach, aber aktuell stockt es etwas, deswegen schon einmal Entschuldigung für meine Fragen.


EDIT:

Habe es nun über das Format mit FloatToStrF gemacht, klappt auch ganz gut, jedoch wäre ich wirklich mal an einer Umsetzung mit dem Typen RoundTo interessiert.

Code:

//Ausgeben des Vektorbetrages A
BetragA:= sqrt(sqr(VektorA[1])+sqr(VektorA[2])+sqr(VektorA[3]));
EditBetragA.Text:=FloatToStrF(BetragA,ffFixed,5,2);

//Ausgeben des Vektorbetrages B
BetragB:= sqrt(sqr(VektorB[1])+sqr(VektorB[2])+sqr(VektorB[3]));
EditBetragB.Text:=FloatToStrF(BetragB,ffFixed,5,2);

//Berechnen des Vektorenwinkels
cos_alpha:=skalarprodukt/(BetragA*BetragB);
EditCoswinkel.Text:=FloatToStr(cos_alpha);
alphabog:=ArcCos(cos_alpha);
alphagrad:= BogenZuGrad(alphabog);
EditWinkel.Text:=FloatToStrF(alphagrad,ffFixed,5,2);

[Perlsau]

Zitat von JulianT:

Habe es nun über das Format mit FloatToStrF gemacht, klappt auch ganz gut, jedoch wäre ich wirklich mal an einer Umsetzung mit dem Typen RoundTo interessiert.

Dann schau dir doch die Online-Hilfe zu RoundTo an, die gibt's sogar in deutscher Sprache. Bei RoundTo gibst du zwei Parameter an:

function RoundTo(const AValue: Extended; const ADigit: TRoundToEXRangeExtended): Extended; Der erste ist der Wert, der gerundet werden soll, der zweite gibt die Potenz von 10 an, auf die AValue gerundet werden soll. Mit anderen Worten: ein positiver ADigit beschreibt die Stellen vor dem Komma, die gerundet werden sollen, ein negativer ADigit beschreibt die Stellen hinter dem Komma, die gerundet werden sollen.

Die Delphipraxis bietet übrigens eine Delphi-Referenz als Suchmaschine an.

[Sir Rufo]

Du musst unterscheiden zwischen dem Wert und der Anzeige. Bei der Anzeige wird die Interpretation des Werts als ein String angezeigt, den Wert selber kann ich nicht anzeigen.

Du willst hier aber nur die Werte anzeigen - brauchst also die String-Interpretationen der Werte - und dafür ist FloatToStr doch genau richtig.

[himitsu]

Wobei es diese Befehle auch schon im letzten Jahrtausend gab.
Bei den Grundfunktionen hat sich praktisch nichts verändert, also egal ob man Delphi 1 (Valentinstag 1995) oder XE7 (September 2014) benutzt und wie alt das Wissen des Lehrers ist.

Dank Code-Insight (Autovervollsändigung), Help-Insight (der Hint beim Mausdrüberhalten), Onlinehilfe (OH > F1), welche es inzwischen mehrfach richtig online gibt (DokuWiki, altes Wiki, Delphi-Referenz), Forensuche, Google usw. kann man Alles nachlesen, selbst wenn der Lehrer "unfähig" sein mag.

z.B.
F1 drücken und/oder
http://docwiki.embarcadero.com/Libra...de/System.Math
http://docwiki.embarcadero.com/Libra...ystem.SysUtils


Grundsätzlich kann es auch nie schaden, wenn man erwähnt (da oder jeweils ersten Post, bei seiner Frage) was man für eine Delphi-Version benutzt.

[p80286]

Zitat von JulianT:

Ich sagte ja bereits, dass das ein Nachteil ist, wenn man Wissen aus den 2000ern vermittelt bekommt und der Lehrer so wirkt, als hätte er das irgendwann mal auswendig gelernt.^^

Als ich zur Schule ging gab es auch schon Lehrer, die den falschen Beruf erwischt hatten. Aber wenn man Schüler und Studenten heute so hört, dann muß es sich in der Zwischenzeit um eine überbezahlte Horde von Grenzdebilen handeln.
(gestern abend erzählte mir eine Studentin der Sozialwissenschaft, doch allen Ernstes, daß sie mit engllischsprachigen Texten nichts anzufangen wüßte, da ihr Wörterbuch noch von Ihrer Mutter sei. Ineressant in diesem Zusammenhang übrigens die Weigerung ein Online-Wörterbuch zu nutzen, da ihr bisher noch niemand gezeigt hätte wie man es benutzt)

Gruß
K-H