VB编程：甲、乙、丙三位预测已进入半决赛的四队A,B,C,D名次

这个不用穷举，自己也可以算出下图的结果。可以验证程序运行结果是否正确。

'在窗体上添加一个名为Command1按钮。

'具体代码如下。

'甲预测：A第一名，B第二名

'乙预测：C第一名，D第三名

'丙预测：D第二名，A第三名

'比赛结果，甲，乙，丙预测各对一半，试求A,B,C,D四队选手的名次

Dim Jia(4), Yi(4), Bing(4) As Integer

'从1到4分别表示A,B,C,D。每个元素保存的值,1即第一名，2即第二名，以此规律类推。'Jia(1)=1表示甲预测A第一名，Bing(4)=2表示丙预测D第二名

Private Sub Command1_Click()

          Dim i, j, k, t As Integer

          Dim str As String

          For i = 1 To 4

              For j = 1 To 4

                  For k = 1 To 4

                      If i <> j And i <> k And j <> k Then

                         If Jia(i) <> 0 And Yi(j) <> 0 And Bing(k) <> 0 Then

                            If Jia(i) <> Yi(j) And Jia(i) <> Bing(k) And Yi(j) <> Bing(k) Then

                               For t = 1 To 4

                                   If i <> t And j <> t And k <> t Then

                                      str = Chr(64 + t) & "第"

                                   End If

                               Next t

                               For t = 1 肆棚坦To 4

                                   If Jia(i) <> t And 裂桐Yi(j) <> t And Bing(k) <> t Then

                                      str = str & t

                                   End If

                               Next t

                               Print Chr(64 + i) & "第" & Jia(i) & "  " & Chr(64 + j) & "第" & Yi(j) & "  " & Chr(64 + k) & "第" & Bing(k) & "  " & str

                            End If

                         End If

                      End If

                  Next k

              Next j

          Next i

End Sub

Private Sub Form_Load()

 和竖         Dim i As Integer

          For i = 0 To 4  '数据初始化，全置空

              Jia(i) = 0

              Yi(i) = 0

              Bing(i) = 0

          Next i

          '将甲乙丙的预测保存起来

          Jia(1) = 1     'A第一名

          Jia(2) = 2     'B第二名

          Yi(3) = 1      'C第一名

          Yi(4) = 3      'D第三名

          Bing(4) = 2    'D第二名

          Bing(1) = 3    'A第三名

End Sub

关于Lyaponov指数与趋势项的问题

好长时间以前，好像是去年，我算序列最大Lyaponov指数的时候，发现一个问题：如果序列是有趋势的序列，或者说就是那种“不对称的序列”，往往Lyaponov指数的计算程序会失效，后来我用希尔伯特黄变换方法把序列的趋势项给去了，程序就能通过了，当时没想为什么，现在要写论文用了，得把这事想清楚：

为什么一个有趋势的序列通不过Lyaponov指数计算呢，或者问一个这样的问题：一般的混沌序列都有趋势项么？

我不是数学专业的，能想到的有限，那位牛人能分析一下？

http://www.chinavib.com/forum/thread-68576-1-1.html

指数平滑预测法 指数平滑预测法

指以某种指标的本期实际数和本期预测数为基础，引入一个简化的加权因子，即平滑系数，以求得平均数的一种指数平滑预测法。它是加权移动平均预测法的一种变化唤悄。平滑系数必须呈大于0、小于1，如0.1、0.4、0.6等。其计算公式为：下期预测数=本期实际数×平滑系数+本期预测数×（1-平滑系数）上列公式是从下列公式演变而成：

下期预测数=本期预测数+ 平滑系数（本期实际数- 本期预测数）这个公式的含义是：在本期预测数上加闷链誉上一部分用平滑系数调整过的本期实际数与本期预测数的差，就可求出下期预测数。一般说来，下期预测数常介乎本期实际数与本期预测数之间。平滑系数的大小，可根据过去的预测数与实际数比较而定。差额大，则平滑系数应取大一些；反之，则取小一些。平滑系数愈大，则近期倾向性变动影响愈大；反之，则近期的倾向性变动影响愈小，愈平滑。这种预测法简便易行，只要具备本期实际数、本期预测数和平滑系数三项资料，就可预测下期数。如蚂段某种产品销售量的平滑系数为0.4，1996年实际销售量为31万件，预测销售量为33万件。则1997年的预测销售量为：

1997年预测销售量= 31万件×0.4+33万件×（1-0.4）=32.2万件

http://baike.baidu.com/view/130144.htm

你是要求取系数吗？

---