智能化交易

ylk1600595559

智能化交易

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：ylk1600595559 浏览：5172 回复：3

不要笑嘎，我有一种设想。程序化交易，就是能不能让电脑自己来买卖。让电脑自己决定，如果说用程序找到各各级别的买卖点。然后加上一点人工判断，把人的贪婪、恐惧缩小。我现在只做了个提示系统，就是有买卖点的时候。电脑会告诉你是什么级别的买卖点，还会告诉你在中枢的上面，还是中枢的下面。如果加上人工的判断，昨天测试了一下。还是不错的。

ben5463

电脑提示人工筛选过滤，提示系统比自动操作系统更有价值，能否分享一下楼主的提示系统！！！哈哈，

ylk1600595559

用一个虚拟机，在里面装好软件。然后写代码，用autoit写代码。如下：
Func My($minutes)
       
        ;一买
        Local $coord2 = PixelSearch(971, 474, 997, 600, 0x00ff00)
        If Not @error Then
                If $minutes = 5 Then
                        SoundPlay(@windowsdir & "\media\my\minutes\5.wav", 1)
                Else
                        SoundPlay(@WindowsDir & "\media\my\minutes\30.wav", 1)
                EndIf
                SoundPlay(@WindowsDir & "\media\my\buy.wav", 1)
        EndIf
        ;中枢之上
        Local $coord3 = PixelSearch(971, 474, 997, 671, 0x0000FF)
        If Not @error Then
                If $minutes = 5 Then
                        SoundPlay(@WindowsDir & "\media\my\minutes\5.wav", 1)
                Else
                        SoundPlay(@WindowsDir & "\media\my\minutes\30.wav", 1)
                EndIf
                SoundPlay(@WindowsDir & "\media\my\up.wav", 1)
        EndIf

        ;一卖
        Local $coord4 = PixelSearch(971, 474, 997, 567, 0xFF0000)
        If Not @error Then
                If $minutes = 5 Then
                        SoundPlay(@WindowsDir & "\media\my\minutes\5.wav", 1)
                Else
                        SoundPlay(@WindowsDir & "\media\my\minutes\30.wav", 1)
                EndIf
                SoundPlay(@WindowsDir & "\media\my\sell.wav", 1)
        EndIf

        ;中枢之下
        Local $coord5 = PixelSearch(971, 474, 997, 671, 0x00CCFF)
        If Not @error Then
                If $minutes = 5 Then
                        SoundPlay(@WindowsDir & "\media\my\minutes\5.wav", 1)
                Else
                        SoundPlay(@WindowsDir & "\media\my\minutes\30.wav", 1)
                EndIf
                SoundPlay(@WindowsDir & "\media\my\down.wav", 1)
        EndIf
EndFunc   ;==>My

ben5463

谢谢。。。。