1################################################################################
2#
3#                          S 4 5 B    ->    T C 3 2
4#
5################################################################################
6#
7# Forward:
8#    in: S45B_S45B,   out: TC32_TD32
9#
10# Inverse:
11#    in: TC32_TC32,  out: S45B_S45B
12#
13# Valid area: Bornholm and surroundings
14#
15################################################################################
16<TC32_B>
17
18proj=horner
19urange=103000
20vrange=119000
21ellps=intl
22
23fwd_origin=47022.563745,51779.260103
24inv_origin=878354.943082,6125305.175366
25# tol=0.040
26deg=6
27
28# static  double     C_ttb[]
29# tc32_ed50 -> s45b
30# m_lim_gen:  0.153  red  = 0      OBS   = 1074
31# m = 1.51 cm my_loss =    +3  y_enp = +8.4
32# m = 1.53 cm mx_loss =    +4  x_enp = +8.4
33
34#  mht C_ttb er
35# fwd-inv ombyttet ifht original Poder/Engsager-kode
36# For at opnå at to fwd transform fører fra s45b->tc32->utm32 (->ETRS89)
37
38inv_v=
39# Poly NORTH :: e-degree =  0  : n-degree =  6
40    5.1779004699e+04,9.9508320295e-01,-2.9453823207e-10,
41    1.9995084102e-14,-1.4895751366e-18,-9.9734812211e-23,
42    1.1194218845e-26,
43# Poly NORTH :: e-degree =  1  : n-degree =  5
44   -8.4285679515e-02,-7.9623049286e-09,-3.7190046062e-14,
45   -2.3324127411e-18,-1.1150449763e-22,2.8703154270e-27,
46# Poly NORTH :: e-degree =  2  : n-degree =  4
47    8.7160434140e-10,-3.3634602927e-14,-5.5718245313e-18,
48    6.2611750909e-23,-2.1011243838e-26,
49# Poly NORTH :: e-degree =  3  : n-degree =  3
50    1.0905463989e-14,-4.3960034360e-18,3.6121595001e-22,
51   -1.3493066011e-27,
52# Poly NORTH :: e-degree =  4  : n-degree =  2
53   -1.3360171462e-18,1.0780850646e-22,4.5118286607e-26,
54# Poly NORTH :: e-degree =  5  : n-degree =  1
55   -1.3718883973e-22,1.6263920750e-26,
56# Poly NORTH :: e-degree =  6  : n-degree =  0
57   -5.1004217526e-27
58# tcy    6125305.175366
59
60inv_u=
61# Poly EAST  :: n-degree =  0  : e-degree =  6
62    4.7022495967e+04,-9.9508282498e-01,3.2436283039e-09,
63   -2.6276394334e-15,8.6318533291e-18,-3.8327518550e-23,
64   -2.5704924282e-26,
65# Poly EAST  :: n-degree =  1  : e-degree =  5
66   -8.4285975934e-02,5.7098765263e-10,-6.0863955939e-14,
67    2.3608788740e-18,6.8899581969e-24,-1.1429511179e-26,
68# Poly EAST  :: n-degree =  2  : e-degree =  4
69   -4.6079778412e-09,1.5072604543e-14,5.4063862378e-18,
70    1.2591327827e-22,7.9336388691e-27,
71# Poly EAST  :: n-degree =  3  : e-degree =  3
72   -2.9479268638e-14,1.7090049434e-18,2.8413337985e-22,
73   -3.3577391552e-27,
74# Poly EAST  :: n-degree =  4  : e-degree =  2
75    3.0434879273e-18,-1.8081673510e-22,-2.3651419850e-26,
76# Poly EAST  :: n-degree =  5  : e-degree =  1
77    9.2060044804e-23,3.7807953325e-27,
78# Poly EAST  :: n-degree =  6  : e-degree =  0
79   -4.9415665221e-27
80# tcx     878354.943082
81
82# static  double      C_btt[]
83# s45b -> tc32_ed50
84# m_lim_gen:  0.154  red  = 0      OBS   = 1074
85# m = 1.50 cm my_loss =    +3  y_enp = +8.5
86# m = 1.54 cm mx_loss =    +4  x_enp = +8.3
87
88fwd_v=
89# Poly NORTH :: e-degree =  0  : n-degree =  6
90    6.1253054245e+06,9.9778251908e-01,-7.7346152025e-10,
91   -2.5359789369e-14,1.5614918228e-18,9.8091134295e-23,
92   -1.1092581145e-26,
93# Poly NORTH :: e-degree =  1  : n-degree =  5
94   -8.4514352088e-02,-7.9847579284e-09,-2.6865560962e-14,
95   -2.0731372756e-18,-1.3660341123e-22,1.1244836340e-26,
96# Poly NORTH :: e-degree =  2  : n-degree =  4
97    8.0551988135e-11,3.6661500679e-14,5.4247705403e-18,
98    8.4494604807e-23,1.3334858516e-26,
99# Poly NORTH :: e-degree =  3  : n-degree =  3
100    8.3889821184e-15,-4.8124202237e-18,2.9088188830e-22,
101   -2.0129874264e-26,
102# Poly NORTH :: e-degree =  4  : n-degree =  2
103   2.4716463766e-18,-2.1717177513e-22,-3.2828537638e-26,
104# Poly NORTH :: e-degree =  5  : n-degree =  1
105  -1.2080655753e-22,2.5050435391e-26,
106# Poly NORTH :: e-degree =  6  : n-degree =  0
107   1.1383483826e-27
108# tcy      51779.260103,
109
110fwd_u=
111# Poly EAST  :: n-degree =  0  : e-degree =  6
112    8.7835485387e+05,-9.9778289691e-01,3.2537215213e-09,
113    6.9217640616e-15,8.6268883840e-18,4.6748156909e-23,
114   -2.6492402009e-26,
115# Poly EAST  :: n-degree =  1  : e-degree =  5
116   -8.4514648771e-02,1.4399520180e-09,-6.0423329711e-14,
117    6.9816167332e-20,6.7729233542e-23,-5.3308251880e-27,
118# Poly EAST  :: n-degree =  2  : e-degree =  4
119   -4.5697800099e-09,-1.5194038814e-14,5.1112653016e-18,
120   -2.0307532869e-22,1.0374125432e-26,
121# Poly EAST  :: n-degree =  3  : e-degree =  3
122   -2.8983003841e-14,-1.6414425785e-18,1.7874983379e-22,
123    1.5492164174e-26,
124# Poly EAST  :: n-degree =  4  : e-degree =  2
125    2.7919197366e-18,1.9218613279e-22,-2.1007264634e-26,
126# Poly EAST  :: n-degree =  5  : e-degree =  1
127    1.0032412389e-22,-5.9007997846e-27,
128# Poly EAST  :: n-degree =  6  : e-degree =  0
129    -4.4410970979e-27
130# tcx      47022.563745
131
132
133################################################################################
134#
135#                        T C 3 2    ->    U T M 3 2
136#
137################################################################################
138#
139#  Forward:
140#      in: TC32_TC32,  out: UTM32_ED50_B (ED50 as realised on Bornholm)
141#  Inverse:
142#      reverse.
143#
144# Valid area: Bornholm and surroundings
145#
146################################################################################
147
148<UTM32_ED50_B>
149proj=horner
150range=119000
151ellps=intl
152
153fwd_origin=877605.269066,6125810.306769
154inv_origin=877605.760036,6125811.281773
155
156
157# tc32_ed50 -> utm32_ed50 : Bornholm
158
159deg=4
160
161# ttu_n and ttu_e are based on static double C_ttu_b[]
162# m_lim_gen:  0.086  red  = 0      OBS   =    852
163# m = 1.38 cm my_loss =    +2  y_enp = +10.5
164# m = 1.44 cm mx_loss =    +2  x_enp = +10.4
165# static  double ttu_n[]
166
167fwd_v=
168# Poly NORTH :: e-degree =  0  : n-degree =  0..4
169    6.1258112678e+06,9.9999971567e-01,1.5372750011e-10,
170    5.9300860915e-15,2.2609497633e-19,
171# Poly NORTH :: e-degree =  1  : n-degree =  0..3
172    4.3188227445e-05,2.8225130416e-10,7.8740007114e-16,
173   -1.7453997279e-19,
174# Poly NORTH :: e-degree =  2  : n-degree =  0..2
175    1.6877465415e-10,-1.1234649773e-14,-1.7042333358e-18,
176# Poly NORTH :: e-degree =  3  : n-degree =  0..1
177   -7.9303467953e-15,-5.2906832535e-19,
178# Poly NORTH :: e-degree =  4  : n-degree =  0
179    3.9984284847e-19
180# tcy    6125810.306769
181
182# static  double ttu_e[]
183fwd_u=
184# Poly EAST  :: n-degree =  0  : e-degree =  0..4
185    8.7760574982e+05,9.9999752475e-01,2.8817299305e-10,
186    5.5641310680e-15,-1.5544700949e-18,
187# Poly EAST  :: n-degree =  1  : e-degree =  0..3
188   -4.1357045890e-05,4.2106213519e-11,2.8525551629e-14,
189   -1.9107771273e-18,
190# Poly EAST  :: n-degree =  2  : e-degree =  0..2
191    3.3615590093e-10,2.4380247154e-14,-2.0241230315e-18,
192# Poly EAST  :: n-degree =  3  : e-degree =  0..1
193    1.2429019719e-15,5.3886155968e-19,
194# Poly EAST  :: n-degree =  4  : e-degree =  0
195   -1.0167505000e-18
196# tcx     877605.760036
197
198# utt_n and utt_e are based on static  double C_utt_b[]
199# utm32_ed50 -> tc32_ed50 : Bornholm
200# m_lim_gen:  0.086  red  = 0      OBS   =    852
201# m = 1.38 cm my_loss =    +2  y_enp = +10.8
202# m = 1.44 cm mx_loss =    +2  x_enp = +10.7
203# static  double utt_n[]
204
205inv_v=
206# Poly NORTH :: e-degree =  0  : n-degree =  4
207    6.1258103208e+06,1.0000002826e+00,-1.5372762184e-10,
208   -5.9304261011e-15,-2.2612705361e-19,
209# Poly NORTH :: e-degree =  1  : n-degree =  3
210   -4.3188331419e-05,-2.8225549995e-10,-7.8529116371e-16,
211    1.7476576773e-19,
212# Poly NORTH :: e-degree =  2  : n-degree =  2
213   -1.6875687989e-10,1.1236475299e-14,1.7042518057e-18,
214# Poly NORTH :: e-degree =  3  : n-degree =  1
215    7.9300735257e-15,5.2881862699e-19,
216# Poly NORTH :: e-degree =  4  : n-degree =  0
217   -3.9990736798e-19
218# tcy    6125811.281773
219
220# static  double utt_e[]
221inv_u=
222# Poly EAST  :: n-degree =  0  : e-degree =  0..4
223    8.7760527928e+05,1.0000024735e+00,-2.8817540032e-10,
224   -5.5627059451e-15,1.5543637570e-18,
225# Poly EAST  :: n-degree =  1  : e-degree =  0..3
226    4.1357152105e-05,-4.2114813612e-11,-2.8523713454e-14,
227    1.9109017837e-18,
228# Poly EAST  :: n-degree =  2  : e-degree =  0..2
229   -3.3616407783e-10,-2.4382678126e-14,2.0245020199e-18,
230# Poly EAST  :: n-degree =  3  : e-degree =  0..1
231   -1.2441377565e-15,-5.3885232238e-19,
232# Poly EAST  :: n-degree =  4  : e-degree =  0
233    1.0167203661e-18
234# tcx     877605.760036
235
236
237################################################################################
238#
239#                          G S B    ->    U T M 3 3
240#
241################################################################################
242#
243# Forward:
244#    in: GSB_GS_B,   out: UTM33_ED50_B
245#
246# Inverse:
247#    in: UTM33_ED50_B,  out: GSB_GS_B
248#
249################################################################################
250<GSB>
251
252proj=horner
253ellps=gs
254urange=31000
255vrange=214000
256range=300000
257#u: 31000  -73000,  31000 -31000
258#v: 34000  -23000,  44000 -19500
259
260fwd_origin=493000.00,6107000.00
261inv_origin=21000.00,18000.00
262# tol=0.040
263
264uneg=true
265# i.e. u = !(uneg) (u - origin) : (origin - u)
266
267deg=4
268
269# static  double    Cu33gsb[] = utm33_ed50 -> gsb
270fwd_c=
271
272     17606.901573,21150.097571,
273     1.000528635e+00,9.507307614e-04,
274    -1.828526053e-09,3.828207311e-11,
275     2.481016058e-15,1.683466885e-14,
276     1.795149378e-19,-9.161067528e-19
277
278# static  double    Cgsbu33[] = gsb -> utm33_ed50
279inv_c=
280
281     6107392.748060,493150.391692,
282     9.994721570e-01,9.503132652e-04,
283     1.815515582e-09,6.128234254e-11,
284    -2.261322580e-15,1.524694510e-14,
285    -1.745394113e-19,-9.146885316e-19
286