Gelöste Aufgaben/FEB2

Aus numpedia
Zur Navigation springen Zur Suche springen


Aufgabenstellung

Die zwei Euler-Bernoulli-Balken AB (Länge a) und BC (Länge 2a) sind in B fest verschweißt. Ihre Biegesteifigkeit ist EI. Die Konstruktion ist in A fest eingespannt und in C durch ein verschiebliches Gelenklager gelagert. In B ist sie durch die Kraft F und das Moment M belastet.


Lageplan

Gesucht ist die Verschiebungen und Verdrehungen der Balken mit der Methode der Finiten ELemente.

Gegeben: a, E I, F, M

Lösung mit Maxima

Berechnet werden sollten daf[r die Auslenkungen und Verdrehung der Punkte A, B und C. Das Modell soll aus zwei Finiten Elementen bestehen, jeweils eins für den Abschnitt AB und BC. Die neutralen Fasern der beiden Balken seien in Längsrichtung undehnbar – die Querschnitts-Schwerpunkte verschieben sich also nicht in Balken-Längsrichtung.

Header

Hier müssen die Element-Steifigkeitsmatrizen für zwei Sektionen von Euler-Bernoulli-Balken zusammengefügt (assembliert) werden. Die Schwierigkeit liegt darin, die Koordinaten in Punkt B passend zu wählen.


/*******************************************************/
/* MAXIMA script                                       */
/* version: wxMaxima 16.04.2                           */
/* author: Andreas Baumgart                            */
/* last updated: 2018-02-13                            */
/* ref: TM-C                                           */
/* description: FEM-solution for two rgidly connected  */
/*              sections                               */
/*******************************************************/

/*******************************************************/
/* MAXIMA script                                       */
/* version: wxMaxima 16.04.2                           */
/* author: Andreas Baumgart                            */
/* last updated: 2018-02-13                            */
/* ref: TM-C                                           */
/* description: FEM-solution for two rigidly connected */
/*              sections                               */
/*******************************************************/




Declarations

Die Element-Steifigkeitsmatrix kopieren wir aus Abschnitt FEM-Formulierung für den Euler-Bernoulli-Balken zu:

Ki(ℓi)=EIℓi3⋅(126⋅ℓ−126⋅ℓi6⋅ℓi4⋅ℓi2−6⋅ℓi2⋅ℓi2−12−6⋅ℓi12−6⋅ℓi6⋅ℓi2⋅ℓi2−6⋅ℓi4⋅ℓi2).

Die Element-Längen der zwei Finiten Elemente sind hier

ℓ1=aℓ2=2a.

1+1




Coordinates

Zunächst hat das System mit zwei Finiten Elementen jeweils 4 Koordinaten, nämlich

Wi−1,Φi−1,Wi,Φi.
Sektion A-B Sektion B-C
Die Sektion ist in A fest eingespannt, also ist hier
Wi−1=0,Φi−1=0.

Es bleiben die Verschiebung und Verdrehung in B, also

Wi=WB,Φi=ΦB.

Die neutralen Fasern der Balken-Sektionen - also auch von AB - sind undehnbar. Die Punkte B und C können sich also nur in vertikale Richtung jeweils um WB verschieben.  Durch diese Starrkörper-Verschiebung wird keine Arbeit geleistet - das tun nur die Lateral-Verschiebungen in w2(x2).

Es ist also

Wi−1=0,Wi=0.

Es bleiben also die Verdrehungen in B und C zu

Φi−1=ΦB,Φi=ΦC
Übertragung der Koordinaten.

Die verbleibenden Koordinaten des Gesamtsystems sind

Q_=(WBΦBΦC)

Das verformte System sieht dann so aus:

Verformte Lage.

/* coordinates */
Q : [W[B], Phi[B],Phi[C]];

K[1] : submatrix(1,2,Ki(  a),1,2);
K[2] : submatrix(1,3,Ki(2*a),1,3);




Assembly of System Matrices

Wir bauen das Gleichungssystem

K__⋅Q_=P_

zusammen, indem wir die Anteile der Element-Steifigkeitsmatrizen und die äußeren Lasten in die jeweiligen System Matrizen hineinaddieren.

Die virtuelle Formänderungsenergie ist

  • für Sektion AB:

δΠAB=(δWB,δΦB)⋅(12⋅EIa3−6⋅EIa2−6⋅EIa24⋅EIa)⋅(WBΦB) und

  • für Section BC:

δΠBC=(δΦB,δΦC)⋅(2⋅EIaEIaEIa2⋅EIa)⋅(ΦBΦC)

Die Gesamt-Steifigkeitsmatrix aus Sektion AB (rot) und Sektion 2 (grün) ist damit

K__=EIa3⋅(+12−6a0−6a4a2+2a2a20a22a2),

Die Spaltenmatrix der eingeprägten, äußeren Lasten auf das System kommt aus

δWa=−F⋅δWB+M⋅δΦB

zu

P_=(−FM0).

/* system stiffness matrix K and system load matrix P */
K[0] : zeromatrix(3,3);

/* assembel */
for row:1 thru 2 do
   for col:1 thru 2 do
     (K[0][row  ,col  ] : K[0][row  ,col  ] + K[1][row,col],
      K[0][row+1,col+1] : K[0][row+1,col+1] + K[2][row,col]);

P : matrix([-F],[M],[0]);




Solving

Die Lösung des linearen Gleichungssystems liefert

(WBΦBΦC)=(12⋅a2⋅M−11⋅a3⋅F60⋅EI2⋅a⋅M−a2⋅F5⋅EI−2⋅a⋅M−a2⋅F10⋅EI)

/* solve by LU-factorisation */
sol: ratsimp(linsolve_by_lu(K[0],P)[1]);
print(transpose(Q)=sol);




Solange

M>11⋅a⋅F12

sieht das System im ausgelenkten Zustand so aus:

Lage des verformten Systems.

===Post/Processing===

Text


NONE




Links

  • ...

Literature

  • ...