# Hyperbel als Hüllkurve

Mathematik in wxMaxima www.mathematik-verstehen.de Haftendorn Dez 2010

Reidt-Wolf 4  S. 82

load(draw)$

Konstruktionsbeschreibung:
A sei ein fester Punkt (R,0) auf der x-Achse.
C sei ein fester Punkt (0,c) auf der y-Achse. 
Q wandert auf dem Kreis um O durch A.
Welche Hüllkurve hat die Normalenschar auf CQ in Q?

kill(R,u);

v:sqrt(R^2-u^2);

g(x,u):=u/(c-v)*(x-u)+v;

diff(g(x,u),u,1);

xx:solve(diff(g(x,u),u,1)=0,x)[1];

fx(u):=rhs(xx);fx(u);

g(fx(u),u);

fy(u):=facsum(g(fx(u),u));fy(u);

Parameterdarstellung 

fx(u); fy(u);

load(draw)$

R:2; c:4;

ku:gr2d(line_width=3,parametric(x,0,x,-4,6),color=green,points_joined=true,
points([[0,c],[1,sqrt(R^2-1)],
[1-c+sqrt(R^2-1), -1+sqrt(R^2-1)],[1+2*c-2*sqrt(R^2-1), 2+sqrt(R^2-1)]
]) , grid=true, 
color=blue,parametric(R*cos(t),R*sin(t),t,0,2*%pi),
color=red,parametric(fx(u),-fy(u),u,-2,2),
parametric(fx(u),fy(u),u,-2,2),xrange=[-4,6],yrange=[-5,5])$

draw(ku)$

Versuch, die Hyperbel zu finden-

fxx:eliminate([x=fx(u),y=fy(u)],[u]);

Hat nicht funktioniert, u ist noch drin.

Mathematica macht das problemlos.

(fxx);

Der folgende Weg geht auch nicht, u bleibt auch drin

xxu:solve(diff(g(x,u),u,1)=0,u)[1];

ux:solve(xx,u);

Achtung auch nicht ordentlich aufgelöst!!!