突变现象函数完整篇.docVIP

突变现象函数 函数特征： Y的最大值为A,同时存在一个小于A-C的极小值，在x 0或x 1时函数值为A-C 当k 1时 由于 上述函数可以改写为 令 解方程 利用autocad vba我们可以绘出函数簇的图形k∈ 1,7000 Sub绘制函数曲线 Dim ml As Object Dim k As Integer Dim co As Variant co 2 For k 1 To 7000 Step 2 Dim p 0 To 11021 As Double Dim i As Integer Dim j As Variant Dim a As Variant a 10021 For i 0 To 11021 Step 2 j i p j i / 10000 p j + 1 1 -p j ^ -p j ^ k Next i Set ml ThisDrawing.ModelSpace.AddLightWeightPolyline p If co 256 Then co 0 Else co co End If co co + 1 ml.color co Next k End Sub 以下是程序绘出的曲线簇 我们发现此函数簇存在最小值，同时曲线族存在共同切线y 1-x,同时在（0,0）点同样存在共同交点，这个交点当然是x无限趋近0时。当然我们必须规定或证明 通过函数簇，我们发现k 足够大时，函数曲线成成z形，在x 1附近发生突变，那么阶梯状的函数变化我们可以以单一自变量去描述。同时基于此我们认为一些自然现象抑或类似于函数所描述的一样，当变量趋于某个值时才发生状态突变从而打破原来的趋近与恒态。。。抑或我们可能由此发现突变现象的发生原理。而函数k值却决定突变现象发生时的坡度，同时决定函数的极小值得大小。 我们同样可以利用以下程序绘出 k∈ 1/7000,1 区段的函数簇 Sub绘制函数曲线 Dim ml As Object Dim k As Integer Dim co As Variant co 2 For k 1 To 7000 Step 2 Dim p 0 To 11021 As Double Dim i As Integer Dim j As Variant Dim a As Variant a 10021 For i 0 To 11021 Step 2 j i p j i / 10000 p j + 1 1 -p j ^ -p j ^（1/ k） Next i Set ml ThisDrawing.ModelSpace.AddLightWeightPolyline p If co 256 Then co 0 Else co co End If co co + 1 ml.color co Next k End Sub 以下是程序绘出的曲线簇 我们发现它类似于脉冲现象的图谱。。然而这一切的决定因素当然是k的取值和自变量取值区间，无论k值趋足够小还是足够大时函数都会在某点发生非线性突变，使之我们基于此可以解释一些自然现象。。诸如瓦斯爆炸，闪电，脉冲，气化，和阶梯变化等等现象，那么我们一般性的恒态k值应该不是那个足够小的，同样也不是那个足够大的。。。我们如果试避开突变现象发生，则我们必须控制k值，同时控制自变量取值区间，那么我们抑或可以防止突变现象发生。 当然如果我们试图触发突变现象，我们就使自变量趋于某点，同时控制k值