Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 1 из 1
  • 1
Модератор форума: Peter, DEMBEL, YURIY  
Движение под углом к горизонту
wikslДата: Вт, 10 Декабря 2013, 11:21 | Сообщение # 1
Участник
Делаю программу моделирующую движение под углом к горизонту, не получается
Вот код:
SetVar "[x]" "0"
SetVar "[y]" "1"
SetVar "[ii]" "1"
cosh "[0,52]" "[cosA]"
sinh "[0,52]" "[sinA]"
SetVar "[x]" "48"
SetVar "[y0]" "360"
SetVar "[y]" "0"
SetVar "[v]" "2"
SetVar "[sh_perx_x]" "0,0005"
SetVar "[sh_perx_y]" "0,0005"

Loop "1" "30" "[Count]"
SetVar "[x]" "[x]+[v]*[Count]*[cosA]"
SetVar "[y]" "[y0]-([y]+[v]*[Count]*[sinA]-[Count]*[Count]*10/2)"
MoveObject "Picture1" "[x]" "[y]"
EndLoop

Может кто подскажет, что исправить, где не так


Вик
 
СообщениеДелаю программу моделирующую движение под углом к горизонту, не получается
Вот код:
SetVar "[x]" "0"
SetVar "[y]" "1"
SetVar "[ii]" "1"
cosh "[0,52]" "[cosA]"
sinh "[0,52]" "[sinA]"
SetVar "[x]" "48"
SetVar "[y0]" "360"
SetVar "[y]" "0"
SetVar "[v]" "2"
SetVar "[sh_perx_x]" "0,0005"
SetVar "[sh_perx_y]" "0,0005"

Loop "1" "30" "[Count]"
SetVar "[x]" "[x]+[v]*[Count]*[cosA]"
SetVar "[y]" "[y0]-([y]+[v]*[Count]*[sinA]-[Count]*[Count]*10/2)"
MoveObject "Picture1" "[x]" "[y]"
EndLoop

Может кто подскажет, что исправить, где не так

Автор - wiksl
Дата добавления - 10 Декабря 2013 в 11:21
PeterДата: Вт, 10 Декабря 2013, 19:03 | Сообщение # 2
Админ NeoBook
Долго пытался понять что вот это такое:
Цитата wiksl ()
cosh "[0,52]" "[cosA]"
sinh "[0,52]" "[sinA]"

или для чего вот это:

Цитата wiksl ()
SetVar "[sh_perx_x]" "0,0005"
SetVar "[sh_perx_y]" "0,0005

но, так и не смог, сдался....

Для вычислений по формулам, в NB существует специальная команда Math, кроме того, среди математических функций в NB имеются собственные функции Sin и Cos
Если какой-либо объект движется неправильно, или вообще не движется, значит просто ошибка в расчете координат.


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
СообщениеДолго пытался понять что вот это такое:
Цитата wiksl ()
cosh "[0,52]" "[cosA]"
sinh "[0,52]" "[sinA]"

или для чего вот это:

Цитата wiksl ()
SetVar "[sh_perx_x]" "0,0005"
SetVar "[sh_perx_y]" "0,0005

но, так и не смог, сдался....

Для вычислений по формулам, в NB существует специальная команда Math, кроме того, среди математических функций в NB имеются собственные функции Sin и Cos
Если какой-либо объект движется неправильно, или вообще не движется, значит просто ошибка в расчете координат.

Автор - Peter
Дата добавления - 10 Декабря 2013 в 19:03
СергейДата: Вт, 10 Декабря 2013, 19:48 | Сообщение # 3
Необукер
года 2-3 назад хотел сделать типа бильярда, потом отказался.
Исходник есно не нашел, но есть самый первый вариант, сохранился т.к. лежал в другом месте.
Делал его формуле, который нашел в сети:
Код

.скорость
SetVar "[v]" "10"
.угол
SetVar "[a]" "45"
.ускорение свободного падения
SetVar "[g]" "9,81"
.PI
SetVar "[PI]" "3.14159"
.--------------
Math "[v]*[v] * sin(2*[a]*[PI]/180)/[g]" "0" "[x]"
MoveObject "Ellipse1" "[x]" "36"

Точно помню, что это была отправная точка.
Все получилось, но вот как, не могу вспомнить, ссори
может поможет тебе....

Добавлено (10 Декабря 2013, 19:48)
---------------------------------------------
вот на js есть рабочий вариант.
Разбери формулу и партируй в НБ должно получится :)

Сообщение отредактировано
Сергей - Вт, 10 Декабря 2013, 19:46
 
Сообщениегода 2-3 назад хотел сделать типа бильярда, потом отказался.
Исходник есно не нашел, но есть самый первый вариант, сохранился т.к. лежал в другом месте.
Делал его формуле, который нашел в сети:
Код

.скорость
SetVar "[v]" "10"
.угол
SetVar "[a]" "45"
.ускорение свободного падения
SetVar "[g]" "9,81"
.PI
SetVar "[PI]" "3.14159"
.--------------
Math "[v]*[v] * sin(2*[a]*[PI]/180)/[g]" "0" "[x]"
MoveObject "Ellipse1" "[x]" "36"

Точно помню, что это была отправная точка.
Все получилось, но вот как, не могу вспомнить, ссори
может поможет тебе....

Добавлено (10 Декабря 2013, 19:48)
---------------------------------------------
вот на js есть рабочий вариант.
Разбери формулу и партируй в НБ должно получится :)


Автор - Сергей
Дата добавления - 10 Декабря 2013 в 19:48
PeterДата: Вт, 10 Декабря 2013, 19:56 | Сообщение # 4
Админ NeoBook
Цитата Сергей ()
хотел сделать типа бильярда, потом отказался

На сайте с самого его зарождения (ещё аж со времен mmbuilder) валяется простой пример "Прыгающая Луна", но почему-то никто не обращает внимания, а изобретает каждый раз велосипед.
:)


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Цитата Сергей ()
хотел сделать типа бильярда, потом отказался

На сайте с самого его зарождения (ещё аж со времен mmbuilder) валяется простой пример "Прыгающая Луна", но почему-то никто не обращает внимания, а изобретает каждый раз велосипед.
:)

Автор - Peter
Дата добавления - 10 Декабря 2013 в 19:56
СергейДата: Вт, 10 Декабря 2013, 20:25 | Сообщение # 5
Необукер


Сообщение отредактировано
Сергей - Вт, 10 Декабря 2013, 20:26
 
Сообщение

Автор - Сергей
Дата добавления - 10 Декабря 2013 в 20:25
PeterДата: Вт, 10 Декабря 2013, 22:34 | Сообщение # 6
Админ NeoBook


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение

Автор - Peter
Дата добавления - 10 Декабря 2013 в 22:34
wikslДата: Ср, 11 Декабря 2013, 12:27 | Сообщение # 7
Участник
Спасибо, все получилось, как я забыл про команду Math.

Вик
 
СообщениеСпасибо, все получилось, как я забыл про команду Math.

Автор - wiksl
Дата добавления - 11 Декабря 2013 в 12:27
  • Страница 1 из 1
  • 1
Поиск: