hallo, udalo sie komus narysowac hiperbole uzywajac canvasu ? ja nad tym siedze juz pare dni i nie mam pomyslu jak to zrobic [stuk]
0
0
for x := -n to n do
begin
y := Sqrt(Sqr(b*x/a)-1);
Canvas.Pixels[x+OffsetX, OffsetY+y] := clRed;
Canvas.Pixels[x+OffsetX, OffsetY-y] := clRed;
end;
0
nie pamiętam czy tak wygląda hiperbola, ale nawet jeśli nie to nie problem już sobie samemu zmienić funkcję obliczania wartości
oto moja propozycja:
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
Form1.Canvas.MoveTo(-15+100,300-(-15)*(-15));
for i := -15 to 15 do
begin
form1.Canvas.lineto(i+100,300-i*i); //gdzie wierzchołek znajduje się w pkt(100,300)
end;
end;
0
chyba hiperbola to funckja kwadratowa :)
Nie kwadratowa, tylko wymierna :). Od kwadratowej jest parabola :).