Hallo NG, 

ich stehe im Rahmen meiner DA vor folgender Aufgabe und kann mir nicht helfen: gegeben ist eine Punktmenge im 2D-Raum. Diese Punkte sollen mit einer konvexen Hülle umhüllt werden. Das Rad muss ich zum Glück nicht neu erfinden, denn dazu gibt es einige Verfahren und fertige Algorithmen. Leider habe ich nichts in VBA gefunden, deshalb würde ich versuchen diese Klasse (Sprache unbekannt) zu übersetzen. Da ich leider auch nicht der VBA-Guru bin, kann ich aber nicht abschätzen, ob es reicht einfach die Syntax anzupassen, bin mir nicht sicher ob ich die Syntax 100% verstehe, könnte jemand der etwas Erfahrung und Zeit hat, mal drüberschauen und sagen, ob das Sinn macht den Code 1:1 zu übersetzen, oder ob vielleicht einen bessereren Weg gibt der nicht so fehleranfällig wäre? Hinweise worauf ich achten sollte z.B. Variablenübergabe/Gültigkeitsbereich? Vielen herzlichen Dank!

public class GrahamScan
{
    private Point[] p;
    private int n;
    private int h;

    public int computeHull(Point[] p)
    {
        this.p=p;
        n=p.length;
        if (n<3) return n;
        h=0;
        grahamScan();
        return h;
    }

    private void grahamScan()
    {
        exchange(0, indexOfLowestPoint());
        Point pl=new Point(p[0]);
        makeRelTo(pl);
        sort();
        makeRelTo(pl.reversed());
        int i=3, k=3;
        while (k<n)
        {
            exchange(i, k);
            while (!isConvex(i-1))
                exchange(i-1, i--);
            k++;
            i++;
        }
        h=i;
    }

    private void exchange(int i, int j)
    {
        Point t=p[i];
        p[i]=p[j];
        p[j]=t;
    }

    private void makeRelTo(Point p0)
    {
        int i;
        Point p1=new Point(p0); // notwendig, weil p0 in p[] sein kann
        for (i=0; i<n; i++)
            p[i].makeRelTo(p1);
    }

    private int indexOfLowestPoint()
    {
        int i, min=0;
        for (i=1; i<n; i++)
            if (p[i].y<p[min].y || p[i].y==p[min].y && p[i].x<p[min].x)
                min=i;
        return min;
    }

    private boolean isConvex(int i)
    {
        return p[i].isConvex(p[i-1], p[i+1]);
    }

    private void sort()
    {
        quicksort(1, n-1); // ohne Punkt 0
    }

    private void quicksort(int lo, int hi)
    {
        int i=lo, j=hi;
        Point q=p[(lo+hi)/2];
        while (i<=j)
        {
            while (p[i].isLess(q)) i++;
            while (q.isLess(p[j])) j--;
            if (i<=j) exchange(i++, j--);
        }
        if (lo<j) quicksort(lo, j);
        if (i<hi) quicksort(i, hi);
    }
 

} // end class GrahamScan