File indexing completed on 2025-01-18 09:35:47
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
0040 #ifndef BOOST_GEOMETRY_PROJECTIONS_VANDG4_HPP
0041 #define BOOST_GEOMETRY_PROJECTIONS_VANDG4_HPP
0042
0043 #include <boost/geometry/util/math.hpp>
0044
0045 #include <boost/geometry/srs/projections/impl/base_static.hpp>
0046 #include <boost/geometry/srs/projections/impl/base_dynamic.hpp>
0047 #include <boost/geometry/srs/projections/impl/projects.hpp>
0048 #include <boost/geometry/srs/projections/impl/factory_entry.hpp>
0049
0050 namespace boost { namespace geometry
0051 {
0052
0053 namespace projections
0054 {
0055 #ifndef DOXYGEN_NO_DETAIL
0056 namespace detail { namespace vandg4
0057 {
0058
0059 static const double tolerance = 1e-10;
0060
0061 template <typename T, typename Parameters>
0062 struct base_vandg4_spheroid
0063 {
0064
0065
0066 inline void fwd(Parameters const& , T const& lp_lon, T const& lp_lat, T& xy_x, T& xy_y) const
0067 {
0068 static const T half_pi = detail::half_pi<T>();
0069 static const T two_div_pi = detail::two_div_pi<T>();
0070
0071 T x1, t, bt, ct, ft, bt2, ct2, dt, dt2;
0072
0073 if (fabs(lp_lat) < tolerance) {
0074 xy_x = lp_lon;
0075 xy_y = 0.;
0076 } else if (fabs(lp_lon) < tolerance || fabs(fabs(lp_lat) - half_pi) < tolerance) {
0077 xy_x = 0.;
0078 xy_y = lp_lat;
0079 } else {
0080 bt = fabs(two_div_pi * lp_lat);
0081 bt2 = bt * bt;
0082 ct = 0.5 * (bt * (8. - bt * (2. + bt2)) - 5.)
0083 / (bt2 * (bt - 1.));
0084 ct2 = ct * ct;
0085 dt = two_div_pi * lp_lon;
0086 dt = dt + 1. / dt;
0087 dt = sqrt(dt * dt - 4.);
0088 if ((fabs(lp_lon) - half_pi) < 0.) dt = -dt;
0089 dt2 = dt * dt;
0090 x1 = bt + ct; x1 *= x1;
0091 t = bt + 3.*ct;
0092 ft = x1 * (bt2 + ct2 * dt2 - 1.) + (1.-bt2) * (
0093 bt2 * (t * t + 4. * ct2) +
0094 ct2 * (12. * bt * ct + 4. * ct2) );
0095 x1 = (dt*(x1 + ct2 - 1.) + 2.*sqrt(ft)) /
0096 (4.* x1 + dt2);
0097 xy_x = half_pi * x1;
0098 xy_y = half_pi * sqrt(1. + dt * fabs(x1) - x1 * x1);
0099 if (lp_lon < 0.) xy_x = -xy_x;
0100 if (lp_lat < 0.) xy_y = -xy_y;
0101 }
0102 }
0103
0104 static inline std::string get_name()
0105 {
0106 return "vandg4_spheroid";
0107 }
0108
0109 };
0110
0111
0112 template <typename Parameters>
0113 inline void setup_vandg4(Parameters& par)
0114 {
0115 par.es = 0.;
0116 }
0117
0118 }}
0119 #endif
0120
0121
0122
0123
0124
0125
0126
0127
0128
0129
0130
0131
0132
0133
0134 template <typename T, typename Parameters>
0135 struct vandg4_spheroid : public detail::vandg4::base_vandg4_spheroid<T, Parameters>
0136 {
0137 template <typename Params>
0138 inline vandg4_spheroid(Params const& , Parameters & par)
0139 {
0140 detail::vandg4::setup_vandg4(par);
0141 }
0142 };
0143
0144 #ifndef DOXYGEN_NO_DETAIL
0145 namespace detail
0146 {
0147
0148
0149 BOOST_GEOMETRY_PROJECTIONS_DETAIL_STATIC_PROJECTION_F(srs::spar::proj_vandg4, vandg4_spheroid)
0150
0151
0152 BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_ENTRY_F(vandg4_entry, vandg4_spheroid)
0153
0154 BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_INIT_BEGIN(vandg4_init)
0155 {
0156 BOOST_GEOMETRY_PROJECTIONS_DETAIL_FACTORY_INIT_ENTRY(vandg4, vandg4_entry)
0157 }
0158
0159 }
0160 #endif
0161
0162 }
0163
0164 }}
0165
0166 #endif
0167