VBA:Падение шарика и сила упругости - Microsoft Office Excel

kvadratnt · 27.05.2009, 11:09

Помогите пожалуйста доделать падение шарика по вертикали с учётом силы упругости. http://dump.ru/file/2735716. Запутался с формулами.

pivas · 27.05.2009, 11:16

Очень красиво прыгают!

doober · 27.05.2009, 13:14

Цитата:

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

Очень красиво прыгают!

И все в соответсвии с Законом сохранения импульса и вторым законом Ньютона

kvadratnt · 27.05.2009, 14:35

Цитата:

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

Очень красиво прыгают!

Мне тоже нравиться

Цитата:

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

И все в соответсвии с Законом сохранения импульса и вторым законом Ньютона

"Реализовать движение шарика в прямоугольной области по оси ординат (подкидывание шарика вверх и подбрасывание вниз) под действием силы тяжести" Вот более подробная формулировка задания. Можешь посоветовать что-нибудь?

doober · 29.05.2009, 02:01

Я сегодня только открыл документ.Я так понял он должен в конечном итоге успокоиться.какие есть исходные данные или условия.

doober · 29.05.2009, 18:23

А так как удар абсолютно упругий,потерь нет то угол отражения равен углу падения

Здесь рисунок
потом h=Н(окна )*Sin(2*п *N *t+A(0))
N вычисленнаячастота
A(0) -начальный угол

h - вертикальная координата положения шарика в зависимости от времени

Alex Pancho · 31.05.2009, 11:42

А у меня ничего не работает...
ругается тут:

Код:

Shapes(1).Name = "box": Shapes(2).Name = "ball": Shapes(5).Name = "Oval_5"

Run time eror Permision denided

pivas · 31.05.2009, 11:45

Попробуйте заменить Shapes(5) на Shapes(3)

Alex Pancho · 31.05.2009, 11:48

Странно, заработало, после того как я перерисовал Овал 5

27.05.2009, 11:09	#1
kvadratnt Регистрация: 26.05.2009 Сообщений: 3	VBA:Падение шарика и сила упругости Помогите пожалуйста доделать падение шарика по вертикали с учётом силы упругости. http://dump.ru/file/2735716. Запутался с формулами.

29.05.2009, 02:01	#5
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Я сегодня только открыл документ.Я так понял он должен в конечном итоге успокоиться.какие есть исходные данные или условия. Анализ,обработка данных Недорого

29.05.2009, 18:23	#6
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	А так как удар абсолютно упругий,потерь нет то угол отражения равен углу падения Здесь рисунок потом h=Н(окна )Sin(2п N t+A(0)) N вычисленнаячастота A(0) -начальный угол h - вертикальная координата положения шарика в зависимости от времени Анализ,обработка данных Недорого

31.05.2009, 11:42	#7
Alex Pancho Новичок Джуниор Регистрация: 30.05.2009 Сообщений: 5	А у меня ничего не работает... ругается тут: Код: `Shapes(1).Name = "box": Shapes(2).Name = "ball": Shapes(5).Name = "Oval_5"` Run time eror Permision denided

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Движение шарика в С#	mak-mar	Общие вопросы .NET	7	13.05.2009 17:59
Падение быстродействия в макросе	skif93	Microsoft Office Excel	8	12.04.2009 14:49
Speed drop падение скорости	Ivn	Софт	1	12.02.2009 07:17
Ударение шарика об край стола	Rusl92	Паскаль, Turbo Pascal, PascalABC.NET	1	26.09.2008 22:30
Ошибка и падение (выход) Excel при выполнении сложной программы на VBA	Serge_Bliznykov	Microsoft Office Excel	6	13.08.2008 16:50

27.05.2009, 11:16	#2
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Очень красиво прыгают!

31.05.2009, 11:45	#8
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Попробуйте заменить Shapes(5) на Shapes(3)

31.05.2009, 11:48	#9
Alex Pancho Новичок Джуниор Регистрация: 30.05.2009 Сообщений: 5	Странно, заработало, после того как я перерисовал Овал 5