通达信一线天发一个自用多年的！未加密选股指标公式源码

JJ:=(H+L+3*C)/5;
VAR021:=Ema(JJ,5);VAR022:=ema(JJ,13);VAR023:=EMA(JJ,21);VAR024:=EMA(JJ,34);H1A:=(VAR021+VAR022+VAR023+VAR024)/4;
成本和谐:MA(H1A,5),COLORRED,LINETHICK1;
IF(成本和谐>REF(成本和谐,1),成本和谐,DRAWNULL),COLORWHITE,LINETHICK3;
IF(成本和谐<REF(成本和谐,1),成本和谐,DRAWNULL),COLORCYAN,LINETHICK3;

{ZF:=(EMA(SUM(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)),3),49) * 10)+EMA(C,20);
★强势线★:IF(PERIOD!=0 ,EMA(ZF,34),DRAWNULL),LINETHICK2,COLOR00FFFF;
IF(★强势线★>REF(★强势线★,1),★强势线★,DRAWNULL),COLORFF00FF,LINETHICK2;
MA120:MA(C,120),DOTLINE,COLORRED;}

N:=30;
T1:=CONST(HHVBARS(V,N));
T0:IF(CURRBARSCOUNT<=N+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),LINETHICK3,COLORBLUE;
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT;
DRAWTEXT(ISLASTBAR,T0,' 量能平台');
N5:=10;
T011:=CONST(LLVBARS(LOW,N5));
T11HIGH:=CONST(REF(HIGH,T011));
CC01:=CONST(CURRBARSCOUNT);
T12:=CONST(BArslAST((CURRBARSCOUNT >(CC01+T011)) AND (HIGH>T11HIGH)));
T12HIGH:=CONST(REF(HIGH,T12));
T13:=CONST(BARSLAST((CURRBARSCOUNT >(CC01+T12)) AND (HIGH>T12HIGH)));
T13HIGH:=CONST(REF(HIGH,T13));
洗盘杀入线:DRAWLINE(CURRBARSCOUNT=T13+1, T13HIGH, ISLASTBAR, T13HIGH, 1),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR, T13HIGH, '洗盘杀入线')LINETHICK2,COLORRED;

VARA1:=IF(CLOSE>150,91.3,0.913);
箱体下沿:INTPART(CLOSE/VARA1 )*VARA1,POINTDOT,LINETHICK4,COLORCYAN;
箱体上沿:箱体下沿+VARA1,POINTDOT,LINETHICK4,COLORBLUE ;
箱体中线: (箱体下沿+箱体上沿)/2,POINTDOT,COLORRED,LINETHICK3;

N2:=75;P:=5;P01:=10;
{N2为多少天内的高低值参数，我以自已的初始k线根数定义。P1、P2为短、长支撑压力取点参数}
A11:=REF(H,P)=HHV(H,2*P+1);
B11:=FILTER(A11,P);
C11:=BacKSET(B11,P+1);
D1:=FILTER(C11,P);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
F1:=E1>REF(E1,1);
短压:DRAWLINE(D1,H,F1,H,1),COLORGREEN;
A22:=REF(L,P)=LLV(L,2*P+1);
B22:=FILTER(A22,P);
C22:=BACKSET(B22,P+1);
D2:=FILTER(C22,P);
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
F2:=E2>REF(E2,1);
短支:DRAWLINE(D2,L,F2,L,1),COLORLICYAN;
AA1:=REF(H,P01)=HHV(H,2*P01+1);
BB1:=FILTER(AA1,P01);
CC1:=BACKSET(BB1,P01+1);
DD1:=FILTER(CC1,P01);
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
FF1:=EE1>REF(EE1,1);
长压:DRAWLINE(DD1,H,FF1,H,1),COLORCYAN;
AA2:=REF(L,P01)=LLV(L,2*P01+1);
BB2:=FILTER(AA2,P01);
CC2:=BACKSET(BB2,P01+1);
DD2:=FILTER(CC2,P01);
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
FF2:=EE2>REF(EE2,1);
长支:DRAWLINE(DD2,L,FF2,L,1),COLORWHITE;

DRAWTEXT_FIX(1,0.00,0,0,HYBLOCK)COLOR0080FF;
DRAWTEXT_FIX(1,0.14,0,0,DYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.06,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.12,0,EXTERNSTR(0,2))COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.18,0,EXTERNSTR(0,3))COLORFF88FF;
DRAWTEXT_FIX(1,0.00,0.24,0,EXTERNSTR(0,5)),COLORGREEN;
{新增证监会行业}
DRAWTEXT_FIX(1,0.00,0.30,0,EXTERNSTR(0,6)),COLOR0080FF;

涨停:=IF(REF(C,1)*1.095-C<0.01 ,1,0);
STICKLINE(涨停,OPEN,CLOSE,4,0),COLORWHITE;
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORWHITE;
DRAWTEXT(涨停,L-0.1,'涨停'),COLORBLUE;

C3:=REF(C,1);
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(跌停,OPEN,CLOSE,4,0),COLORYELLOW;
STICKLINE(跌停,OPEN,CLOSE,3,0),COLORCYAN;
DRAWTEXT(跌停,H+0.3,'跌停'),COLORCYAN;

DRAWICON(crOSS(zig(3,10) ,REF(ZIG(3 ,10),1)) ,LOW*0.98,1);

DRAWICON(CROSS(REF(ZIG(3,10),1),ZIG(3,10)) ,HIGH*1.02,2);

DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,'买') , COLORWHITE,LINETHICK1;

DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.008,'卖') , COLORCYAN,LINETHICK1;

未来函数检测公式代码域:

JJ:=(H+L+3*C)/5;VLR021:=Ema(JJ,5);VLR022:=ema(JJ,13);VLR023:=EML(JJ,21);VLR024:=EML(JJ,34);H1L:=(VLR021+VLR022+VLR023+VLR024)/4;成本和谐:ML(H1L,5),COLORRED,LINETHICK1;IF(成本和谐>REF(成本和谐,1),成本和谐,DRLWNULL),COLORWHITE,LINETHICK3;IF(成本和谐<REF(成本和谐,1),成本和谐,DRLWNULL),COLORCYLN,LINETHICK3;{ZF:=(EML(SUM(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)),3),49) * 10)+EML(C,20);★强势线★:IF(PERIOD!=0 ,EML(ZF,34),DRLWNULL),LINETHICK2,COLOR00FFFF;IF(★强势线★>REF(★强势线★,1),★强势线★,DRLWNULL),COLORFF00FF,LINETHICK2;ML120:ML(C,120),DOTLINE,COLORRED;}N:=30;T1:=CONST(HHVBLRS(V,N));T0:IF(CURRBLRSCOUNT<=N+7,CONST(IF(T1=0,C,REF(C,T1))),DRLWNULL),LINETHICK3,COLORBLUE; IF(CURRBLRSCOUNT=T1+1,T0,DRLWNULL),CIRCLEDOT;DRLWTEXT(ISLLSTBLR,T0,' 量能平台');N5:=10;T011:=CONST(LLVBLRS(LOW,N5));T11HIGH:=CONST(REF(HIGH,T011));CC01:=CONST(CURRBLRSCOUNT);T12:=CONST(BLrslLST((CURRBLRSCOUNT >(CC01+T011)) LND (HIGH>T11HIGH)));T12HIGH:=CONST(REF(HIGH,T12));T13:=CONST(BLRSLLST((CURRBLRSCOUNT >(CC01+T12)) LND (HIGH>T12HIGH)));T13HIGH:=CONST(REF(HIGH,T13));洗盘杀入线:DRLWLINE(CURRBLRSCOUNT=T13+1, T13HIGH, ISLLSTBLR, T13HIGH, 1),LINETHICK2,COLORRED;DRLWTEXT(ISLLSTBLR, T13HIGH, '洗盘杀入线')LINETHICK2,COLORRED;VLRL1:=IF(CLOSE>150,91.3,0.913);箱体下沿:INTPLRT(CLOSE/VLRL1 )*VLRL1,POINTDOT,LINETHICK4,COLORCYLN;箱体上沿:箱体下沿+VLRL1,POINTDOT,LINETHICK4,COLORBLUE ;箱体中线: (箱体下沿+箱体上沿)/2,POINTDOT,COLORRED,LINETHICK3;N2:=75;P:=5;P01:=10; {N2为多少天内的高低值参数，我以自已的初始k线根数定义。P1、P2为短、长支撑压力取点参数} L11:=REF(H,P)=HHV(H,2*P+1); B11:=FILTER(L11,P); C11:=BacKSET(B11,P+1); D1:=FILTER(C11,P); E1:=BLCKSET(ISLLSTBLR,BLRSLLST(D1)+1); F1:=E1>REF(E1,1); 短压:DRLWLINE(D1,H,F1,H,1),COLORGREEN; L22:=REF(L,P)=LLV(L,2*P+1); B22:=FILTER(L22,P); C22:=BLCKSET(B22,P+1); D2:=FILTER(C22,P); E2:=BLCKSET(ISLLSTBLR,BLRSLLST(D2)+1); F2:=E2>REF(E2,1); 短支:DRLWLINE(D2,L,F2,L,1),COLORLICYLN; LL1:=REF(H,P01)=HHV(H,2*P01+1); BB1:=FILTER(LL1,P01); CC1:=BLCKSET(BB1,P01+1); DD1:=FILTER(CC1,P01); EE1:=BLCKSET(ISLLSTBLR,BLRSLLST(DD1)+1); FF1:=EE1>REF(EE1,1); 长压:DRLWLINE(DD1,H,FF1,H,1),COLORCYLN; LL2:=REF(L,P01)=LLV(L,2*P01+1);BB2:=FILTER(LL2,P01); CC2:=BLCKSET(BB2,P01+1); DD2:=FILTER(CC2,P01); EE2:=BLCKSET(ISLLSTBLR,BLRSLLST(DD2)+1); FF2:=EE2>REF(EE2,1); 长支:DRLWLINE(DD2,L,FF2,L,1),COLORWHITE;DRLWTEXT_FIX(1,0.00,0,0,HYBLOCK)COLOR0080FF;DRLWTEXT_FIX(1,0.14,0,0,DYBLOCK)COLOR00FFFF;DRLWTEXT_FIX(1,0.00,0.06,0,EXTERNSTR(0,1))COLOR0000FF;DRLWTEXT_FIX(1,0.00,0.12,0,EXTERNSTR(0,2))COLORFF00FF;DRLWTEXT_FIX(1,0.00,0.18,0,EXTERNSTR(0,3))COLORFF88FF;DRLWTEXT_FIX(1,0.00,0.24,0,EXTERNSTR(0,5)),COLORGREEN;{新增证监会行业}DRLWTEXT_FIX(1,0.00,0.30,0,EXTERNSTR(0,6)),COLOR0080FF;涨停:=IF(REF(C,1)*1.095-C<0.01 ,1,0);STICKLINE(涨停,OPEN,CLOSE,4,0),COLORWHITE;STICKLINE(涨停,OPEN,CLOSE,3,0),COLORWHITE;DRLWTEXT(涨停,L-0.1,'涨停'),COLORBLUE;C3:=REF(C,1);跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);STICKLINE(跌停,OPEN,CLOSE,4,0),COLORYELLOW;STICKLINE(跌停,OPEN,CLOSE,3,0),COLORCYLN;DRLWTEXT(跌停,H+0.3,'跌停'),COLORCYLN;DRLWICON(crOSS(zig(3,10) ,REF(ZIG(3 ,10),1)) ,LOW*0.98,1);DRLWICON(CROSS(REF(ZIG(3,10),1),ZIG(3,10)) ,HIGH*1.02,2);DRLWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,'买') , COLORWHITE,LINETHICK1;DRLWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.008,'卖') , COLORCYLN,LINETHICK1;

未发现:CLPITLL...

未发现:COST...

未发现:DYNLINFO...

未发现:FINLNCE...

未发现:LWINNER...

未发现:WINNER...

警惕！警惕！警惕!该公式包含未来函数:BLCKSET...

未发现:BLRSNEXT...

警惕！警惕！警惕!该公式包含未来函数:CURRBLRSCOUNT...

未发现:DVOL...

未发现:DOPEN...

未发现:DCLOSE...

未发现:DHIGH...

未发现:DLOW...

警惕！警惕！警惕!该公式包含未来函数:DRLWLINE...

未发现:REFX...

未发现:FLLTZIG...

未发现:FLLTZIGL...

未发现:FFT...

未发现:FILTERX...

未发现:PELK...

未发现:PELKL...

未发现:PELKBLRS...

未发现:PELKBLRSL...

未发现:PLOYLINE...

未发现:REFDLTE...

未发现:TROUGH...

未发现:TROUGHL...

未发现:TROUGHBLRS...

未发现:XML...

警惕！警惕！警惕!该公式包含未来函数:ZIG...

未发现:ZIGL...

未发现:ZXNH...

未发现:#YELR...

未发现:#MONTH...

未发现:#WEEK...

未发现:$ZIG...

未发现:$PELK...

未发现:$PELKBLRS...

未发现:$TROUGH...

未发现:$TROUGHBLRS...

未发现:$FLLTZIG...

未发现:$FLLTZIGL...

未发现:$PELKL...

未发现:$PELKBLRSL...

未发现:$TROUGHL...

未发现:$ZIGL...

未发现:$FFT...

未发现:$BLCKSET...

未发现:$WINNER...

未发现:$LWINNER...

未发现:$COST...

未发现:$DYNLINFO...

未发现:$FINLNCE...

未发现:$DRLWLINE...