Gelöste Aufgaben/UEBF: Unterschied zwischen den Versionen

Aus numpedia
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
 
(6 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
h
[[Category:Gelöste Aufgaben]]
[[Category:Dimensionslose Schreibweise]]
[[Category:Numerische Lösung]]
[[Category:Randwertproblem]]
[[Category:Potential]]
[[Category:Prinzip vom Minimum der Potentiellen Energie]]
[[Category:Biege-Belastung]][[Category:Euler-Bernoulli-Balken]]
[[Category:Rayleigh-Ritz-Prinzip]]
[[Category:Maxima‎]]


[[Datei:UEBF-21.png|mini|Lageplan]]
==Aufgabenstellung==
Der Euler-Bernoulli-Balken AB wird durch eine vertikale Einzelkraft ''F<sub>0</sub>'' belastet. Er ist in ''A'' fest eingespannt und hat ein linear veränderliches Flächenmoment ''I(x)''.


<onlyinclude>
[[Datei:UEBF-01.png|200px|left|mini|Lageplan]]
Gesucht ist eine Lösung für die Auslenkung ''w(x)'' mit dem Ansatz von Ritz und einer Trial-Funktion.
</onlyinclude>
Damit ähnelt diese Aufgabe [[Gelöste Aufgaben/UEBC|UEBC]].


[[Datei:UEBF-01.png|mini|Lageplan]]
== Lösung mit Maxima ==
Beim Verfahren von Ritz arbeiten wir mit
 
* dem [[Randwertprobleme/Methoden zur Lösung von Randwertproblemen/Verfahren von Rayleigh-Ritz (EBB)|Prinzip vom Minimum der Potentiellen Energie]] und
* [[Sources/Lexikon/Ansatzfunktion|Ansatzfunktionen]] über die gesamte Länge des Balkens.
 
Um die Lösung dimensionslos zu machen, nutzen wir die [[Sources/Lexikon/Standard-Lösungen|analytische Lösung]] des einseitig fest eingespannten Balkens  unter einer Einzellast bei ''B''. Hier ist die maximale Auslenkung
 
::<math>\displaystyle \hat{w} := \frac{\ell^3}{3\; E\,I_1}\,F_0</math>.
 
Damit können wir uns die Lösungen dieses Problems als Vielfaches der analytischen Lösung eines ähnlichen Problems denken.
 
<!-------------------------------------------------------------------------------->
{{MyCodeBlock|title=Header
|text=
Wir berechnen die Potentielle Energie '''''U''''' des Systems und erhalten aus
 
::<math>\displaystyle \frac{d\,U}{d\,W} \stackrel{!}{=} 0 </math>
 
die Gleichung für den gesuchten Koeffizienten ''W'' der Trial-Funktion.
|code=
<syntaxhighlight lang="lisp" line start=1>
/*******************************************************/
/* MAXIMA script                                      */
/* version: wxMaxima 15.08.2                          */
/* author: Andreas Baumgart                            */
/* last updated: 2018-02-13                            */
/* ref: TMC                                            */
/* description: Rayley-Ritz-Solution for EBB          */
/*              with I(x)                              */
/*******************************************************/
</syntaxhighlight>
}}
 
<!-------------------------------------------------------------------------------->
{{MyCodeBlock|title=Declarations
|text=
Zum Dimensionslos-Machen der Gleichungen wählen wir
 
::<math>\begin{array}{ll}\hat{w} &=\displaystyle  \frac{\ell^3}{3 E\,I_1}\cdot F,\\  x&=\xi\cdot \ell,\\ a&=\alpha\cdot \ell.\end{array}</math>.
|code=
<syntaxhighlight lang="lisp" line start=1>
/* make equations of motion dim'less with load case #1 from Gross e.a. */
dimless: [W[a] = F*l^3/(3*E*I[1]),
          x=xi*l,
          a=alpha*l];
 
/* parameter */
params: [I(xi) = I[0]*(1-xi)+I[1]*xi];
</syntaxhighlight>
}}
 
<!-------------------------------------------------------------------------------->
{{MyCodeBlock|title=Formfunctions
|text=
Gesucht ist hier ein Ansatz mit einer einzigen Trial Function, also
 
::<math>w(x) = W\cdot\phi(x)</math>
 
und dem gesuchten Koeffizienten ''W''. ''ϕ'' muss dabei alle geometrischen Randbedingungen erfüllen:
 
::<math>\begin{array}{ll}w(0) &= 0,\\w'(0) &= 0.\end{array}</math>
 
Die Funktionen müssen nicht die Randbedingungen für Schnittlasten in ''B'' erfüllen - schließlich suchen wir nach einer Näherungslösung!
 
Diese Funktion ''ϕ'' zu konstruieren ist einfach: wir brauchen lediglich eine doppelte Nullstelle in ''x=0'', also z.B.
 
::<math>\phi(\xi) = \xi^2 \text{ mit } \xi = \displaystyle\frac{x}{\ell}</math>.
 
Der freie Koeffizient ''W'' ist nun die Auslenkung in ''B'' - deshalb taufen wir ihn hier ''W<sub>B</sub>''. Wir wählen ihn so, dass Sie die exakte Lösung bestmöglich approximiert.
|code=
<syntaxhighlight lang="lisp" line start=1>
/* trial function */
trial: [w(xi) = W[B]*xi^2];
</syntaxhighlight>
}}
 
<!-------------------------------------------------------------------------------->
{{MyCodeBlock|title=Potential Energy
|text=
Für die Gleichgewichtsbedingungen setzten wir ''Π'' (aus Abschnitt Euler-Bernoulli-Balken) und ''A'' in ''U'' ein und schreiben die skalare Gleichung allgemein in Matrizenform an. Dabei müssen wir
 
::<math>\displaystyle \frac{d\phi}{x} = \frac{d\phi}{\xi}\cdot\underbrace{\displaystyle\frac{d\xi}{x}}_{\displaystyle = \frac{1}{\ell}}</math>
 
berücksichtigen und erhalten
 
::<math>U = \displaystyle \frac{1}{2} \cdot \displaystyle \underline{Q}^T \cdot \underline{\underline{A}}\cdot \underline{Q} - \underline{Q}^T\cdot \underline{b} </math>.
 
Weil wir in der Spaltenmatrix
 
::<math>\underline{Q} = \left(W_B\right)</math>
 
nur eine Unbekannte ''W<sub>B</sub>'' haben, können wir es uns hier etwas einfacher machen, ''U'' lautet:
 
::<math>\displaystyle U=\frac{E\cdot \left( {{I}_{0}}+{{I}_{1}}\right)}{{{\ell}^{3}}} \cdot {{W}_{B}^{2}}-\frac{{{a}^{2}}\cdot F}{{{\ell}^{2}}}\cdot {{W}_{B}}</math>.
|code=
<syntaxhighlight lang="lisp" line start=1>
/* potential energies */
/* define potential energy of system */
PMPE : [U  = Pi - A,
        Pi = 1/2*l*'integrate(E*I(xi)*'diff(w(xi),xi,2)^2/l^4,xi,0,1),
        A  = F*w(alpha)];
PMPE: subst([w(alpha) = subst([xi=a/l],subst(trial,w(xi)))],
  subst(params, subst(trial,
    subst(PMPE[3],subst(PMPE[2], PMPE[1])))));
PMPE : ev(PMPE,nouns);
</syntaxhighlight>
}}
 
<!-------------------------------------------------------------------------------->
{{MyCodeBlock|title=Equilibrium Conditions
|text=
Diese Gleichung erfüllt die Gleichgewichtsbedingung(en)
 
::<math>\displaystyle \frac{dU}{dW_B} \stackrel{!}{=} 0</math>,
 
wenn
 
::<math>\displaystyle \frac{2\cdot \left( {{I}_{0}}+{{I}_{1}}\right) \cdot {{W}_{B}}\cdot E}{{{\ell}^{3}}}-\frac{{{a}^{2}}\cdot F}{{{\ell}^{2}}}=0</math>.
|code=
<syntaxhighlight lang="lisp" line start=1>
/* equilibreium condition */
equilibrium : diff(subst(PMPE, U),W[B]) = 0;
</syntaxhighlight>
}}
 
<!-------------------------------------------------------------------------------->
{{MyCodeBlock|title=Solving
|text=
Auflösen nach ''W<sub>B</sub>'' liefert
 
::<math>\displaystyle W_B = \frac{{{a}^{2}}\cdot \ell}{2\cdot \left( {{I}_{1}}+{{I}_{0}}\right) \cdot E}\cdot F</math>.
|code=
<syntaxhighlight lang="lisp" line start=1>
/* solve */
sol: solve(equilibrium,W[B]);
</syntaxhighlight>
}}
 
<!-------------------------------------------------------------------------------->
{{MyCodeBlock|title=Post-Processing
|text=
[[Datei:UEBF-21.png|mini|Lageplan]]Und so sieht die normierte Absenkung des Punktes ''B'' als Funktion von ''a'' aus:
 
Dies ist nicht die Biegelinie des Balkens!
 
Aufgabe [[Gelöste Aufgaben/UEBD|UEBD]] zeigt, wie wir zu einer besseren Approximation kommen.
{{MyTip|title=Schnittmomenten-Verlauf|text=Probieren Sie aus, wie gut der Ritz-Ansatz den Verlauf des Schnittmoments approximiert!}}
|code=
<syntaxhighlight lang="lisp" line start=1>
/* post-processing */
plot2d(subst([I[0]=2*I[1]],subst(dimless,subst(sol,W[B]/W[A]))),[alpha,0,1],
      [gnuplot_preamble, "set yrange [] reverse"],
      [legend, "I[0]=2 I[1]"],
      [xlabel, "x/l->"], [ylabel, "<-w/w_a"],
      [style, [lines,3]]);
</syntaxhighlight>
}}
 
<hr />
'''Links'''
* [[Gelöste Aufgaben/UEBI|Aufgabe UEBI]]
 
'''Literature'''
* ...

Aktuelle Version vom 17. April 2021, 05:29 Uhr


Aufgabenstellung

Der Euler-Bernoulli-Balken AB wird durch eine vertikale Einzelkraft F0 belastet. Er ist in A fest eingespannt und hat ein linear veränderliches Flächenmoment I(x).


Lageplan

Gesucht ist eine Lösung für die Auslenkung w(x) mit dem Ansatz von Ritz und einer Trial-Funktion.

Damit ähnelt diese Aufgabe UEBC.

Lösung mit Maxima

Beim Verfahren von Ritz arbeiten wir mit

Um die Lösung dimensionslos zu machen, nutzen wir die analytische Lösung des einseitig fest eingespannten Balkens  unter einer Einzellast bei B. Hier ist die maximale Auslenkung

.

Damit können wir uns die Lösungen dieses Problems als Vielfaches der analytischen Lösung eines ähnlichen Problems denken.

Header

Wir berechnen die Potentielle Energie U des Systems und erhalten aus

die Gleichung für den gesuchten Koeffizienten W der Trial-Funktion.


/*******************************************************/
/* MAXIMA script                                       */
/* version: wxMaxima 15.08.2                           */
/* author: Andreas Baumgart                            */
/* last updated: 2018-02-13                            */
/* ref: TMC                                            */
/* description: Rayley-Ritz-Solution for EBB           */
/*              with I(x)                              */
/*******************************************************/




Declarations

Zum Dimensionslos-Machen der Gleichungen wählen wir

.

/* make equations of motion dim'less with load case #1 from Gross e.a. */
dimless: [W[a] = F*l^3/(3*E*I[1]),
          x=xi*l,
          a=alpha*l];

/* parameter */
params: [I(xi) = I[0]*(1-xi)+I[1]*xi];




Formfunctions

Gesucht ist hier ein Ansatz mit einer einzigen Trial Function, also

und dem gesuchten Koeffizienten W. ϕ muss dabei alle geometrischen Randbedingungen erfüllen:

Die Funktionen müssen nicht die Randbedingungen für Schnittlasten in B erfüllen - schließlich suchen wir nach einer Näherungslösung!

Diese Funktion ϕ zu konstruieren ist einfach: wir brauchen lediglich eine doppelte Nullstelle in x=0, also z.B.

.

Der freie Koeffizient W ist nun die Auslenkung in B - deshalb taufen wir ihn hier WB. Wir wählen ihn so, dass Sie die exakte Lösung bestmöglich approximiert.


/* trial function */
trial: [w(xi) = W[B]*xi^2];




Potential Energy

Für die Gleichgewichtsbedingungen setzten wir Π (aus Abschnitt Euler-Bernoulli-Balken) und A in U ein und schreiben die skalare Gleichung allgemein in Matrizenform an. Dabei müssen wir

berücksichtigen und erhalten

.

Weil wir in der Spaltenmatrix

nur eine Unbekannte WB haben, können wir es uns hier etwas einfacher machen, U lautet:

.

/* potential energies */
/* define potential energy of system */
PMPE : [U  = Pi - A,
        Pi = 1/2*l*'integrate(E*I(xi)*'diff(w(xi),xi,2)^2/l^4,xi,0,1),
        A  = F*w(alpha)];
PMPE: subst([w(alpha) = subst([xi=a/l],subst(trial,w(xi)))],
  subst(params, subst(trial,
    subst(PMPE[3],subst(PMPE[2], PMPE[1])))));
PMPE : ev(PMPE,nouns);




Equilibrium Conditions

Diese Gleichung erfüllt die Gleichgewichtsbedingung(en)

,

wenn

.

/* equilibreium condition */
equilibrium : diff(subst(PMPE, U),W[B]) = 0;




Solving

Auflösen nach WB liefert

.

/* solve */
sol: solve(equilibrium,W[B]);




Post-Processing

Lageplan

Und so sieht die normierte Absenkung des Punktes B als Funktion von a aus:

Dies ist nicht die Biegelinie des Balkens!

Aufgabe UEBD zeigt, wie wir zu einer besseren Approximation kommen.

Schnittmomenten-Verlauf:
Probieren Sie aus, wie gut der Ritz-Ansatz den Verlauf des Schnittmoments approximiert!

/* post-processing */
plot2d(subst([I[0]=2*I[1]],subst(dimless,subst(sol,W[B]/W[A]))),[alpha,0,1],
       [gnuplot_preamble, "set yrange [] reverse"],
       [legend, "I[0]=2 I[1]"],
       [xlabel, "x/l->"], [ylabel, "<-w/w_a"],
       [style, [lines,3]]);





Links

Literature

  • ...