通达信长中短参考主图未加密选股指标公式源码

通达信长中短参考主图未加密选股指标公式源码

源码正文：

DRAWGBK(O>C,RGB(57,35,146),RGB(0,0,0),0,'1',0){XG51};
天: IF(HHVBARS(V ,60) ,REF(C ,HHVBARS(V ,60) ) ,C ),COLORLIGREEN,POINTDOT{XG51};
地: IF(LLVBARS(V,5), REF (C,LLVBARS(V,5)),C),COLORBLUE,POINTDOT{XG51};
人: IF(LLVBARS(V,13), REF (C,LLVBARS(V,13)),C),COLORmaGENTA,POINTDOT{XG51};
MA3:MA(C,3){XG51};
MA13:MA(C,14){XG51};
DRAWBAND(C,RGB(255,255,0),MA3,RGB(256,200,0)){XG51};
筹码成本:COst(5),COLORGREEN{XG51};
获利了结: COST(98){XG51};
ZZ1:STICKLINE(crOSS(MA3,C) AND C>筹码成本*1.5,筹码成本,获利了结,0,0),COLORWHITE,POINTDOT{XG51};
LSX1:IF(C>=筹码成本,筹码成本,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
ZLX:STICKLINE(C<O AND REF(C,1)>REF(O,1),REF(H,1),REF(H,1)*1.03,3,0),COLOR00FF00{XG51};
ZLX2:STICKLINE(C<O AND REF(C,1)>REF(O,1),REF(H,1),REF(H,1)*1.03,1,0),COLORLIMAGENTA{XG51};
ZLX3:STICKLINE(CROSS(C,MA3),MA13 ,MA13*0.98,3,0),COLORWHITE{XG51};
ZLX4:STICKLINE(CROSS(C,MA3),MA13 ,MA13*0.98,1,0),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.02,0.05,0,'★短:红柱进,绿柱出。★'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.02,0.10,0,'★中:黄色区域持股,绿色区域持币。★'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.02,0.15,0,'★长:筹码成本变红入,绿柱靠近获利了结出。★'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.02,0.20,0,'★长中短参考。法师9430制作★'),COLORBLUE{X^G?5.1^C^N^{};

通达信一笑之黄金图主图未加密选股指标公式源码

源码正文：

DA1:=IF(130>TOTALBARSCOUNT,TOTALBARSCOUNT,130){XG51};
DA:=IF(CURRBARSCOUNT>DA1,0,DA1){XG51};
HI:=REFDATE(HHV(H,DA),DATE){XG51};
LO:=REFDATE(LLV(L,DA),DATE){XG51};
C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL){XG51};
GZ:=EXP(LN(HI/LO)/10);
LH1:=SUM(IF(C1>=(HI/GZ),V,0),DA){XG51};
LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/GZ),V,0),DA){XG51};
LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA){XG51};
LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA){XG51};
LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA){XG51};
LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA){XG51};
LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA){XG51};
LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA){XG51};
LH9:=SUM(IF(C1>=(LO*GZ) AND C1<LO*POW(GZ,2),V,0),DA){XG51};
LH10:=SUM(IF(C1>=LO AND C1<LO*GZ,V,0),DA){XG51};
L1:=REFDATE(HHV(LH1,DA),DATE),LINETHICK0{XG51};
L2:=REFDATE(HHV(LH2,DA),DATE),LINETHICK0{XG51};
L3:=REFDATE(HHV(LH3,DA),DATE),LINETHICK0{XG51};
L4:=REFDATE(HHV(LH4,DA),DATE){XG51};
L5:=REFDATE(HHV(LH5,DA),DATE){XG51};
L6:=REFDATE(HHV(LH6,DA),DATE){XG51};
L7:=REFDATE(HHV(LH7,DA),DATE){XG51};
L8:=REFDATE(HHV(LH8,DA),DATE){XG51};
L9:=REFDATE(HHV(LH9,DA),DATE){XG51};
L10:=REFDATE(HHV(LH10,DA),DATE){XG51};
SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10){XG51};
stICKLINE(CEILING(DA*L1/SS)*3>=CURRBARSCOUNT,HI*99/100,HI/GZ,9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L2/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,1)*99/100,HI/POW(GZ,2),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L3/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,2)*99/100,HI/POW(GZ,3),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L4/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,3)*99/100,HI/POW(GZ,4),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L5/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,4)*99/100,HI/POW(GZ,5),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L6/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,5)*99/100,HI/POW(GZ,6),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L7/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,6)*99/100,HI/POW(GZ,7),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L8/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,2),LO*POW(GZ,3)*99/100,9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L9/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,1),LO*POW(GZ,2)*99/100,9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L10/SS)*3>=CURRBARSCOUNT,LO,LO*POW(GZ,1)*99/100,9,0)COLOR3C3C3A,LINETHICK3{XG51};
DRAWKLINE(H,O,L,C){XG51};
VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5{XG51};
VAR2:=ema(Ema(EMA(VAR1,4),4),4){XG51};
SJ:=(VAR2-REF(VAR2,1))/REF(VAR2,1)*100, COLORSTICK{XG51};
SD:=MA(SJ,2){XG51};
SK:=MA(SJ,1){XG51};
VAR3:=crOSS(SK,SD) AND SK<0{XG51};
VAR4:=CROSS(SK,0){XG51};
VAR6:=CROSS(SK,SD) AND SK>0{XG51};
BY:=VAR3, STICK{XG51};
DRAWICON(BY,L*0.96,23);
BE:=VAR4 OR VAR6, STICK{XG51};
DRAWICON(BE,L*0.96,25);
VAR7:=CROSS(SD,SK){XG51};
MC:=VAR7, STICK{XG51};
DRAWICON(MC,H*1.02,17);
VAR13:=(2*CLOSE+HIGH+LOW)/4{XG51};
T:=80, POINTDOT{XG51};
VAR14:=LLV(LOW,5){XG51};
VAR15:=HHV(HIGH,4){XG51};
SK1:=EMA((VAR13-VAR14)/(VAR15-VAR14)*100,4){XG51};
SD1:=EMA(0.667*REF(SK1,1)+0.333*SK1,2){XG51};
VAR17:=(VAR13-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100{XG51};
VAR18:=SMA(VAR17,2,1){XG51};
桂林山水:=SMA(VAR18,2,1), LINESTICK{XG51};
VAR16:=CROSS(SK1,SD1){XG51};
GG:=VAR16, STICK{XG51};
DRAWICON(GG,L*0.96,1);
W00:=COST(1){XG51};
W10:=COST(10){XG51};
W20:=COST(20){XG51};
W30:=COST(30){XG51};
W40:=COST(40){XG51};
W50:=COST(50){XG51};
W60:=COST(60){XG51};
W70:=COST(70){XG51};
W80:=COST(80){XG51};
W90:=COST(90){XG51};
W100:=COST(99){XG51};
W5:=COST(5){XG51};
W15:=COST(15){XG51};
W25:=COST(25){XG51};
W35:=COST(35){XG51};
W45:=COST(45){XG51};
W55:=COST(55){XG51};
W65:=COST(65){XG51};
W75:=COST(75){XG51};
W85:=COST(85){XG51};
W95:=COST(95){XG51};
C5:=W5-W00{XG51};
C10:=W10-W5{XG51};
C15:=W15-W10{XG51};
C20:=W20-W15{XG51};
C25:=W25-W20{XG51};
C30:=W30-W25{XG51};
C35:=W35-W30{XG51};
C40:=W40-W35{XG51};
C45:=W45-W40{XG51};
C50:=W50-W45{XG51};
C55:=W55-W50{XG51};
C60:=W60-W55{XG51};
C65:=W65-W60{XG51};
C70:=W70-W65{XG51};
C75:=W75-W70{XG51};
C80:=W80-W75{XG51};
C85:=W85-W80{XG51};
C90:=W90-W85{XG51};
C95:=W95-W90{XG51};
C100:=W100-W95{XG51};
ZX:=MIN(C5,MIN(C10,MIN(C15,MIN(C20,MIN(C25,MIN(C30,MIN(C35,MIN(C40,MIN(C45,MIN(C50,MIN(C55,MIN(C60,MIN(C65,MIN(C70,MIN(C75,MIN(C80,MIN(C85,MIN(C90,MIN(C95,C100))))))))))))))))))){XG51};
STICKLINE(ZX=C5,W00,W5,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C10,W10,W5,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C15,W15,W10,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C20,W20,W15,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C25,W25,W20,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C30,W30,W25,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C35,W35,W30,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C40,W40,W35,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C45,W45,W40,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C50,W50,W45,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C55,W55,W50,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C60,W60,W55,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C65,W65,W60,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C70,W70,W65,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C75,W75,W70,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C80,W80,W75,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C85,W85,W70,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C90,W90,W85,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C95,W95,W90,5,0),COLORFF8800{XG51};
STICKLINE(ZX=C100,W100,W95,5,0),COLORFF8800{XG51};
筹宽:=W100-W00{XG51};
J90:=W90-W60{XG51};
J80:=W80-W50{XG51};
J70:=W70-W40{XG51};
J60:=W60-W30{XG51};
J50:=W50-W20{XG51};
J40:=W40-W10{XG51};
J30:=W30-W00{XG51};
STICKLINE(J90/筹宽<0.08,W90,W60,5,0),COLOR74D9A4{XG51};
STICKLINE(J80/筹宽<0.08,W80,W50,5,0),COLOR74D9A4{XG51};
STICKLINE(J70/筹宽<0.08,W70,W40,5,0),COLOR74D9A4{XG51};
STICKLINE(J60/筹宽<0.08,W60,W30,5,0),COLOR74D9A4{XG51};
STICKLINE(J50/筹宽<0.08,W50,W20,5,0),COLOR74D9A4{XG51};
STICKLINE(J40/筹宽<0.08,W40,W10,5,0),COLOR74D9A4{XG51};
JJ90:=W90-W70{XG51};
JJ80:=W80-W60{XG51};
JJ70:=W70-W50{XG51};
JJ60:=W60-W40{XG51};
JJ50:=W50-W30{XG51};
JJ40:=W40-W20{XG51};
JJ30:=W30-W10{XG51};
STICKLINE(JJ90/筹宽<0.05,W90,W70,5,0),COLORFFFF00{XG51};
STICKLINE(JJ80/筹宽<0.05,W80,W60,5,0),COLORFFFF00{XG51};
STICKLINE(JJ70/筹宽<0.05,W70,W50,5,0),COLORFFFF00{XG51};
STICKLINE(JJ60/筹宽<0.05,W60,W40,5,0),COLORFFFF00{XG51};
STICKLINE(JJ50/筹宽<0.05,W50,W30,5,0),COLORFFFF00{XG51};
STICKLINE(JJ40/筹宽<0.05,W40,W20,5,0),COLORFFFF00{XG51};
STICKLINE(JJ30/筹宽<0.05,W30,W10,5,0),COLORFFFF00{XG51};
DRAWGBK(OPEN>0,RGB(0,0,0),RGB(0,0,0),0,'01',0);
DRAWKLINE(HIGH,OPEN,LOW,CLOSE){XG51};
CC:=Abs((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20){XG51};
DD:=dma(CLOSE,CC){XG51};
上轨:(1+7/100)*DD,COLORCYAN{XG51};
下轨:(1-7/100)*DD,COLORCYAN{XG51};
中轨:(上轨+下轨)/2,COLORCYAN{XG51};
疯狂:(1+14/100)*DD,COLORBROWN,POINTDOT{XG51};
抄底:(1-14/100)*DD,COLORBROWN,POINTDOT{XG51};
DRAWNUMBER(ISLASTBAR,上轨,上轨),COLOR00FFFF{XG51};
DRAWNUMBER(ISLASTBAR,下轨,下轨),COLORFFFF00{XG51};
DRAWNUMBER(ISLASTBAR,中轨,中轨),COLOR00FF00{XG51};
DRAWNUMBER(ISLASTBAR,疯狂,疯狂),COLORYELLOW{XG51};
DRAWNUMBER(ISLASTBAR,抄底,抄底),COLORRED{XG51};
上轨红:IF(上轨>=REF(上轨,1),上轨,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
中轨红:IF(中轨>=REF(中轨,1), 中轨,DRAWNULL),COLORWHITE, LINETHICK1{XG51};
下轨红:IF(下轨>=REF(下轨,1), 下轨,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
A4:=MA(CLOSE,20){XG51};
A5:=(CLOSE > MA(CLOSE,5)){XG51};
A6:=(MA(CLOSE,5) > MA(CLOSE,10)){XG51};
A7:=(CLOSE > MA(CLOSE,10)){XG51};
A8:=(MA(CLOSE,5) > MA(CLOSE,20)){XG51};
A9:=(CLOSE > MA(CLOSE,20)){XG51};
A10:=REF(A4,1){XG51};
A11:=(A4 > A10){XG51};
AVX:=(((((IF(A5,10,(0 - 10)) + IF(A6,10,(0 - 10))) + IF(A7,10,(0 - 10))) + IF(A8,10,(0 - 10))) + IF(A9,10,(0 - 10))) + IF(A11,10,(0 - 10))){XG51};
DSLX:=(CLOSE / INDEXC){XG51};
DSLX1:=MA(DSLX,5){XG51};
DSLX2:=MA(DSLX,10){XG51};
V1:=MA(vol,5){XG51};
V2:=MA(VOL,10){XG51};
阻力位:=IF((CLOSE > 200),(CLOSE * 1.01),(CLOSE * 1.07)){XG51};
阻力位１:=IF((CLOSE < 10),(CLOSE * 1.05),阻力位){XG51};
止损位:=IF((CLOSE > 200),(CLOSE * 0.99),(CLOSE * 0.93)){XG51};
止损位１:=IF((CLOSE < 10),(CLOSE * 0.95),止损位){XG51};
TJTS1:=BARSTATUS=2 AND C<200{XG51};
TJTS2:=BARSTATUS=2 AND C>200{XG51};
箱底: LLV(MA((LOW+HIGH+CLOSE+OPEN)/4,6),58),LINETHICK3,COLOR00AAFF{XG51};
箱顶: HHV(MA((LOW+HIGH+CLOSE+OPEN)/4,5),58),LINETHICK3,COLOR00AAFF{XG51};
B1:=MA(CLOSE,3){XG51};
STICKLINE(B1>REF(B1,1),B1,REF(B1,1),3,0),COLORWHITE{XG51};
STICKLINE(B1<REF(B1,1),B1,REF(B1,1),3,0),COLORCYAN{XG51};
拉升线:IF(CURRBARSCOUNT=1 AND REF(C,1)<REF(C,2) AND C>REF(C,1) AND A4>REF(A4,1),CONST(REF(C,1)*1.01),DRAWNULL),COLORBLUE{XG51};
M1:STICKLINE(CURRBARSCOUNT=1 AND C>=REF(C,1),拉升线,拉升线*0.998,20,0),COLORBLUE{XG51};
DRAWTEXT(CURRBARSCOUNT=1 AND 拉升线=CONST(REF(C,1)*1.01),L*0.99,'上穿此线介入'),COLORBLUE{XG51};
DRAWKLINE(H,拉升线,L,C){XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100){XG51};
FF:=EMA(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背离'),COLORWHITE{XG51};

RSI1:=((SMA(MAX((CLOSE - (REF(CLOSE,1))),0),3,1) / SMA(ABS((CLOSE - (REF(CLOSE,1)))),3,1))* 100){XG51};
DRAWTEXT(CROSS(88,RSI1) AND (MA(C,3))>(EMA(C,3)) ,(HIGH + 0.3),'顶背离'),COLORCYAN{XG51};
{XG51};
DRAWTEXT(REF(C,BArslAST(REF(CROSS("macd.dif","MacD.DEA"),1))+1)>C AND
REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)
<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")
>0,L-0.02,'MACD底背离'),COLORWHITE;
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("kdj.K","kdJ.D"),1))+1)>C AND
REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1))+1)<"KDJ.K" AND
CROSS("KDJ.K","KDJ.D"),L-0.10,'KDJ底背离'),COLORYELLOW;
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)>C AND
REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)
<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2")
>0,L-0.18,'RSI底背离');{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)<C
AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)
>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF")
>0,H+0.16,'MACD顶背离'),COLORCYAN;;
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)<C
AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)
>"KDJ.K" AND CROSS("KDJ.D","KDJ.K")>0,H+0.08,'KDJ顶背离');;
涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,1.5,0),COLORBLUE{XG51};
跌停:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0){XG51};
STICKLINE(跌停,OPEN,CLOSE,1.5,0),COLORRED{XG51};
机构:=(L2_VOL(0,0) - L2_VOL(0,1))*VOL/CAPITAL{XG51};
累计:=EMA(机构,60)*60,COLORLIMAGENTA{XG51};
均值:=EMA(累计,MIN(10,60)),COLORRED{XG51};
VAR21:=CROSS(累计,均值){XG51};
GD:=VAR21, STICK{XG51};
DRAWTEXT(GD,L*0.97, '↖启爆点'),COLORBLUE{XG51};
STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORBLUE{XG51};
STICKLINE(C/REF(C,1)<0.95,C,O,2,0),COLORCYAN{X~G=5=1~C~N~{};