s in cm

1

-1

0

xl

xl_0

Federlage ohne Pendelkörper

xr_0

xr

Ruhelage

Ruhelage

2

-2

Federkraft links

Federkraft rechts

Rückstellkraft

Bemaßung links

Auslenkungsvektor

Bemaßung rechts

Dr. Markus Ziegler 
CC BY-SA 3.0

t = 0 (slider from 0 to 0.4, step 0.001)
sDach = 1.8 (slider from -5 to 5, step 0.1)
m = 0.5 (slider from 0.5 to 1, step 0.01)
xl_0 = -5 (slider from -10 to 5, step 0.05)
xr_0 = 5 (slider from -5 to 5, step 0.05)
dxlr_0: abs(xr_0 - xl_0)
Breitekoerper = 2 (slider from -5 to 5, step 0.05)
D_{links} = 100 (slider from 100 to 200, step 0.1)
D_{rechts} = 100 (slider from 100 to 200, step 0.1)
D_{ges}: D_{links} + D_{rechts}
T: ((2 * π) * sqrt(m / D_{ges}))
s: (sDach * cos(((2 * π / T) * t)))
xl_1: xl_0 + (dxlr_0 - Breitekoerper) / (1 + D_{links} / D_{rechts})
Ruhelage: xl_1 + Breitekoerper / 2
Federwindungenl = 12 (slider from -5 to 20, step 0.05)
Federhakenlaenge = 0.5 (slider from -5 to 5, step 0.05)
Federlinksfest = -7 (slider from -10 to 5, step 0.05)
yFederverschieb0 = 2 (slider from -10 to 5, step 0.05)
fl0l = Segment((Federlinksfest, yFederverschieb0), (Federlinksfest + Federhakenlaenge, yFederverschieb0))
fl0r = Segment((xl_0, yFederverschieb0), (xl_0 - Federhakenlaenge, yFederverschieb0))
Federrechtsfest = 7 (slider from -5 to 10, step 0.05)
Federwindungenr = 12 (slider from -5 to 20, step 0.05)
fr0r = Segment((Federrechtsfest, yFederverschieb0), (Federrechtsfest - Federhakenlaenge, yFederverschieb0))
fr0l = Segment((xr_0, yFederverschieb0), (xr_0 + Federhakenlaenge, yFederverschieb0))
yFederverschieb1 = 5 (slider from -5 to 5, step 0.05)
xl_2: Ruhelage + s - Breitekoerper / 2
yFederverschieb2 = 9 (slider from -10 to 20, step 0.05)
xr_1: xr_0 - (dxlr_0 - Breitekoerper) / (1 + D_{rechts} / D_{links})
xr_2: xl_2 + Breitekoerper
fl1l_1 = Segment((Federlinksfest, yFederverschieb1), (Federlinksfest + Federhakenlaenge, yFederverschieb1))
fl2l = Segment((Federlinksfest, yFederverschieb2), (Federlinksfest + Federhakenlaenge, yFederverschieb2))
fl1r = Segment((xl_1, yFederverschieb1), (xl_1 - Federhakenlaenge, yFederverschieb1))
fl2r = Segment((xl_2, yFederverschieb2), (xl_2 - Federhakenlaenge, yFederverschieb2))
fl1l = Segment((xr_1, yFederverschieb1), (xr_1 + Federhakenlaenge, yFederverschieb1))
fr2l = Segment((xr_2, yFederverschieb2), (xr_2 + Federhakenlaenge, yFederverschieb2))
fr1r = Segment((Federrechtsfest, yFederverschieb1), (Federrechtsfest - Federhakenlaenge, yFederverschieb1))
fr2r = Segment((Federrechtsfest, yFederverschieb2), (Federrechtsfest - Federhakenlaenge, yFederverschieb2))
Hoehehalbkoerper = 0.75 (slider from -5 to 5, step 0.05)
Pendelkoerper1, i6, i1, i4, i5 = Polygon((xl_1, yFederverschieb1 + Hoehehalbkoerper), (xl_1 + Breitekoerper, yFederverschieb1 + Hoehehalbkoerper), (xl_1 + Breitekoerper, yFederverschieb1 - Hoehehalbkoerper), (xl_1, yFederverschieb1 - Hoehehalbkoerper))
Pendelkoerper2, i2, i3, j4, j5 = Polygon((xl_2, yFederverschieb2 + Hoehehalbkoerper), (xl_2 + Breitekoerper, yFederverschieb2 + Hoehehalbkoerper), (xl_2 + Breitekoerper, yFederverschieb2 - Hoehehalbkoerper), (xl_2, yFederverschieb2 - Hoehehalbkoerper))
Dickehalterung = 0.15 (slider from -5 to 5, step 0.05)
Hoehehalterung = 0.2 (slider from -5 to 5, step 0.05)
Halterung0, h01, h02, h04, h03, h05, h06, h07, h08 = Polygon((Federlinksfest - Dickehalterung, yFederverschieb0 + Hoehehalterung), (Federlinksfest, yFederverschieb0 + Hoehehalterung), (Federlinksfest, yFederverschieb0 - Hoehehalbkoerper), (Federrechtsfest, yFederverschieb0 - Hoehehalbkoerper), (Federrechtsfest, yFederverschieb0 + Hoehehalterung), (Federrechtsfest + Dickehalterung, yFederverschieb0 + Hoehehalterung), (Federrechtsfest + Dickehalterung, yFederverschieb0 - Hoehehalbkoerper - Dickehalterung), (Federlinksfest - Dickehalterung, yFederverschieb0 - Hoehehalbkoerper - Dickehalterung))
Halterung0' = Translate(Halterung0, (0, yFederverschieb1 - yFederverschieb0))
Halterung0'_1 = Translate(Halterung0, (0, yFederverschieb2 - yFederverschieb0))
Schwerpunkt1: (xl_1 + Breitekoerper / 2, yFederverschieb1)
Schwerpunkt2: (xl_2 + Breitekoerper / 2, yFederverschieb2)
dxl_1: abs(xl_1 - xl_0)
dxr_2: abs(xr_2 - xr_0)
dxl_2: abs(xl_2 - xl_0)
dxr_1: abs(xr_1 - xr_0)
yRuhelage = 11 (slider from -5 to 20, step 0.1)
sZahlengerade = Vector((Federlinksfest, yRuhelage), (Federrechtsfest, yRuhelage))
RuhelagePlus1 = Segment((Ruhelage + 1, yRuhelage), (Ruhelage + 1, yRuhelage + 0.2))
RuhelageMinusEins = Segment((Ruhelage - 1, yRuhelage), (Ruhelage - 1, yRuhelage + 0.2))
RuhelageNull = Segment((Ruhelage, yRuhelage), (Ruhelage, yRuhelage + 0.2))
F_{Fl1}: (D_{links} * dxl_1)
F_{Fr1}: (D_{rechts} * dxr_1)
Federradius_l: 50 / D_{links}
Federl0 = CurveCartesian(Federparameter, (Federradius_l * sin((((Federwindungenl * 2) * π) * (Federparameter - xl_0 + Federhakenlaenge) / (Federlinksfest - xl_0 + (2 * Federhakenlaenge))))) + yFederverschieb0, Federparameter, Federlinksfest + Federhakenlaenge, xl_0 - Federhakenlaenge)
Federl1 = CurveCartesian(Federparameter, (Federradius_l * sin((((Federwindungenl * 2) * π) * (Federparameter - xl_1 + Federhakenlaenge) / (Federlinksfest - xl_1 + (2 * Federhakenlaenge))))) + yFederverschieb1, Federparameter, Federlinksfest + Federhakenlaenge, xl_1 - Federhakenlaenge)
Federl2 = CurveCartesian(Federparameter, (Federradius_l * sin((((Federwindungenl * 2) * π) * (Federparameter - xl_2 + Federhakenlaenge) / (Federlinksfest - xl_2 + (2 * Federhakenlaenge))))) + yFederverschieb2, Federparameter, Federlinksfest + Federhakenlaenge, xl_2 - Federhakenlaenge)
Federradius_r: 50 / D_{rechts}
Federr0 = CurveCartesian(Federparameter, (Federradius_r * sin((((Federwindungenr * 2) * π) * (Federparameter - Federrechtsfest + Federhakenlaenge) / ((-Federrechtsfest) + xr_0 + (2 * Federhakenlaenge))))) + yFederverschieb0, Federparameter, xr_0 + Federhakenlaenge, Federrechtsfest - Federhakenlaenge)
Federr1 = CurveCartesian(Federparameter, (Federradius_r * sin((((Federwindungenr * 2) * π) * (Federparameter - Federrechtsfest + Federhakenlaenge) / ((-Federrechtsfest) + xr_1 + (2 * Federhakenlaenge))))) + yFederverschieb1, Federparameter, xr_1 + Federhakenlaenge, Federrechtsfest - Federhakenlaenge)
Federr2 = CurveCartesian(Federparameter, (Federradius_r * sin((((Federwindungenr * 2) * π) * (Federparameter - Federrechtsfest + Federhakenlaenge) / ((-Federrechtsfest) + xr_2 + (2 * Federhakenlaenge))))) + yFederverschieb2, Federparameter, xr_2 + Federhakenlaenge, Federrechtsfest - Federhakenlaenge)
NullFederlinks = Segment((xl_0, yFederverschieb0 - 0.3), (xl_0, yFederverschieb2 - Hoehehalbkoerper - Hoehehalterung))
NullFederrechts = Segment((xr_0, yFederverschieb0 - 0.3), (xr_0, yFederverschieb2 - Hoehehalbkoerper - Hoehehalterung))
Bemaßung2la_x = Vector((xl_0, yFederverschieb2 - Hoehehalbkoerper - Dickehalterung - 0.7), (xl_2, yFederverschieb2 - Hoehehalbkoerper - Dickehalterung - 0.7))
Bemaßung2lb_x = Vector((xl_2, yFederverschieb2 - Hoehehalbkoerper - Dickehalterung - 0.7), (xl_0, yFederverschieb2 - Hoehehalbkoerper - Dickehalterung - 0.7))
Bemaßung1la_x = Vector((xl_0, yFederverschieb1 + Hoehehalbkoerper + 0.2), (xl_1, yFederverschieb1 + Hoehehalbkoerper + 0.2))
Bemaßung1lb_x = Vector((xl_1, yFederverschieb1 + Hoehehalbkoerper + 0.2), (xl_0, yFederverschieb1 + Hoehehalbkoerper + 0.2))
SLinie = Segment(Schwerpunkt2, (xl_2 + Breitekoerper / 2, yRuhelage))
Bemaßung1ra_x = Vector((xr_1, yFederverschieb1 + Hoehehalbkoerper + 0.2), (xr_0, yFederverschieb1 + Hoehehalbkoerper + 0.2))
Bemaßung1rb_x = Vector((xr_0, yFederverschieb1 + Hoehehalbkoerper + 0.2), (xr_1, yFederverschieb1 + Hoehehalbkoerper + 0.2))
Bemaßung2ra_x = Vector((xr_2, yFederverschieb2 - Hoehehalbkoerper - Dickehalterung - 0.7), (xr_0, yFederverschieb2 - Hoehehalbkoerper - Dickehalterung - 0.7))
Bemaßung2rb_x = Vector((xr_0, yFederverschieb2 - Hoehehalbkoerper - Dickehalterung - 0.7), (xr_2, yFederverschieb2 - Hoehehalbkoerper - Dickehalterung - 0.7))
RuhelageStrecke = Segment((Ruhelage, yFederverschieb1 - Hoehehalbkoerper - Dickehalterung - 0.2), (Ruhelage, yRuhelage))
Hilfslinelinks1 = Segment((xl_1, yFederverschieb1 + Hoehehalbkoerper), (xl_1, yFederverschieb1 + Hoehehalbkoerper + 1.3))
Hilfslinielinks2 = Segment((xl_2, yFederverschieb2 - Hoehehalbkoerper), (xl_2, yFederverschieb2 - Hoehehalbkoerper - 1.7))
slinks = Vector((xl_1, yFederverschieb1 + Hoehehalbkoerper + 1), (xl_2, yFederverschieb1 + Hoehehalbkoerper + 1))
Hilfslinierechts1 = Segment((xr_1, yFederverschieb1 + Hoehehalbkoerper), (xr_1, yFederverschieb1 + Hoehehalbkoerper + 1.3))
Hilfslinierechts2 = Segment((xr_2, yFederverschieb2 - Hoehehalbkoerper), (xr_2, yFederverschieb2 - Hoehehalbkoerper - 1.7))
srechts = Vector((xr_1, yFederverschieb1 + Hoehehalbkoerper + 1), (xr_2, yFederverschieb1 + Hoehehalbkoerper + 1))
sVektor = Vector((Ruhelage, yRuhelage - 0.5), (xl_2 + Breitekoerper / 2, yRuhelage - 0.5))
RuhelagePlus2 = Segment((Ruhelage + 2, yRuhelage), (Ruhelage + 2, yRuhelage + 0.2))
RuhelageMinus2 = Segment((Ruhelage - 2, yRuhelage), (Ruhelage - 2, yRuhelage + 0.2))
Kraeftemaßstab: 120
Einheitsvektor_r = Vector((0, 0), (1, 0))
Einheitsvektor_l = Vector((0, 0), (-1, 0))
FFl_1 = Translate(Vector[(F_{Fl1} / Kraeftemaßstab * Einheitsvektor_l)], Schwerpunkt1)
F_{Fl2}: (D_{links} * dxl_2)
FFl_2 = Translate(Vector[(F_{Fl2} / Kraeftemaßstab * Einheitsvektor_l)], Schwerpunkt2)
F_{Fr2}: (D_{rechts} * dxr_2)
FFr_2 = Translate(Vector[(F_{Fr2} / Kraeftemaßstab * Einheitsvektor_r)], Schwerpunkt2)
FF_{r1} = Translate(Vector[(F_{Fr1} / Kraeftemaßstab * Einheitsvektor_r)], Schwerpunkt1)
F_{Rück} = Translate(Vector[FFr_2 + FFl_2], Schwerpunkt2)
FlinksAnzeigen = true
FrechtsAnzeigen = true
RückstellkraftAnzeigen = true
BemaßunglinksAnzeigen = false
AuslenkungsvektorAnzeigen = false
BemaßungrechtsAnzeigen = false
Curve(x) = NaN
Text11: "" + (LaTeX[t]) + "\;s"
Text12: "" + (LaTeX[D_{links}]) + "\frac{N}{m}"
Text13: "" + (LaTeX[D_{rechts}]) + "\; \frac{N}{m}"
Text14: "" + (LaTeX[m]) + "\; kg"
Text10: "xr_0 = " + (LaTeX[dxr_1]) + "\; cm"
Text9: "xr  = " + (LaTeX[dxr_2]) + " \;cm"
Text7: "s  = " + (LaTeX[s]) + "\; cm"
Text8: "xl_0 = " + (LaTeX[dxl_1]) + " \;cm"
Text6: "xl   = " + (LaTeX[dxl_2]) + " \;cm"