HSQL程式教學--範例說明(程式技巧編1)

範例1.當15分鐘線之MACD指標(參數6,6,9)為多方走勢，且5分鐘線之MACD指標(參數6,6,9)出現黃金交叉時，
在K線下方顯示↑符號。

10　If　15分_MACD交叉狀態( 6 , 6 , 9 )　=　1　Then　
20　　If　5分_MACD交叉( 6 , 6 , 9 )　=　是　Then　
30　　　If　交叉類型　=　1　Then　
40　　　　Show [ K線下方 , ↑ ]　
50　　　End If　
60　　End If　
70　End If　

下載式檔1008.rda (請下載至Huntap資料匣內) 　

說明:
HSQL程式語言允許使用者在同一程式可同時運用多種不同時序K線函數，以上例而言，就同時使用5分鐘及15分鐘之函數。

範例2.在K線圖右方之資訊檔顯示「今日之漲跌點數」。

10　If　最後K線　=　是　Then　
20　　Va　=　5分_收盤價　-　前1_300分_收盤價　
30　　S1$　=　'昨差:'　+　Cstr( Va )　
40　　顯示資訊[ S1$ , 序號: 1 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 靠左 , 字型: 新細明體 ]　
50　End If　

下載式檔1009.rda (請下載至Huntap資料匣內) 　

說明:
行號10 只在最後一根K線進行處理。
行號20 「前1_300分_收盤價」代表昨日之收盤價，故5分_收盤價 - 前1_300分_收盤價為今日之漲跌點數。

範例3.找出「當天第1根收盤價<08:50K線收盤價」之K線執行放空，並且在13:45平倉。

10　If　目前部位( 倉位多空 )　>=　0　And　前1_5分_K線時間　>　850　And　5分_K線時間　<>　850　Then　
20　　For Va = 2 To 60 Step 1　
30　　　If　前Va_5分_K線時間　=　850　Then　
40　　　　Vb　=　前Va_5分_收盤價　
50　　　　Exit For　
60　　　End If　
70　　Next　
80　　
90　　If　前1_5分_收盤價　<　Vb　Then　
100　　　Vc　=　5分_開盤價　
110　　　操作訊號( 空單建倉 , 1口 , Vc )　
120　　　Show [ K線上方 , ↓ ]　
130　　End If　
140　ElseIf　5分_K線時間　=　1345　Then　
150　　Vc　=　5分_開盤價　
160　　If　目前部位( 倉位多空 )　<　0　Then　
170　　　操作訊號( 空單平倉 , 1口 , Vc )　
180　　End If　
190　End If　

下載式檔1010.rda (請下載至Huntap資料匣內) 　

說明:
行號10 若目前部位為空手(=0)或多單(>0)，並且K線時間>=09:00則執行行號20，否則執行行號140
行號20~70 找出當日08:50K線之收盤價，並且存於變數Vb
行號90 若前1_5分_收盤價　<　Vb(即08:50K線之收盤價)，則執行行號100；
　　　為何是以「前1_5分_收盤價」而非當根5分K線收盤價?因為我們必須確定K線已確定收完，所以以「前1_5分_收盤價」來判斷。
行號100~120 以目前K線之開盤價進行「空單建倉」，並且在 K線上方標示↓符號
行號140~180 若目前K線時間為13:45，則以目前K線之開盤價進行「空單平倉」動作

以下為程式實際執行畫面(其中白色圈圈為事後畫上)