Sources/Lexikon/Euler-Bernoulli-Balken/Standard-Lösungen: Unterschied zwischen den Versionen

Aus numpedia
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
 
(Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt)
Zeile 42: Zeile 42:
|text=Zum Nachrechnen steht hier der Quellcodes des CAS.
|text=Zum Nachrechnen steht hier der Quellcodes des CAS.
|code=
|code=
<syntaxhighlight lang="lisp" line start=1>
/*******************************************************/
/*******************************************************/
/* MAXIMA script                                      */
/* MAXIMA script                                      */
Zeile 51: Zeile 52:
/*                                                    */
/*                                                    */
/*******************************************************/
/*******************************************************/
 
feld: makelist(w[i](x) = sum(C[i,j]*x^j,j,0,3),i,1,2);
feld: makelist(w[i](x) = sum(C[i,j]*x^j,j,0,3),i,1,2);
 
BC : [subst([x=0],    subst(feld,w[1](x))    )=0,
BC : [subst([x=0],    subst(feld,w[1](x))    )=0,
       subst([x=0],diff(subst(feld,w[1](x)),x,2))=0,
       subst([x=0],diff(subst(feld,w[1](x)),x,2))=0,
Zeile 62: Zeile 63:
       subst([x=l],    subst(feld,w[2](x))    )=0,
       subst([x=l],    subst(feld,w[2](x))    )=0,
       subst([x=l],diff(subst(feld,w[2](x)),x,2))=0];
       subst([x=l],diff(subst(feld,w[2](x)),x,2))=0];
 
IC : flatten(makelist(makelist(C[i,j],j,0,3),i,1,2));
IC : flatten(makelist(makelist(C[i,j],j,0,3),i,1,2));
 
sol[1]: solve(BC,IC)[1];
sol[1]: solve(BC,IC)[1];
sol[2]: ratsimp(subst([x=xi*l,a=alpha*l],subst(sol[1],feld)));
sol[2]: ratsimp(subst([x=xi*l,a=alpha*l],subst(sol[1],feld)));
 
/* foeppel - part */
/* foeppel - part */
expand(subst(sol[2],w[2](xi*l)-w[1](xi*l))/(M*l^2/(6*EI)));
expand(subst(sol[2],w[2](xi*l)-w[1](xi*l))/(M*l^2/(6*EI)));
ratsimp(subst(sol[2],w[1](xi*l))/(M*l^2/(6*EI)));
ratsimp(subst(sol[2],w[1](xi*l))/(M*l^2/(6*EI)));
 
plot2d(subst([xi=t,alpha=1/2],[[parametric,xi,subst(sol[2],w[1](xi*l))/(M*l^2/(6*EI)),[t,0,alpha]],
plot2d(subst([xi=t,alpha=1/2],[[parametric,xi,subst(sol[2],w[1](xi*l))/(M*l^2/(6*EI)),[t,0,alpha]],
                               [parametric,xi,subst(sol[2],w[2](xi*l))/(M*l^2/(6*EI)),[t,alpha,1]]]),
                               [parametric,xi,subst(sol[2],w[2](xi*l))/(M*l^2/(6*EI)),[t,alpha,1]]]),
Zeile 77: Zeile 78:
                             [xlabel, "x/l →"],
                             [xlabel, "x/l →"],
                             [ylabel, "w(x)/W →"]);
                             [ylabel, "w(x)/W →"]);
 
/* maximum */
/* maximum */
maxi : solve(diff(subst([alpha=1/2],subst(sol[2],w[1](xi*l))),xi)=0,xi);
maxi : solve(diff(subst([alpha=1/2],subst(sol[2],w[1](xi*l))),xi)=0,xi);
WM : -subst([3^(5/2) = 3^2*sqrt(3)], ratsimp(subst(maxi[2],subst([alpha=1/2],subst(sol[2],w[1](xi*l))))));
WM : -subst([3^(5/2) = 3^2*sqrt(3)], ratsimp(subst(maxi[2],subst([alpha=1/2],subst(sol[2],w[1](xi*l))))));
PM : ratsimp(subst([xi=0],subst([alpha=1/2],diff(subst(sol[2],w[1](xi*l)),xi)/l)));
PM : ratsimp(subst([xi=0],subst([alpha=1/2],diff(subst(sol[2],w[1](xi*l)),xi)/l)));
}}
</syntaxhighlight>}}


==Kragbalken Streckenlast==
==Kragbalken Streckenlast==

Aktuelle Version vom 16. April 2021, 10:10 Uhr

Biegelinien-Tabelle in Anlehnung an Literatur: Gross e.a.: Formeln und Aufgaben zur Technischen Mechanik 2.

Wir nutzen dafür

Das Föppel-Symbol:

<ξα>n={0 für ξ<α(ξα)n sonst

Eine Dimensionslose Schreibweise:

x=ξ

,

a=α

Kragbalken

SkizzeEIw'AEIw'BEIw(ξ)EIwmax
0a22F36F(3αξ2ξ3+<ξα>3)33F für α=1

Balken unter Endmoment

SkizzeEIw'AEIw'BEIw(ξ)EIwmax
0M12M2ξ212M2

Balken Streckenlast

SkizzeEIw'AEIw'BEIw(ξ)EIwmax
q0324q0324q0424(3ξ510ξ3+7ξ)5q04384

Einzellast, doppeltgelenkige Lagerung

SkizzeEIw'AEIw'BEIw(ξ)EIwmax
F26(α33α2+2α)F26(α3+α)F36((α1)ξ4+(2α3α2+α3)ξ+<ξα>3)F348 für α=1/2

Einzelmoment, doppeltgelenkige Lagerung

SkizzeEIw'AEIw'BEIw(ξ)EIwmax
M6(3α26α+2)=M24 für α=1/2,ξ=0M6(3α21)M26(ξ3+ξ(26α+3α2)3<ξα>2)M2723 für α=1/2
Achtung:
! Das ist das Maximum der Auslenkung für α=1/2, nicht das absolute Maximum !

Maxima Source Code

Zum Nachrechnen steht hier der Quellcodes des CAS.




Kragbalken Streckenlast

SkizzeEIw'AEIw'BEIw(ξ)EIwmax
0q036q0424(ξ44ξ3+6ξ2)q048