通达信主力追踪副图源码分享

强弱:=2;短线M:=6;

吸筹:=10;一阳:=2;
金银:=2;红钻:=1;
梅花:=1;底部:=1;
逃顶:=1;多线:27;
空线:55;
P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5);
BB:=MA(P,3);
CC:=(SUM(IF((P > REF(P,1)),(P)*(VOL),0),4))/(SUM(IF((P < REF(P,1)),(P)*(VOL),0),4));
DD:=REF(100 - (100)/(1 + CC),1);
A1:=HHV(P,15);
A2:=LLV(P,15);
A3:=A1 - A2;
A4:=(EMA((P - A2)/(A3),2))*(100);
多方力度1:=(3*SMA((CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,24)-LLV(LOW,24))*100,5,1),3,1))*强弱;
空方力度1:=(100*(HHV(HIGH,95)-CLOSE)/(HHV(HIGH,95)-LLV(LOW,95)))*强弱;
强:空方力度1< 多方力度1,COLORRED;
STICKLINE(空方力度1< 多方力度1,0,100,6.6.0,0)COLOR001050;
弱:STICKLINE(空方力度1>多方力度1,0,100,9.9.0,0)COLORLICYAN;
短线1:=A4;
短线:IF(CURRBARSCOUNT>短线M,  DRAWNULL,短线1),COLOR888888,LINETHICK1;
IF(短线>REF(短线,1),短线,DRAWNULL),LINETHICK1,COLORRED;
多方力度:(3*SMA((CLOSE-LLV(LOW,多线))/(HHV(HIGH,多线)-LLV(LOW,多线))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,多线))/(HHV(HIGH,27)-LLV(LOW,多线))*100,5,1),3,1)),COLOR00FFFF,LINETHICK2;
空方力度:100*(HHV(HIGH,空线)-CLOSE)/(HHV(HIGH,空线)-LLV(LOW,空线)),COLOR00EC00,LINETHICK1;
DRAWTEXT(ISLASTBAR,短线,'←短线'),COLOR888888;
DRAWTEXT(ISLASTBAR,多方力度,'←多方'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,空方力度,'←空方'),COLORGREEN;
持币:=(IF(SAR(10,2,20)>=H,SAR(10,2,20),DRAWNULL))*强弱;
持股:(IF(SAR(10,2,20)<=L,SAR(10,2,20),DRAWNULL))*强弱,COLORRED,NODRAW;
STICKLINE(持币,50,50,2.1.1,0),COLORCYAN;
STICKLINE(持股,50,50,2.1.1,0),COLORRED;
买点:REF(持币,1)>0 AND 持股>0,COLORLIRED;
RSV:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
VAR1:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA ((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
VAR2:=EMA(VAR1,8);
VAR3:=3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1)-2*SMA(SMA ((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1),3,1);
趋势:=EMA(VAR3,3)-10;
VAR4:=(趋势-REF(趋势,1))/REF(趋势,1)*100;
VAR5:=FILTER((趋势<=13 AND VAR4>13),10);
VAR6:=FILTER((趋势>=90 AND VAR4),10);
VAR7:=LLV(LOW,30);
VAR8:=HHV(HIGH,30);
VAR9:=EMA((CLOSE-VAR7)/(VAR8-VAR7)*4,4)*25;
VAR10:=(VAR9-LLV(VAR9,4))/(HHV(VAR9,4)-LLV(VAR9,4))*100;
VAR11:=SMA(ABS(LOW-REF(LOW,1)),3,1)/SMA(MAX(LOW-REF(LOW,1),0),3,1);
VAR12:=HHV(VAR11,30)*8;
VAR2222:=REF(LOW,1);
VAR3333:=(SMA(ABS(LOW-VAR2222),3,1))/(SMA(MAX(LOW-VAR2222,0),3,1))*100;
VAR4444:=EMA(IF(CLOSE*1.3,VAR3333*10,VAR3333/10),3);
VAR5555:=LLV(LOW,30);
VAR6666:=HHV(VAR4444,30);
VAR7777:=IF(MA(CLOSE,58),1,0);
主力吸筹:(EMA(IF(LOW<=VAR5555,(VAR4444+VAR6666*2)/2,0),3))/(618)*VAR7777,NODRAW;
VAR9999:=IF(主力吸筹>100,100,主力吸筹)*吸筹;
MA1:=MA(C,5);
MA2:=MA(C,10);
MA3:=MA(C,20);
MA4:=MA(C,60);
MA5:=MA(C,120);
筹码:=(COST(90)+COST(70)+COST(50)+COST(30)+COST(10))/5;
今获利:WINNER(C)*100,COLORWHITE,NODRAW;
昨获利:=REF(今获利,1),COLORYELLOW,NODRAW;
获利比增:今获利-昨获利,COLORRED,NODRAW;
二日涨幅:=(C-REF(C,5))/REF(C,5)*100;
五日涨幅:=(C-REF(C,5))/REF(C,5)*100;
十日涨幅:=(C-REF(C,10))/REF(C,10)*100;
二十涨幅:=(C-REF(C,20))/REF(C,20)*100;
十五涨幅:=(C-REF(C,15))/REF(C,15)*100;
六十涨幅:=(C-REF(C,60))/REF(C,60)*100;
量比:=V/REF(MA(V,1),1);
五日换手:=SUM(VOL,5)*100/CAPITAL;
二十换手:=SUM(VOL,20)*100/CAPITAL;
六十换手:=SUM(VOL,60)*100/CAPITAL;
趋势线:=(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,15)+MA(CLOSE,20))/4;
牛熊线:=MA(CLOSE,26);
生命线:=EMA(CLOSE,55);
AVAR10:=LLV(LOW,10);
AVAR13:=HHV(HIGH,25);
红线:=EMA((CLOSE-AVAR10)/(AVAR13-AVAR10)*4,4)*25;
A:=IF(空方力度1< 多方力度1,红线,DRAWNULL),LINETHICK2,COLOR0000FF;
RSV10:=(HHV(HIGH,11)-CLOSE)/(HHV(HIGH,11)-LLV(LOW,11))*100;
绿线:=SMA(RSV10,3,1);
B:=IF(空方力度1< 多方力度1,绿线,DRAWNULL),LINETHICK2,COLORWHITE;
多方辅助:IF(CURRBARSCOUNT>5,  DRAWNULL,A)COLOR0000FF,LINETHICK2;
空方辅助:IF(CURRBARSCOUNT>5,  DRAWNULL,B)COLORWHITE,LINETHICK2;
强势持股:IF(空方力度< 空方辅助 AND 空方力度< 50 AND 空方力度< 多方辅助 AND 空方辅助< 多方辅助,空方力度 AND 空方辅助< REF(空方辅助,1),DRAWNULL),LINETHICK1,COLORRED;
天:95,POINTDOT,COLORFFFF00;
界:=50,POINTDOT,COLORFFFFFF;
地:5,POINTDOT;
JD1:=MAX(MAX(趋势线,牛熊线),生命线);
JX1:=MIN(MIN(趋势线,牛熊线),生命线);
一阳定势:=(C>JD1  AND O< JX1 AND 量比>1 AND CROSS(多方力度,空方力度) AND C/REF(C,1)>1.02)*一阳,COLORRED,NODRAW;
金银袋:=(C>生命线 AND L < 生命线 AND C>趋势线 AND CROSS(多方力度,空方力度) AND C/REF(C,1)>1.02 AND 量比>1.1 AND C>O AND H/MAX(O,C)< 1.05)*金银,COLORYELLOW,NODRAW;
红钻石:=C/REF(C,1)>1.03  AND 量比>1.1 AND CROSS(多方力度,空方力度)*红钻,COLORLIRED,NODRAW;
STICKLINE(一阳定势,50,65,2.7.2,0),COLOR0000AA;
STICKLINE(一阳定势,50,65,1.9.4,0),COLOR0000BB;
DRAWICON(红钻石,35,25);
DRAWICON(金银袋,45,9);
A5:=((CLOSE - (LLV(LOW,9))) / ((HHV(HIGH,9)) - (LLV(LOW,9)))) * 100;
A6:=SMA(A5,3,1);
A7:=SMA(A6,3,1);
A17:=MA(CLOSE,90);
A26:=((CLOSE - A17) / A17) * 100;
RSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K2:=SMA(RSV2,3,1);
D2:=SMA(K2,3,1);
A65:=(CROSS(K2,D2)) * 60;
A105:=MA(CLOSE,27);
A106:=((CLOSE - A105) / A105) * 100;
A107:=(MA(A106,3));
A149:=BARSLAST(((CROSS(-10,A107)) = 1));
A150:=BARSLAST(((CROSS(A107,10)) = 1));
A151:=((A107 < -10) AND (A149 > 3));
A152:=((A107 > 10) AND (A150 > 3));
安全:=(((IF(A151,A107,0)) < 0) * -10),COLORGREEN;
STICKLINE(VAR9999>-150,0,VAR9999,2,0),COLORFF00FF;
龙抬头:=((((((A65 AND 安全) AND ((A6 - A7) > 1.5)) AND (OPEN != HIGH)) AND (A26 < -10)) OR (安全 AND (CROSS(A6,A7)))) * 20)*梅花;
IF(龙抬头,6,DRAWNULL),CROSSDOT,LINETHICK6,COLORRED;
趋势线2:=MA((CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100 ,2);
钻石底:=(趋势线2< -20)*底部,COLORLIGREEN,NODRAW;
DRAWICON(钻石底,2,27);
VARL1:=(HIGH+LOW+CLOSE)/3;
VARL2:=(VARL1-MA(VARL1,14))/(0.015*AVEDEV(VARL1,14));
VARL3:=(VARL1-MA(VARL1,70))/(0.015*AVEDEV(VARL1,70));
VARL4:=IF(VARL2>=150 AND VARL2< 200 AND VARL3>=150 AND VARL3< 200,10,0);
VARL5:=IF(VARL2<=-150 AND VARL2>-200 AND VARL3<=-150 AND VARL3>-200,-10,VARL4);
PJX:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
短期强弱:=PJX;
VARL1A:=IF(PJX>0,PJX,0);
VARL1B:=IF(VARL3>=200 AND VARL2>=150,15,IF(VARL3<=-200 AND VARL2<=-150,-15,VARL5));
抄底:REF(VARL1B=-15,1) AND VARL1B>-15,NODRAW;
DRAWTEXT(抄底,5,'  ★抄底'),COLORYELLOW;
VAR01:=(HIGH+LOW+CLOSE)/3;
VAR02:=(VAR01-MA(VAR01,14))/(0.015*AVEDEV(VAR01,14));
VAR03:=(VAR01-MA(VAR01,70))/(0.015*AVEDEV(VAR01,70));
VAR04:=IF(VAR02>=150 AND VAR02< 200 AND VAR03>=150 AND VAR03< 200,10,0);
VAR05:=IF(VAR02<=-150 AND VAR02>-200 AND VAR03<=-150 AND VAR03>-200,-10,VAR04);
VAR1B:=(IF(VAR03>=200 AND VAR02>=150,15,IF(VAR03<=-200 AND VAR02<=-150,-15,VAR05))+60)*逃顶;
DRAWTEXT(FILTER(VAR1B=75,5),95,'★逃顶'),COLORLIGREEN;

原理解析：
强弱赋值:2
短线M赋值:6
吸筹赋值:10
一阳赋值:2
金银赋值:2
红钻赋值:1
梅花赋值:1
底部赋值:1
逃顶赋值:1
输出多线:27
输出空线:55
P赋值:((2)*(收盘价) + 最高价 + 最低价 + OPEN)/(5)
BB赋值:P的3日简单移动平均
CC赋值:(SUM(IF((P > 1日前的P),(P)*(成交量),0),4))/(SUM(IF((P < 1日前的P),(P)*(成交量),0),4))
DD赋值:REF(100 - (100)/(1 + CC),1)
A1赋值:15日内P最高值
A2赋值:15日内P最低值
A3赋值:A1 - A2
A4赋值:(EMA((P - A2)/(A3),2))*(100)
多方力度1赋值:(3*SMA((收盘价-24日内最低价最低值)/(24日内最高价最高值-24日内最低价最低值)*100,5,1)-2*SMA(SMA((收盘价-27日内最低价最低值)/(24日内最高价最高值-24日内最低价最低值)*100,5,1),3,1))*强弱
空方力度1赋值:(100*(95日内最高价最高值-收盘价)/(95日内最高价最高值-95日内最低价最低值))*强弱
输出强:空方力度1< 多方力度1,COLORRED
当满足条件空方力度1< 多方力度1时,在0和100之间画柱状线
当满足条件空方力度1>多方力度1时,在0和100之间画柱状线
短线1赋值:A4
如果CURRBARSCOUNT>短线M返回  DRAWNULL否则返回短线1
IF(短线>1日前的短线,短线,DRAWNULL),LINETHICK1,COLORRED
输出多方力度:(3*SMA((收盘价-多线日内最低价最低值)/(多线日内最高价最高值-多线日内最低价最低值)*100,5,1)-2*SMA(SMA((收盘价-多线日内最低价最低值)/(27日内最高价最高值-多线日内最低价最低值)*100,5,1),3,1)),COLOR00FFFF,LINETHICK2
输出空方力度:100*(空线日内最高价最高值-收盘价)/(空线日内最高价最高值-空线日内最低价最低值),COLOR00EC00,LINETHICK1
当满足条件ISLASTBAR时,在短线和'←短线'位置书写文字
当满足条件ISLASTBAR时,在多方力度和'←多方'位置书写文字
当满足条件ISLASTBAR时,在空方力度和'←空方'位置书写文字
持币赋值:(IF(SAR(10,2,20)>=H,SAR(10,2,20),DRAWNULL))*强弱
输出持股:(IF(SAR(10,2,20)<=L,SAR(10,2,20),DRAWNULL))*强弱,COLORRED,NODRAW
当满足条件持币时,在50和50之间画柱状线
当满足条件持股时,在50和50之间画柱状线
输出买点:1日前的持币>0 AND 持股>0,COLORLIRED
RSV赋值:(收盘价-30日内最低价最低值)/(30日内最高价最高值-30日内最低价最低值)*100
RSV的3日[1日权重]移动平均
K的3日[1日权重]移动平均
J赋值:3*K-2*D
VAR1赋值:3*SMA((收盘价-27日内最低价最低值)/(27日内最高价最高值-27日内最低价最低值)*100,5,1)-2*SMA(SMA ((收盘价-27日内最低价最低值)/(27日内最高价最高值-27日内最低价最低值)*100,5,1),3,1)
VAR2赋值:VAR1的8日指数移动平均
VAR3赋值:3*SMA((收盘价-55日内最低价最低值)/(55日内最高价最高值-55日内最低价最低值)*100,5,1)-2*SMA(SMA ((收盘价-55日内最低价最低值)/(55日内最高价最高值-55日内最低价最低值)*100,5,1),3,1)
趋势赋值:VAR3的3日指数移动平均-10
VAR4赋值:(趋势-1日前的趋势)/1日前的趋势*100
VAR5赋值:FILTER((趋势<=13 AND VAR4>13),10)
VAR6赋值:FILTER((趋势>=90 AND VAR4),10)
VAR7赋值:30日内最低价最低值
VAR8赋值:30日内最高价最高值
VAR9赋值:EMA((收盘价-VAR7)/(VAR8-VAR7)*4,4)*25
VAR10:=(VAR9-4日内VAR9最低值)/(4日内VAR9最高值-4日内VAR9最低值)*100
VAR11:=SMA(最低价-1日前的最低价的绝对值,3,1)/SMA(最低价-1日前的最低价和0较大值,3,1)
VAR12:=30日内VAR11最高值*8
VAR2222:=1日前的最低价
VAR3333:=(SMA(最低价-VAR2222的绝对值,3,1))/(SMA(最低价-VAR2222和0较大值,3,1))*100
如果收盘价*1.3返回VAR3333*10否则返回VAR3333/10
VAR5555:=30日内最低价最低值
VAR6666:=30日内VAR4444最高值
VAR7777:=IF(收盘价的58日简单移动平均,1,0)
主力输出吸筹:(EMA(IF(最低价<=VAR5555,(VAR4444+VAR6666*2)/2,0),3))/(618)*VAR7777,NODRAW
如果主力吸筹>100返回100否则返回主力吸筹
MA1赋值:C的5日简单移动平均
MA2赋值:C的10日简单移动平均
MA3赋值:C的20日简单移动平均
MA4赋值:C的60日简单移动平均
MA5赋值:C的120日简单移动平均
筹码赋值:(获利盘为90%的成本分布+COST(70)+COST(50)+COST(30)+COST(10))/5
输出今获利:C计算的获利盘比例*100,画白色,NODRAW
昨获利赋值:1日前的今获利,画黄色,NODRAW
输出获利比增:今获利-昨获利,COLORRED,NODRAW
二日涨幅赋值:(C-5日前的C)/5日前的C*100
五日涨幅赋值:(C-5日前的C)/5日前的C*100
十日涨幅赋值:(C-10日前的C)/10日前的C*100
二十涨幅赋值:(C-20日前的C)/20日前的C*100
十五涨幅赋值:(C-15日前的C)/15日前的C*100
六十涨幅赋值:(C-60日前的C)/60日前的C*100
量比赋值:V/REF(V的1日简单移动平均,1)
五日换手赋值:5的成交量日累和*100/CAPITAL
二十换手赋值:20的成交量日累和*100/CAPITAL
六十换手赋值:60的成交量日累和*100/CAPITAL
趋势线:=(收盘价的5日简单移动平均+收盘价的10日简单移动平均+收盘价的15日简单移动平均+收盘价的20日简单移动平均)/4
牛熊线赋值:收盘价的26日简单移动平均
生命线赋值:收盘价的55日指数移动平均
AVAR10:=10日内最低价最低值
AVAR13:=25日内最高价最高值
红线赋值:EMA((收盘价-AVAR10)/(AVAR13-AVAR10)*4,4)*25
如果空方力度1< 多方力度1返回红线否则返回DRAWNULL
RSV10:=(11日内最高价最高值-收盘价)/(11日内最高价最高值-11日内最低价最低值)*100
RSV10的3日[1日权重]移动平均
如果空方力度1< 多方力度1返回绿线否则返回DRAWNULL
如果CURRBARSCOUNT>5返回  DRAWNULL否则返回A
如果CURRBARSCOUNT>5返回  DRAWNULL否则返回B
强势输出持股:IF(空方力度< 空方辅助 AND 空方力度< 50 AND 空方力度< 多方辅助 AND 空方辅助< 多方辅助,空方力度 AND 空方辅助< 1日前的空方辅助,DRAWNULL),LINETHICK1,COLORRED
输出天:95,POINTDOT,COLORFFFF00
界赋值:50,POINTDOT,COLORFFFFFF
输出地:5,POINTDOT
JD1:=趋势线和牛熊线较大值,生命线)
JX1:=趋势线和牛熊线的较小值,生命线)
一阳定势:=(C>JD1  AND O< JX1 AND 量比>1 AND 多方力度上穿空方力度 AND C/1日前的C>1.02)*一阳,COLORRED,NODRAW
金银袋:=(C>生命线 AND L < 生命线 AND C>趋势线 AND 多方力度上穿空方力度 AND C/1日前的C>1.02 AND 量比>1.1 AND C>O AND H/O和C较大值< 1.05)*金银,画黄色,NODRAW
红钻石:=C/1日前的C>1.03  AND 量比>1.1 AND 多方力度上穿空方力度*红钻,COLORLIRED,NODRAW
当满足条件一阳定势时,在50和65之间画柱状线
当满足条件一阳定势时,在50和65之间画柱状线
当满足条件红钻石时,在35和25之间画图标
当满足条件金银袋时,在45和9之间画图标
A5:=((收盘价 - (9日内最低价最低值)) / ((9日内最高价最高值) - (9日内最低价最低值))) * 100
A5的3日[1日权重]移动平均
A6的3日[1日权重]移动平均
A17:=收盘价的90日简单移动平均
A26:=((收盘价 - A17) / A17) * 100
RSV2:=(收盘价-9日内最低价最低值)/(9日内最高价最高值-9日内最低价最低值)*100
RSV2的3日[1日权重]移动平均
K2的3日[1日权重]移动平均
A65:=(K2上穿D2) * 60
A105:=收盘价的27日简单移动平均
A106:=((收盘价 - A105) / A105) * 100
A107:=(A106的3日简单移动平均)
A149:=上次((-10上穿A107距今天数 = 1))
A150:=上次((A107上穿10距今天数 = 1))
A151:=((A107 < -10) AND (A149 > 3))
A152:=((A107 > 10) AND (A150 > 3))
如果A151返回A107否则返回0
当满足条件VAR9999>-150时,在0和VAR9999之间画柱状线
龙抬头赋值:((((((A65 AND 安全) AND ((A6 - A7) > 1.5)) AND (OPEN != 最高价)) AND (A26 < -10)) OR (安全 AND (A6上穿A7))) * 20)*梅花
如果龙抬头返回6否则返回DRAWNULL
趋势线2:=MA((收盘价-MA(收盘价,40))/MA(收盘价,40)*100 ,2)
钻石底赋值:(趋势线2< -20)*底部,COLORLIGREEN,NODRAW
当满足条件钻石底时,在2和27之间画图标
VARL1:=(最高价+最低价+收盘价)/3
VARL2:=(VARL1-VARL1的14日简单移动平均)/(0.015*AVEDEV(VARL1,14))
VARL3:=(VARL1-VARL1的70日简单移动平均)/(0.015*AVEDEV(VARL1,70))
如果VARL2>=150 AND VARL2< 200 AND VARL3>=150 AND VARL3< 200返回10否则返回0
如果VARL2<=-150 AND VARL2>-200 AND VARL3<=-150 AND VARL3>-200返回-10否则返回VARL4
PJX:=MA(100*(收盘价-34日内收盘价最低值)/(34日内最高价最高值-34日内最低价最低值),5)-20
短期强弱赋值:PJX
如果PJX>0返回PJX否则返回0
VARL1B赋值:IF(VARL3>=200 AND VARL2>=150,15,IF(VARL3<=-200 AND VARL2<=-150,-15,VARL5))
输出抄底:1日前的VARL1B=-15 AND VARL1B>-15,NODRAW
当满足条件抄底时,在5和'  ★抄底'位置书写文字
VAR01:=(最高价+最低价+收盘价)/3
VAR02:=(VAR01-VAR01的14日简单移动平均)/(0.015*AVEDEV(VAR01,14))
VAR03:=(VAR01-VAR01的70日简单移动平均)/(0.015*AVEDEV(VAR01,70))
如果VAR02>=150 AND VAR02< 200 AND VAR03>=150 AND VAR03< 200返回10否则返回0
如果VAR02<=-150 AND VAR02>-200 AND VAR03<=-150 AND VAR03>-200返回-10否则返回VAR04
VAR1B赋值:(IF(VAR03>=200 AND VAR02>=150,15,IF(VAR03<=-200 AND VAR02<=-150,-15,VAR05))+60)*逃顶
DRAWTEXT(VAR1B=75的5过滤,95,'★逃顶'),COLORLIGREEN