|
以下是通达信兄弟连（鹏腾2009版本）主图/选股（无源码的请下载附件导入）
{主图}
T:=BARSLAST(C/REF(C,1)>1.09);
T1:=T+1;
T2:=REF(T1,T+1)+T1;
T3:=REF(T2,T+1)+T1;
H2:=REF(H,T2-1);
H3:=REF(H,T3-1);
L2:=REF(L,T2-1);
L3:=REF(L,T3-1);
TJ1:=H2>L3 AND L2<H3;
TJ2:=MAX(MAX(H,H2),H3)/MIN(MIN(H,H2),H3);
XG:=FILTERX(T=0 AND REF(T1,1)>5 AND T3-T2>=5,T3) AND TJ2<1.15;
QF1:=BACKSET(XG=1,T2);
QF1T:=BARSLAST(CROSS(QF1=1,0.5));
QF2:=BACKSET(XG=1,T3);
QF2T:=BARSLAST(CROSS(QF2=1,0.5));
DRAWLINE(QF1T=0,H*1.2,XG,H,0),COLORRED;
DRAWLINE(QF2T=0,H,QF1T=0,H*1.2,0),COLORRED;
SPY:=BARSLAST(XG);
DRAWICON(CROSS(C,REF(H*1.05,SPY)),L,9);
STICKLINE(QF1T=0,H*1.2,H,0,0),COLORRED;
DRAWTEXT(QF1T=0,H*1.25,'兄弟连'),COLORRED;
DRAWTEXT(XG,C,'-----------------------------------------------------------------＞'),COLORYELLOW;
C3:=REF(C,1);
涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(涨停,OPEN,CLOSE,1.5,0),COLORYELLOW;
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(跌停,OPEN,CLOSE,1.5,0),COLORWHITE;
{选股}
T:=BARSLAST(C/REF(C,1)>1.09);
T1:=T+1;
T2:=REF(T1,T+1)+T1;
T3:=REF(T2,T+1)+T1;
H2:=REF(H,T2-1);
H3:=REF(H,T3-1);
L2:=REF(L,T2-1);
L3:=REF(L,T3-1);
TJ1:=H2>L3 AND L2<H3;
TJ2:=MAX(MAX(H,H2),H3)/MIN(MIN(H,H2),H3);
XG:=FILTERX(T=0 AND REF(T1,1)>5 AND T3-T2>=5,T3) AND TJ2<1.15;
BB:=BARSLAST(XG);
狙击:CROSS(C,REF(H*1.05,BB)) AND BB<30 AND C>REF(H,BB) AND C/REF(H,BB)<1.1 AND C>REF(C,1) AND C>O;
612277959.jpg
|
