Аналитическая геометрия

Форум пользователей пакета Mathematica

Модератор: Admin

Passadobl
Сообщения: 1
Зарегистрирован: Вт мар 02, 2010 9:52 pm

Аналитическая геометрия

Сообщение Passadobl » Вт мар 02, 2010 10:01 pm

здравствуйте.подскажите,пожалуйста,новичку в работе с mathematica.
задача.которой равны по 10a, на ребре SC взята такая точка K, что SK:KC=1:4. Найти периметр сечения этой пирамиды плоскостью, параллельной ребру SB и медиане CM треугольника ABC через K. Визуализировать пирамиду и сечение.

как можно постороить пирамиду и сечение со сторонами,зависящими от параметра.
пока я делала так:

Код: Выделить всё

a1 = Graphics3D[
   Polygon[{{Times[5/3, Sqrt[3]], -5, 0}, {Times[5/3, Sqrt[3]], 5,
      0}, {Times[10/3, Sqrt[3]], 0, 0}}]];
a2 = Graphics3D[
   Polygon[{{0, 0, Times[10/3, Sqrt[6]]}, {Times[5/3, Sqrt[3]], -5,
      0}, {Times[5/3, Sqrt[3]], 5, 0}}]];
a3 = Graphics3D[
   Polygon[{{0, 0, Times[10/3, Sqrt[6]]}, {Times[5/3, Sqrt[3]], -5,
      0}, {Times[10/3, Sqrt[3]], 0, 0}}]];
a4 = Graphics3D[
   Polygon[{{0, 0, Times[10/3, Sqrt[6]]}, {Times[5/3, Sqrt[3]], 5,
      0}, {Times[10/3, Sqrt[3]], 0, 0}}]];
a5 =
 Show[a1, a2, a3, a4]

то есть,многоугольники по точкам,взяв a заведомо 1