> V[1](xi) := -32*(1-xi)*xi^2*(7/51-(50/561)*xi);

                                        2 /       50 xi\
             V[1](xi) := -32 (1 - xi) xi  |7/51 - -----|
                                          \        561 /

> V[2](xi) := -32*(1-xi)*xi^2*(7/64-(5/64)*xi);

                                         2 /       5 xi\
              V[2](xi) := -32 (1 - xi) xi  |7/64 - ----|
                                           \        64 /

> V[3](xi) :=-32*(1-xi)*xi^2*(7/90-(11/189)*xi);

                                        2 /       11 xi\
             V[3](xi) := -32 (1 - xi) xi  |7/90 - -----|
                                          \        189 /

# Die exakte Lsung fr alpha=1 ist im Bereich 0<xi<1/2 durch A(xi) und
# im Bereich 1/2<xi<1
# durch B(xi) gegeben:
> A(xi):=-(3-(11/3)*xi)*xi^2;

                                /    11 xi\   2
                      A(xi) := -|3 - -----| xi
                                \      3  /

> B(xi):=-(1-xi)*(1-(5/3)*(1-xi)^2);

                                    /              2\
                                    |    5 (1 - xi) |
                 B(xi) := -(1 - xi) |1 - -----------|
                                    \         3     /

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

> 
> 
