QXKX-全息K線(技術指標源碼)
{QXKX--全息K線//【2012年自編——全息股易K線圖】
2014年12月9日通過同花順測試,能通過容量接納,好!後試騐通達信亦能通過了。}
KX:DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
乾:1,COLORMAGENTA,NODRAW;兌:2,COLORWHITE,NODRAW;
離:3,COLORRED,NODRAW;震:4,COLORCYAN,NODRAW;
巽:5,COLORBLUE,NODRAW;坎:6,COLORGREEN,NODRAW;
艮:7,COLORBROWN,NODRAW;坤:8,COLORYELLOW,NODRAW;
M3:MA(C,3); M5:MA(C,5); M8:MA(C,8); M32:MA(C,32); M64:MA(C,64);
乾1:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORMAGENTA;
履:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIGREEN;
同人:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIGREEN;
無妄:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIGREEN;
媾:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
訟:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
遁:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
否:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
夬卦:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
兌2:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORWHITE;
革:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
隨:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
大過:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
睏:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
鹹:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
萃:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
大有:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
睽:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
離3:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORRED;
噬嗑:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
鼎:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
未濟:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
旅:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
晉:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
大壯:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
歸妹:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
豐:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
震4:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORCYAN;
恒:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
解:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIRED;
小過:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
豫:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)>=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
小畜:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
中孚:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
家人:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIGREEN;
益:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIGREEN;
巽5:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORBLUE;
渙:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
漸:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
觀:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
需:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
節:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
既濟:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
屯:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
井:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
坎6:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORGREEN;
蹇:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
比:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)>=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
大畜:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
損:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
賁:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
頤:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
蠱:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
矇:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
艮7:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORBROWN;
剝:STICKLINE(REF(C,5)>=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIGREEN;
泰:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
臨:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
明夷:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
複:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C>=O,C,O,3,0),COLORLIRED;
陞:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIRED;
師:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)>=REF(O,1) AND C<=O,C,O,3,0),COLORLIRED;
謙:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)>=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORLIRED;
坤8:STICKLINE(REF(C,5)<=REF(O,5) AND REF(C,4)<=REF(O,4) AND REF(C,3)<=REF(O,3)
AND REF(C,2)<=REF(O,2) AND REF(C,1)<=REF(O,1) AND C<=O,C,O,3,0),COLORYELLOW;
{TSXH-提示信號}
FU:STICKLINE(複,OPEN,CLOSE,1.0,0),COLORFF00FF;
DRAWTEXT(複,L*0.99,'複'),COLORMAGENTA;
GO:STICKLINE(媾,OPEN,CLOSE,1.0,0),COLORFF0000;
DRAWTEXT(媾,H*1.01,'媾'),COLORBLUE;
DRAWTEXT(兌2,L*0.99,'兌'),COLORWHITE;
DRAWTEXT(艮7,H*1.01,'艮'),COLORBROWN;
0條評論