Задача: Центр тяжести Опции

[ipu]

Помогите с задачей: Центр тяжести. Система из n материальных точек в пространстве задана с помощью последовательности действительных чисел x1, y1, z1, p1,; x2, y2, z2, p2 … xn, yn, zn, pn. Где xi, yi, zi – координаты i-точки, pi-ее вес. (i =1,2…n). Получить координаты центра тяжести системы. Проверить правильность результата, определив суммарный момент вращения.
Заранее спасибо, особенно интересует суммарный момент вращения

[volvo]

Координаты центра тяжести в системе материальных точек:

Если координаты и масса точек заданы так:

Код

Var
 x, y, z: Array[1 .. n] Of Real;
 p: Array[1 .. n] Of Real;

то координаты центра тяжести вычисляются:

Код

sx := 0; sy := 0; sz := 0; sm := 0;
for i := 1 to n Do
 Begin
   sx := sx + x[i]*p[i];
   sy := sy + y[i]*p[i];
   sz := sz + z[i]*p[i];
   sm := sm + p[i];
 End;

{ Сам центр тяжести: }
centerX := sx/sm;
centerY := sy/sm;
centerZ := sz/sm;

... а дальше - просто переносишь начало координат в центр тяжести, и проверяешь, равна ли нулю сумма всех произведений вектора расстояния от центра до каждой точки на скаляр массы в этой точке.

Сообщение отредактировано: volvo - 23.10.2004 7:19