Spherique
Author: Daniel Mentrard

x

y

z

Norte

Sur

N

S

ESTE

OESTE

LONGITUD

LATITUD

θ = 46 (slider from -174 to 186, step 1)
long: θ - 6.0
b = 25 (slider from -89 to 89, step 1)
r = 12 (slider from 1 to 20, step 0.1)
A = Intersect(xAxis, yAxis)
g1 = Circle(A, r)
F, F1 = Intersect(g1, yAxis)
f1 = Segment(A, F)
D: (r, 0.0)
V_1 = Rotate(D, b°, A)
d = Line(V_1, xAxis)
V = Intersect(d, yAxis)
j1 = Segment(A, V)
lat: round(j1 / f1 * 90.0)
H1: (x(F), 2.0 * y(F) / 3.0)
m1 = Segment(F, D)
I: (x(F), y(F) / 3.0)
l1 = Line(I, xAxis)
n1 = Line(H1, l1)
K1 = Intersect(m1, n1)
d2 = Segment(H1, K1)
I1, J1 = Intersect(g1, n1)
b2 = Segment(H1, J1)
N, S = Intersect(g1, l1)
s1 = Segment(I, S)
U = Intersect(l1, m1)
a2 = Segment(I, U)
g = Segment(D, F)
e = Segment(V, V_1)
G1 = Intersect(g, e)
i = Segment(V, G1)
R_1: 4.0 * cos(2.0 * θ)
xmax = 0
xmin = 0
B: (0.0, r / 3.0)
C = Mirror(B, A)
E = Mirror(D, A)
A_2: (r * cos(45.0°), r / 3.0 * sin(45.0°))
c = Conic(D, A_2, B, E, C)
M: (x(V) + e * cos(θ - 90.0°), y(V) + i / 3.0 * sin(θ - 90.0°))
a = Segment(M, A)
Z = Point(xAxis)
A1 = Point(xAxis)
f = Line(M, yAxis)
k = Segment(Z, A1)
J = Point(yAxis)
K = Point(yAxis)
m_1 = AngularBisector(D, A, B)
w = Vector(Z, A1)
Q = Point(yAxis)
p = Vector(Q, J)
T5: "θ = " + θ + "°"
W, B1 = Intersect(g1, d)
C1: (x(V), y(V) + i / 3.0)
D1 = Mirror(C1, V)
E1: (x(V) + e * cos(45.0°), y(V) + i / 3.0 * sin(45.0°))
s = Conic(D1, V_1, E1, C1, B1)
h = Segment(D, F1)
G = Intersect(d, h)
j = Segment(V, G)
H: (x(V) + e * cos(45.0°), y(V) + j / 3.0 * sin(45.0°))
O: (x(V), y(V) + j / 3.0)
R = Mirror(O, V)
t = Conic(V_1, H, O, B1, R)
l = Line(M, p)
n = Vector(V, A)
m = Line(M, p)
L: (x(V) + e * cos(θ - 90.0°), y(V) + j / 3.0 * sin(θ - 90.0°))
u = Vector(V, A)
h1 = Translate(t, u)
i1 = Line(L, p)
P = (13.187301204071488, 4.394985004548526)
q = Line(P, A)
T = Point(q)
v = Vector(T, P)
M1 = Mirror(M, A)
N1 = Mirror(M, M)
O1 = Mirror(M, yAxis)
P1 = Mirror(O1, A)
p1 = Conic(P1, M, F, O1, M1)
Q1 = Mirror(L, A)
R1 = Mirror(L, yAxis)
S1 = Mirror(L, xAxis)
q1 = Conic(F1, L, S1, Q1, R1)
T1 = Midpoint(F, A)
a1 = Line(T1, xAxis)
W1, Z1 = Intersect(g1, a1)
b1 = Segment(F, D)
A2 = Intersect(a1, b1)
d1 = Segment(T1, Z1)
e1 = Segment(T1, A2)
B2: (x(T1) + d1 * cos(90.0°), y(T1) + e1 / 3.0 * sin(90.0°))
C2: (x(T1) + d1 * cos(60.0°), y(T1) + e1 / 3.0 * sin(60.0°))
D2 = Mirror(B2, T1)
k1 = Conic(D2, Z1, C2, B2, W1)
r1 = Mirror(k1, A)
t1 = Segment(I, U)
L1: (x(I) + s1 * cos(90.0°), y(I) + a2 / 3.0 * sin(90.0°))
U1 = Mirror(L1, I)
V1: (x(I) + s1 * cos(60.0°), y(I) + a2 / 3.0 * sin(60.0°))
c2 = Conic(L1, N, U1, S, V1)
F2: (x(H1) + b2 * cos(90.0°), y(H1) + d2 / 3.0 * sin(90.0°))
E2 = Mirror(F2, H1)
G2: (x(H1) + b2 * cos(60.0°), y(H1) + d2 / 3.0 * sin(60.0°))
e2 = Conic(E2, J1, G2, F2, I1)
f2 = Mirror(c2, A)
g2 = Mirror(e2, A)
T7: "" + lat + "°"
H2: (r / 10.0, 0.0)
I2: (r / 10.0 * cos(60.0°), r * sin(60.0°))
J2 = Mirror(H2, A)
h2 = Conic(H2, I2, F, J2, F1)
T11: "" + (abs(long)) + "°"
K2: (r / 2.0, 0.0)
L2: (r / 2.0 * cos(60.0°), r * sin(60.0°))
M2 = Mirror(K2, A)
k2 = Conic(F1, K2, L2, F, M2)
N2: (4.0 * r / 5.0 * cos(60.0°), r * sin(60.0°))
O2: (4.0 * r / 5.0, 0.0)
P2 = Mirror(O2, A)
p2 = Conic(F1, O2, N2, F, P2)