通达信翻倍金三角主图指标公式源码

所属板块:=STRCAT('【所属板块】：',STRCAT(STRCAT(' [行业]-',HYBLOCK),STRCAT(' [概念]-',GNBLOCK)));
风格板块:=STRCAT('【风格板块】：',STRCAT(STRCAT(' [地域]-',DYBLOCK),STRCAT(' [风格]-',FGBLOCK)));
总股本:=STRCAT(STRCAT(' 总股本:',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘:',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(STRCAT(' 流通比:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'％');
市值:=STRCAT(STRCAT(' 流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'亿');
股本市值:=STRCAT('【股本市值】：',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值));
市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2));
净资收益率:=STRCAT(' 净资收益率:',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
主营利润率:=STRCAT(' 主营利润率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('【当前业绩】：',STRCAT(STRCAT(市盈率,净资收益率),主营利润率));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所属板块),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR ,0.005,0.07,0,风格板块),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,股本市值),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.17,0,当前业绩),COLORRED;
龙虎榜:=GPJYVALUE(2,1,0)+GPJYVALUE(2,2,0);
STICKLINE(龙虎榜>0,L,LLV(L, 120)*1.08,0,-1)COLORLIGRAY;
DRAWICON(龙虎榜>0,LLV(L, 120)*1.1,49);
DRAWTEXT_FIX(ISLASTBAR,0.005,0.2,0,'指标调用专业财务数据, 建议下载专业财务数据'),COLORYELLOW;
ZT:=(CLOSE>=ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=3 OR FINANCE(3)=4,0.2,IF(FINANCE(3)=2,0.3,IF(INBLOCK('ST板块'), 0.05,0.1))))) AND C=H ;
STICKLINE(PERIOD=5 AND ZT,OPEN,CLOSE,3,0),COLORLIMAGENTA;
STICKLINE(PERIOD=5 AND ZT,OPEN,CLOSE,3,0),COLORLIMAGENTA;
STICKLINE(PERIOD=5 AND ZT,H,L,0,0),COLORLIMAGENTA;
VAR1:=REF(HIGH,3)=HHV(HIGH,2*3+1);
VAR2:=FILTER(VAR1,3);
VAR3:=BACKSET(VAR2,3+1);
VAR4:=FILTER(VAR3,3);
VAR5:=REF(LOW,3)=LLV(LOW,2*3+1);
VAR6:=FILTER(VAR5,3);
VAR7:=BACKSET(VAR6,3+1);
VAR8:=FILTER(VAR7,3);
VAR9:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
VAR10:=(HIGH+LOW)/2;
VAR11:=(VAR4 AND NOT(VAR8 AND VAR9>=VAR10)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
VAR12:=VAR4 AND NOT(VAR8 AND VAR9>=VAR10);
VAR13:=VAR8 AND NOT(VAR4 AND VAR9=VAR10);
VAR15:=REF(BARSLAST(VAR11),1)+1;
VAR16:=BACKSET(VAR11 AND COUNT(VAR13,VAR15)>0,LLVBARS(IF(VAR13,LOW,10000),VAR15));
VAR17:=VAR16>REF(VAR16,1);
VAR18:=BACKSET(VAR17,2);
VAR19:=VAR18>REF(VAR18,1);
VAR20:=VAR19 OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
VAR21:=REF(BARSLAST(VAR20),1)+1;
VAR22:=BACKSET(VAR20 AND COUNT(VAR12,VAR21)>0,HHVBARS(IF(VAR12,HIGH,0),VAR21));
VAR23:=VAR22>REF(VAR22,1);
VAR24:=BACKSET(VAR23,2);
VAR25:=VAR24>REF(VAR24,1);
VAR26:=BACKSET(ISLASTBAR,MIN(BARSLAST(VAR25),BARSLAST(VAR19))+1);
VAR27:=VAR26>REF(VAR26,1);
VAR29:=REF(H,REF(BARSLAST(VAR25),1)+1)>REF(H,REF(BARSLAST(VAR25),1)+2+REF(BARSLAST(VAR25),REF(BARSLAST(VAR25),1)+2));
VAR30:=H AND VAR29 AND VAR25;
VAR31:=BACKSET(VAR30,REF(BARSLAST(VAR25),1)+2);
HH:=VAR31>REF(VAR31,1);
VAR32:=L>REF(L,REF(BARSLAST(VAR19),1)+1);
VAR33:=REF(L,REF(BARSLAST(VAR19),1)+1);
D4:=VAR32 AND VAR33 AND VAR19;
E4:=BACKSET(D4,REF(BARSLAST(VAR19),1)+2);
LL:=E4>REF(E4,1);
H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1;
X3:=REF(BARSLAST(H3),1)+1;
F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
G3:=F3>REF(F3,1);
I3:=BACKSET(G3,2);
LZ:=I3>REF(I3,1);
L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
X4:=REF(BARSLAST(L4),1)+1;
F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
G4:=F4>REF(F4,1);
I4:=BACKSET(G4,2);
HZ:=I4>REF(I4,1);
K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1);
K2:=K1>REF(K1,1);
UU:=BACKSET(ISLASTBAR,BARSLAST(VAR19)+1);
X_:=UU>REF(UU,1);
WW:=BACKSET(X_,REF(BARSLAST(VAR19),1)+2);
XX:=WW>REF(WW,1);
UU2:=BACKSET(ISLASTBAR,BARSLAST(VAR25)+1);
X_2:=UU2>REF(UU2,1);
WW2:=BACKSET(X_2,REF(BARSLAST(VAR25),1)+2);
XVAR21:=WW2>REF(WW2,1);
前一低:=REF(L,BARSLAST(X_)),COLOR99FF66,LINETHICK2;
前二低:=REF(L,BARSLAST(XX)),COLORFF66FF,LINETHICK2;
前一高:=REF(H,BARSLAST(X_2)),COLOR99FF66,LINETHICK2;
前二高:=REF(H,BARSLAST(XVAR21)),COLORFF66FF,LINETHICK2;
短高:=REF(H,BARSLAST(X_2));
短低:=REF(L,BARSLAST(X_));
短比:=(C-短低)/(短高-短低),NODRAW;
底:REF(L,BARSLAST(X_)),COLORYELLOW,LINETHICK2;
顶:REF(H,BARSLAST(X_2)),COLORGREEN,LINETHICK2;
XG:=C>顶;
信号:=BARSLASTCOUNT(XG)=1;
DRAWICON(信号,L*0.98,34);
STICKLINE(X_,顶,底,0,0),COLORFF6633,LINETHICK3;
DRAWLINE(X_2,H,X_,L,0),COLORBLUE,LINETHICK3;
DRAWLINE(X_2,H,X_,顶,0),COLORFF6633,LINETHICK3;
DRAWTEXT(ISLASTBAR,顶,STRCAT((''),CON2STR(顶,2))),COLORGREEN;
DRAWTEXT(ISLASTBAR,底,STRCAT((''),CON2STR(底,2))),COLORRED;
STICKLINE(X_2 ,顶,底,0,0),COLORRED,LINETHICK3;
DRAWLINE(X_,L,X_2,H,0),COLORRED,LINETHICK3;
DRAWLINE(X_,L,X_2,底,0),COLORRED,LINETHICK3;