Svenska ElektronikForumet

Kod: Markera allt

pub CorrectedCoordsToDegs(lon1, lat1, lon2, lat2) | factlat, factlon, latavg, lala, lolo

    latavg := fdiv(fadd(lat1, lat2),2.0)   ' if we were doing great-circle distance, we would need to solve an integral here. let's not and say we did
    factlat := LatMeters(latavg)
    factlon := LonMeters(latavg)

    lala := fmul(factlat,fsub(lat2,lat1))
    lolo := fmul(factlon,fsub(lon2,lon1))
' special case in which arctan fails
    if (lolo == 0.0 and fcmp(lala, 0.0) < 0)
      return 180.0
'   theta := fround(fmul(degrees(atan2(xx,yy)),10.0))
   return atan2D(lolo,lala)

Kod: Markera allt

  text.str((string("Kurs: ")))
  text.dec(math.CorrectedCoordsToDegs(01332.656, 5717.4828, 01332.656, 5717.3049) )
  text.out(13)