突变现函数完整篇.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 = 2For 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 kEnd 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 = 2For 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 kEnd Sub以下是程序绘出的曲线簇我们发现它类似于脉冲现象的图谱。。然而这一切的决定因素当然是k的取值和自变量取值区间，无论k值趋足够小还是足够大时函数都会在某点发生非线性突变，使之我们基于此可以解释一些自然现象。。诸如瓦斯爆炸，闪电，脉冲，气化，和阶梯变化等等现象，那么我们一般性的恒态k值应该不是那个足够小的，同样也不是那个足够大的。。。我们如果试避开突变现象发生，则我们必须控制k值，同时控制自变量取值区间，那么我们抑或可以防止突变现象发生。当然如果我们试图触发突变现象，我们就使自变量趋于某点，同时控制k值