Cálculo da área do MKPolygon

Estou tentando criar uma categoria de cálculo de área para o MKPolygon. Eu encontrei algum código JShttps://github.com/mapbox/geojson-area/blob/master/index.js#L1 com um link para o algoritmo:http://trs-new.jpl.nasa.gov/dspace/handle/2014/40409. Diz:

Aqui está o meu código, que deu um resultado errado (milhares de vezes mais que o real):

#define kEarthRadius 6378137
@implementation MKPolygon (AreaCalculation)
- (double) area {
    double area = 0;
    NSArray *coords = [self coordinates];
    if (coords.count > 2) {
        CLLocationCoordinate2D p1, p2;
        for (int i = 0; i < coords.count - 1; i++) {
            p1 = [coords[i] MKCoordinateValue];
            p2 = [coords[i + 1] MKCoordinateValue];
            area += degreesToRadians(p2.longitude - p1.longitude) * (2 + sinf(degreesToRadians(p1.latitude)) + sinf(degreesToRadians(p2.latitude)));
        }

        area = area * kEarthRadius * kEarthRadius / 2;
    }

    return area;
}
- (NSArray *)coordinates {
    NSMutableArray *points = [NSMutableArray arrayWithCapacity:self.pointCount];
    for (int i = 0; i < self.pointCount; i++) {
        MKMapPoint *point = &self.points[i];
        [points addObject:[NSValue valueWithMKCoordinate:MKCoordinateForMapPoint(* point)]];
    }
    return points.copy;
}

double degreesToRadians(double radius) {
    return radius * M_PI / 180;
}

@end

Do que eu senti falta?

questionAnswers(3)

yourAnswerToTheQuestion