################################################################################ # # These are the polynomial coefficients used for transforming to and from # the Danish legacy system s34j "System 34 Jylland" # # S 3 4 J -> T C 3 2 # # Forward: # in: S34J_S34, out: TC32_TC32_L # # Inverse: # in: TC32_TC32_L, out: S34J_S34 # ################################################################################ # static double C_ttj[] = { # tc32_ed50 -> s34j # my = 1.73 cm my_loss = +7 y_enp = +5.4 # mx = 1.58 cm mx_loss = +8 x_enp = +4.6 # m_lim_gen: 0.139 red = 0 OBS = 26062 proj=horner ellps=intl tol=0.040 urange=245000 vrange=250000 # tcx,tcy pairs fwd_origin=262188.742761,176325.080506 inv_origin=533649.794619,6208030.167965 uneg=true # i.e. u = !(uneg) (u - origin) : (origin - u) deg=13 inv_v= # Poly NORTH :: e-degree = 0 : n-degree = 13 1.7632529430e+05,1.0001388938e+00,-1.1576375523e-10, -1.6692522603e-15,3.0592371879e-20,2.8373079065e-25, -4.4459215470e-30,-2.3093174705e-35,3.5879082147e-40, 7.4051733308e-46,-1.5150719977e-50,4.4684301183e-57, 2.5887381798e-61,-5.2116351470e-67, # Poly NORTH :: e-degree = 1 : n-degree = 12 -1.9979019458e-02,-6.3625117370e-10,-1.4014839916e-15, -1.2493103310e-20,4.0567818085e-25,-1.0791240765e-31, -3.7519362032e-35,1.0272538097e-40,1.0517328860e-45, -6.4177560833e-51,2.1625973620e-56,1.2535076281e-61, -1.0734049539e-66, # Poly NORTH :: e-degree = 2 : n-degree = 11 -3.4533162605e-11,-1.4140819778e-15,7.7779650995e-21, 6.4174392143e-25,-9.2008405822e-30,-8.2628074667e-35, 1.4283759362e-39,4.7322488467e-45,-8.1265767189e-50, -8.9810935240e-56,1.6434142276e-60,-7.7512876501e-67, # Poly NORTH :: e-degree = 3 : n-degree = 10 -1.4425114447e-15,-3.4391684250e-20,7.4699781877e-25, 5.8620955020e-30,-1.1003493870e-34,2.8180168085e-40, 3.0810557733e-45,-6.3497362070e-50,2.5688465327e-55, 2.2075658407e-60,-1.1061306192e-65, # Poly NORTH :: e-degree = 4 : n-degree = 9 2.7957970501e-20,7.2990995038e-25,1.3479752303e-29, -2.2102059886e-34,-6.7732698734e-40,1.5791546995e-44, -4.1528215073e-50,-3.2043997924e-55,1.4174402428e-60, -3.3596270409e-66, # Poly NORTH :: e-degree = 5 : n-degree = 8 4.1472543131e-25,9.8092251969e-30,-1.5176965859e-34, -3.0273348650e-39,2.2275088132e-44,1.7593697760e-49, -9.1876452065e-55,-3.0197579748e-60,8.7941931044e-66, # Poly NORTH :: e-degree = 6 : n-degree = 7 -1.5609718128e-29,-1.7107108223e-34,-3.7199002510e-39, 3.8108750102e-44,2.8805938991e-49,-2.2419674462e-54, -9.7066507721e-61,4.5950302714e-65, # Poly NORTH :: e-degree = 7 : n-degree = 6 -5.8394454818e-35,-6.3304805691e-40,1.9677824522e-44, 2.8123695323e-49,-2.3170561818e-54,-9.4224432814e-60, 3.9320863713e-65, # Poly NORTH :: e-degree = 8 : n-degree = 5 3.7076110190e-39,1.8654759364e-44,3.2570797963e-49, -2.7814436271e-54,-2.0484037857e-59,8.2167397823e-65, # Poly NORTH :: e-degree = 9 : n-degree = 4 -9.0446223926e-46,-3.7286659566e-50,-1.6010689067e-54, -7.8301791540e-60,1.3432883631e-64, # Poly NORTH :: e-degree = 10 : n-degree = 3 -3.7286100066e-49,-7.2272660280e-55,-7.8350464649e-60, 7.4323486400e-65, # Poly NORTH :: e-degree = 11 : n-degree = 2 9.4760189767e-55,4.0455995368e-60,4.0167584159e-65, # Poly NORTH :: e-degree = 12 : n-degree = 1 1.3453310976e-59,-5.1561395100e-66, # Poly NORTH :: e-degree = 13 : n-degree = 0 -5.6336046875e-65 inv_u= # Poly EAST :: n-degree = 0 : e-degree = 13 2.6219050871e+05,-1.0001375777e+00,2.7781407173e-10, 8.3129733948e-16,4.8889849265e-20,-4.5522545693e-25, -1.3579592407e-29,1.2018015768e-34,1.7108196172e-39, -1.3782560539e-44,-9.0531951558e-50,6.7529622527e-55, 1.5103762396e-60,-1.0509031710e-65, # Poly EAST :: n-degree = 1 : e-degree = 12 -1.9979871258e-02,2.0657701921e-11,-1.1853329189e-15, 1.0335055026e-20,3.3240792566e-25,-6.2333532713e-30, -6.3703989125e-35,1.4966750877e-39,5.0445256244e-45, -1.3923070140e-49,4.1459059797e-57,4.5608466513e-60, -1.0898543510e-65, # Poly EAST :: n-degree = 2 : e-degree = 11 -3.7866780689e-10,1.0958485983e-15,6.2472441670e-20, 6.4773216915e-26,-1.6702283594e-29,3.8674527268e-35, 2.5714828191e-39,-2.0493658816e-44,-1.6333632793e-49, 1.9246302508e-54,2.2347476328e-60,-4.3042442986e-65, # Poly EAST :: n-degree = 3 : e-degree = 10 -6.6060603805e-16,-2.4463660264e-20,6.5988968807e-25, 3.4650490828e-30,-1.6991901685e-34,5.9109915302e-40, 1.1280861175e-44,-1.8901126007e-49,4.7398278599e-55, 1.2810750661e-59,-7.2146495632e-65, # Poly EAST :: n-degree = 4 : e-degree = 9 1.4226125927e-20,-3.8809073080e-25,-1.5416458638e-29, 8.4501860198e-36,2.1504520781e-39,3.5054665257e-45, -1.6635278855e-49,4.9524378341e-55,3.9714275163e-60, -2.1130761400e-65, # Poly EAST :: n-degree = 5 : e-degree = 8 1.9591521417e-25,5.5546763971e-30,-1.1227576746e-34, -6.9554502111e-40,2.0627032981e-44,-1.5669644568e-50, -7.4240809919e-55,1.5405688079e-60,3.5221220444e-66, # Poly EAST :: n-degree = 6 : e-degree = 7 -2.2618689501e-30,7.0670861040e-35,1.7405475024e-39, -8.5403342362e-45,-1.4403628733e-49,7.5330406576e-56, 4.6122718305e-60,-1.8416270301e-65, # Poly EAST :: n-degree = 7 : e-degree = 6 -2.2361965907e-35,-5.3791539152e-40,8.8754865660e-45, 4.2756501241e-50,-9.7186430645e-55,1.5458498911e-60, 2.9007877778e-66, # Poly EAST :: n-degree = 8 : e-degree = 5 1.4952031111e-40,-5.6728457924e-45,-8.7956995652e-50, 7.6328031332e-55,3.6021976499e-60,-8.8798126405e-66, # Poly EAST :: n-degree = 9 : e-degree = 4 1.3064151308e-45,2.5242968975e-50,-3.5798203819e-55, -1.0413550675e-60,1.7004472500e-65, # Poly EAST :: n-degree = 10 : e-degree = 3 -4.2422565904e-51,1.9806734435e-55,1.6295501546e-60, -2.0176214683e-65, # Poly EAST :: n-degree = 11 : e-degree = 2 -3.9344956214e-56,-4.7818605153e-61,6.2012436462e-66, # Poly EAST :: n-degree = 12 : e-degree = 1 3.9859247397e-62,-2.3306828460e-66, # Poly EAST :: n-degree = 13 : e-degree = 0 5.0049039762e-67 # static double C_jtt[] = { # s34j -> tc32_ed50 # my = 1.73 cm my_loss = +7 y_enp = +5.4 # mx = 1.58 cm mx_loss = +8 x_enp = +4.8 # m_lim_gen: 0.139 red = 0 OBS = 26062 fwd_v= # Poly NORTH :: e-degree = 0 : n-degree = 13 6.2080299895e+06,9.9946227330e-01,9.5352430588e-11, 1.6244812523e-15,-3.0474548755e-20,-2.7093262065e-25, 4.3846463292e-30,2.1805406516e-35,-3.5250475877e-40, -6.8908775603e-46,1.4876736847e-50,-4.8454626314e-57, -2.5433927550e-61,5.0736238756e-67, # Poly NORTH :: e-degree = 1 : n-degree = 12 -1.9965529499e-02,-6.3810588270e-10,-1.4644626000e-15, -9.8479255895e-21,4.1512330403e-25,-3.8156912528e-31, -3.8746633129e-35,1.1398799817e-40,1.1048357722e-45, -6.7546295725e-51,2.2223295599e-56,1.3324787388e-61, -1.1281153706e-66, # Poly NORTH :: e-degree = 2 : n-degree = 11 5.2771251612e-11,1.3584781091e-15,-8.0001362857e-21, -6.1620154327e-25,9.1962314257e-30,7.8483266599e-35, -1.3813051691e-39,-4.5414553955e-45,7.6340552455e-50, 9.2957156685e-56,-1.4945754252e-60,5.1988431064e-67, # Poly NORTH :: e-degree = 3 : n-degree = 10 -1.4840670910e-15,-3.6366706653e-20,7.2413665046e-25, 3.9839828940e-30,-1.0070892317e-34,5.0535317326e-40, 2.7172062154e-45,-7.2429436930e-50,2.4408949213e-55, 2.3921237175e-60,-1.0360045324e-65, # Poly NORTH :: e-degree = 4 : n-degree = 9 -2.6225954658e-20,-7.0802120737e-25,-1.2961226101e-29, 2.1059201887e-34,3.9464157892e-40,-1.3622661242e-44, 6.3710463931e-50,1.8044769625e-55,-2.0433224594e-60, 6.3630603673e-66, # Poly NORTH :: e-degree = 5 : n-degree = 8 4.3697262319e-25,1.2266303455e-29,-1.4477978619e-34, -2.6203950672e-39,1.9108271742e-44,1.3591752487e-49, -6.9623761938e-55,-2.6840990203e-60,2.7710554607e-66, # Poly NORTH :: e-degree = 6 : n-degree = 7 1.5078642800e-29,1.6651508456e-34,3.7850050991e-39, -3.6650080091e-44,-2.6822846846e-49,2.0060252803e-54, 3.6073771742e-61,-4.1485026689e-65, # Poly NORTH :: e-degree = 7 : n-degree = 6 -6.3918342403e-35,-1.3964205587e-39,1.9221636286e-44, 2.5253373077e-49,-2.0931562273e-54,-6.2693054194e-60, 3.4067133444e-65, # Poly NORTH :: e-degree = 8 : n-degree = 5 -3.6411503633e-39,-1.9351992641e-44,-3.4218920772e-49, 2.6616960442e-54,1.9807144520e-59,-6.2668758749e-65, # Poly NORTH :: e-degree = 9 : n-degree = 4 -2.5558139795e-46,5.3029706925e-50,-1.6253320182e-54, -7.9909397575e-60,1.2611686461e-64, # Poly NORTH :: e-degree = 10 : n-degree = 3 3.6942581415e-49,9.8812894442e-55,8.8058074311e-60, -7.6373542908e-65, # Poly NORTH :: e-degree = 11 : n-degree = 2 9.1341610884e-55,3.8572506252e-61,4.4638823986e-65, # Poly NORTH :: e-degree = 12 : n-degree = 1 -1.3405129136e-59,-1.1342912173e-65, # Poly NORTH :: e-degree = 13 : n-degree = 0 -5.5792025473e-65 fwd_u= # Poly EAST :: n-degree = 0 : e-degree = 13 5.3365156389e+05,-9.9946358837e-01,2.7668598883e-10, -7.7750840602e-16,4.9533630434e-20,4.3863011417e-25, -1.3967017193e-29,-1.1718841181e-34,1.8071908189e-39, 1.3627729891e-44,-1.0029876448e-49,-6.9047545531e-55, 1.8617194556e-60,1.1791611793e-65, # Poly EAST :: n-degree = 1 : e-degree = 12 -1.9966380388e-02,1.8321091899e-11,-1.2163899389e-15, -8.1327450427e-21,3.9376965913e-25,4.9921422931e-30, -8.2017439521e-35,-1.2880741803e-39,7.0534179548e-45, 1.2551923073e-49,-8.6370298949e-56,-4.2563355339e-60, -9.5988559590e-66, # Poly EAST :: n-degree = 2 : e-degree = 11 -3.8041731015e-10,-1.0722517667e-15,6.0466110374e-20, -8.8961871777e-26,-1.5624928809e-29,-3.3977458632e-35, 2.3233047083e-39,2.0209986661e-44,-1.4302214378e-49, -1.9102244270e-54,1.8505412263e-60,4.3582921281e-65, # Poly EAST :: n-degree = 3 : e-degree = 10 -7.1446257067e-16,2.5922771112e-20,6.3566341838e-25, -3.6232638498e-30,-1.7667875730e-34,-4.0597063277e-40, 1.5143698350e-44,1.7061772335e-49,1.0622151674e-55, -1.2405969368e-59,-6.1817670757e-65, # Poly EAST :: n-degree = 4 : e-degree = 9 1.5315167370e-20,3.8493668536e-25,-1.5208617012e-29, -9.3354761182e-36,2.0172060251e-39,-4.3180367127e-45, -1.3636756786e-49,-3.2397640655e-55,1.4300694698e-60, 4.5760709369e-66, # Poly EAST :: n-degree = 5 : e-degree = 8 2.0884560098e-25,-5.8664999159e-30,-1.0565155141e-34, 6.4428847430e-40,1.9417223374e-44,1.1182637921e-50, -8.3292182800e-55,-1.4948870405e-60,5.0574246039e-66, # Poly EAST :: n-degree = 6 : e-degree = 7 -2.4587723402e-30,-7.0841387022e-35,1.7257988475e-39, 8.8411967236e-45,-1.3763094789e-49,-2.6325558095e-56, 4.5858833823e-60,1.7777411246e-65, # Poly EAST :: n-degree = 7 : e-degree = 6 -2.4172565368e-35,5.7819207436e-40,8.5503013539e-45, -3.8507804174e-50,-8.5513359826e-55,-1.4789616768e-60, 5.1040658301e-66, # Poly EAST :: n-degree = 8 : e-degree = 5 1.6731324189e-40,5.7358969688e-45,-8.6906251589e-50, -7.7358499331e-55,3.2932519740e-60,6.4698225296e-66, # Poly EAST :: n-degree = 9 : e-degree = 4 1.4308264996e-45,-2.7591381108e-50,-3.6451820914e-55, 9.4268146145e-61,1.3561630442e-65, # Poly EAST :: n-degree = 10 : e-degree = 3 -5.0538407538e-51,-2.0313311345e-55,1.6030771885e-60, 2.0096329621e-65, # Poly EAST :: n-degree = 11 : e-degree = 2 -4.3117359080e-56,5.2693713182e-61,6.7948493979e-66, # Poly EAST :: n-degree = 12 : e-degree = 1 5.4843441899e-62,2.4673130442e-66, # Poly EAST :: n-degree = 13 : e-degree = 0 5.3595732646e-67 ################################################################################ # # These are the polynomial coefficients used for transforming to and from # the South Jutland legacy system "Ostenfeld" # # S 3 4 J -> O S # # Forward: # in: S34J_S34, out: OS_OS # # Inverse: # in: OS_OS, out: S34J_S34 # ################################################################################ proj=horner ellps=bessel urange=60000 vrange=250000 range = 300000 # tcx,tcy pairs fwd_origin=280000.0,73000.0 inv_origin=2000.0,68000.0 tol=0.0005 uneg=true # i.e. u = !(uneg) (u - origin) : (origin - u) deg=6 fwd_c= # static double C34os[] = s34j -> os 6.853626449e+04,2.955448253e+03, 9.998670630e-01,-1.655899148e-02, 1.602055277e-11,-2.841831044e-10, -2.578438745e-15,-2.376733581e-16, 6.111814588e-20,-1.802899003e-20, -1.539564291e-25,1.417145176e-24, 2.410664720e-29,-7.990298697e-30 inv_c= # static double Cos34[] = os -> s34j 7.247963213e+04,2.809641934e+05, 9.998592871e-01,-1.655861449e-02, -3.289800932e-11,-2.745975219e-10, 2.751904974e-15,-6.304891315e-16, -6.969771723e-20,-1.481705770e-20, 4.032281321e-25,1.268841834e-24, -2.486793478e-29,-5.147362835e-30