【VB】两种不同的粒子系统模拟

0xAA55 · 发表于 2015-8-1 01:52:25

欢迎访问技术宅的结界，请注册或者登录吧。

您需要登录才可以下载或查看，没有账号？立即注册→加入我们

×

这两个实例的代码只是用来模拟粒子系统。2D的模拟通常可以轻松作为3D模拟的蓝本。此外，这样的例子模拟展示了一些简单的碰撞判断和力的计算方式。

其中一种是刚性的，就是粒子之间具有碰撞的效果，类似于我们现实生活中把大量玻璃球扔在地上的效果。
而另一种是柔性的，粒子之间进行排斥力计算，这个排斥力的大小取决于粒子核之间的距离（线性计算力的大小）。
这两种都不是采用的严谨的算法——其实都只是单纯地每一帧根据粒子自己的位置来计算力，而不会预判或者迭代计算。

都用了简单的碰撞检测。其中有个取得线与圆交点的函数并没有被使用——它太慢了。

实例1：刚性粒子模拟。可以看到粒子像鹅卵石一样，堆积在下面。

实例2：柔性粒子模拟。可以看到粒子在屏幕上飞来飞去，很难稳定下来。

实例中的粒子可以用鼠标点住并拖动。拖动时松开鼠标可以让粒子顺着鼠标轨迹飞出去。在第一个图上，那个大的粒子就被我拖住砸向右下角，把很多小的粒子轰飞了。
而第二个实例还有一种玩法就是把窗口拖得横向很长，而纵向高度只有那个大粒子的直径。可以看到模拟“滑膛枪”中发射弹丸的情况（脑补）

代码很简单，VB写的。
实例1的exe：

Particle.exe (24 KB, 下载次数: 20)
实例2的exe：

Particle.exe (24 KB, 下载次数: 23)

实例1源码：

游客，如果您要查看本帖隐藏内容请回复

实例2源码：

游客，如果您要查看本帖隐藏内容请回复

mzflz · 发表于 2015-8-1 17:26:09

学习一下，谢谢楼主

EHAAA · 发表于 2015-8-24 13:13:59

学习一下，谢谢楼主

0x01810 · 发表于 2015-11-22 22:59:33

学习一下，谢谢楼主

besteast · 发表于 2015-11-25 16:49:33

鬼玺 · 发表于 2015-12-9 23:44:24

这太有趣了...哈哈研究下~

账号已注销 · 发表于 2016-5-16 19:14:38

再来温习一下

best740 · 发表于 2017-2-23 19:45:49

感謝大大的分想正須要

0xAA55 · 发表于 2017-2-23 20:17:37

best740 发表于 2017-2-23 19:45
感謝大大的分想正須要

我现在都不好意思说这是我写的了！

NTFS--迷幻矩阵 · 发表于 2017-2-26 00:59:35

想看看第二种

tx7790 · 发表于 2017-2-27 12:35:25

学习下看看

冰不孤独 · 发表于 2017-3-23 10:02:13

楼主功夫了得

zbaigao · 发表于 2017-11-6 09:56:20

本帖最后由 zbaigao 于 2017-11-6 09:57 编辑

FPS很高呀，想知道楼主大大是怎么做到精确计时和刷新屏幕，并且可以获取鼠标的，用timer肯定办不到，获取鼠标从而拖动小球看上去也不是写一个Click可以办到的

鬼鬼今天又秀了 · 发表于 2019-9-10 16:50:04

学习一下，谢谢楼主

马云爱逛京东 · 发表于 2019-10-30 22:54:35

前来学习，感谢分享

hxin123456 · 发表于 2020-4-3 21:06:59

看看学习下

大vb · 发表于 2020-10-10 18:59:11

谢谢分享感谢啊最棒的

Xaio · 发表于 2020-10-13 17:13:06

: 【VB】两种不同的粒子系统模拟 [修改]

神梦无痕 · 发表于 2022-5-20 18:47:36

学习一下，谢谢楼主

二十六 · 发表于 2022-11-4 11:35:16

学习~

账号		自动登录	找回密码
密码			立即注册→加入我们

【VB】两种不同的粒子系统模拟

欢迎访问技术宅的结界，请注册或者登录吧。

本帖被以下淘专辑推荐:

相关帖子