Lazarus 2.0.8 (2020.04.16.)
Letöltés

file kör érintő egyenes programozása

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 432
  • Karma: 8
  • Köszönetek: 70

Gábor válaszolt a témára: kör érintő egyenes programozása

Tetszőleges hosszúságú érintő egyenest egy körhöz legegyszerűbben úgy rajzolhatsz (illetve számíthatod ki a végpontjainak helyzetét) ha a koordinátarendszer egyik tengelyével párhuzamosan, a kör középpontjától sugárnyi (R) távolságra rajzolsz egy egyenest, valahogy így:
X = 100
Y = 100
R = 10
KörRajzolása (X, Y, R)
AX = 0
AY = Y - R
BX = 200
BY = AY
EgyenesRajzolása (AX, AY, BX, BY)
Természetesen az egyenes hosszát / végpontjait tetszőlegesen választhatod meg, például az érintő ponttól csak az egyik irányba:
AX = X
AY = Y - R
BX = 200
BY = AY
EgyenesRajzolása (AX, AY, BX, BY)
Az egyenes végpontkoordinátáinak egy neked tetsző irányba (szög) történő elforgatása pedig, mint írtad, már menni fog...

Remélem nem értettem félre az alapkérdést... :)
#2201

  • astrojo12
  • astrojo12 profilkép
  • Látogató
  • Látogató

astrojo12 válaszolt a témára: kör érintő egyenes programozása

Ja igen, a végcél evolvensgörbe rajzolása, ezt elfelejtettem leírni. Előre is köszönöm a segítséget!
#2200

  • astrojo12
  • astrojo12 profilkép
  • Látogató
  • Látogató

astrojo12 létrehozta a témát: kör érintő egyenes programozása

Sziasztok!
Freepascal-ban érintő egyenest szeretnék rajzolni a kör egy adott pontjához és aztán elforgatni a körrel együtt. A forgatással nincs gond, az a bajom hogy lusta vagyok a koordinátageometria módszerével és a vektorokkal vergődni, mert akkor kétismeretlenes egyenletrendszereket kéne megoldatnom a géppel. Érdekes és szép feladat, valószínűleg menne is, de nincs annyi időm hogy vergődjek vele. Biztos van rá más módszer, kidolgozott kód vagy előre megírt függvény. Tudja valaki hogy lehetne megoldni az érintő egyenest? Előre is köszönöm!
#2199