I_1

I_2

I_3

I_4

R_1

R_2

R_3

R_4

S_1

S_2

C_1

C_2

Panneau solaire
(fournit du CC)

Circuit électrique

Circuit électrique

Graphe

noto

notobis

S = (-9.300191232854583, 0.4927267192147458)
M = (-10, 0)
N = (0, 0)
f = Segment(M, N)
A = Midpoint(f)
g = OrthogonalLine(A, f)
B = (-6.333713321281, 0.3394633574312204)
B'_1 = Mirror(B, g)
B' = Mirror(B, f)
B'' = Mirror(B', g)
q1, b, b', b'', b'_1 = Polygon(B, B', B'', B'_1)
C = Intersect(f, b)
h = Segment(M, C)
E = Point(h)
c = Circle(E, S)
j = OrthogonalLine(M, h)
PtHachures1 = Point(j)
E' = Mirror(PtHachures1, M)
l = Segment(E', PtHachures1)
k = OrthogonalLine(PtHachures1, j)
F = Point(k)
F' = Mirror(F, f)
q2, f_1, f', e', e = Polygon(F, F', E', PtHachures1)
PtHachures2 = Point(f_1)
hachuresTerre = Sequence(Segment[Translate[PtHachures2, Vector[(k * Vector[PtHachures1, M])]], Translate[PtHachures1, Vector[(k * Vector[PtHachures1, M])]]], k, 0, 2, 0.25)
D = Intersect(f, b'')
i = Segment(D, N)
H = Midpoint(h)
m = Segment(PtHachures1, PtHachures2)
Noeud = (-4, 10)
CircuitBasein: {hachuresTerre, q1, b, b', b'', b'_1, h, i, l, c}
α = 0.2827433388230814 rad (slider from 10° to 60°)
l4r = Translate({Rotate[CircuitBasein, α], Rotate[CircuitBasein, (-α)], Rotate[CircuitBasein, 180° + α], Rotate[CircuitBasein, 180° - α]}, Noeud)
PointsCourant = Translate({Rotate[{M, C}, α], Rotate[{M, C}, (-α)], Rotate[{M, C}, 180° + α], Rotate[{M, C}, 180° - α]}, Noeud)
I = Point(PointsCourant)
J = Point(PointsCourant)
n = Segment(I, J)
K = Point(PointsCourant)
L = Point(PointsCourant)
p = Segment(K, L)
O = Point(PointsCourant)
P = Point(PointsCourant)
q = Segment(O, P)
Q = Point(PointsCourant)
R = Point(PointsCourant)
r = Segment(Q, R)
lc = Translate({n, p, q, r}, (0, 0))
R_1 = 0.2 (slider from 0.05 to 0.2, step 0.05)
R_2 = 0.2 (slider from 0.05 to 0.2, step 0.05)
R_3 = 0.2 (slider from 0.05 to 0.2, step 0.05)
R_4 = 0.2 (slider from 0.05 to 0.2, step 0.05)
Circuitsortie: {hachuresTerre, q1, b, b', b'', b'_1, h, i, l}
l1 = Translate({Rotate[CircuitBasein, α], Rotate[CircuitBasein, (-α)], Rotate[Circuitsortie, 180° + α], Rotate[Circuitsortie, 180° - α]}, Noeud)
G = Intersect(h, l)
Noeudadd = Translate({Rotate[G, α], Rotate[G, (-α)], Rotate[G, 180° + α], Rotate[G, 180° - α]}, Noeud)
T = Point(Noeudadd)
s = Segment(T, Noeud)
U = Point(Noeudadd)
t = Segment(U, Noeud)
V = Point(Noeudadd)
a = Segment(Noeud, V)
W = Point(Noeudadd)
d = Segment(Noeud, W)
Lseg = Translate({a, d, s, t}, (0, 0))
o = true
bool: 1
u: ¬o
v = true