> with(orthopoly):
> for i from 1 by 1to 10 do
> Nullstellen[i]:=solve(P(i,x)=0) od:
> for i in [1,2,3] do
> Nullstellen[i]:=solve(P(i,x)=0) od;
> Nullstellen[4]:=solve(P(4,x)=0):
> Nullstellen[4]:=vector([sqrt(525-70*sqrt(30))/35,
> sqrt(525+70*sqrt(30))/35]);
> Digits:=6:
> Nullstellen[4]:=fsolve(P(4,x)=0,x=0..1);
>  Nullstellen[5]:=solve(P(5,x)=0):
> Nullstellen[5]:=vector([0,sqrt(245-14*sqrt(70))/21,
> sqrt(245+14*sqrt(70))/21]);
> Nullstellen[5]:=fsolve(P(5,x)=0,x=0..1);
> for k in [6,7,8,9,10] do
> Nullstellen[k]:=fsolve(P(k,x)=0,x=0..1) od;
> 

                         Nullstellen[1] := 0


                                       1/2     1/2
                                      3       3
                    Nullstellen[2] := ----, - ----
                                       3       3


                                        1/2      1/2
                                      15       15
                 Nullstellen[3] := 0, -----, - -----
                                        5        5


                       [            1/2 1/2              1/2 1/2]
                       [(525 - 70 30   )     (525 + 70 30   )   ]
     Nullstellen[4] := [-------------------, -------------------]
                       [        35                   35         ]


                 Nullstellen[4] := 0.339981, 0.861136


                     [               1/2 1/2              1/2 1/2]
                     [   (245 - 14 70   )     (245 + 14 70   )   ]
   Nullstellen[5] := [0, -------------------, -------------------]
                     [           21                   21         ]


               Nullstellen[5] := 0., 0.538469, 0.906180


            Nullstellen[6] := 0.238619, 0.661209, 0.932470


          Nullstellen[7] := 0., 0.405845, 0.741531, 0.949108


       Nullstellen[8] := 0.183435, 0.525532, 0.796666, 0.960290


     Nullstellen[9] := 0., 0.324253, 0.613371, 0.836031, 0.968160


 Nullstellen[10] := 0.148874, 0.433395, 0.679410, 0.865063, 0.973907

> 
> 
