主页 / 问题 / 1186415
Accepted
PakuPaku
Asked:2020-10-05 23:35:11 +0800 CST2020-10-05 23:35:11 +0800 CST

弹性二维碰撞

  • 772

我在 Game Maker 8 Pro 上工作，游戏制作者语言 (GML)。我需要物体碰撞，根据角度相互传递脉冲。你需要一个弹性碰撞。我在 Wikipedia 上找到了公式，这是它的原始来源https://williamecraver.wixsite.com/elastic-equations。同样在互联网上，我找到了公式http://new.math.uiuc.edu/math198/MA198-2013/dprorok2/FearTheSpherePPT.pdf的解释。必须马上说明，这个解释有一个错误，即θ角除以速度（vspeed / hspeed），如果hspeed = 0，则程序崩溃。因此，我只是使用了方向，并且我在寻找 fi 的解释。这是代码：

if place_meeting(x+hspeed, y+vspeed, oWall) direction-=180  //чтобы шары не улетали за комнату
if inst[4]!=0 inst[4]-=1          //для кулдауна
inst[1]=collision_circle(x+hspeed,y+vspeed,12,oball,false,true)  `находим уникальный id того, кого тараним`
if inst[1]!=noone and inst[4]=0  //если id существует и кулдаун прошел, то сталкиваемся, используя формулу
{
    fi=arctan((y-inst[1].y)/(x-inst[1].x))
    teta1=degtorad(direction)  //директион от 0 до 360, зависит от hspeed и vspeed (если кто не знаком с GML)
    teta2=degtorad(inst[1].direction)  //с помощью id можно найти переменные определённого объекта
    v1x=inst[1].speed*cos(teta2-fi)*cos(fi)+speed*sin(teta1-fi)*cos(fi+pi/2)
    v1y=inst[1].speed*cos(teta2-fi)*sin(fi)+speed*sin(teta1-fi)*sin(fi+pi/2)
    v2x=speed*cos(teta1-fi)*cos(fi)+inst[1].speed*sin(teta2-fi)*cos(fi+pi/2)
    v2y=speed*cos(teta1-fi)*sin(fi)+inst[1].speed*sin(teta2-fi)*sin(fi+pi/2)
    hspeed=v1x
    vspeed=v1y
    inst[1].hspeed=v2x
    inst[1].vspeed=v2y
    inst[4]=3
    inst[1].inst[4]=3
    inst[13]=0
    inst[1]=0
}
if mouse_check_button(mb_right) instance_destroy()

我简化了公式，因为质量是相同的。在一个地方，零带走了部分公式，除法也从公式中带走了因子 2。在 Create 事件中，创建了一个包含 20 件的 inst 数组（仅使用了少数）。inst[4] 是一个小的冷却时间，因此在碰撞后球有时间从下一次碰撞中逃脱。该公式无法正常工作，但并非总是如此。有时它会起作用，有时球会异常反弹。我的错误是什么？（如有必要，我可以甩掉 gmk）

2d

1 个回答

  1. Best Answer

    PS（十几天后）我找到了一个 GM8Pro 的脚本，它可以正常工作并且球可以正确反弹，就像在弹簧碰撞中一样。原则上，问题解决了，虽然我不清楚为什么我不能适应公式。我将代码留给可能正在寻找信息的人

    if place_meeting(x+hspeed, y+vspeed, oWall) direction-=180  //чтобы шары не улетали за комнату
if inst[4]!=0 inst[4]-=1          //для кулдауна
inst[1]=collision_circle(x+hspeed,y+vspeed,12,oball,false,true)  //находим уникальный id того, кого тараним
if inst[1]!=noone and inst[4]=0 //это сам написал. выталкивает шарик из шарика (раньше работало, но я немного нахимичил поэтому надо расстояние правильно поставить)
{
    inst[2]=hspeed
    inst[3]=vspeed
    inst[5]=point_direction(x,y,inst[1].x,inst[1].y)
    inst[6]=point_distance(x,y,inst[1].x,inst[1].y)
    inst[7]=inst[6]-24 //это расстояние между объектами. У меня шары одинаковые и у них радиус по 12.
    if inst[7]>0
    {
        speed=inst[7]
        direction=inst[5]
        x+=hspeed
        y+=vspeed
    }
    if inst[7]<0
    {
        speed=abs(inst[7])
        direction=inst[5]
        x-=hspeed
        y-=vspeed
    }
    hspeed=inst[2]
    vspeed=inst[3]
    B1=id //а здесь начинается скрипт, что я нашел на одном форуме. Чучуть подрихтовал его. Там его вроде оптимизировать неплохо можно, но мне лень ;)
    B2=inst[1]
    dx = B1.x-B2.x;
    dy = B1.y-B2.y;
    coll_ang = arctan2(dy, dx);
    sp1 = sqrt(B1.hspeed*B1.hspeed+B1.vspeed*B1.vspeed);
    sp2 = sqrt(B2.hspeed*B2.hspeed+B2.vspeed*B2.vspeed);
    dir1 = arctan2(B1.vspeed, B1.hspeed);
    dir2 = arctan2(B2.vspeed, B2.hspeed);
    xspeed_1 = sp1*cos(dir1-coll_ang);
    yspeed_1 = sp1*sin(dir1-coll_ang);
    xspeed_2 = sp2*cos(dir2-coll_ang);
    yspeed_2 = sp2*sin(dir2-coll_ang);
    fxspeed_1 = ((B1.m-B2.m)*xspeed_1+(B2.m+B2.m)*xspeed_2)/(B1.m+B2.m);
    fxspeed_2 = ((B1.m+B1.m)*xspeed_1+(B2.m-B1.m)*xspeed_2)/(B1.m+B2.m);
    fyspeed_1 = yspeed_1;
    fyspeed_2 = yspeed_2;
    B1.hspeed = cos(coll_ang)*fxspeed_1+cos(coll_ang+pi/2)*fyspeed_1;
    B1.vspeed = sin(coll_ang)*fxspeed_1+sin(coll_ang+pi/2)*fyspeed_1;
    B2.hspeed = cos(coll_ang)*fxspeed_2+cos(coll_ang+pi/2)*fyspeed_2;
    B2.vspeed = sin(coll_ang)*fxspeed_2+sin(coll_ang+pi/2)*fyspeed_2;
    inst[4]=4
    B2.inst[4]=4
}

    PPS 无需冷却。

    • 0

相关问题