HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> HSQL語言討論區 >> 新程式的迷思
新程式的迷思
johnson333tw,2009-10-12 09:40:39
[SIZE=3]版主你好 我想寫一個以15分鐘K線基準為6與12的均線交叉為主要訊號 跟以日K線為主基準為5日與10日均線交叉 同步執行 15分鐘K線當兩條線交叉時顯現出買進賣出訊號跟聲音提示(為短線) 日K線也是如此 但日K線也是一條線當觸及到均線時 提出警告訊號跟聲音提示(為長線) 請版主能幫我擬一下程式 我會修改我想要顯現出的訊息 謝謝 版主幫忙我會感恩不盡!!!![EM14][/SIZE]
Hunta,2009-10-12 10:41:47
程式碼如下:
10 Va = 15分_均價( 6 )
20 Vb = 15分_均價( 12 )
30 Vc = 前1K線_Va
40 Vd = 前1K線_Vb
50 直線[ ( 0 , Va ) - (-1 , Vc ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65535 ]
60 直線[ ( 0 , Vb ) - (-1 , Vd ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 16776960 ]
70 顯示橫排資訊[ 主畫面 , #0 , 名稱: 短線MA6 , X軸: 2000 , Va , 顏色: 65535 ]
80 顯示橫排資訊[ 主畫面 , #1 , 名稱: 短線MA12 , X軸: 4000 , Vb , 顏色: 16776960 ]
90 If 15分_均線交叉( 6 , 12 ) = 是 Then
100 If 交叉類型 = 1 Then
110 Show [ K線下方 , ↑ ]
120 Else
130 Show [ K線上方 , ↓ ]
140 End If
150 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
160 播放聲音( ALARM.WAV )
170 單K計數器( 目前K線 , 0 ) = 1
180 End If
190 End If
200
210 Ve = 300分_均價( 5 )
220 Vf = 300分_均價( 10 )
230 Vg = 前1K線_Ve
240 Vh = 前1K線_Vf
250 直線[ ( 0 , Ve ) - (-1 , Vg ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 16777215 ]
260 直線[ ( 0 , Vf ) - (-1 , Vh ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
270 顯示橫排資訊[ 主畫面 , #2 , 名稱: 長線MA5 , X軸: 6000 , Ve , 顏色: 16777215 ]
280 顯示橫排資訊[ 主畫面 , #3 , 名稱: 長線MA10 , X軸: 8000 , Vf , 顏色: 65280 ]
290 If 300分_均線交叉( 5 , 10 ) = 是 Then
300 If 交叉類型 = 1 Then
310 Show [ K線下方 , ▲ ]
320 Else
330 Show [ K線上方 , ▼ ]
340 End If
350 If 最後K線 = 是 And 單K計數器( 目前K線 , 1 ) = 0 Then
360 播放聲音( WAV505.WAV )
370 單K計數器( 目前K線 , 1 ) = 1
380 End If
390 End If
下載程式碼 [URL=http://www.huntasoft.com/hsp/0082.rda]http://www.huntasoft.com/hsp/0082.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/1012-1.jpg[/IMGA]
※圖中黃色均線為15分MA6,藍色均線為15分MA12,白色均線為日線MA5,綠色均線為日線MA10。
97 1 8: 此主題共有2帖 此頁2帖 每頁12帖
[查看完整模式] LeadBBS 5.0 耗時62.5毫秒 請求2次
|