通达信画线极品主图选股指标公式源码

通达信画线极品主图选股指标公式源码

源码正文：

N:=15;UR:=6;LR:=6{XG51};
TC1:=IF(H=HHV(H,8*UR),H,DRAWNULL){XG51};
TC2:=CONst(BArslAST(TC1=H))+1{XG51};
UPPER:=CONST(IF(TC2=1,H,REF(H,TC2-1))){XG51};
BC1:=IF(L=LLV(L,8*LR),L,DRAWNULL){XG51};
BC2:=CONST(BARSLAST(BC1=L))+1{XG51};
LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1))){XG51};
LP:=CURRBARSCOUNT<=BC2 AND L=LOWER{XG51};
HP:=CURRBARSCOUNT<=TC2 AND H=UPPER{XG51};
STICKLINE(IF(BC2>TC2,HP,LP),LOWER,UPPER,0,0),COLOR628962{XG51};
STICKLINE(IF(BC2>TC2,LP,HP),LOWER,UPPER,0,0),COLOR628962{XG51};
NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2)){XG51};
LR1:=FORCAST(C,NOD+1){XG51};
NP:IF(CURRBARSCOUNT<=maX(BC2,TC2),CONST(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1))),DRAWNULL),POINTDOT,COLOR93BDA8{XG51};
LR2:=SLOPE(C,NOD+1){XG51};
LR3:=CONST(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1))){XG51};
FP:NP-LR3*(NOD),POINTDOT,COLOR93BDA8{XG51};
EQU:(NP+FP)/2,POINTDOT,COLOR93BDA8{XG51};
AD:=Abs(NP-FP);{XG51};
DBL:=BARSLAST(BC1!=DRAWNULL)+1{XG51};
DBH:=BARSLAST(TC1!=DRAWNULL)+1{XG51};
BSP:=IF(BC2>TC2,DBL,DBH)-1{XG51};
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP){XG51};
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL){XG51};
AT2:=HHV(AT1-LRL,MAX(BC2,TC2)){XG51};
AT3:=CONST(BARSLAST(AT1-LRL=AT2)){XG51};
AT4:=CONST(IF(AT3=0,H,REF(H,AT3))){XG51};
AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3))){XG51};
ATL:=LRL+AT5{XG51};
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL){XG51};
UT2:=HHV(LRL-UT1,MAX(BC2,TC2)){XG51};
UT3:=CONST(BARSLAST(LRL-UT1=UT2)){XG51};
UT4:=CONST(IF(UT3=0,H,REF(H,UT3))){XG51};
UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3))){XG51};
UTL:=LRL-UT5{XG51};
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,CONST(REF(ATL,MIN(BC2,TC2)-11))){XG51};
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,CONST(REF(UTL,MIN(BC2,TC2)-11))){XG51};
中轨:IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLOR628962{XG51};
上轨:IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLOR628962{XG51};
下轨:IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLOR628962{XG51};
MA1:=MA(CLOSE,5){XG51};
dif:=ema(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
TJ1:=BARSLAST(crOSS(DIF,DEA)){XG51};
TJ2:=REF(H,TJ1){XG51};
IF(TJ1<30,TJ2,DRAWNULL),COLORCYAN,LINETHICK1{XG51};
IF(CROSS(DIF,DEA),H*1.005,DRAWNULL),CIRCLEDOT,COLORBLUE,LINETHICK{XG51};
STICKLINE(CROSS(DIF,DEA),H*1.0005,H*0.9995,7,0),COLORCYAN{XG51};
ADD:=SUMBARS(V ,CAPITAL*1){XG51};
A2:=SUM(COST(20),ADD)/ADD{XG51};
A1:=SUM(COST(10),ADD)/ADD{XG51};
A3D:=SUM(COST(30),ADD)/ADD{XG51};
A4D:=SUM(COST(40),ADD)/ADD{XG51};
A5D:=SUM(COST(50),ADD)/ADD{XG51};
E:=LLV(L,250)=L{XG51};
E1:=BARSLAST(E){XG51};
庄家成本:(5*A1+4*A2+3*A3D+2*A4D+A5D)/15, CIRCLEDOT,COLOR00FFFF{XG51};
OK1:STICKLINE(CROSS(C,庄家成本) AND E1>=40 ,O ,C ,5 ,0 ),COLOR00FFFF;{XG51};
A线:=HHV(H,20){XG51};
B线:=LLV(L,20){XG51};
C线:=(A线+B线)/2{XG51};
做多线:IF(C线,C线,DRAWNULL)COLORFF00FF,LINETHICK2{X-G=5=1-C-N-{};