# Gesamter Balken als ein finites Element betrachtet:
> V[1](xi):=-(1-xi)*xi^2;

                                              2
                      V[1](xi) := -(1 - xi) xi

# Diese Näherung stimmt mit der ersten Näherung (11) nach RITZ überein
# und ist zu grob. Daher wird der Balken in zwei finite Elemente
# unterteilt. Man ermittelt für jedes Element eine Biegelinie:
> V[a](xi):=-(5/2-3*xi)*xi^2; V[b](xi):= -(-1/2+3*xi-(7/2)*xi^2+xi^3);

                                                2
                    V[a](xi) := -(5/2 - 3 xi) xi


                                               2     3
                V[b](xi) := 1/2 - 3 xi + 7/2 xi  - xi

# Im Vergleich zu diesen Lösungen ist die exakte Biegeline gegeben
# durch:
> V[e](xi):=-(3-5*xi+2*xi^2)*xi^2;

                                              2    2
                 V[e](xi) := -(3 - 5 xi + 2 xi ) xi

> plot1:=plot(V[1](xi),xi=0..1,linestyle=5):
> plot2:=plot(V[a](xi),xi=0..1/2,linestyle=4):
> plot3:=plot(V[b](xi),xi=1/2..1,linestyle=3):
> plot4:=plot(V[e](xi),xi=0..1,linestyle=1):
> plots[display]({plot1,plot2,plot3,plot4});

> 
