Hej
Jag har ett problem som jag inte kan lösa själv.

Jag har 10 punkter på ett formulär och skall räkna ut avståndet mellan dom punkterna som är längst ifrån varandra + att jag skall räkna ut var absoluta mitt punkten är.


Tacksam för hjälp
Robban

För att räkna ut den totala mittpunkten beräknar du summan av alla x-koordinater och delar det med antalet koordinater, sedan gör du samma sak med y-koordinaterna.

För att räkna ut det längsta avståndet måste du testa avståndet mellan ALLA koordinater och välja det längsta. Detta gör du på följande sätt (OBS, ej körbar kod, bara för att du ska förstå principen...):

x=x2-x1
y=y2-y1
avst=sqr(x^2+y^2)

Denna beräkningen får du göra för alla kombinationer...

/Johan

Tack så hemskt mycket.
Så här blev det.

For j = 0 To 9
For i = 0 To 9
XPyth = Shape1(j).Left - Shape1(i).Left
YPyth = Shape1(j).Top - Shape1(i).Top
Avstånd(j, i) = Sqr(XPyth ^ 2 + YPyth ^ 2)
If Avstånd(j, i) > HögstaAvstånd Then
HögstaAvstånd = Avstånd(j, i)
End If
Next i
Next j


Mvh Robban