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.