[Maple OLE 2.0 Object]

Überblick

Schnittkreis und Tangentialebenen sind Inhalte der nachfolgenden zwei Prozeduren. Es werden die entsprechenden Ebenengleichungen, Koordinaten der Punkte und Radius des Schnittkreises berechnet und die Ergebnisse vor den 3D-Darstellungen ausgegeben.

Zur Handhabung der 3D-Darstellungen sei auf den Überblick des Worksheets Punkte, Geraden und Ebenen verwiesen.

Bei der Prozedur Kugel_Ebene3 erlaubt der letzte Parameter einen Einfluß auf die Größe der zu zeichnenden Ebenenausschnitte, siehe hierzu die entsprechende Beschreibung in der zugehörigen Hilfe.

Inhaltsverzeichnis

-----------------------

>

Bedienungserklärung

Tangentialebenen parallel zu einer gegebenen Ebene

Die Prozedur Kugel_Ebene2 erzeugt eine Kugel k(M,r) und Ausschnitte der Tangentialebenen parallel zu einer vorgegebenen Ebene E = (ABC) samt Gleichungen.

Eingabe der Kugel k und der Ebene E:

> M:=[2,5,-1]:r:=2:A:=[0,0,5]:B:=[-2,1,0]:C:=[0,1,3]:

> Kugel_Ebene2(M,r,A,B,C);

animierte 3D-Darstellung !

`Koordinaten der Berührpunkte:`

B1*[2+6/29*sqrt(29), 5-8/29*sqrt(29), -1-4/29*sqrt(...

B2*[2-6/29*sqrt(29), 5+8/29*sqrt(29), -1+4/29*sqrt(...

`Gleichungen der Tangentialebenen:`

3*x[1]-4*x[2]-2*x[3]+12-2*sqrt(29) = 0

3*x[1]-4*x[2]-2*x[3]+12+2*sqrt(29) = 0

`Radius des Schnittkreises:`

`r'` = 4/29*sqrt(7)*sqrt(29)

`Mittelpunkt des Schnittkreises:`

`M'`*[64/29, 137/29, -33/29]

[Maple Plot]

>

zurück zum Anfang

Tangentialebenen durch eine gegebene Gerade

Die Prozedur Kugel_Ebene3 erzeugt eine Kugel k(M,r) und die Tangentialebenen durch die Gerade g = (PQ) samt Gleichungen.

Eingabe der Kugel k und der Geraden g:

> M:=[1,2,0]:r:=3:P:=[5,2,1]:Q:=[6,2,-1]:

Größe der Ebenenausschnitte:

> z:=2:

> Kugel_Ebene3(M,r,P,Q,z);

animierte 3D-Darstellung !

`Koordinaten der Berührpunkte:`

B1*[3, 0, 1]

B2*[3, 4, 1]

`Gleichungen der Tangentialebenen:`

2/3*x[1]-2/3*x[2]+1/3*x[3]-7/3 = 0

-2/3*x[1]-2/3*x[2]-1/3*x[3]+5 = 0

[Maple Plot]

>

zurück zum Anfang

Literatur

>