通达信黄金狙击主图未加密选股指标公式源码

源码正文：

Z1:=stRCAT(HYBLOCK,' '){XG51};
Z2:=STRCAT(Z1,DYBLOCK){XG51};
Z3:=STRCAT(Z2,' '){XG51};
DRAWTEXT_FIX(ISLASTBAR,0,0.03,0,STRCAT(Z3,GNBLOCK)),COLORLICYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0,0.09,0,FGBLOCK),COLORLImaGENTA{XG51};
MAA5:MA(C,5),COLORFF00FF,LINETHICK2{XG51};
MAA10:=MA(C,10){XG51};
MAA30:MA(C,30),COLORWHITE{XG51};
KS:IF(MAA10>MAA30,MAA10,MAA30),COLORYELLOW{XG51};
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
A4:=SMA(A3,3,1){XG51};
A5:=SMA(A4,3,1){XG51};
A6:=3*A4-2*A5{XG51};
A7:=C-REF(C,1){XG51};
A8:=100*ema(EMA(A7,6),6)/EMA(EMA(Abs(A7),6),6){XG51};
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND crOSS(A8,MA(A8,2)){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.05,'↖跟庄买进'),COLORBLUE{XG51};
STICKLINE(买,OPEN,CLOSE,2,0),COLORBLUE{XG51};
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2){XG51};
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,1),COLORWHITE{XG51};
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2){XG51};
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,0),COLORFFCC66{XG51};
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),4,1),COLORBLUE{XG51};
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),5,2),COLOR00FF00{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR00C8FF{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLOR10ECFF{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLOR10FFFF{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR00D900{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORYELLOW{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0,0),COLOR090FF2{XG51};
PMA:MA(C,5),COLORRED,LINETHICK2{XG51};
IF(PMA>REF(PMA,1),PMA,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(PMA<REF(PMA,1),PMA,DRAWNULL),COLORCYAN,LINETHICK2{XG51};
T:=150{XG51};
TT:=3{XG51};
N1:=0{XG51};
高1:=REF(HHV(H,T),TT){XG51};
低1:=REF(LLV(L,T),TT){XG51};
H1:=高1-(高1-低1)*0.191{XG51};
H2:=高1-(高1-低1)*0.382{XG51};
H3:=高1-(高1-低1)*0.5{XG51};
H4:=高1-(高1-低1)*0.618{XG51};
H5:=高1-(高1-低1)*0.809{XG51};
顶:REFDATE(高1,DATE),COLORFFFF00{XG51};
一:REFDATE(H1,DATE),DOTLINE,COLORBLUE{XG51};
二:REFDATE(H2,DATE),DOTLINE,COLORLIMAGENTA{XG51};
三:REFDATE(H3,DATE),DOTLINE,COLOR00FFFF{XG51};
四:REFDATE(H4,DATE),DOTLINE,COLORLIMAGENTA{XG51};
五:REFDATE(H5,DATE),DOTLINE,COLORBLUE{XG51};
低:REFDATE(低1,DATE),COLOR00FF00{XG51};
TT4:=(CURRBARSCOUNT=1){XG51};
DRAWTEXT(TT4 AND 顶,顶,'顶'),COLOR208FFF{XG51};
DRAWTEXT(TT4 AND 一,一,'0.809'),COLOR208FFF{XG51};
DRAWTEXT(TT4 AND 二,二,'0.618'),COLOR208FFF{XG51};
DRAWTEXT(TT4 AND 三,三,'0.5'),COLOR208FFF{XG51};
DRAWTEXT(TT4 AND 四,四,'0.382'),COLOR208FFF{XG51};
DRAWTEXT(TT4 AND 五,五,'0.191'),COLOR208FFF{XG51};
DRAWTEXT(TT4 AND 低,低*1.009,'底'),COLOR208FFF{X~G!5-1~C~N~{};

源码正文：

N:=24{XG51};
A1:=DATE <= 1070615{XG51};
A2:=(100*(CLOSE-(ma(CLOSE,30))))/(MA(CLOSE,30)){XG51};
A3:=100-((90*((HHV(HIGH,20))- CLOSE))/((HHV(HIGH,20))-(LLV(LOW,20)))){XG51};
A4:=100-(MA(((100*((HHV(HIGH,6))-CLOSE))/((HHV(HIGH,6))-(LLV(LOW,6)))),28)){XG51};
A5:=MA(A4,6){XG51};
L1:=(ema(CLOSE,3) - EMA(CLOSE,13)){XG51};
L2:=EMA(L1,9){XG51};
L3:=BArslAst(crOSS(L1,L2)){XG51};
L4:=REF(L3,L3+1){XG51};
L5:=L2{XG51};
红持股:IF((A3 < A5),A5,A3),COLORWHITE{XG51};
绿持币:IF((A3 > A5),A5,A3),COLORCYAN{XG51};
强弱:(A5),LINETHICK1,COLORBLUE{XG51};
变盘:CROSS(L1,L2) AND L5,NODRAW,COLORD6FF9C{XG51};
STICKLINE(变盘,5,0,0,1),COLORD6FF9C{XG51};
difF:(EMA(CLOSE,12) - EMA(CLOSE,26))*20,COLORRED,LINETHICK1{XG51};
DEA:EMA(DIFF,9),COLORBLUE,LINETHICK1{XG51};
macd:2*(DIFF-DEA),COLORSTICK{XG51};
MacD1:=2*(DIFF-DEA),COLORWHITE,NODRAW{XG51};
MACD2:=EMA(MACD1,3),COLORGREEN,NODRAW{XG51};
A14:=EMA(CLOSE,8){XG51};
A15:=EMA(A14,20){XG51};
A16:=CROSS(A14,A15){XG51};
A17:=A14 < (EMA(CLOSE,120)){XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,2,0),COLORWHITE{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,2,0),COLORBLUE{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORCYAN{XG51};
LS:=IF(DIFF>DEA AND DIFF>0,1,0){XG51};
加速上扬:IF(REF(LS=0,1) AND LS=1,0.1,0){XG51};
大波黑马起步:((A16 AND A17) * 75) * A1,LINETHICK2,COLORLIMAGENTA{XG51};
XG1:CROSS(MACD1,MACD2) AND MACD1<0,NODRAW{XG51};
XG2:CROSS(DIFF,DEA),NODRAW{XG51};
M1:=MACD>REF(MACD,1) AND DIFF<DEA{XG51};
绿柱短了:M1 AND COUNT(M1,10)=1 AND C>MA(C,55) AND COUNT(MACD<0,5)>=5,NODRAW{XG51};
DRAWTEXT(绿柱短了,MACD,'买点来了'){XG51};
A18:=SUM((IF((CLOSE > (REF(CLOSE,1))),vol,(IF((CLOSE < (REF(CLOSE,1))),(0 - VOL),0)))),0){XG51};
A19:=SUMBARS(VOL,CAPITAL){XG51};
A20:=(IF((CLOSE > (LLV(CLOSE,A19))),1,-1)) * (IF((A18 > (LLV(A18,A19))),1,-1)){XG51};
A21:=IF((A20 = -1),1,0){XG51};
DIFL:=EMA(V,12)-EMA(V,26){XG51};
DIF:=EMA(C,12)-EMA(C,26){XG51};
BL:=DIFL>REF(DIFL,1) AND DIF<REF(DIF,1){XG51};
A22:=(COUNT((A21 = 1),8)) > 2{XG51};
A23:=((SUM(AMOUNT,13)) / ((AMOUNT / VOL) / 100)) / 100{XG51};
A24:=dma((((((3 * HIGH) + LOW) + OPEN) + (2 * CLOSE)) / 7),(VOL / A23)){XG51};
A25:=(((CLOSE - A24) / A24) * 100) < -15{XG51};
四天: REF(BL,3)=1 AND REF(BL,2)=1 AND REF(BL,1)=1 AND BL{XG51};
三天:REF(BL,2)=1 AND REF(BL,1)=1 AND BL{XG51};
IF(DIFF>DEA,DIFF,DRAWNULL),COLORFF11CC,LINETHICK1{XG51};
IF(DIFF>DEA AND DIFF<0,DIFF,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
A26:=((CLOSE - (MIN(((REF(CLOSE,5)) * 0.865),((REF(CLOSE,21)) * 0.772)))) / CLOSE) < 0.05{XG51};
A27:=REF(LOW,1){XG51};
A28:=((SMA(Abs((LOW - A27)),3,1)) / (SMA((MAX((LOW - A27),0)),3,1))) * 100{XG51};
A29:=EMA((IF((CLOSE * 1.2),(A28 * 10),(A28 / 10))),3){XG51};
DRAWTEXT(FILTER(D>80,6),H*1.018,'D>80'){XG51};
DRAWTEXT(FILTER(CROSS(K,D) AND D<26,6),H*0.95,'kd低位金叉'),COLORFFCCCC{XG51};
STICKLINE(FILTER(CROSS(K,D) AND D<26,6),H*0.97,H*0.95,4,0),COLORFFCCCC{XG51};
DIFFF:=EMA(CLOSE,12) - EMA(CLOSE,26){XG51};
A30:=LLV(LOW,38){XG51};
A31:=HHV(A29,38){XG51};
DEAF :=EMA(DIFFF,9){XG51};
MACDD:=2*(DIFFF-DEAF){XG51};
A32:=IF((LLV(LOW,90)),1,0){XG51};
A33:=((EMA((IF((LOW <= A30),((A29 + (A31 * 2)) / 2),0)),3)) / 618) * A32{XG51};
roc:=(CLOSE-REF(CLOSE,21))/REF(CLOSE,21)*100{XG51};
WWWGUPANGCOM:= EMA(EMA(CLOSE,13),13){XG51};
DRAWTEXT(FILTER(CROSS(ROC,0),6),L-2.25,'骗线拐点'),COLORRED{XG51};
STICKLINE(FILTER(CROSS(ROC,0),6),L-0.02,L-0.15,5,0),COLORFF00FF{XG51};
庄家吸筹留踪影:(STICKLINE(A33,0,A33,6,1)) ,COLORRED{X-G^5.1-C-N-{};