From d4ddcd46da70cc8092e7cc9e7e30bbd9db7a4a8e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=91=D1=8B=D1=87=D0=BA=D0=BE=D0=B2=20=D0=90=D0=BD=D0=B4?=
 =?UTF-8?q?=D1=80=D0=B5=D0=B9?= <andrey@signalmodelling.ru>
Date: Mon, 25 Nov 2019 12:10:05 +0000
Subject: [PATCH] git-svn-id: svn://db.shs.com.ru/pip@867
 12ceb7fc-bf1f-11e4-8940-5bc7170c53b5

---
 src_main/geo/piellipsoidmodel.cpp | 10 ++++++++++
 src_main/geo/piellipsoidmodel.h   |  1 +
 2 files changed, 11 insertions(+)

diff --git a/src_main/geo/piellipsoidmodel.cpp b/src_main/geo/piellipsoidmodel.cpp
index 9b6cb7bf..6a42cf21 100644
--- a/src_main/geo/piellipsoidmodel.cpp
+++ b/src_main/geo/piellipsoidmodel.cpp
@@ -35,3 +35,13 @@ PIEllipsoidModel PIEllipsoidModel::GPSEllipsoid() {
 	return v;
 }
 
+
+PIEllipsoidModel PIEllipsoidModel::KrasovskiyEllipsoid() {
+	PIEllipsoidModel v;
+	v.a = 6378245.0;
+	v.flattening = 1.0/298.3;
+	v.eccentricity = sqrt(v.a*v.a - 6356863.0*6356863.0)/v.a;
+	v.angVelocity = 7.292115e-5;
+	return v;
+}
+
diff --git a/src_main/geo/piellipsoidmodel.h b/src_main/geo/piellipsoidmodel.h
index 9e1beeca..3cb7bbce 100644
--- a/src_main/geo/piellipsoidmodel.h
+++ b/src_main/geo/piellipsoidmodel.h
@@ -35,6 +35,7 @@ public:
 	static PIEllipsoidModel WGS84Ellipsoid();
 	static PIEllipsoidModel PZ90Ellipsoid();
 	static PIEllipsoidModel GPSEllipsoid();
+	static PIEllipsoidModel KrasovskiyEllipsoid();
 
 	double a; /// Major axis of Earth in meters
 	double flattening; /// Flattening (ellipsoid parameter)