SSS - Konstruktion
Author: Anita Dorfmayr und Walter Klinger
Date: 2.10.2005

Öffne das dynamische Arbeitsblatt und schaue dir die Konstruktion an. Schreibe mit eigenen Worten ein Konstruktionsprotokoll auf.

Versuche selbst, ein Dreieck zu konstruieren, von dem drei Seiten gegeben sind.

1

2

3

4

5

6

134

135

136

146

246

346

lista2: {134.0, 135.0, 136.0, 146.0, 246.0, 346.0}
A1 = 134
x1 = 0 (slider from 0 to 10, step 5)
x2 = 10 (slider from 0 to 10, step 5)
x3 = 0 (slider from 0 to 10, step 5)
y1 = -5 (slider from -5 to 0, step 5)
y2 = -5 (slider from -5 to 0, step 5)
y3 = 0 (slider from -5 to 0, step 5)
G = (10, 0)
H = (5, 0)
I = (0, 0)
J = (5, -5)
K = (10, -5)
L = (0, -5)
A: (x1, y1)
B: (x2, y2)
C: (x3, y3)
a = Segment(A, B)
b = Segment(A, C)
c = Segment(B, C)
lista1: {Polygon[A, B, C]}
A2 = NaN
A3 = NaN
A4 = NaN
A5 = NaN
A6 = NaN
N_1 = (13, 1.5)
k_9 = Segment(I, G)
ya = Sequence(Object["A" + (k)], k, 1.0, 6.0)
ya1 = KeepIf(x > 0.0, ya)
Z1 = Length(Union[{A1}, lista2])
Z2 = Length(Union[{A2}, lista2])
Z3 = Length(Union[{A3}, lista2])
Z4 = Length(Union[{A4}, lista2])
Z5 = Length(Union[{A5}, lista2])
Z6 = Length(Union[{A6}, lista2])
Y1 = KeepIf(x ≟ A1, ya1)
Y2 = KeepIf(x ≟ A2, ya1)
Y3 = KeepIf(x ≟ A3, ya1)
Y4 = KeepIf(x ≟ A4, ya1)
Y5 = KeepIf(x ≟ A5, ya1)
Y6 = KeepIf(x ≟ A6, ya1)
X1 = Length(Y1)
X2 = Length(Y2)
X3 = Length(Y3)
X4 = Length(Y4)
X5 = Length(Y5)
X6 = Length(Y6)
lista3 = Sequence(KeepIf[x ≟ Element[lista2, k], ya1], k, 1.0, 6.0)
lista4 = Sequence(Length[Element[lista3, k]], k, 1.0, 6.0)
lista5: {Polygon[L, K, G, I]}
i_8 = Segment(G, K)
k_8 = Segment(K, L)
i_9 = Segment(I, L)
D = (12, -0.5)
E = (13, -0.5)
F = (14.5, -0.5)
U = (15.5, -0.5)
V = (14.5, -2.5)
W = (15.5, -2.5)
Z = (12, 0)
A_1 = (13, 0)
B_1 = (14.5, 0)
C_1 = (15.5, 0)
D_1 = (14.5, -2)
E_1 = (15.5, -2)
F_1 = (12, -2.5)
G_1 = (12, -2)
H_1 = (13, -2)
I_1 = (13, -2.5)
J_1 = (12, -4.5)
K_1 = (12, -4)
L_1 = (13, -4)
M_1 = (13, -4.5)
O_1 = (14.5, -4.5)
P_1 = (14.5, -4)
Q_1 = (15.5, -4)
R_1 = (15.5, -4.5)
polígono3, z, d_1, e_1, a_1 = Polygon(Z, D, E, A_1)
polígono4, b_1, f_1, u, c_1 = Polygon(B_1, F, U, C_1)
polígono5, g_1, f_2, i_1, h_1 = Polygon(G_1, F_1, I_1, H_1)
polígono6, d_2, v, w, e_2 = Polygon(D_1, V, W, E_1)
polígono7, k_1, j_1, m_1, l_1 = Polygon(K_1, J_1, M_1, L_1)
polígono8, p_1, o_1, r_1, q_1 = Polygon(P_1, O_1, R_1, Q_1)
polígono9, e_3, z_1, d_3 = Polygon(Z, D, E)
S_1 = Midpoint(c_1)
T_1 = Midpoint(j_1)
polígono10, s_1, f_3, u_1 = Polygon(F, U, S_1)
polígono11, h_2, f_4, i_2 = Polygon(F_1, I_1, H_1)
polígono12, e_4, v_1, d_4 = Polygon(V, D_1, E_1)
polígono13, l_2, t_1, k_2 = Polygon(T_1, K_1, L_1)
polígono14, q_2, r_2, p_2 = Polygon(R_1, P_1, Q_1)
B1 = If(X1 > 1.0, "REPETIDO", If[Z1 ≟ 6.0, "BIEN", "?"])
B2 = If(X2 > 1.0, "REPETIDO", If[Z2 ≟ 6.0, "BIEN", "?"])
B3 = If(X3 > 1.0, "REPETIDO", If[Z3 ≟ 6.0, "BIEN", "?"])
B4 = If(X4 > 1.0, "REPETIDO", If[Z4 ≟ 6.0, "BIEN", "?"])
B5 = If(X5 > 1.0, "REPETIDO", If[Z5 ≟ 6.0, "BIEN", "?"])
B6 = If(X6 > 1.0, "REPETIDO", If[Z6 ≟ 6.0, "BIEN", "?"])
j_9 = Segment(H, J)