Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > PureBasic

PureBasic Мощный кросс-платформенный язык среднего уровня на основе BASIC. Подходит для решения широкого круга задач.

Ответ
 
Опции темы
Старый 17.11.2013, 00:05   #1
Devilox
ПроЭктировщик
 
Аватар для Devilox
 
Регистрация: 14.01.2012
Адрес: Зеленоград
Сообщений: 192
Написано 5 полезных сообщений
(для 9 пользователей)
Слипание объектов

Я написал функцию, описывающую столкновение объектов по закону сохранения импульса. Если заставить объекты двигаться, используя её, то заметно их слипание при преодолении ими определённой скорости.
Это можно как-нибудь исправить?

ProcedureDLL.f dpUpdateCollisions()
  Protected num0.i
  
  For num0 = 0 To (num - 1)
    FindMapElement(Objects(),Str(num0))
    
    Protected numA.i = Objects()\num
    Protected xPosA.f = Objects()\xPos
    Protected yPosA.f = Objects()\yPos
    Protected zPosA.f = Objects()\zPos
    Protected s.f
    
    For numB = 0 To (num - 1)
      FindMapElement(Objects(),Str(numB))
    
      If Not numB = numA
        Protected xPosB.f = Objects()\xPos
        Protected yPosB.f = Objects()\yPos
        Protected zPosB.f = Objects()\zPos
      
        s = Sqr(Pow(xPosA - xPosB,2) + Pow(yPosA - yPosB,2) + Pow(zPosA - zPosB,2))
      
        If s <= 2         
          vxB.f = Objects()\xSp
          vyB.f = Objects()\ySp
          vzB.f = Objects()\zSp
          
          massB.f = Objects()\mass
          
          FindMapElement(Objects(),Str(numA))
          
          vxA.f = Objects()\xSp
          vyA.f = Objects()\ySp
          vzA.f = Objects()\zSp
          
          massA.f = Objects()\mass
          
          NEWvxA.f = ((massA - massB) * vxA + 2 * massB * vxB) / (massA + massB)
          NEWvyA.f = ((massA - massB) * vyA + 2 * massB * vyB) / (massA + massB)
          NEWvzA.f = ((massA - massB) * vzA + 2 * massB * vzB) / (massA + massB) 
          
          Objects()\xPos = Objects()\xPos - Objects()\xSp
          Objects()\yPos = Objects()\yPos - Objects()\ySp
          Objects()\zPos = Objects()\zPos - Objects()\zSp
          
          Objects()\xSp = NEWvxA
          Objects()\ySp = NEWvyA
          Objects()\zSp = NEWvzA      
        EndIf
      EndIf
    Next 
  Next
EndProcedure
P.S. Код ужасен, я знаю.

UPD. Проблема решена.
__________________

Последний раз редактировалось Devilox, 17.11.2013 в 22:58.
(Offline)
 
Ответить с цитированием
Старый 20.11.2013, 21:22   #2
Кирпи4
Социал-сычевист
 
Аватар для Кирпи4
 
Регистрация: 24.06.2011
Сообщений: 611
Написано 342 полезных сообщений
(для 1,359 пользователей)
Ответ: Слипание объектов

Раз проблема решена, будь добр, напиши решение, вдруг кому пригодится =)
__________________


(Offline)
 
Ответить с цитированием
Старый 21.11.2013, 18:46   #3
Devilox
ПроЭктировщик
 
Аватар для Devilox
 
Регистрация: 14.01.2012
Адрес: Зеленоград
Сообщений: 192
Написано 5 полезных сообщений
(для 9 пользователей)
Ответ: Слипание объектов

Да, точно) Вот только не знаю, правильно ли я решил эту проблему, однако всё работает)
ProcedureDLL.f dpUpdateCollisions()
  Protected num0.i
  
  For num0 = 0 To (num - 1)
    FindMapElement(Objects(),Str(num0))
    
    Protected numA.i = Objects()\num
    Protected xPosA.f = Objects()\xPos
    Protected yPosA.f = Objects()\yPos
    Protected zPosA.f = Objects()\zPos
    Protected s.f
    
    For numB = 0 To (num - 1)
      FindMapElement(Objects(),Str(numB))
    
      If Not numB = numA
        Protected xPosB.f = Objects()\xPos
        Protected yPosB.f = Objects()\yPos
        Protected zPosB.f = Objects()\zPos
      
        s = Sqr(Pow(xPosA - xPosB,2) + Pow(yPosA - yPosB,2) + Pow(zPosA - zPosB,2))
      
        If s <= 2         
          vxB.f = Objects()\xSp
          vyB.f = Objects()\ySp
          vzB.f = Objects()\zSp
          
          massB.f = Objects()\mass
          
          FindMapElement(Objects(),Str(numA))
          
          vxA.f = Objects()\xSp
          vyA.f = Objects()\ySp
          vzA.f = Objects()\zSp
          
          massA.f = Objects()\mass
          
          NEWvxA.f = ((massA - massB) * vxA + 2 * massB * vxB) / (massA + massB)
          NEWvyA.f = ((massA - massB) * vyA + 2 * massB * vyB) / (massA + massB)
          NEWvzA.f = ((massA - massB) * vzA + 2 * massB * vzB) / (massA + massB)       
          
          Objects()\xSp = NEWvxA
          Objects()\ySp = NEWvyA
          Objects()\zSp = NEWvzA  
          
          Objects()\xPos = Objects()\xPos + Objects()\xSp
          Objects()\yPos = Objects()\yPos + Objects()\ySp
          Objects()\zPos = Objects()\zPos + Objects()\zSp
          
          FindMapElement(Objects(),Str(numB))
          
          NEWvxB.f = ((massB - massA) * vxB + 2 * massA * vxA) / (massA + massB)
          NEWvyB.f = ((massB - massA) * vyB + 2 * massA * vyA) / (massA + massB)
          NEWvzB.f = ((massB - massA) * vzB + 2 * massA * vzA) / (massA + massB)       
          
          Objects()\xSp = NEWvxB
          Objects()\ySp = NEWvyB
          Objects()\zSp = NEWvzB
          
          Objects()\xPos = Objects()\xPos + Objects()\xSp
          Objects()\yPos = Objects()\yPos + Objects()\ySp
          Objects()\zPos = Objects()\zPos + Objects()\zSp
        EndIf
      EndIf
    Next 
  Next
EndProcedure
Скорость необходимо присваивать сразу обоим телам, а после - отодвигать их на расстояние, равное скорости.
__________________
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 12:53.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com