Allgemeine Sinusfunktion
Author: Andreas Jäger
Date: 18 April 2013

Messungen und Messfehler: Fehlerursachen

Version Stand
04.10.2024
Andreas Jäger

Stand

GeoGebra-Arbeitsblatt zu “Praktikum-01-Messfehler”

Ideal

ideal

systematisch

zufällig

gemischt

Streuung

∥

>

vz: {1, -1, 1, -1, 1, -1, 1, -1, -1, 1, 1, -1, 1, -1, 1, -1, 1, -1, -1, -1, 1, -1, 1, 1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1}
zf0: {3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6, 4, 3}
nn = 1
nnn = Mod(nn, 20)
si = 0.05 (slider from 0 to 0.15, step 0.01)
a = false
g: 9
NN: (0, 0)
px = 3.8342731732394153
py = 0 (slider from 0 to 1, step 0.1)
P1: (px, py)
P2: (-P1)
f = Segment(P2, P1)
h0 = 8 (slider from 1 to 8, step 0.1)
H0: (0, h0)
tA: sqrt(((2 * h0)) / g)
t = 0 (slider from 0 to 2, step 0.001)
h1: h0 - ((1 / 2 * g) * ((tA * t))^(2))
vA: sqrt(((2 * g) * h0))
h2: (vA * ((t * tA) - tA)) - ((1 / 2 * g) * ((t * tA) - tA)^(2))
H1 = If(0 ≤ (t * tA) ≤ tA, (0, h1), (0, h2))
h = Line(H0, NN)
i = OrthogonalLine(NN, f)
H1' = Mirror(H1, i)
st1 = If(0 ≤ t ≤ 1, Segment[H0, H1], Segment[H0, NN])
st2 = If(1 ≤ t ≤ 2, Segment[NN, H1'])
α = Angle(H0, NN, H1')
zf1: ((Element[vz, nnn + 1] * si) * (Element[zf0, nnn + 1] + (0.1 * Element[zf0, nnn + 2]) + (0.01 * Element[zf0, nnn + 3])))
PP: (zf1, h0)
j = Line(NN, PP)
H2 = Mirror(H1, j)
β = Angle(PP, NN, H0)
k = If(1 ≤ t ≤ 2, Segment[NN, H2])
γ = Angle(H0, NN, PP)
l: y = h0
A = Intersect(i, l)
PPP: PP + (x(A), 0)
m = Line(NN, PPP)
H3 = Mirror(H1, m)
n = Segment(NN, H3)
Text1: "\alpha = " + (LaTeX[α]) + ""
δ = Angle(H3, NN, H0)
ε = Angle(H0, NN, H3)
Text5: "\alpha=" + (LaTeX[If[Element[vz, nnn + 1] > 0, "-", ""]]) + "" + (LaTeX[If[Element[vz, nnn + 1] > 0, β, γ]]) + ""
Text6: "\alpha=" + (LaTeX[If[δ > 180°, "", "-"]]) + "" + (LaTeX[If[δ > 180°, ε, δ]]) + ""
H4 = Mirror(H0, i)
p = Segment(NN, H4)
H33: H3
Eingabefeld1 = Textfield(si)
res: {}
yy0: 1
alpha = If(α < 100, α, α - 360)
bSpur: false
run: false