Subversion Repositories svnkaklik

Rev

Rev 365 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 365 Rev 367
Line 61... Line 61...
61
	x = e * cy;
61
	x = e * cy;
62
	distance = 1.0 - e - e;
62
	distance = 1.0 - e - e;
63
	distance = ((((sy * sy * 4.0 - 3.0) *
63
	distance = ((((sy * sy * 4.0 - 3.0) *
64
	distance * cz * d / 6.0 - x) * d / 4.0 + cz) * sy * d + y) * c * GEO::ERAD * r;
64
	distance * cz * d / 6.0 - x) * d / 4.0 + cz) * sy * d + y) * c * GEO::ERAD * r;
65
 
65
 
66
	return distance;
66
	return distance*1000;
67
}
67
}
68
 
68
 
69
 
69
 
70
double GeoCalc::GCAzimuth(double lat1, double lon1, double lat2, double lon2)
70
double GeoCalc::GCAzimuth(double lat1, double lon1, double lat2, double lon2)
71
{
71
{