问题是,这不现实。
人的毛孔小约为0.02~0.05毫米,而根据气泡上的物理数据,大小与表面张力的关系式,根本无法达到清除毛孔所需要的作用力。如果要达到其深入毛孔的作用力,基本上等于需要激光机器一般的做功才行。
更别说到达毛孔,然后钻进去再破裂了。
如果按照一般我体验过的小气泡的那种程序,气泡碰撞皮肤后,就直接溜开了,而能达到皮肤破裂的,则是较大的气泡,根本不可能深入毛孔。
至于起来的时候残留在脸上的气泡,也会根据蒸发原理而破裂,而不是因深入毛孔挤压破裂。
所以所谓的小气泡洗脸,不过是一个伪科学。
当然,还有另外一种高压式的小气泡洗脸,这个确实是有效,但问题是其本质,是在破坏毛囊,如果产品合格,卫生条件好那还算运气好,如果卫生条件差一些,各种病变接踵而来。
另外,这还有一个严重的问题,就是他冲刷的时候不是对着毛孔的,而是整片皮肤的,而这种情况下,皮肤表面所受到的伤害远大于毛孔,所以一次下来,掉层皮很正常,当然皮肤抵挡病菌的能力就急剧下降。
所以许多人刚做出来的时候感觉效果很好,但很多人一旦再用化妆品或者时间一长,反而皮肤比以前更脆弱,更容易病变。
所以不要以为小气泡就是好的,只是他们说好的地方,没跟你说坏处而已。
由于百度提问有字数限制,换个帐号继续把刚才的发完If d <= 2 * r Then
If k <>l Then
vk = Sqr((dx(k) ^ 2 + dy(k) ^ 2))
vl = Sqr((dx(l) ^ 2 + dy(l) ^ 2))
sina = (yk - yl) / d
cosa = (xk - xl) / d
sinbk = dx(k) / vk
cosbk = dy(k) / vk
sinbl = dx(l) / vl
cosbl = dy(l) / vl
sin2a = 2 * sina * cosa
cos2a = cosa ^ 2 - sina ^ 2
sin2abk = sin2a * cosbk + sinbk * cos2a
cos2abk = cosbk * cos2a - sin2a * sinbk
sin2abl = sin2a * cosbl + sinbl * cos2a
cos2abl = cosbl * cos2a - sin2a * sinbl
dx(k) = vk * sin2abk
dy(k) = vk * cos2abk
dx(l) = vk * sin2abl
dy(l) = vk * cos2abl
End If
End If
Next
If Shape1(k).Top <0 Then’以下是避免小球超出屏幕,经验证,没有问题
dy(k) = -dy(k)
End If
If Shape1(k).Top >Me.Height - Shape1(k).Height - 900 Then
dy(k) = -dy(k)
End If
If Shape1(k).Left >Me.Width - Shape1(k).Width - 200 Then
dx(k) = -dx(k)
End If
If Shape1(k).Left <0 Then
dx(k) = -dx(k)
End If
Shape1(k).Top = Shape1(k).Top + dy(k)‘让小球移动
Shape1(k).Left = Shape1(k).Left + dx(k)
Next
End Sub
相撞时改变方向的公式是我自己算的,由于小球的半径都相同,不考虑质量,所以还算好算,应该是对的。问题在于运行的时候,好像所有的小球相互隔着好远就出现了碰撞才有的现象(速度方向改变),而且据我观察它们速度方向的改变是对的(就是说经观察如果它们真的撞上的话)。所以我怀疑是距离方面出了问题。求大神解答。
说明:a是公切线与竖直方向的夹角,bk,bl分别是两个小球原来的方向与竖直方向夹角,2abk就是2a+bk,2abl就是2a+bl,dx,dy是每个方向每次移动距离,vl,vk可以简单理解为速度,d是球心距
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)