[Basic4Android] javascript code zu basic4android umwandeln?

ich versuche einen javascript code zu basic4android zu wandeln:

java:

Code:

---

function LLtoGK(a, b) {
            var c = 0,
                d = 0,
                e = wgs84_a / Math.sqrt(1 - wgs84_e2 * Math.pow(Math.sin(a / 180 * Math.PI), 2)),
                d = 0.202 * Math.PI / 180 / 3600,
                c = 0.045 * Math.PI / 180 / 3600,
                h = -2.455 * Math.PI / 180 / 3600,
                e = $M([[(e + 0) * Math.cos(a / 180 * Math.PI) * Math.cos(b / 180 * Math.PI)], [(e + 0) * Math.cos(a / 180 * Math.PI) * Math.sin(b / 180 * Math.PI)], [(e * Math.pow(wgs84_b, 2) / Math.pow(wgs84_a, 2) + 0) * Math.sin(a / 180 * Math.PI)]]),
                g = $M([[1, h, -c], [-h, 1, d], [c, -d, 1]]),
                d = $M([[-598.1], [-73.7], [-418.2]]),
                c = g.x(d).x(0.9999933),
                h = c.e(1, 1),
                d = c.e(2, 1),
                c = c.e(3, 1),
                g = g.x(e),
                j = g.e(1, 1),
                e = g.e(2, 1),
                g = g.e(3, 1),
.
.
.

---

basic:

Code:

---

Sub LLtoGK(a, b)
        Dim wgs84_a As Double = 6378137
        Dim        wgs84_b As Double = 6356752.314
        Dim wgs84_e2 As Double = (Power(wgs84_a, 2) - Power(wgs84_b, 2)) / Power(wgs84_a, 2)
        Dim        bessel_a As Double = 6377397.155
        Dim        bessel_b As Double = 6356078.962
        Dim        bessel_e2 = (Power(bessel_a, 2) - Power(bessel_b, 2)) / Power(bessel_a, 2)
        Dim        bessel_e = (Power(bessel_a, 2) - Power(bessel_b, 2)) / Power(bessel_a, 2)
        Dim c = 0
        Dim        d = 0
        Dim        e = wgs84_a / Sqrt(1 - wgs84_e2 * Power(Sin(a / 180 * cPI), 2))
                d = 0.202 * cPI / 180 / 3600
                c = 0.045 * cPI / 180 / 3600
        Dim        h = -2.455 * cPI / 180 / 3600
                e = $m([[(e + 0) * Cos(a / 180 * cPI) * Cos(b / 180 * cPI)], [(e + 0) * Cos(a / 180 * cPI) * Sin(b / 180 * cPI)], [(e * Power(wgs84_b, 2) / Power(wgs84_a, 2) + 0) * Sin(a / 180 * cPI)]])
        Dim        g = $m([[1, h, -c], [-h, 1, d], [c, -d, 1]])
                d = $m([[-598.1], [-73.7], [-418.2]])
                c = g.x(d).x(0.9999933)
                h = c.e(1, 1)
                d = c.e(2, 1)
                c = c.e(3, 1)
                g = g.x(e)
                j = g.e(1, 1)
                e = g.e(2, 1)
                g = g.e(3, 1)
.
.
.

---

bei den zeilen "e = ...", "g = ...", und "d = ..." komm ich nicht klar. was bedeutet der ausdruck "$M([[..." in java und wie kann ich ihn in einen basic ausdruck umwandeln?

ich will latlong koordinaten nach gauß-krüger umwandeln.

kann jemand helfen?

mfg.