股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 通达信快乐金指主图指标公式源码


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2024-4-18 07:30:19

STICKLINE(L>REF(H,1) ,REF(H,1),L,9,-1),COLORFD00DF;
STICKLINE(H< REF(L,1) ,REF(L,1),H,9,-1),COLORFDFD00;
DRAWKLINE(H,O,L,C);
XA_1:=HIGH;
XA_2:=LOW;
XA_3:=REF(XA_1,10)=HHV(XA_1,2*10+1);
XA_4:=FILTER(XA_3,10);
XA_5:=BACKSET(XA_4,10+1);
XA_6:=FILTER(XA_5,10);
XA_7:=REF(XA_2,10)=LLV(XA_2,2*10+1);
XA_8:=FILTER(XA_7,10);
XA_9:=BACKSET(XA_8,10+1);
XA_10:=FILTER(XA_9,10);
前期高位:REF(HIGH,BARSLAST(XA_6)),POINTDOT,COLORRED;
STICKLINE(HIGH,前期高位,前期高位,8,0),COLORRED;
前期低位:REF(LOW,BARSLAST(XA_10)),POINTDOT,COLORGREEN;
STICKLINE(LOW,前期低位,前期低位,8,0),COLORGREEN;
DRAWNUMBER(FILTER(XA_5,10),HIGH,HIGH),LINETHICK9;
DRAWNUMBER(FILTER(XA_9,10),LOW,LOW);
选股1:crOSS(CLOSE,前期高位),NODRAW;
选股2:CLOSE>REF(前期低位,1) AND CROSS(REF(前期低位,1),LOW),NODRAW;
STICKLINE(选股1,OPEN,CLOSE,1,0),COLORYELLOW;
STICKLINE(选股1,HIGH,LOW,0,1),COLORYELLOW;
STICKLINE(选股2,OPEN,CLOSE,1,0),COLORYELLOW;
STICKLINE(选股2,HIGH,LOW,0,1),COLORYELLOW;
出场1:CLOSE< REF(前期高位,1) AND CROSS(HIGH,REF(前期高位,1)),NODRAW;
STICKLINE(出场1,OPEN,CLOSE,1,0),COLORBLUE;
出场2:CROSS(前期低位,CLOSE),NODRAW;
STICKLINE(出场2,OPEN,CLOSE,1,0),COLORBLUE;
XA_11:=(OPEN+CLOSE)/2;
XA_12:=REF(XA_11,1);
STICKLINE(ISLASTBAR,XA_12,XA_12,10,0),COLORWHITE;
DRAWNUMBER(ISLASTBAR,XA_12,XA_12);
XA_13:=REF(CLOSE,1);
XA_14:=REF(CLOSE,1)*1.1-CLOSE< 0.01 AND HIGH=CLOSE;
STICKLINE(XA_14,OPEN,CLOSE,1,0),COLORRED;
STICKLINE(XA_14,HIGH,LOW,0,0),COLORRED;
XA_15:=IF((XA_13-CLOSE)*100/XA_13>=10-0.01*100/XA_13 AND LOW=CLOSE,1,0);
STICKLINE(XA_15,OPEN,CLOSE,1,0),COLORGREEN;
STICKLINE(XA_15,HIGH,LOW,0,1),COLORGREEN;
MA3:=MA(CLOSE,25);
MA4:=MA(CLOSE,60);
箱底:=TROUGH(CLOSE,10,1)*1.02,COLOR008888,LINETHICK2;
价低箱底:=COUNT(L< 箱底,3);
底箱:=TROUGH(CLOSE,10,1)*1.05,COLOR008888,LINETHICK1;
DRAWTEXT(价低箱底>=1 AND 箱底< MA3 AND CROSS(C,底箱),L*0.999,'●杀入'),COLOR00CCCC;
DRAWTEXT(MA3>MA4 AND 价低箱底>=1 AND 箱底< MA3 AND CROSS(C,底箱),L*0.99,'●强杀入'),COLOR00CCCC;
A1:=REF(V,1);
A2:=Dvol;
A3:=A2/A1;
LNX:=A3-REF(A3,1),COLOR00CCCC,LINETHICK1;
E1:=REF(C,1);
E2:=DCLOSE;
E3:=(E2-E1)/E1*100;
QMX:=E3-REF(E3,1),COLOR00CCCC,LINETHICK2;
XG:=CROSS(LNX,500) AND CROSS(QMX,10);
DRAWTEXT(XG=1,L*0.985,'---金指'),COLORYELLOW;
DRAWICON(XG=1,L*0.99,11);
ZF:=Abs(100*(H-L)/REF(C,1))>3;
DIF:=EMA(CLOSE,8)-EMA(CLOSE,13);
DEA:=EMA(DIF,6);
macd:=2*(DIF-DEA);
金叉:=CROSS(DIF,DEA);
死叉:=CROSS(DEA,DIF);
DIF下拐:=REF(DIF,3)< REF(DIF,2)AND REF(DIF,2)< REF(DIF,1)AND REF(DIF,1)>DIF=REF(DIF,1);
MACD下拐:=REF(DIF,3)< REF(DIF,2)AND REF(MACD,2)< REF(MACD,1)AND REF(MACD,1)>MACD=REF(MACD,1);
下拐:=MAX(DIF下拐,MACD下拐);
GD1:=EVERY(DIF>REF(DIF,1),BARSLASTCOUNT(DIF>DEA))AND DIF>DEA;
GD2:=EVERY(MACD>REF(MACD,1),BARSLASTCOUNT(DIF>DEA))AND DIF>DEA;
GD:=MAX(GD1,GD2);
高点1:=REF(MAX(C,O),BARSLAST(GD1)+1);
高点2:=REF(MAX(C,O),BARSLAST(GD2)+1);
高点:=IF(高点2>=高点1,高点2,高点1);
AA:=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(高点)+1)=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(bbi>REF(BBI,1)AND C>BBI));
压力:DRAWLINE(BARSLAST(AA)=0,IF(C>O,C,MAX(C,O)),BARSNEXT(AA),REF(IF(C>O,C,MAX(C,O)),BARSLAST(AA)),1),DOTLINE,COLORYELLOW;
LD1:=EVERY(DIF< REF(DIF,1),BARSLASTCOUNT(DIF< DEA))AND DIF< DEA;
LD2:=EVERY(MACD< REF(MACD,1),BARSLASTCOUNT(DIF< DEA))AND DIF< DEA;
LD:=MIN(LD1,LD2);
低点1:=REF(MIN(C,O),BARSLAST(LD1)+1);
低点2:=REF(MIN(C,O),BARSLAST(LD2)+1);
低点:=IF(低点2<=低点1,低点1,低点2);
BB:=LLV(IF(C< O,C,MIN(C,O)),BARSLASTCOUNT(LD)+1)=LLV(IF(C< O,C,MIN(C,O)),BARSLASTCOUNT(DIF< REF(DIF,1) AND BBI< REF(BBI,1) AND L< BBI));
支撑:DRAWLINE(BARSLAST(BB)=0,IF(C< O,C,MIN(C,O)),BARSNEXT(BB),REF(IF(C< O,C,MIN(C,O)),BARSLAST(BB)),1),DOTLINE,COLORGREEN;
PP1:=BARSLAST(AA)=1;
YLX:=REF(MAX(C,O),BARSLAST(PP1)+1);
突破:CROSS(C,YLX),NODRAW,COLORWHITE;
STICKLINE(突破,C,O,2,0),COLORWHITE;
DIF突破:=REF(DIF,BARSLAST(PP1)+1);
有效突破:=突破 AND DIF>DIF突破;
STICKLINE(有效突破,C,O,2,0),COLORLIRED;
PP2:=BARSLAST(BB)=1;
ZCX:=REF(MIN(C,O),BARSLAST(PP2)+1);
破位:CROSS(ZCX,C),NODRAW,COLORLIGREEN;
STICKLINE(破位,C,O,2,0),COLORLIGREEN;
PP7:=BARSLAST(破位)=1;
破位k线:=REF(O,BARSLAST(PP7)+1);
突破破位:CROSS(C,破位K线),NODRAW,COLORLIMAGENTA;
STICKLINE(突破破位 AND C>O AND MACD>REF(MACD,1),C,O,2,0),COLORLIMAGENTA;
实体:=(C-O)/C=HHV((C-O)/C,15);
阳15:=C>O AND VOL>=HHV(VOL,15);
单阳:=(C>REF(C,1)*1.035 OR 实体)AND C>O AND (阳15 OR VOL>REF(VOL,1)*1.9),NODRAW,COLORYELLOW;
低不破价:=REF(O,BARSLAST(单阳));
单阳不破:=CURRBARSCOUNT< 100 AND BARSLAST(单阳)< 11 AND LLV(C,BARSLAST(单阳))>=低不破价;
DRAWTEXT(BARSLAST(单阳)=01 AND 单阳不破,低不破价,'[1]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=02 AND 单阳不破,低不破价,'[2]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=03 AND 单阳不破,低不破价,'[3]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=04 AND 单阳不破,低不破价,'[4]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=05 AND 单阳不破,低不破价,'[5]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=06 AND 单阳不破,低不破价,'[6]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=07 AND 单阳不破,低不破价,'[7]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=08 AND 单阳不破,低不破价,'[8]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=09 AND 单阳不破,低不破价,'[9]'),COLORLIGRAY;
DRAWTEXT(BARSLAST(单阳)=10 AND 单阳不破,低不破价,'[10]'),COLORLIGRAY;





回复

举报

QQ|

GMT+8, 2024-11-17 05:20

快速回复 返回顶部 返回列表