通达信仙人指路A未加密选股指标公式源码

通达信仙人指路A未加密选股指标公式源码

源码正文：

GLL:=-5;P:=5;N:=40{XG51};
JM:=IF(YEAR>=2003 AND MONTH>12,0,1){XG51};
VAR1:=(CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80))*200{XG51};
VAR2:=SMA(VAR1,3,1){XG51};
VAR3:=Sma(VAR2,3,1){XG51};
VAR4:=3*VAR2-2*VAR3{XG51};
VAR5:=LLV(LOW,5){XG51};
VAR6:=HHV(HIGH,5){XG51};
VAR7:=ema((CLOSE-VAR5)/(VAR6-VAR5)*100,4)*2{XG51};
VAR8:=EMA(0.667*REF(VAR7,1)+0.333*VAR7,2){XG51};
VAR9:=3*VAR7-2*VAR8{XG51};
VARA:=POW(MA(CLOSE,5),2)+MA(CLOSE,5){XG51};
VARB:=POW(MA(LOW,5),2)+MA(LOW,5){XG51};
VARC:=POW(MA(HIGH,5),2)+MA(HIGH,5){XG51};
VARD:=(VARA-LLV(VARB,64))/(HHV(VARC,64)-LLV(VARB,64))*150+65-10{XG51};
VARE:=SMA(VARD,3,1)*1.5-100{XG51};
VARF:=SMA(VARE,3,1){XG51};
VAR10:=3*VARE-2*VARF{XG51};
VAR11:=(HIGH+LOW+CLOSE*2)/4{XG51};
VAR12:=EMA(VAR11,13){XG51};
VAR13:=stD(VAR11,13){XG51};
VAR14:=(VAR11-VAR12)*100/VAR13{XG51};
VAR15:=EMA(VAR14,5){XG51};
VAR16:=EMA(VAR15,13){XG51};
VAR17:=EMA(VAR15,13)+200-100{XG51};
VAR18:=EMA(VAR17,10){XG51};
VAR19:=3*VAR17-2*VAR18{XG51};
VAR1A:=VAR2+VAR7+VARE+VAR17{XG51};
VAR1B:=VAR3+VAR8+VARF+VAR18{XG51};
VAR1C:=VAR4+VAR9+VAR10+VAR19{XG51};
VAR1D:=(HIGH+LOW+CLOSE)/3{XG51};
VAR1E:=AMOUNT/vol/100{XG51};
VAR1F:=SUM(AMOUNT,5)/SUM(VOL,5)/100{XG51};
VAR20:=(VAR1D-MA(VAR1D,34))/(0.015*AVEDEV(VAR1D,34)){XG51};
VAR21:=dma(AMOUNT/VOL/100,VOL/CAPITAL){XG51};
VAR22:=(HIGH+LOW+CLOSE+VAR1D)/4{XG51};
VAR23:=EMA(VAR22,24){XG51};
VAR24:=STD(VAR22,24){XG51};
VAR25:=(VAR22-VAR23)/VAR24*100{XG51};
VAR26:=(VAR1D-MA(VAR1D,24))/(0.015*AVEDEV(VAR1D,24)){XG51};
VAR27:=EMA(VAR25,5){XG51};
VAR28:=(VAR1E-MA(VAR1E,21))/(0.015*AVEDEV(VAR1E,21)){XG51};
VAR29:=(VAR1F-MA(VAR1F,90))/(0.015*AVEDEV(VAR1F,90)){XG51};
VAR2A:=((VAR27+VAR26+VAR20)/3+165)/4{XG51};
VAR2B:=(EMA(EMA(EMA(VAR2A,15),10),5)-25)*2+VAR21{XG51};
VAR2C:=(VAR1A+VAR1B+VAR1C*30)/32/5-15{XG51};
VAR2D:=EMA(VAR2C,13){XG51};
VAR2E:=(VAR2A+VAR2C)/2/1.1;
DXM:= VAR2E*JM ,COLORWHITE,LINETHICK1{XG51};
DX1:EMA(DXM,1),COLORWHITE,LINETHICK1{XG51};
DX2:EMA(DX1,P),COLORBLUE,LINETHICK1{XG51};
ZX:EMA((VAR2B+VAR2D)/2,2) , COLORDDDDDD,LINETHICK2;
生死线:EMA(ZX,N),COLORCYAN{XG51};
STICKLINE(ZX-REF(ZX,1)>0 ,ZX,0,1,0),COLORDDDDDD,LINETHICK1,POINTDOT{XG51};
STICKLINE(ZX-REF(ZX,1)<0 ,ZX,0,1,0),COLOR999955,POINTDOT{XG51};
bias1W :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100{XG51};
BIAS2W :=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100{XG51};
BIAS3W :=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100{XG51};
MM:=(BIAS1W+2*BIAS2W+3*BIAS3W)/6{XG51};
MN:=MA(MM,3),COLORCC0033,LINETHICK1{XG51};
STICKLINE(ZX<0,ZX,0,1,0),COLORWHITE;
DRAWICON(crOSS(生死线,DX1) AND ZX>30 AND DX1<ZX,120,2){XG51};
STICKLINE(ZX<0,ZX,0,1,0),COLORWHITE{XG51};
盘出:IF(MN<GLL ,-15,-32)*JM,COLORCYAN,LINETHICK2{XG51};
J:=CROSS(DX1,0) AND COUNT(MN<GLL,2)>=1 OR CROSS(DX1,ZX) AND COUNT(MN<GLL,2)>=1{XG51};
DRAWICON( J,-15,1){XG51};
80,COLORRED,POINTDOT{XG51};
100,COLORRED,POINTDOT{XG51};
IF(CROSS(100,DX1) OR CROSS(80,DX1),85,120),COLORWHITE,LINETHICK2{X-G~5*1-C-N-{};

通达信秀才主图未加密选股指标公式源码

源码正文：

cdp:=(REF(H,1)+REF(L,1)+2*REF(C,1))/4{XG51};
高:CDP+(H-L),COLORCYAN,NODRAW{XG51};
卖:CDP*2-L,COLORGREEN,NODRAW{XG51};
阻:((H+O+L+C)/4)-L+DYNAINFO(21),COLORRED,NODRAW{XG51};
支:DYNAINFO(20)-(((H+L+8*C)/10)-L),COLORBLUE,NODRAW{XG51};
买:CDP*2-H,COLORmaGENTA,NODRAW{XG51};
低:CDP-(H-L),COLORWHITE,NODRAW{XG51};
价:C,COLORRED,NODRAW{XG51};
单股:LLV(MA(HIGH,(3)),1),LINETHICK1,COLORWHITE{XG51};
双币:HHV(MA(HIGH,(3)),2),LINETHICK0,COLORGREEN{XG51};
DRAWBAND(单股,RGB(250,10,10),双币,RGB(10,200,10)){XG51};
DRAWKLINE(H,O,L,C){XG51};
PH:=TROUGHBARS(2,5,1){XG51};
LL:=HHV(H,PH){XG51};
TJ1:=LL=HIGH AND LL<REF(LL,1){XG51};
TS:=SUMBARS(TJ1,2){XG51};
TJ:=PEAKBARS(2,5,1)=1 AND TS>=PH{XG51};
DRAWICON(TJ,HIGH*1.01+0.02,2){XG51};
YGB1:=MA(CLOSE,5){XG51};
YGB2:=MA(CLOSE,10){XG51};
YGB3:=MA(CLOSE,20){XG51};
X1:=ema(C,7){XG51};
DRAWICON(FILTER(YGB3 AND YGB2 AND COUNT(X1<REF(X1,1),5)>2 AND X1>REF(X1,1),3),L,1){XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100{XG51};
DRAWTEXT(crOSS(75,RSI), HIGH*1.01,' 卖'),COLORRED{XG51};
stICKLINE(C>REF(C,1)*1.099,C,O,2.7,0)COLORWHITE,LINETHICK2{XG51};
STICKLINE(C<REF(C,1)*0.901,C,O,2.7,0)COLORCYAN,LINETHICK2{XG51};
N1:=(3,30,10){XG51};
箱顶:=PEAK(CLOSE,N1,1)*0.98,COLORCYAN,LINETHICK1{XG51};
箱底:=TROUGH(CLOSE,N1,1)*1.02,COLORGREEN,LINETHICK1{XG51};
N:=(80,120,102){XG51};
M:=(2,20,7){XG51};
AA:=MA((2*CLOSE+HIGH+LOW)/4,5){XG51};
道1:=AA*N/100,COLORYELLOW{XG51};
道2:=AA*(200-N)/100,COLORCYAN{XG51};
CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20){XG51};
DD:=dma(CLOSE,CC){XG51};
道3:=(1+M/100)*DD,COLORGREEN{XG51};
道4:=(1-M/100)*DD,COLORBROWN{XG51};
MB1:=EMA(WINNER(C)*100,5),COLORBLUE{XG51};
MB2:=EMA(MB1,2),COLORYELLOW{XG51};
MB3:=EMA(MB2,2),COLORYELLOW{XG51};
MB4:=EMA(MB3,2),COLORYELLOW{XG51};
MB5:=EMA(MB4,2),COLORYELLOW{XG51};
MB6:=EMA(MB5,2),COLORYELLOW{XG51};
MB7:=EMA(MB6,2),COLORYELLOW{XG51};
MB8:=EMA(MB7,2),COLORYELLOW{XG51};
MB9:=EMA(MB8,2),COLORYELLOW{XG51};
MB10:=EMA(MB9,2),COLORYELLOW{XG51};
MB11:=EMA(MB10,2),COLORYELLOW{XG51};
MB12:=EMA(MB11,2),COLORYELLOW{XG51};
MB13:=EMA(MB12,2),COLORYELLOW{XG51};
MB14:=EMA(MB13,2),COLORYELLOW{XG51};
VAR3:=DRAWLINE(MB1>=HHV(MB1,5)=1,MB1,MB1<=LLV(MB1,5)=1,MB1,1),COLORRED{XG51};
XG1:=REF(MB1,1)=REF(VAR3,1) AND REF(MB1,1)<REF(MB4,1){XG51};
XG2:=REF(MB1,1)=REF(VAR3,1) AND MB1>REF(MB1,1){XG51};
XG3:=C>箱底{XG51};
DRAWTEXT(XG1 AND XG2 AND XG3,L,' 买'),COLORBLUE{XG51};
STICKLINE(REF(C,1)>REF(箱顶,1) AND C<箱顶,MIN(O,C)+ABS(C-O)*0.75,MAX(O,C),2.7,0),COLORYELLOW{XG51};
DRAWTEXT(MB1=VAR3 AND MB1<MB4,MIN(O,C)+ABS(C-O)*0.5,' ★'),COLORLIMAGENTA{XG51};
DRAWTEXT(XG2,MIN(O,C)+ABS(C-O)*0.5,' ★'),COLORBLUE{XG51};
VC:=(2*C+H+L)/4{XG51};
VD:=LLV(L,3){XG51};
VE:=HHV(H,3){XG51};
V12:=EMA((VC-VD)/(VE-VD)*100,5){XG51};
V13:=EMA(V12,2){XG51};
IF(V12>V13,双币,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
RSI2:=SMA(RSI,6,1){XG51};
IF(RSI>RSI2,单股,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
YGBLQH1:=(HHV(H,36)-C)/(HHV(H,36)-LLV(L,36))*100{XG51};
YGBLQH2:=SMA(YGBLQH1,5,1){XG51};
YGBLQH3:=SMA(YGBLQH2,8,1){XG51};
DRAWICON(CROSS(YGBLQH2,YGBLQH3) AND YGBLQH3<20,H*1.03,2){XG51};
VARYGB2:=TROUGHBARS(3,15,1)<10{XG51};
VARYGB3:=PEAKBARS(3,15,1)<10{XG51};
VARYGB4:=IF(VARYGB2=1,50,0){XG51};
VARYGB5:=IF(VARYGB3=1,50,0){XG51};
底部:=IF(VARYGB4=50,10,0){XG51};
YGBLQH:=IF(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,25,0),COLORGREEN,LINETHICK1{XG51};
DRAWTEXT(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,MIN(O,C)+ABS(C-O)*0.5,'▲'),COLORBLUE{XG51};
DRAWTEXT(TROUGHBARS(3,10,1)=0 AND HIGH>LOW+0.01,MIN(O,C)+ABS(C-O)*0.5,'▲'),COLORLIMAGENTA{X=G!5*1=C=N={};