Private Type pt
 x As Double
 y As Double
End Type
 
Private Function p2c(pp1 As pt, pp2 As pt, pp3 As pt) As pt
Dim f1 As pt, f2 As pt, f3 As pt, mp As pt
If pp1.y <> pp2.y Then
 f1 = f(pp1, pp2)
 If pp2.y <> pp3.y Then
  f2 = f(pp2, pp3)
  If f1.x = f2.x Then Exit Function
  p2c.x = (f2.y - f1.y) / (f1.x - f2.x)
  p2c.y = f2.x * p2c.x + f2.y
 Else
  p2c.x = (pp2.x + pp3.x) / 2
  p2c.y = f1.x * ((pp2.x + pp3.x) / 2) + f1.y
 End If
Else
 f1.x = (pp1.x + pp2.x) / 2
 If pp2.y <> pp3.y Then
  f2 = f(pp2, pp3)
  p2c.x = f1.x
  p2c.y = f2.x * f1.x + f2.y
 End If
End If
End Function
Private Function f(pp1 As pt, pp2 As pt) As pt
'y=mx+n
f.x = -(pp2.x - pp1.x) / (pp2.y - pp1.y) 'm
f.y = ((pp1.y + pp2.y) / 2) - f.x * ((pp1.x + pp2.x) / 2) 'n
End Function

mp = p2c(pa, pb, pc)

..oO?*Kondome sch?tzen nicht vor Geschlechtsverkehr*?Oo..
[stell dir vor es g?be Demokratie, und niemand geht hin.]
Visual Basic auf USB-Stick