diff --git a/external/include/wgs84_do_puwg92.h b/external/include/wgs84_do_puwg92.h index f49289c7..64375c51 100644 --- a/external/include/wgs84_do_puwg92.h +++ b/external/include/wgs84_do_puwg92.h @@ -22,7 +22,7 @@ Uwagi: Oprogramowanie darmowe. Dozwolone jest wykorzystanie i modyfikacja doi:10.1117/12.2001354 Literatura: - Uriasz, J., “Wybrane odwzorowania kartograficzne”, Akademia Morska w Szczecinie, + Uriasz, J., Wybrane odwzorowania kartograficzne, Akademia Morska w Szczecinie, http://uriasz.am.szczecin.pl/naw_bezp/odwzorowania.html */ diff --git a/external/src/wgs84_do_puwg92.cc b/external/src/wgs84_do_puwg92.cc index c8907aa3..a7f7916a 100644 --- a/external/src/wgs84_do_puwg92.cc +++ b/external/src/wgs84_do_puwg92.cc @@ -20,7 +20,7 @@ Uwagi: Oprogramowanie darmowe. Dozwolone jest wykorzystanie i modyfikacja doi:10.1117/12.2001354 Literatura: - Uriasz, J., “Wybrane odwzorowania kartograficzne”, Akademia Morska w Szczecinie, + Uriasz, J., Wybrane odwzorowania kartograficzne, Akademia Morska w Szczecinie, http://uriasz.am.szczecin.pl/naw_bezp/odwzorowania.html */ @@ -44,10 +44,10 @@ Zwracana wartosc: */ { // Parametry elipsoidy GRS-80 - double e=0.0818191910428; //pierwszymimośród elipsoidy - double R0=6367449.14577; //promień sfery Lagrange.a - double Snorm=2.0E-6; //parametr normujący - double xo=5760000.0; //parametr centrujący + double e=0.0818191910428; //pierwszymimosrod elipsoidy + double R0=6367449.14577; //promien sfery Lagrange.a + double Snorm=2.0E-6; //parametr normujacy + double xo=5760000.0; //parametr centrujacy //Wspolczynniki wielomianu double a0=5765181.11148097; @@ -58,8 +58,8 @@ Zwracana wartosc: double a5=-0.00111138; double a6=-0.00010504; - // Parametry odwzorowania Gaussa-Kruegera dla układu PUWG92 - double L0_stopnie=19.0; //Początek układu wsp. PUWG92 (długość) + // Parametry odwzorowania Gaussa-Kruegera dla ukladu PUWG92 + double L0_stopnie=19.0; //Poczatek ukladu wsp. PUWG92 (dlugosc) double m0=0.9993; double x0=-5300000.0; double y0= 500000.0; @@ -81,7 +81,7 @@ Zwracana wartosc: if ((dLdLmax)) return 2; - //etap I - elipsoida na kulę + //etap I - elipsoida na kule double U=1.0-e*sin(B); double V=1.0+e*sin(B); double K=pow((U/V),(e/2.0)); @@ -97,14 +97,14 @@ Zwracana wartosc: double XMERC=R0*atan(p/q); double YMERC=0.5*R0*log(r/s); - //etap III - walec na płaszczyznę + //etap III - walec na plaszczyzne complex Z((XMERC-xo)*Snorm,YMERC*Snorm); complex Zgk; Zgk=a0+Z*(a1+Z*(a2+Z*(a3+Z*(a4+Z*(a5+Z*a6))))); double Xgk=Zgk.real(); double Ygk=Zgk.imag(); - //Przejście do układu aplikacyjnego + //Przejscie do ukladu aplikacyjnego *Xpuwg=m0*Xgk+x0; *Ypuwg=m0*Ygk+y0; @@ -124,14 +124,14 @@ Zwracana wartosc: 0 - konwersja powiodla sie */ { - double L0_stopnie=19.0; //Początek układu wsp. PUWG92 (długość) + double L0_stopnie=19.0; //Poczatek ukladu wsp. PUWG92 (dlugosc) double m0=0.9993; double x0=-5300000.0; double y0= 500000.0; - double R0=6367449.14577; //promień sfery Lagrange.a - double Snorm=2.0E-6; //parametr normujący - double xo_prim=5765181.11148097; //parametr centrujący + double R0=6367449.14577; //promien sfery Lagrange.a + double Snorm=2.0E-6; //parametr normujacy + double xo_prim=5765181.11148097; //parametr centrujacy // Wspolczynniki wielomianu double b0=5760000;