Delphi-PRAXiS
Seite 3 von 5     123 45      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Mathematik f(x) = ax + b (https://www.delphipraxis.net/6525-mathematik-f-x-%3D-ax-b.html)

Gast 21. Jul 2003 14:53

Re: Mathematik f(x) = ax + b
 
... und Lösung

von f(x) = ax^2

sind die Schnittpunkte mit x-Achse (bei a >0)...usw...

Toll hast mir sehr geholfen... und diese Kindgerechte Erläuterungen

sind genau das was ich jetzt noch brauche...

Luckie 21. Jul 2003 14:58

Re: Mathematik f(x) = ax + b
 
Die Nullstellen bekommst du aber einfacher. was hat denn eine Nullstelle (Schnitpunkt mit der x-Achse) für eine Eigenschaft? Richtig der y-Wert ist Null. Ergo:
Code:
0 = mx^2
nach x auflösen und du hast deine Nulstelle(n).

Gast 21. Jul 2003 20:47

Re: Mathematik f(x) = ax + b
 
Hallo 8) ,

also ich habe mir jetzt ein Mathe Buch gekauft.

Dort fand ich folgende Zweipunkteform:

Die Zweipunkteform für eine Gerade durch die Punkte (x1, y1) und (x2,y2) sieht wie folgt aus (falls x1 ungleich x2):

I.) ( y - y1) / (x – x1) = (y2 – y1) / (x2 – x1)

Entsprechend für zweite Gerade durch die Punkte (x3,y3) und (x4,y4)

II.) ( y – y3) / (x – x3) = (y4 – y3) / (x4 – x3)

Es gilt den Schnittpunkt (x,y) auszurechnen... also habe es wie folgt versucht:

Aus der ersten Gleichung ergibt sich y wie folgt:

I.) y = [(y2 – y1) / (x2 – x1) ] * (x – x1) + y1

Aus der zweiten Gleichung ist x gleich :

II.) x = { [(y – y3) / (y4 – y3)] * [(x4 – x3)/(y4 – y3)] } + x3

Bis jetzt habe ich es geschafft… und wie ich hoffe ohne Fehler (?)

Jetzt gilt die so ausgerechnete X aus der zweiten Gleichung in die erste einzusetzen und daraus Y ausrechnen.

Ab hier weiß ich leider nicht mehr...dh. wie bekomme ich jetzt „sauber die Y“ heraus.

Vielleicht weiß es jemand von Euch?... oder gibt mir ganz einfach einen Tipp wo ich gute Mathe-Forum finde...

Gruß

Paul Jr.

Kamikazedog 21. Jul 2003 21:21

Re: Mathematik f(x) = ax + b
 
Winkel einer Geraden ausrechnen:

Code:
function Winkel(x1,x2,y1,y2: Double): Double;
begin
  If (x2-x1) <> 0 Then
    Result := arctan((y2-y1)/(x2-x1))
    //im Gradmaß:
    //Result := arctan((y2-y1)/(x2-x1))*180/Pi
  Else
    Result := Pi;
    //im Gradmaß:
    //Result := 90;
end;
So erhältst du den Winkel der Gerade zur X-Achse im Bogen- bzw. Gradmaß! Is doch ganz easy :coder:

Cu @ all
Thomas

Kamikazedog 21. Jul 2003 21:55

Re: Mathematik f(x) = ax + b
 
So, jetzt der Schnitt zweier Geraden:

Code:
procedure TForm1.Schnittpunkt(x1,x2,x3,x4,y1,y2,y3,y4: Double);
var s1,s2,a1,a2: Double;
begin
  If x1<>x2 Then
   s1 := (y2-y1)/(x2-x1)
  Else
   s1 := Pi;
  If x3<>x4 Then
   s2 := (y4-y3)/(x4-x3)
  Else
   s2 := Pi;
  a1 := y1 - s1 * x1;
  a2 := y2 - s2 * x2;
  x := (a2 - a1) / (s1 - s2);
  y := (s1 * a2 - s2 * a1) / (s1 - s2);
end;
Ich geb zwar keine Garantie, sollte aber trotzdem stimmen

Cu @ all
Thomas 8)

Hansa 21. Jul 2003 23:59

Re: Mathematik f(x) = ax + b
 
Hi Paul Jr., ähmmm,

Du brauchst doch nur in einer der Formeln für das x die Formel vom y einzusetzen. Und dann machst Du einfach weiter. Das schafft ein Kind bereits. :mrgreen:

Gast 22. Jul 2003 06:56

Re: Mathematik f(x) = ax + b
 
Hallo Thomas :lol:

Danke, Danke... sieht Prima aus!

Sollte es nicht laufen werde ich mich hier melden.

Suppper!

Gruß

Paul Jr.

P.S.

Hi Hansa 8) ,

Y hast Du dann auf der linken und auf der rechten Seite...dies hast Du leider übersehen...

Gruß

Paul Jr.

Gast 23. Jul 2003 10:35

Re: Mathematik f(x) = ax + b
 
Hallo 8) ,

Ich werde diese Geometrie nicht los... :mrgreen:

Diesmal ist das eher logische Aufgabe.

Ich weiß, dass sich drei Punkte auf einer Gerade befinden.
Diese Gerade ist durch zwei Punkte (x1,y1) und (x2,y2) definiert.

Ich muss jetzt feststellen ob sich der dritte Punkt (x,y) der auch an dieser gerade liegt
GENAU zwischen den Punkten (x1,y1) und (x2,y2) befindet.

Code:
function CheckPoint(x1,y1,x2,y2, x, y) : Boolean;
begin
  Result := FALSE ;

(…)
(…)
end ;
Wüsste jemand diese Funktion zu vervollständigen ? :shock:

Mit freundlichen Grüßen

Paul Jr.

Mirilin 23. Jul 2003 11:10

Re: Mathematik f(x) = ax + b
 
Delphi-Quellcode:
function CheckPoint(x1,y1,x2,y2, x, y : Integer) : Boolean;
begin
  Result := (x2-x=x-x1) and (y2-y=y-y1);
end;
würd ich mal sagen

Sharky 23. Jul 2003 11:13

Re: Mathematik f(x) = ax + b
 
Hai Paul,

wenn Du weisst das der dritte Punkt auf der geraden liegt reichen Dir die x-Koordinaten der drei Punkte:

Code:
function CeckPoint (x1,x2,x:Integer) : Boolean
begin
 result :=((x2-x1)/2) = (x-x1);
end;

Wenn ich mich nicht verrechnet habe war es das.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:55 Uhr.
Seite 3 von 5     123 45      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz