Subversion Repositories svnkaklik

Rev

Rev 365 | 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 
{