Gelöste Aufgaben/UEBF: Unterschied zwischen den Versionen

Aus numpedia
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
 
(3 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 26: Zeile 26:
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  
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>.
::<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.
Damit können wir uns die Lösungen dieses Problems als Vielfaches der analytischen Lösung eines ähnlichen Problems denken.


==tmp==
<!-------------------------------------------------------------------------------->
 
{{MyCodeBlock|title=Header
|text=
Wir berechnen die Potentielle Energie '''''U''''' des Systems und erhalten aus  
Wir berechnen die Potentielle Energie '''''U''''' des Systems und erhalten aus  


<math>\displaystyle \frac{d\,U}{d\,W} \stackrel{!}{=} 0 </math>
::<math>\displaystyle \frac{d\,U}{d\,W} \stackrel{!}{=} 0 </math>


die Gleichung für den gesuchten Koeffizienten ''W'' der Trial-Funktion.<!-------------------------------------------------------------------------------->
die Gleichung für den gesuchten Koeffizienten ''W'' der Trial-Funktion.
 
{{MyCodeBlock|title=Header
|text=Text
|code=
|code=
<syntaxhighlight lang="lisp" line start=1>
<syntaxhighlight lang="lisp" line start=1>
1+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>
</syntaxhighlight>
}}
}}


==tmp==
<!-------------------------------------------------------------------------------->
 
{{MyCodeBlock|title=Declarations
|text=
Zum Dimensionslos-Machen der Gleichungen wählen wir
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>.<!-------------------------------------------------------------------------------->
::<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>.
 
{{MyCodeBlock|title=Declarations
|text=Text
|code=
|code=
<syntaxhighlight lang="lisp" line start=1>
<syntaxhighlight lang="lisp" line start=1>
1+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>
</syntaxhighlight>
}}
}}


==tmp==
<!-------------------------------------------------------------------------------->
 
{{MyCodeBlock|title=Formfunctions
|text=
Gesucht ist hier ein Ansatz mit einer einzigen Trial Function, also
Gesucht ist hier ein Ansatz mit einer einzigen Trial Function, also


<math>w(x) = W\cdot\phi(x)</math>
::<math>w(x) = W\cdot\phi(x)</math>


und dem gesuchten Koeffizienten ''W''. ''ϕ'' muss dabei alle geometrischen Randbedingungen erfüllen:
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>
::<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!
Die Funktionen müssen nicht die Randbedingungen für Schnittlasten in ''B'' erfüllen - schließlich suchen wir nach einer Näherungslösung!
Zeile 74: Zeile 85:
Diese Funktion ''ϕ'' zu konstruieren ist einfach: wir brauchen lediglich eine doppelte Nullstelle in ''x=0'', also z.B.  
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>.
::<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.<!-------------------------------------------------------------------------------->
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.
 
{{MyCodeBlock|title=Formfunctions
|text=Text
|code=
|code=
<syntaxhighlight lang="lisp" line start=1>
<syntaxhighlight lang="lisp" line start=1>
1+1
/* trial function */
trial: [w(xi) = W[B]*xi^2];
</syntaxhighlight>
</syntaxhighlight>
}}
}}


==tmp==
<!-------------------------------------------------------------------------------->
 
{{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
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>
::<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
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>.
::<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
Weil wir in der Spaltenmatrix


<math>\underline{Q} = \left(W_B\right)</math>
::<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:
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>.<!-------------------------------------------------------------------------------->
::<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>.
 
 
 
{{MyCodeBlock|title=Potential Energy
|text=Text
|code=
|code=
<syntaxhighlight lang="lisp" line start=1>
<syntaxhighlight lang="lisp" line start=1>
1+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>
</syntaxhighlight>
}}
}}


==tmp==
<!-------------------------------------------------------------------------------->
 
{{MyCodeBlock|title=Equilibrium Conditions
|text=
Diese Gleichung erfüllt die Gleichgewichtsbedingung(en)
Diese Gleichung erfüllt die Gleichgewichtsbedingung(en)


<math>\displaystyle \frac{dU}{dW_B} \stackrel{!}{=} 0</math>,
::<math>\displaystyle \frac{dU}{dW_B} \stackrel{!}{=} 0</math>,


wenn
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>.<!-------------------------------------------------------------------------------->
::<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>.
 
 
 
{{MyCodeBlock|title=Equilibrium Conditions
|text=Text
|code=
|code=
<syntaxhighlight lang="lisp" line start=1>
<syntaxhighlight lang="lisp" line start=1>
1+1
/* equilibreium condition */
equilibrium : diff(subst(PMPE, U),W[B]) = 0;
</syntaxhighlight>
</syntaxhighlight>
}}
}}


==tmp==
<!-------------------------------------------------------------------------------->
 
{{MyCodeBlock|title=Solving
|text=
Auflösen nach ''W<sub>B</sub>'' liefert
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>.<!-------------------------------------------------------------------------------->
::<math>\displaystyle W_B = \frac{{{a}^{2}}\cdot \ell}{2\cdot \left( {{I}_{1}}+{{I}_{0}}\right) \cdot E}\cdot F</math>.
 
 
{{MyCodeBlock|title=Solving
|text=Text
|code=
|code=
<syntaxhighlight lang="lisp" line start=1>
<syntaxhighlight lang="lisp" line start=1>
1+1
/* solve */
sol: solve(equilibrium,W[B]);
</syntaxhighlight>
</syntaxhighlight>
}}
}}


==tmp==
<!-------------------------------------------------------------------------------->
{{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:
[[Datei:UEBF-21.png|mini|Lageplan]]Und so sieht die normierte Absenkung des Punktes ''B'' als Funktion von ''a'' aus:


Zeile 155: Zeile 165:


Aufgabe [[Gelöste Aufgaben/UEBD|UEBD]] zeigt, wie wir zu einer besseren Approximation kommen.
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!}}<!-------------------------------------------------------------------------------->
{{MyTip|title=Schnittmomenten-Verlauf|text=Probieren Sie aus, wie gut der Ritz-Ansatz den Verlauf des Schnittmoments approximiert!}}
 
 
{{MyCodeBlock|title=Post-Processing
|text=Text
|code=
|code=
<syntaxhighlight lang="lisp" line start=1>
<syntaxhighlight lang="lisp" line start=1>
1+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>
</syntaxhighlight>
}}
}}
<table class="wikitable" style="background-color:white; float: left; margin-right:14px;
">
<tr><th></th><th></th></tr>
<tr><td></td><td></td></tr>
</table>


<hr />
<hr />
'''Links'''
'''Links'''
* ...
* [[Gelöste Aufgaben/UEBI|Aufgabe UEBI]]


'''Literature'''
'''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

  • ...