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

Gummiband

f(x)=a + b x

f(x)=a + b x + c x²

f(x)=a + b x + c x² + d x³

f(x)=0

0

Stahlfeder

0

P_2 =

P_0 =

P_3 =

P_1 =

P_4 =

P_5 =

P_6 =

P_7 =

P_8 =

Zu

Auswertung von l-F-Diagrammen

Version Stand
14.10.2024
Andreas Jäger

Stand

D(l)

GeoGebra-Arbeitsblatt zu “Praktikum-02-Federhärte”

Lokal

P3: (0.12, (3 * 0.12))
x2: 0.3
x1: 0
xMax = Max(x1, x2)
xMin = Min(x1, x2)
dx: (xMax - xMin) / 2
b3: xMin ≤ x(P3) ≤ xMax
P8: (0, (3 * 0))
b8: xMin ≤ x(P8) ≤ xMax
P7: (0.24, (3 * 0.24))
b7: xMin ≤ x(P7) ≤ xMax
P6: (0.21, (3 * 0.21))
b6: xMin ≤ x(P6) ≤ xMax
P5: (0.18, (3 * 0.18))
b5: xMin ≤ x(P5) ≤ xMax
P4: (0.15, (3 * 0.15))
b4: xMin ≤ x(P4) ≤ xMax
P2: (0.09, (3 * 0.09))
b2: xMin ≤ x(P2) ≤ xMax
n2 = If(b8, 9, If[b7, 8, If[b6, 7, If[b5, 6, If[b4, 5, If[b3, 4, If[b2, 3, 2]]]]]])
P1: (0.06, (3 * 0.06))
b1: xMin ≤ x(P1) ≤ xMax
P0: (0.03, (3 * 0.03))
PL: {P0, P1, P2, P3, P4, P5, P6, P7, P8}
b0: xMin ≤ x(P0) ≤ xMax
n1 = If(b0, 1, If[b1, 2, If[b2, 3, If[b3, 4, If[b4, 5, If[b5, 6, If[b6, 7, If[b7, 8, 8]]]]]]])
nn2 = Max(n1, n2)
nn1 = Min(n1, n2)
LL = Take(PL, nn1, nn2)
f1 = Fit(LL, {1, x})
P10 = NaN
f2 = Fit(LL, {1, x, x^(2)})
f3 = Fit(LL, {1, x, x^(2), x^(3)})
bf1: false
bf2: false
bf3: false
grad: 0
Eingabefeld1 = Textfield(P2)
be2: false
be0: false
be3: false
be4: false
be5: false
be6: false
be7: false
be8: false
Eingabefeld2 = Textfield(P0)
Eingabefeld3 = Textfield(P3)
Eingabefeld4 = Textfield(P1)
Eingabefeld5 = Textfield(P4)
Eingabefeld6 = Textfield(P5)
Eingabefeld7 = Textfield(P6)
Eingabefeld8 = Textfield(P7)
Eingabefeld9 = Textfield(P8)
be1: false
Text1: "D = {\Delta F\over \Delta l} = " + (LaTeX[Slope[f1]]) + "\ {N \over m}"
X1: (x1, 0)
X2: (x2, 0)
f = Ray(X1, X1 + (0, 3))
g = Ray(X2, X2 + (0, 3))
a = false
bd: false
b = Max(y(PL))
maxy = Max(y(PL))
faktor: -1
fak: 10^(faktor)
q(x) = (fak * f1'(x))
h(x) = (fak * f3'(x))
p(x) = (fak * f2'(x))
xV = 0.08690176116176286
yV: ((-Max[y(PL)])) / 15
XV: (xV, yV)
PV2: (xV, If[grad ≟ 2, f2(xV), f3(xV)])
i = Tangent(xV, If[grad ≟ 2, f2, f3])
Text5: "D(" + (LaTeX[xV]) + "\ m) = " + (LaTeX[Slope[i]]) + "\ {N\:\over m}"
XV2: XV
j = Segment(XV2, PV2)
c = true
d: 0.03