Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Новые рефераты » Розрахунок початкових координат об'єктів Raketa і Sputuik

Реферат Розрахунок початкових координат об'єктів Raketa і Sputuik





розташування об'єкта Sputnik в радіанах і величини зміни кута da1 при переміщенні об'єкта Sputnik за 1 цикл


vx=5: vy=0


початкове значення компонент вектора швидкості об'єкта Sputnik


do $=u10 m +59,10 m - 50,10 u10 br5


макет малюнка об'єкта Sputnik


r=100


константа для обчислення контрольної точки контакту об'єктів


sr=0


прапор, що приймає значення 1 при наявності контакту DO

початок циклу руху об'єктів


t=t + dt


лічильник часу


i=i + 1


лічильник циклу


angl=da1 * i


розрахунок кута повороту об'єкта Sputnik


x1=- 600 * sin (ang1)=600 * cos (ang1)


розрахунок нових координат об'єкту Sputnik


vy=5 * sin (ang1)

vx=- 5 * cos (ang1)


розрахунок поточних значень вектора швидкості об'єкта Sputnik


CALL comm (x1, y1, t, dt, i, vx, vy, ang1 $)


розрахунок координат об'єкту Sputnik


CALL comm (vs, da, v, ar, com $)


визначення команди на переміщення об'єкта Raketa (змінної com $ присвоюється символ натиснутою клавіші)


CALL coord (v, ar, dt, x, y)


розрахунок нових координат об'єкту Raketa

CALL angle (ar, ang $)


розрахунок кута розвороту об'єкта Raketa

CALL ракета (d $, x, y, ang $, ar, xc, yc, r, st)


переміщення малюнка об'єкта Raketa

IF com $=s OR st> 0 THEN EXIT DO


закінчення роботи програми (вихід з циклу DO-LOOP) здійснюється по одному з двох умов: або натиснута клавіша s, або st=1 (що означає наявність контакту)


CALL contact (xc, yc, st, x1, y1)


обчислення умов контакту шляхом порівняння координат контрольної точки (хс, ус) об'єкта Raketa і координат початкової точки малювання (xl, yl) об'єкта Sputnik


LOOP

кінець циклу руху об'єктів

END


SUB angle (ar, ang $)

перерахунок кута в радіанах аr в кут в градусах ang $, необхідний оператором DRAW


pi=3.1415


число?


ad=INT (ar * 180 / pi)


кут в градусах в числовій формі


ad $=$ (ad)


кут в градусах в символьній формі


IF ad>=0 THEN adS=«+» + LTRIM $ (RAK $ (ad))


при позитивному куті символ «+» буде відсутня, а він потрібен у рядку оператора DRAW, тому він додається


Назад | сторінка 2 з 5 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Розрахунок забруднення водного об'єкта і атмосферного повітря. Вибухон ...
  • Реферат на тему: Поняття об'єкта і суб'єкта в управлінні соціальною роботою
  • Реферат на тему: Вивчення життєвого циклу працівника як об'єкта управління
  • Реферат на тему: Розрахунок кошторису запроектованого об'єкта
  • Реферат на тему: Розрахунок вартості об'єкта нерухомості