Sphere projections
Author: Šárka V

Referenční kulová plocha je zadána středem S, osou o kolmou k půdorysně, a poloměrem R (měřítko R:6379). Zobrazte rovnoběžku dané severní šířky a západní délky.

Posuvníkem můžete měnit kartografické souřadnice bodu P na severní polokouli.

x

O''

O'

Move

A''

A'

Turn

M'

(M'')

N'

N''

P_1[ψ,λ]

P_2[ψ,λ]

A''

A'

B''

B'

C'

C''(D'')

D'

VirSTEM

S_2 = Point(o_2)
S_1 = Point(o_2)
R = 2 (slider from 1 to 3, step 0.5)
p0_2 = Circle(S_2, R)
r0_1 = Circle(S_1, R)
P_N = Intersect(p0_2, o_2, 1)
P_S = Intersect(p0_2, o_2, 2)
a_{1} = OrthogonalLine(S_2, o_2)
a = 0.5585053606381855 rad (slider from 0° to 90°, step 1°)
A_2 = Intersect(p0_2, a_{1}, 2)
p0_1 = OrthogonalLine(S_1, o_2)
A_1 = Intersect(r0_1, p0_1, 2)
c = Segment(A_2, A_1)
R_2 = Rotate(A_2, a, S_2)
β = Angle(A_2, S_2, R_2)
d = OrthogonalLine(R_2, o_2)
A = Intersect(p0_2, d, 2)
r = Segment(R_2, S_2)
rψ_2 = Segment(A, R_2)
f = OrthogonalLine(R_2, x_{12})
R_1 = Intersect(p0_1, f)
rψ_1 = Circle(S_1, R_1)
h = Segment(R_2, R_1)
λ = 0.9075712110370513 rad (slider from 2° to 178°, step 0.08726646259971647)
M_1 = Rotate(A_1, λ, S_1)
α = Angle(A_1, S_1, M_1)
i = OrthogonalLine(M_1, x_{12})
M_2 = Intersect(a_{1}, i)
j = Segment(M_2, M_1)
k = Line(M_1, S_1)
N_1 = Intersect(r0_1, k, 2)
pλ_1 = Segment(M_1, N_1)
m = OrthogonalLine(N_1, x_{12})
N_2 = Intersect(a_{1}, m)
n = Segment(N_2, N_1)
P_1 = Intersect(rψ_1, pλ_1, 1)
p = OrthogonalLine(P_1, a_{1})
P_2 = Intersect(p, rψ_2)
q = Segment(P_2, P_1)
s = Conic(M_2, P_2, P_N, N_2, P_S)
B = Intersect(p0_2, rψ_2, 2)
C = Intersect(rψ_1, p0_1, 1)
D = Intersect(o_2, rψ_2)
E = Intersect(rψ_1, o_2, 2)
g = Segment(B, C)
F = Point(rψ_1)
l = OrthogonalLine(F, p0_1)
G = Intersect(l, rψ_2)
t = Segment(F, G)
H = Intersect(rψ_1, r0_1, 1)
I = Intersect(rψ_1, r0_1, 1)
J = Intersect(rψ_1, r0_1, 1)
K = Intersect(rψ_1, r0_1, 1)
L = Intersect(rψ_1, r0_1, 1)
M = Intersect(rψ_1, r0_1, 1)
N = Intersect(rψ_1, r0_1, 1)
VirSTEM = Intersect(rψ_1, t, 2)
O = Point(a_{1})
P = Point(a_{1})
b = Segment(O, P)
Q = Point(p0_1)
S = Point(p0_1)
e = Segment(Q, S)
T = Point(o_2)
U = Point(o_2)
f_1 = Segment(T, U)