Моделирование движения тела под действием силы тяжести

[AleSS]

"Воланчик на дереве. Человек хочет сбить воланчик. как надо кинуть камень в воланчик чтобы попасть?"
Помогите решить задачу нужно сдавать завтра! Очень нужна помощь
Вот как вычислить x,y:
Xval=Vo*cos(alfa)*t
Yval=Vo*sin(alfa)*t-0.5*g*t^2

[Vago]

1. На чём писать-то?

2. "...как надо кинуть камень". Ещё и оптимизацию какую-то делать, что-ли?!

3. На блок-схеме, в блоке ввода, alfa хорошо бы ввести. А вот fl там ни к чему. Его в следующем блоке просто FALSE (0) положить надо.

4. S - это текущее расстояние между камнем и воланом, а tp - расстояние, при котором волан считается сбитым? Ну и обозначения у вас, ребята...

[AleSS]

Сообщение от Vago

1. На чём писать-то?

2. "...как надо кинуть камень". Ещё и оптимизацию какую-то делать, что-ли?!

3. На блок-схеме, в блоке ввода, alfa хорошо бы ввести. А вот fl там ни к чему. Его в следующем блоке просто FALSE (0) положить надо.

4. S - это текущее расстояние между камнем и воланом, а tp - расстояние, при котором волан считается сбитым? Ну и обозначения у вас, ребята...

На паскале.
Ну как кинуть камень так в задании.. Под каким градусом.
alfa в тетради написано, этот листок дал тоже учитель.

[Vago]

Не. Паскаль - это не ко мне, извини. Удачи!

added. Тут, недалеко, физику 2D игр обсуждают. Может там кто поможет...

[AleSS]

Сообщение от Vago

Не. Паскаль - это не ко мне, извини. Удачи!

added. Тут, недалеко, физику 2D игр обсуждают. Может там кто поможет...

Спасибо что хотели помочь.
Может кто ещё знает? Помогите

[ОДИНОЧЕСТВО В СЕТИ]

что такое Sx,Sy,S? и как они вычисляются?

[Vago]

Sx, очевидно, - разность между x-й координатой воланчика и текущей x-й координатой камня. (xc-x) в обозначениях блок-схемы. Можно и по модулю сразу взять.
Sy - аналогично для оси Y.
S - расстояние между воланчиком и камнем.

added 19:57 CET
Господа полиглоты, выручите страдальца - переложите с Цэ на Паскаль.

#include <stdio.h>
#include <conio.h>
#include <math.h>

int main() {
   
   bool        fl;                 // true, ежели попали; false, если промахнулись
   double    alfaDeg,         // угол (к горизонту), под которым бросаем камень (град.)
                  alfaRad,          // то же (рад.)
                  s,                   // расстояние между камнем и воланчиком
                  sx,                 // насколько близко камень от волана по оси X
                  sy,                 // то же по оси Y
                  t,                   // время в полёте
                  v0,                 // начальная скорость камня (м/с)
/*               Координатная система:
                  OX - параллельно горизонту,
                  OY - естественно, вертикально вверх,
                  начало координат - в точке, где камень отрывается от ладони */
                  x, y,               // координаты камня в момент времени t
                  xV, yV;           // координаты волана
   const double   dt = 0.2,        // шаг квантования по времени (надо бы помельче!!)
                  g  = 9.81,             // вроде, в школах ещё учат, как это называется?...
                  PI = 2.*asin(1.),   // ...и это тоже
                  tp = 0.035;           // расстояние, пролетев от волана не дальше которого, камень его зацепит

   printf( "Gde zastryal volanchik (x y (m))? " ); scanf( "%lf%lf", &xV, &yV );
   printf( "S kakoy skorostyu (m/s) shvyryaem kamen'? " ); scanf( "%lf", &v0 );
   printf( "Pod kakim uglom? " ); scanf( "%lf", &alfaDeg );
   alfaRad = alfaDeg*PI/180.;

   printf( "Xv=%.2f Yv=%.2f V=%.2f alfa=%.2f\n", xV, yV, v0, alfaDeg );

   printf("  t     x      y       sx      sy      s\n");
   t = 0;
   do {
      fl = false;
      // Координаты камня
      x = v0*cos(alfaRad)*t;
      y = v0*sin(alfaRad)*t-0.5*g*t*t;
      sx = xV-x;       
      sy = yV-y;
      s = sqrt(sx*sx+sy*sy);  // Расстояние между камнем и воланчиком
      if (s <= tp) {          // Однако, ПОПАЛИ!
         fl = true;
//       break;               // Можно было бы и выйти тут же, но в блок-схеме этого нету.
      }
      printf( "%5.2f%7.3f%7.3f%8.3f%8.3f%8.3f\n", t, x, y, sx, sy, s );
      t += dt;
   } while (y >= 0 );  // продолжаем считать, пока камень - на высоте больше той, с которой был брошен

   printf( fl ? "Popal!" : "Ne popal :(" );
   printf( "\n" );

   return 0;

}

[AleSS]

[QUOTE=Vago;446737]Sx, очевидно, - разность между x-й координатой воланчика и текущей x-й координатой камня. (xc-x) в обозначениях блок-схемы. Можно и по модулю сразу взять.
Sy - аналогично для оси Y.
S - расстояние между воланчиком и камнем.

added 19:57 CET
Господа полиглоты, выручите страдальца - переложите с Цэ на Паскаль.


Спасибо!
Переведите на паскаль пожалуйста!

[IT-man]

Программа готова!Стучи в аську!отдам за 50 рублей

[ОДИНОЧЕСТВО В СЕТИ]

const dt=0.2;
       g=9.81;
       pi=3.14;
       tp=0.035;
 var u:real;
     s,sx,sy:real;
     t,v0,x,y:Real;
      xv,yv:Real;
      fl:Boolean;
begin
  Writeln('input xv,yv:');
  Readln(xv,yv);
  Writeln('input v0');
  Readln(v0);
  Writeln('input ugol');
  Readln(u);
  clrscr;
  Writeln('------------------------------------');
  Writeln('':4,'xv','':8,'yv','':6,'v0','':5,'u');
  Writeln('------------------------------------');
  Writeln(xv:8:2,yv:8:2,v0:8:2,u:8:2);
  Writeln('------------------------------------------------');
  Writeln('':4,'t','':8,'x','':8,'y','':5,'sx','':6,'sy','':6,'s');
  Writeln('------------------------------------------------');
  u:=u*pi/180;
  t:=0;
  repeat
    fl:=False;
    x:=v0*cos(u)*t;
    y:=v0*sin(u)*t-0.5*g*t*t;
    sx:=xv-x;
    sy:=yv-y;
    s:=Sqrt(Sqr(sx)+sqr(sy));
    if s<=tp then
    begin
      fl:=True;Break;
      Writeln(t:8:3,x:8:3,y:8:3,Abs(sx):8:3,Abs(sy):8:3,s:8:3);
      Writeln('------------------------------------------------');
    end;
    Writeln(t:8:3,x:8:3,y:8:3,Abs(sx):8:3,Abs(sy):8:3,s:8:3);
    Writeln('------------------------------------------------');
    t:=t+dt;
  until (y<0);
  if fl then writeln('Yes')
  else Writeln('no');
  Readln;
end.