> x(1,eta):=-1/2*(1-eta)*eta+(1-eta^2)/sqrt(2);

                                                   2   1/2
                           (1 - eta) eta   (1 - eta ) 2
            x(1, eta) := - ------------- + ---------------
                                 2                2

> y(1,eta):=1/2*(1+eta)*eta+(1-eta^2)/sqrt(2);

                                                  2   1/2
                          (1 + eta) eta   (1 - eta ) 2
             y(1, eta) := ------------- + ---------------
                                2                2

> plot1:=plot([x(1,eta),y(1,eta),eta=-1..1],colour=black,scaling=constra
> ined,thickness=2):
> plot2:=plot(sqrt(1-x^2),x=0..1,colour=black,scaling=constrained,thickn
> ess=1):
> plots[display]({plot1,plot2});

> 
> 
