Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.maple > #881

Re: Reducing or Simplifying sqrt(2)

Show all headers | View raw

"Thomas D. Dean" <tomdean@speakeasy.org> writes:

> with(geometry);
> _EnvHorizontalName:=x;
> _EnvVerticalName:=y;
> point(P1,[1,1]); ## point on the directrix
> point(V1,[2,2]); ## vertex
> point(P2,[3,3]); ## focus
> ## since the vertex is at V1, and the line of symmetry passes through
> ## the vertex,
> line(L,[P1,V1]); ## line os symmetry
> detail(L);
> PerpendicularLine(Lp,P1,L); ## directrix
> detail(Lp);
> distance(P2,V1);
> parabola(P,['vertex'=V1,'focus'=P2]);
> detail(P);
> ## the equation has sqrt(2) in every term
> eq:=Equation(directrix(P)); ## get the equation of the directrix
> expand(eq*sqrt(2));    ## This is what I want

Hmm.  Not sure.  You could do

(**) eliminate([eq],[x,y]);
                                     [{x = -y + 2, y = y}, {}]

(**) (lhs-rhs)(op(remove(evalb,%[1])));
                                            -2 + x + y


-- 
Joe Riel

Back to comp.soft-sys.math.maple | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Reducing or Simplifying sqrt(2) "Thomas D. Dean" <tomdean@speakeasy.org> - 2014-05-31 20:38 -0700
  Re: Reducing or Simplifying sqrt(2) Joe Riel <joer@san.rr.com> - 2014-05-31 21:20 -0700
  Re: Reducing or Simplifying sqrt(2) acer <maple@rogers.com> - 2014-06-01 17:53 -0700
    Re: Reducing or Simplifying sqrt(2) Axel Vogt <&noreply@axelvogt.de> - 2014-06-03 22:21 +0200
      Re: Reducing or Simplifying sqrt(2) Joe Riel <joer@san.rr.com> - 2014-06-03 15:44 -0700

csiph-web