nosník na dvou podporách, délka a+b+c, vzdálenost síly zleva a, výpočet průhybu zprava c, vzdálenost síly a místa průhybu b
Figure 1:
(%i12) | kill(all); |
(%i1) |
a:a; b:b; c:c; F:F; E:E; J:J; |
(%i7) |
MF1:F*(b+c)/(a+b+c)*x; MF2:F*a/(a+b+c)*(a+b+c-x); |
(%i9) |
Mf1:c/(a+b+c)*x; Mf2:(a+b)/(a+b+c)*(a+b+c-x); |
(%i11) | integrate(MF1*Mf1/E/J, x, 0, a) + integrate(MF2*Mf1/E/J, x, a, a+b) + integrate(MF2*Mf2/E/J, x, a+b, a+b+c); |
(%i12) | expand(%); |
(%i13) | factor(%); |
(%i14) | ratsimp(%); |
(%i15) | F* (a*b*c*(2*a+b+2*c)+2*a^2*c^2)/(6*(a+b+c)*E*J); |