Anheben einer Lok - Versagen eines Trägers

(e)ClearRemove[w1,w2,w3,emodul,iy,F]emodul=210*10^9;m=7500;g=9.81;l=.7;a=.5;q0=m*g/l;iy=3600/10^(8);F=1/2*m*g;(*q(x)*)(*Q(x)*)(*M(x)*)(*w(x)*)(*k=DSolve[{w1’’’’[x]\[Equal]0,w1[0]\[Equal]0,w1’’[0]\[Equal]0,w1’’’[0]\[Equal]-F,w2’’’’[x]\[Equal]q0,w2[a]\[Equal]w1[a],w2’[a]\[Equal]w1’[a],w2’’[a]\[Equal]w1’’[a],w3’’’’[x]\[Equal]0,w3[a+l]\[Equal]w2[a+l],w3’[a+l]\[Equal]w2’[a+l],w3[2*a+l]\[Equal]0,w3’’[2*a+l]\[Equal]0,w3’’’[2*a+l]\[Equal]F/(EE*i)},{w1,w2,w3},x]*)(*Berechnung der Biegelinieerste Zeile: die vierten ableitungen der DGLzweite Zeile: Randbed. linker Rand (Biegung, Moment)dritte Zeile: Übergangsbed.bei x=a (Biegung, Winkel, Moment, Querkraft)vierte Zeile: Übergangsbed.bei x=a+l (Biegung, Winkel, Moment, Querkraft)fünfte Zeile: Randbed. rechter Rand (Biegung, Moment)*)k=DSolve[{w1’’’’[x]\[Equal]0,w2’’’’[x]\[Equal]q0/(emodul*iy),w3’’’’[x]\[Equal]0,w1[0]\[Equal]0,w1’’[0]\[Equal]0,w2[a]\[Equal]w1[a],w2’[a]\[Equal]w1’[a],w2’’[a]\[Equal]w1’’[a],w2’’’[a]\[Equal]w1’’’[a],w3[a+l]\[Equal]w2[a+l],w3’[a+l]\[Equal]w2’[a+l],w3’’[a+l]\[Equal]w2’’[a+l],w3’’’[a+l]\[Equal]w2’’’[a+l],w3[2*a+l]\[Equal]0,w3’’[2*a+l]\[Equal]0},{w1,w2,w3},x]w1[x_]=k\[LeftDoubleBracket]1,1,2,2\[RightDoubleBracket]w2[x_]=k\[LeftDoubleBracket]1,2,2,2\[RightDoubleBracket]w3[x_]=k\[LeftDoubleBracket]1,3,2,2\[RightDoubleBracket](*Plot[w1[x],{x,0,a}]Plot[w2[x],{x,a,a+l}]Plot[w3[x],{x,a+l,2*a+l}]*)(*Plotten des Biegemomentes*)6