Koszonom szepen mindenkinek a Delphi fajlmuveletekre adott valszokat.Hasznat ve
ttem! Jon

(webes bekuldes, a bekuldo gepe: dialin55-isdn.emitel.hu)

Kedves Magor!

On 15 Feb 2002 at 4:04, HIX CODER wrote:

> Felado :  [International]

> algoritmust keresek 3 egysiban levo pontra kene kort rajzolni
> kellene a sogar es a kozeppont

Van olyan is, hogy 3 pont nem egy sikban van??? :-)

Ha jol velem, akkor Te egy haromszog kore irhato kor kozeppontjat es 
sugarat keresed.

Tgyuk fel, hogy a harom pont a (x, y) sikban van. Legyen a harom pont 
helyvektora a_ = (ax, ay), b_ = (bx, by), c_ = (cx, cy). k_ = (0, 0, 1). 
Feltetel, hogy (b_ - a_) x (c_ - a_) != 0_, kulonben a harom pont egy 
egyenesen van.

Mivel a haromszok koreirhato korenek kozeppontja az oldalfelezo 
merloegesek metszepontjaban talalhato, ezert ket oldalra meroleges allitva 
megkaphatjuk ezek metszespont helyvektorat (jelolje m_):

m_ = (a_ + (b_ - a_)/2) + alfa * (b_ - a_) x k_  [1]

Az elso tag az a_ es b_ pontok kozotti felezopont helye, a masodik tag 
pedig az a_ es b_ pontokat osszekoto vektorra allitott meroleges vektor. 

Kicsit egyszerusitve:

m_ = (a_ + b_)/2 + alfa * (b_ - a_) x k_  [2]

Ugyan ezt mondjuk az a_ es c_ vektorokra nezve:

m_ = (a_ + c_)/2 + beta * (c_ - a_) x k_  [3]

Az egyszeruseg kedveert az a_ legyen 0_.

A metszespontban a [2] es a [3] egyenlet egyenlo. Mivel mindket 
koordinatara igaz, ezert ket egyenlet es ket ismeretlenunk van. Nezzuk meg 
mik ezek:

bx/2 + alfa * by = cx/2 + beta * cy  [4]
by/2 - alfa * bx = cy/2 - beta * cx  [5]

[4] -ot alfara rendezve
alfa = ((cx - bx)/2 + beta * cy)/by  [6]

Behelyettesitve [5]-be:

by/2 - ((cx - bx)/2 + beta * cy)/by * bx = cy/2 - beta * cx  [7]

by^2/2 - (cx - bx)/2 * bx - beta * cy * bx = cy*by/2 - beta * cx * by  [8]

by/2 * (by - cy) - bx/2 * (cx - bx) = beta * (cy * bx - cx * by)  [9]

(cy * bx - cx * by) csak akkor nulla, ha a_, b_, c_ egy egyenesen van 
(hiszen ekkor b_ x c_ = 0_).

[9]-bol kijon beta. Ezt [3]-ba visszahelyettesitve megkapjuk a kozeppont 
koordinatait m_ = (mx, my). A sugar ekkor sqrt(mx^2 + my^2).

Remelem nem szamoltam el magam...

10telettel From:, a hapcissza

magor wrote:

> algoritmust keresek 3 egysiban levo pontra kene kort rajzolni
> kellene a sogar es a kozeppont
>
>                         koszi

Adj nekem 3 pontot, amelyik nincs egysikban :)

A kovetkezot otoltem ki: egy kor barmely hurjanak kozeppontjara meroleges a sug
ar. Ugyhogy veszed 2 pont altal
meghatarozott egyenest, megkeresed a felezojen a meroleges egyenletet, ugyanigy
 2 masik ponttal ugyanezt
teszed, kiszamolod a metszespontjukat, es ime! megvan a kozeppont.

A sugar? Hmmm... Az nehez lehet... Talalj ki te valamit. En csak odaig jutottam
, hogy a kozeppont a koron levo
barmely ponttol ugyanolyan tavolsagra van, de nem tudom mit kezdjek evvel. :)

Levente

Szervusztok<br />
<br />
Az a kellemetlensegem akadt, hogy egy vedett modu DOS program meg kell hivjon e
gy masik, hagyomanyos DOS programot. Es nem akarja. Az egesz Windows 98 alatt t
ortenik. Ha valakinek van otlete, tapasztalata, hozzaszolasa, raolvasasa, imaja
 ilyen esetre, szivesen veszem. Komolyan, nem fontos, hogy kozvetlen hivas legy
en.<br />
<br />
Barmit koszonok.<br />
( A hivo program Clipper -ben, a hivott FoxPro -ban lett irva, ha ez fontos vol
na. )<br />
<br />
Feherke.<br />
<br />
<br />
<hr>