通达信指标公式源码 自动画通道+庄家成本+大胆做多主图指标 源码

估:=(2*CLOSE+LOW+HIGH)/4;界:=SLOPE(CLOSE,21)*20+CLOSE;文:=EMA(估,40)*0.85;卖线:=EMA(估,55)*1.3;捞钱线:=EMA(估,55);保本线:=(捞钱线+文)/2;STICKLINE(C>=保本线AND REF(C,1)<保本线AND REF(C,2)>保本线,O,C,3,0),COLORRED;STICKLINE(C>=保本线AND REF(C,1)<保本线AND REF(C,2)>保本线,L,H,0.2,0),COLORRED;STICKLINE(FILTER(C>=捞钱线AND L<捞钱线,2),O,C,3,0),COLORYELLOW; STICKLINE(FILTER(C>=捞钱线AND L<捞钱线,2),L,H,0.2,0),COLORYELLOW; STICKLINE(FILTER(CROSS(卖线,CLOSE),3),O,C,3,0),COLORGREEN; STICKLINE(FILTER(CROSS(卖线,CLOSE),3),L,H,0.2,0),COLORGREEN; DRAWICON(C>=保本线AND REF(C,1)<保本线AND REF(C,2)>保本线,L*0.96,9);DRAWICON(FILTER(C>=捞钱线AND L<捞钱线,2),L*0.98,1); DRAWICON(FILTER(CROSS(卖线,CLOSE),3),H*1.03,2);V10日涨跌%:(C-REF(CLOSE,10))/REF(CLOSE,10)*100,COLORYELLOW,NODRAW;VAR1:=IF(DATE>=10211201,0,1);VAR2:=EMA(SLOPE(CLOSE,21)*20+CLOSE,55);VAR3:=EMA(CLOSE,3);VAR4:=(2*CLOSE+LOW+HIGH)/4*VAR1;VAR5:=VAR2-VAR3;风险线:EMA(VAR4,45)*1.15,COLORFFFF00;必卖线:EMA(VAR4,55)*1.3,POINTDOT,LINETHICK4;底线:EMA(VAR4,40)*0.85,COLORFF00FF;铁底线:EMA(VAR4,88)*0.7,POINTDOT,LINETHICK4,COLORGREEN;成本线:EMA(VAR4,55),COLORYELLOW;价值中枢: (成本线+底线)/2,COLORWHITE;DRAWTEXT(ISLASTBAR,风险线,'风险'),COLORFFFF00;DRAWTEXT(ISLASTBAR,必卖线,'必卖'),COLORYELLOW;DRAWTEXT(ISLASTBAR,底线,'安全'),COLORMAGENTA;DRAWTEXT(ISLASTBAR,铁底线,'铁底'),COLORYELLOW;DRAWTEXT(ISLASTBAR,成本线,'拉升'),COLORRED;DRAWTEXT(ISLASTBAR,价值中枢,'强弱'),COLORWHITE;AAPP:MA(MA(CLOSE,3),1),LINETHICK3,COLORGREEN;IF(AAPP>=REF(AAPP,1),AAPP,DRAWNULL),COLORFF00FF,LINETHICK3; XXS:=MA(HIGH,5)*(1+5/100);DRAWTEXT(CROSS(XXS,C),H*1.02,'开盘逃'),COLORYELLOW;LC:=REF(CLOSE,1);RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);FF:=EMA(CLOSE,2);MA15:=EMA(CLOSE,26);DRAWTEXT(CROSS(FF,MA15),(L OW * 0.999),'中继'),COLORA6E500;DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'逃顶'),COLOR1880FF; STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORYELLOW;XXS1:=MA(HIGH,5)*(1+5/100);DDDD:=CROSS(C,XXS1);DRAWTEXT(DDDD,HIGH*1.02,'明走'),COLORYELLOW;多头线:=EMA(C,1.5),COLOR0000CC;空头线:=EMA(C,5),COLORMAGENTA;均衡线:=EMA(空头线,5),COLORGREEN;VARF1:=COUNT(CROSS(多头线,均衡线),2)=1;VARF2:=COUNT(CROSS(空头线,均衡线),2)=1;ZAI:=FILTER(VARF1 AND VARF2,2);DRAWTEXT(ZAI,均衡线*0.99,'↖主力拉升'),COLOR00FF00;MA5:=MA(CLOSE,5);MA10:=MA(CLOSE,10);MA20:=MA(CLOSE,20);MA30:=MA(CLOSE,30);MA60:=MA(CLOSE,60);MA120:=MA(CLOSE,120),COLORLIBLUE;MA250:=MA(CLOSE,250),COLORBLUE;DRAWTEXT(CROSS(MA20,MA30),L,'牛相关注20'),COLORMAGENTA;DRAWTEXT(CROSS(MA30,MA60),L,'初生牛犊30'),COLORGREEN; DRAWTEXT(CROSS(MA60,MA120),L,'霸占大牛60'),COLORBLUE; DRAWTEXT(CROSS(MA120,MA250),L,'牛气冲天120'),COLORYELLOW;买进价:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);STICKLINE(买进条件,H,L,0,1),COLORWHITE,LINETHICK1;STICKLINE(买进条件,O,C,2.5,0),COLORWHITE,LINETHICK2;加码价:=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004;加码条件:=CROSS(C,加码价) AND 加码价>REF(加码价,1);STICKLINE(加码条件,H,L,0,1),COLORYELLOW,LINETHICK2;STICKLINE(加码条件,O,C,1.5,0),COLORYELLOW,LINETHICK2;M1:=MA(CLOSE,13);A:=MA(C,5);DRAWTEXT(LAST(MA(C,5)<MA(C,10),5,0) AND "I">REF("I",1) AND CROSS("I",-100),L*0.99,'⊕底');DRAWTEXT(CROSS(A,M1),M1,'◣周加'),COLORWHITE;DRAWTEXT(A>=REF(A,1) AND REF(A,1)<REF(A,2),A,'◣周买'),COLORYELLOW;{周线上买入，中期持有，月线上更好};{PEAKBARS未来判断明日顶部，收市前指标不消失请逃顶}VAR3A:=PEAKBARS(3,15,1)<10;VAR5A:=IF(VAR3A=1,2,0);顶:= IF(VAR5A=2,2,0);顶A:=IF(顶>REF(顶,1),50,0);DRAWTEXT(顶A=50,H * 1.02,'逃命'),COLOR00FF00;T:=BARSLAST(L>REF(H,1));E:=COUNT(L<REF(H,T+1),T)<2;DRAWTEXT(L<REF(H,T+1 ) AND E,L*0.99,'缺口回补'),COLOR0099FF;Y:=CLOSE/REF(CLOSE,1)>1.07;X:=VOL>MA(VOL,5);A1:=Y AND X;DRAWTEXT(A1,L*0.999,'攻涨停'),COLORMAGENTA;Z:=CLOSE/REF(CLOSE,1)<0.93;W:=VOL<MA(VOL,5);A2:=Z AND W;DRAWTEXT(A2,H*1.01,'小心跌停'),COLORGREEN;B36:=MA(CLOSE,3) - MA(CLOSE,6);B612:=MA(CLOSE,6) - MA(CLOSE,12);J:=((B36)/(CLOSE))*(10);J1:=((B612)/(CLOSE))*(10);DRAWTEXT((J < (-0.2)) AND (J1 < (-0.2)) AND CROSS(J,J1),(LOW)*(0.999),'大牛'),COLORRED;。

MA5:EXPMA(CLOSE,5) LINETHICK2;MA10:EXPMA(CLOSE,14) LINETHICK2;MA20:=EXPMA(CLOSE,20)NODRAW;MA60:=EXPMA(CLOSE,60);MA90:=EXPMA(CLOSE,90)NODRAW;角度:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416,COLORMAGENTA,NODRA W;IF(角度>=-10,MA5,DRAWNULL),COLORRED LINETHICK2;STICKLINE(CROSS(MA5,MA10),L,L-0.05,2,0),COLORWHITE; DRAWTEXT(CROSS(MA5,MA10),L-0.13,'牛') ,COLORWHITE;STICKLINE(CROSS(MA5,MA20),L,L-0.05,2,0),COLOR00FFFF; DRAWTEXT(CROSS(MA5,MA20),L-0.13,'大牛') ,COLOR00FFFF; STICKLINE(CROSS(MA10,MA5),H,H+0.05,2,0),COLORBLUE; DRAWTEXT(CROSS(MA10,MA5),H+0.13,'走人') ,COLORGREEN;超B:=L2_AMO(0,0)/10000.0;大B:=L2_AMO(1,0)/10000.0;中B:=L2_AMO(2,0)/10000.0;:=L2_AMO(3,0)/10000.0;超S:=-L2_AMO(0,1)/10000.0;大S:=-L2_AMO(1,1)/10000.0;中S:=-L2_AMO(2,1)/10000.0;小S:=-L2_AMO(3,1)/10000.0;中单:=(中B)+(中S);小单:=(小B)+(小S);主力净流入:"Z02.主力净流入#DAY" LINETHICK2,COLORYELLOW CIRCLEDOT NODRAW;超大单:"Z02.超大单#DAY" LINETHICK2,COLORYELLOW CIRCLEDOT NODRAW; 大单:"Z02.大单#DAY" LINETHICK2,COLORYELLOW CIRCLEDOT NODRAW;V5:=SUM(主力净流入,5) NODRAW;V10:=SUM(主力净流入,10) NODRAW;阳:=IF(主力净流入>0 ,CLOSE>OPEN,0)NODRAW;阴:=IF(主力净流入<0 ,CLOSE<OPEN,0)NODRAW;STICKLINE(阳,CLOSE,OPEN,2,0) ,COLORRED;STICKLINE(阴,C,O,2,0),COLORGREEN;阳1:=IF(主力净流入<0 ,CLOSE>OPEN,0)NODRAW;阴1:=IF(主力净流入>0,CLOSE<OPEN,0)NODRAW;STICKLINE(阳1,CLOSE,OPEN,1.5,0) ,COLORYELLOW ;STICKLINE(阴1,C,O,1.5,0),COLORFF00FF;V20:=SUM(主力净流入,20) NODRAW;STICKLINE((CROSS(主力净流入,V5) AND 主力净流入>0),L,L-0.09,3,0),COLORD9D919;DRAWTEXT((CROSS(主力净流入,V5) AND 主力净流入>0),L-0.13,'突破') ,COLORD9D919;资金异动:=主力净流入>0 AND (主力净流入/CAPITAL)*100>=0.05,COLORYELLOW,NODRAW;DRAWTEXT(C>REF(C,1) AND 资金异动,L-0.15,'异动'),COLORYELLOW;主买A:="Z02.主买A#DAY" LINETHICK2,COLORYELLOW CIRCLEDOT NODRAW;主卖A:="Z02.主卖A#DAY" LINETHICK2,COLORYELLOW CIRCLEDOT NODRAW;主买:=主买A*100/(主买A+主卖A),NODRAW,COLORRED;主卖:=主卖A*100/(主买A+主卖A),NODRAW,COLORGREEN;SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));【量能饱和】:=IF(SAT>1,1,SAT)*100,COLORYELLOW,NODRAW;主力净买量:=(LARGEINTRDVOL-LARGEOUTTRDVOL),COLORYELLOW,NODRAW;大宗净流入:=(超B+大B)-(超S+大S),COLORRED,NODRAW;主动买卖差:=(ACTINVOL-ACTOUTVOL),COLORMAGENTA,NODRAW;主力资金差:=((L2_AMO(0,0)+L2_AMO(1,0)-L2_AMO(0,1)-L2_AMO(1,1)))/10000,COLO RCYAN,NODRAW;DRAWRECTREL(100,0,90+CONST(主买*300/100),40,RGB(230,65,0)); DRAWRECTREL(100,60,90+CONST(主卖*300/100),100,RGB(0,104,0));{ DRAWRECTREL(100,120,390,160,RGB(0,0,100));DRAWRECTREL(100,120,90+CONST(【量能饱和】*300/100),160,RGB(250,104,0));}大单动向:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*10000/FINANCE(7),NODRAW;T1:=IF (大单动向>0 AND REF(大单动向,1)<0,1,0);T2:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)<0,2,T1); T3:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)<0,3,T2);T4:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)<0,4,T3);T5:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)<0,5,T4); T6:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)<0,6,T5);T7:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)>0 AND REF(大单动向,7)<0,7,T6);T8:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)>0 AND REF(大单动向,7)>0 AND REF(大单动向,8)<0,8,T7); T9:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)>0 AND REF(大单动向,7)>0 AND REF(大单动向,8)>0 AND REF(大单动向,9)<0,9,T8);T:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)>0 AND REF(大单动向,7)>0 AND REF(大单动向,8)>0 AND REF(大单动向,9)>0,10,T9);D01:=COUNT(大单动向>0,10),NODRAW;DRAWTEXT_FIX(1,0.005,0.01,0,STRCAT(STRCAT('【主买比】: ',CON2STR(主买,1)),' ％')),COLORYELLOW;DRAWTEXT_FIX(1,0.005,0.07,0,STRCAT(STRCAT('【主卖比】: ',CON2STR(主卖,1)),' ％')),COLORGREEN;DRAWTEXT_FIX(1,0.005,0.13,0,STRCAT(STRCAT('【量能饱和】: ',CON2STR(【量能饱和】,1)),' ％')),COLORYELLOW;{VOL5:=MA(净量,5),COLORWHITE;VOL10:=MA(净量,10),COLORYELLOW;VOL40:=MA(净量,40),COLORFF00FF ;量托:=VOL5>=VOL40 AND CROSS(VOL10,VOL40) ANDREF(VOL10,1)<REF(VOL40,1);DRAWTEXT(量托,L-0.012,'量托'),COLORWHITE;}AA1:=BARSLAST(MA60>MA20 AND (MA20=MA10 OR MA20>MA10));BB1:=REF(COUNT(C<MA60,AA1)=AA1,1);CC1:=CROSS(C,MA60) AND VOL>MA(VOL,5) AND(C-REF(C,1))/REF(C,1)*100>3;芙蓉出水:=BB AND CC1,COLOR00FF00;DRAWTEXT(芙蓉出水,H+0.12,'芙蓉出水'),COLORFF00FF;STICKLINE(芙蓉出水,H,L,0.5,1),COLORFF00FF;STICKLINE(芙蓉出水,O,C,3,1),LINETHICK2,COLORFF00FF;{三日低点:CONST(REF(LOW,3))COLORLIRED;三日高点:CONST(REF(H,3))COLORRED;}涨停:=BETWEEN(CLOSE/REF(CLOSE,1),1.0983,1.110);DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND(REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND(REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,9) ;DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND(REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND(REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.01,4);VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;VAR6:=(VAR3+VAR4+VAR5)/3;VAR7:=EMA(VAR6,5);ZB:=EMA(EMA(VAR3,5),5)*3, COLORSTICK;VAR8:=IF(VAR6<=-20,10,0);VAR9:=HHV(VAR8,10);VARA:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);K:=EMA(VAR7,5)*2, , COLORFF00FF;D:=EMA(K,5), , COLORWHITE;J:=K*3-D*2, ,COLORYELLOW;VARB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J>10;HS:=VOL/CAPITAL*100, , COLORGREEN;DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*1.00,'准备') COLORMAGENTA;DRAWTEXT(VARA=20,LOW*1.00,'一定要买') COLORRED;DRAWICON(VARA=20,LOW*1.00,1);VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-2 0;VARF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*10 0,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*1 00,20,1),15,1);VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*10 0,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*10 0,20,1),15,1);VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) ANDCLOSE>REF(CLOSE,1);DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'庄家异动'),LINETHICK1,COLORFF00FF;VAR12:=(HIGH+LOW+CLOSE)/3;VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 ANDVAR14<200,10,0);VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 ANDVAR14>-200,-10,VAR15);VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;VAR18:=100-ABS(VAR17);VAR19:=IF(VAR18<90,VAR18,100);VAR1A:=IF(VARE>0,VARE,0);VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*1.00,'大动作') COLORYELLOW;VAR20:=PEAKBARS(3,15,1)<10;VAR21:=IF(VAR20=1,2,0);VAR22:=IF(VAR21=2,2,0);VAR23:=IF(VAR22>REF(VAR22,1),35,0)LINETHICK2;DRAWTEXT(VAR23=35,HIGH*1.00,'一定要逃')COLORGREEN; DRAWICON(VAR23=35,HIGH*1.00,2);年:=YEAR,NODRAW;月:=MONTH,NODRAW;星期:=WEEKDAY,NODRAW;日1:=DATETODAY(DATE);上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);自然日:=日1-DATETODAY(上市日)+1;ZB1:=(自然日-REF(自然日,1))!=星期-REF(星期,1)OR TOTALBARSCOUNT-CURRBARSCOUNT=0;本周第几天:=BARSLAST(ZB1)+1;本月第几天:=BARSLAST(年*100+月!=REF(年*100+月,1))+1;MA1:=REF(C,本周第几天);MA2:=REF(MA1,本周第几天);MA3:=REF(MA2,本周第几天);MA4:=REF(MA3,本周第几天);MA05:=REF(MA4,本周第几天);MA6:=REF(MA05,本周第几天);MA7:=REF(MA6,本周第几天);MA8:=REF(MA7,本周第几天);MA9:=REF(MA8,本周第几天);五周价:=(C+MA1+MA2+MA3+MA4)/5;决策5:REFDATE(五周价,DATE),COLORFFAB00,LINETHICK1 DOTLINE ; {A:=(3*CLOSE+LOW+OPEN+HIGH)/6;D1:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*R EF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*RE F(A,18)+REF(A,20))/211;D2:=EMA(D1,2);D3:=EMA(D2,2);K1:=EMA(D3,2);DRAWTEXT(CROSS(D1,K1),L-0.05,'波段买入'),COLOR0099FF;}{轨道}CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);DD:=DMA(CLOSE,CC);上轨:(1+7/100)*DD,DOTLINE,COLORGREEN,LINETHICK1;下轨:(1-7/100)*DD,DOTLINE,COLORGREEN,LINETHICK1;中轨:(上轨+下轨)/2,DOTLINE,COLORGREEN,LINETHICK1;上轨红:IF(上轨>=REF(上轨,1),上轨,DRAWNULL),DOTLINE,COLORRED;中轨红:IF(中轨>=REF(中轨,1),中轨,DRAWNULL),DOTLINE,COLORRED;下轨红:IF(下轨>=REF(下轨,1),下轨,DRAWNULL),DOTLINE,COLORRED; DRAWNUMBER(ISLASTBAR,上轨,上轨),COLOR00FFFF;DRAWNUMBER(ISLASTBAR,下轨,下轨),COLORFFFF00;DRAWNUMBER(ISLASTBAR,中轨,中轨),COLOR00FF00;DRAWTEXT_FIX(1,0.38,0,0,'所属行业：')COLOR0080FF;DRAWTEXT_FIX(1,0.48,0,0,HYBLOCK)COLOR0080FF;DRAWTEXT_FIX(1,0.58,0,0,'所属地区：')COLOR00FFFF;DRAWTEXT_FIX(1,0.68,0,0,DYBLOCK)COLOR00FFFF;局部低点预选A:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);局部低点预选B:=BACKSET(局部低点预选A=0 AND REF(局部低点预选A,1)=1,2);局部低点预选C:=IF(局部低点预选B=1 AND REF(局部低点预选B,1)=0,-1,0); 局部高点预选A:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4);局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2);局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0); 缺口判断:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0));距前高天:=BARSLAST(局部高点预选C=1);距前低天:=BARSLAST(局部低点预选C=-1);小值周期:=LOWRANGE(L);大值周期:=TOPRANGE(H);低保留AA:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)<REF(LLV(L,距前高天+1),1),-1,0);低保留AB:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR LLV(L,距前低天+2)<REF(LLV(L,距前低天+1),1)),-1,0);低保留S:=IF((低保留AA=-1 OR 低保留AB=-1) AND L<REF(H,距前高天+1),-1,0);预判:=IF((距前低天<4 AND HHV(缺口判断,距前低天)!=1) OR REF(低保留S,距前低天)=0,1,0);判断:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND 预判=1 AND 大值周期>REF(小值周期,距前低天+1) AND 大值周期>REF(小值周期,距前低天) AND 大值周期>REF(大值周期,距前高天),1,0);高保留A:=IF(局部高点预选C=1 AND REF(距前低天,1)>REF(距前高天,1) AND HHV(H,距前低天+1)>REF(HHV(H,距前低天+1),1),1,0);高保留B:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND REF(低保留S,距前低天)=-1 AND (距前低天>=4 OR HHV(缺口判断,距前低天)=1),1,0);高保留:=IF((高保留A=1 OR 高保留B=1 OR 判断=1) AND H>REF(L,距前低天+1),1,0);预判A:=IF((距前高天<4 AND HHV(缺口判断,距前高天)!=1) OR REF(高保留,距前高天)=0,1,0);判断A:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND 预判A=1 AND 小值周期>REF(大值周期,距前高天+1) AND 小值周期>REF(大值周期,距前高天) AND 小值周期>REF(小值周期,距前低天),-1,0);低保留A:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)<REF(LLV(L,距前高天+1),1),-1,0);低保留B:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR 判断A=-1),-1,0);低保留:=IF((低保留A=-1 OR 低保留B=-1) AND L<REF(H,距前高天+1),-1,0); 距前高天A:=BARSLAST(高保留=1);距前低天A:=BARSLAST(低保留=-1);预判X:=IF((距前低天A<4 AND HHV(缺口判断,距前低天A)!=1) OR REF(低保留,距前低天A)=0,1,0);判断X:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND 预判X=1 AND 大值周期>REF(小值周期,距前低天A+1) AND 大值周期>REF(小值周期,距前低天A) AND 大值周期>REF(大值周期,距前高天A),1,0); 高保留XA:=IF(局部高点预选C=1 AND REF(距前低天A,1)>REF(距前高天A,1) AND HHV(H,距前低天A+1)>REF(HHV(H,距前低天A+1),1),1,0);高保留XB:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND REF(低保留,距前低天A)=-1 AND (距前低天A>=4 OR HHV(缺口判断,距前低天A)=1),1,0);高保留X:=IF((高保留XA=1 OR 高保留XB=1 OR 判断X=1) AND H>REF(L,距前低天A+1),1,0);预判XA:=IF((距前高天A<4 AND HHV(缺口判断,距前高天A)!=1) OR REF(高保留XA,距前高天A)=0,1,0);判断XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND 预判XA=1 AND 小值周期>REF(大值周期,距前高天A+1) AND 小值周期>REF(大值周期,距前高天A) AND 小值周期>REF(小值周期,距前低天A),-1,0); 低保留XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)>REF(距前低天A,1)AND LLV(L,距前高天A+1)<REF(LLV(L,距前高天A+1),1),-1,0);低保留XB:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND (距前高天A>=4 OR LLV(缺口判断,距前高天A)=-1 OR 判断XA=-1),-1,0);低保留X:=IF((低保留XA=-1 OR 低保留XB=-1) AND L<REF(H,距前高天A+1),-1,0);距前高天YA:=BARSLAST(高保留X=1);距前低天YA:=BARSLAST(低保留X=-1);预判YX:=IF((距前低天YA<4 AND HHV(缺口判断,距前低天YA)!=1) OR REF(低保留X,距前低天YA)=0,1,0);判断YX:=IF(局部高点预选C=1 AND REF(距前低天YA,1)<=REF(距前高天YA,1) AND 预判YX=1 AND 大值周期>REF(小值周期,距前低天YA+1) AND 大值周期>REF(小值周期,距前低天YA) AND 大值周期>REF(大值周期,距前高天YA),1,0);高保留YXA:=IF(局部高点预选C=1 AND REF(距前低天YA,1)>REF(距前高天YA,1) AND HHV(H,距前低天YA+1)>REF(HHV(H,距前低天YA+1),1),1,0);高保留YXB:=IF(局部高点预选C=1 AND REF(距前低天YA,1)<=REF(距前高天YA,1) AND REF(低保留X,距前低天YA)=-1 AND (距前低天YA>=4 OR HHV(缺口判断,距前低天YA)=1),1,0);高保留YX:=IF((高保留YXA=1 OR 高保留YXB=1 OR 判断YX=1) ANDH>REF(L,距前低天YA+1),1,0);预判YXA:=IF((距前高天YA<4 AND HHV(缺口判断,距前高天YA)!=1) ORREF(高保留YXA,距前高天YA)=0,1,0);判断YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND 预判YXA=1 AND 小值周期>REF(大值周期,距前高天YA+1) AND小值周期>REF(大值周期,距前高天YA) AND 小值周期>REF(小值周期,距前低天YA),-1,0);低保留YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)>REF(距前低天YA,1) AND LLV(L,距前高天YA+1)<REF(LLV(L,距前高天YA+1),1),-1,0);低保留YXB:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND (距前高天YA>=4 OR LLV(缺口判断,距前高天YA)=-1 OR 判断YXA=-1),-1,0);低保留YX:=IF((低保留YXA=-1 OR 低保留YXB=-1) AND L<REF(H,距前高天YA+1),-1,0);AAAD:=IF(高保留YX=1 AND 低保留YX=-1 AND H>REF(H,REF(距前高天YA,1)+2),1,IF(高保留YX=1 AND 低保留YX=-1 AND L<REF(L,REF(距前低天YA,1)+2),-1,0));极点保留:=IF(AAAD=0,高保留YX+低保留YX,AAAD);局部极点:IF(极点保留=-1,L,IF(极点保留=1,H,DRAWNULL)),CIRCLEDOT,COLORYELLOW,LINETHICK5;三分之一:=IF(CONST(MAX(BARSLAST(极点保留=-1),BARSLAST(极点保留=1)))>=CURRBARSCOUNT-1,CONST((REF(H,BARSLAST(极点保留=1)) - REF(L,BARSLAST(极点保留=-1)))*1/3+REF(L,BARSLAST(极点保留=-1))),DRAWNULL);一天线:=MA(CLOSE,1),COLOR0000FF;两天线:=MA(CLOSE,5),COLORYELLOW;DRAWICON(CROSS(一天线,两天线),L-0.03,34);DRAWICON(CROSS(两天线,一天线),H+0.05,35);MAA5:=MA(CLOSE,5),COLOR0000FF;MAA10:=MA(CLOSE,10),COLORYELLOW;DRAWICON(CROSS(MAA5,MAA10),L-0.03,9);DRAWICON(CROSS(MAA10,MAA5),H+0.05,19);{箱体}DF1:=(C-REF(C,1))/REF(C,1)*100>=7;AA01:=BARSLAST(DF1);突破箱体1:=CROSS(C,REF(C,AA01));阳顶:DRAWLINE(IF(DF1>REF(DF1,1),DF1,DRAWNULL),C,REF(DF1,1),REF(C,1), 1)COLORCYAN LINETHICK2;箱底1:=LLV(MIN(L,REF(L,AA01)),AA01),COLORCYAN,LINETHICK2; {DRAWTEXT(ISLASTBAR,阳顶,' 阳顶');}DRAWNUMBER(ISLASTBAR,阳顶,阳顶),COLORCYAN;。

通达信】看清庄家（主⼒潜⼊、庄家、现价、与庄共舞、庄家出货）-指标公式源码通达信】看清庄家（主⼒潜⼊、庄家、现价、与庄共舞、庄家出货）-指标公式源码顶:80,COLORYELLOW,LINETHICK2;底:20,COLORWHITE,LINETHICK2;DIF:=EMA(CLOSE,12) - EMA(CLOSE,26);DEA:=EMA(DIF,9);MACD1:=(DIF-DEA)*2;主⼒潜⼊:COUNT(MACD1<0,10)=10,COLORLIRED;STICKLINE(主⼒潜⼊,0,MACD1*200,1,0),COLORLIRED;庄家:=EMA(EMA(CLOSE,10),10);现价:=(庄家-REF(庄家,1))/REF(庄家,1)*1000;STICKLINE(现价<REF(现价,1) AND 现价<0,现价,0,2,0),COLORBLUE;打压吸筹:IF(现价<REF(现价,1) AND 现价<0,现价,0)COLORBLUE,NODRAW;上价:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;下价:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;中价:=MAX(EMA(上价,1)-EMA(下价,5),0)*200;与庄共舞:EMA(中价,5)STICK,COLORRED;STICKLINE(与庄共舞<REF(与庄共舞,1),0,与庄共舞,1,0),COLOR00FF00;STICKLINE(现价<REF(现价,1) AND 现价>0,现价,0,1,0),COLOR00FF00;庄家出货:IF(现价<REF(现价,1) AND 现价>0,现价,0),COLOR00FF00,NODRAW;RSV:=(CLOSE-LLV(LOW,3))/(HHV(HIGH,3)-LLV(LOW,3))*100;K:EXPMA(EXPMA(EXPMA(RSV,3),3),3),COLORCYAN;D:SMA(K,2,1),COLORWHITE;J:3*K-2*D,COLORMAGENTA,LINETHICK2;。

Z1:=STRCAT(HYBLOCK,' ');Z2:=STRCAT(Z1,DYBLOCK);Z3:=STRCAT(Z2,' ');DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0;A1:=REF(HIGH,3)=HHV(HIGH,2*3+1);B1:=FILTER(A1,3);C1:=BACKSET(B1,3+1);D1:=FILTER(C1,3);{高点}A2:=REF(LOW,3)=LLV(LOW,2*3+1);B2:=FILTER(A2,3);C2:=BACKSET(B2,3+1);D2:=FILTER(C2,3);{低点}E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1; H2:=D1 AND NOT(D2 AND E1>=E2);L1:=D2 AND NOT(D1 AND E1=E2);X1:=REF(BARSLAST(H1),1)+1;F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));G1:=F1>REF(F1,1);I1:=BACKSET(G1,2);LD:=I1>REF(I1,1);{过滤后低点}L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;X2:=REF(BARSLAST(L2),1)+1;F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));G2:=F2>REF(F2,1);I2:=BACKSET(G2,2);HD:=I2>REF(I2,1);{过滤后高点}J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1);J2:=J1>REF(J1,1);A3:=H;B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST (HD),REF(BARSLAST(HD),1)+2));D3:=A3 AND B3 AND HD;E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2);HH:=E3>REF(E3,1);{找出全部长期高点}A4:=L>REF(L,REF(BARSLAST(LD),1)+1);B4:=REF(L,REF(BARSLAST(LD),1)+1); D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点} DRAWICON(HH,H*1.01,8);DRAWICON(LL,L*0.999,7);H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤，方法同前。

据图操作，一目了然，无未来，请放心操作。

O1:(SUM(EMA((CLOSE+LOW)/2,1)/3,3)),COLOR00FFFF,LINETHICK1; O2:EMA(O1,3),COLORFF00FF,LINETHICK1;O3:EMA(O2,3),COLOR00FF00,LINETHICK1;MMM:=MA(CLOSE,20);DRAWTEXT((CLOSE<MMM),MMM,'*'),COLOR00FF00,LINETHICK5; DRAWTEXT((CLOSE>MMM),MMM,'*'),COLOR0000FF,LINETHICK5; VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) ANDCLOSE>=REF(CLOSE,2);VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) ANDCLOSE<=REF(CLOSE,2);VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 ORVAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 ORVAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3.2,0),COLORFF3300; STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),2.7,0),COLORFF5500; STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),2.1,0),COLORFF7700; STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),1.5,0),COLORFF9900; STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0.9,0),COLORFFBB00; STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0.3,0),COLORFFDD00; DRAWTEXT(FILTER(VAR19=1,5),LOW,' 买进'),COLORFF00FF; DRAWICON(FILTER(VAR19=1,5),LOW,9);DRAWTEXT(FILTER(VAR1A=1,5),HIGH,' 逃顶'),COLOR00FF00; DRAWICON(FILTER(VAR1A=1,5),HIGH,15);。

通达信副图源码VAR111:=(C-DMA(C,V/MA(V,4)/4))/DMA(C,V/MA(V,4)/4)*100<-8 AND (DMA(C,V/MA(V,4)/4)-DMA(C,V/MA(V,32)/32))/DMA(C,V/MA(V,32)/32)*100<-21 AND (O-REF(C,1))/REF(C,1)>-0.05 AND COUNT(C=O,3)=0;VAR112:=SMA(SMA((INDEXC-LLV(INDEXL,275))/(HHV(INDEXH,275)-LLV(IND EXL,275))*100,50,1),40,1);{好}VAR113:=(C-MA(C,60))/MA(C,60)*100<-23 AND VAR112<23 ANDCOUNT((C-MA(C,60))/MA(C,60)*100<-20,2)=1 AND (O>C OR O<C) ANDO/REF(C,1)>0.96;VAR114:=(VAR111 OR VAR113);次新买点:IF(VAR114=1 ,1,0),COLORBLUE,LINETHICK3;DRAWTEXT(次新买点,0.7,'←次新买点'),COLORRED;A1:=((MA(C,60)-L)/MA(C,20))*200;B1:=((MA(C,60)-L)/MA(C,60))*200;C1:=((MA(C,30)-L)/MA(C,60))*200;M1:=REF(CLOSE,1);M2:=SMA(MAX(CLOSE-M1,0),7,1)/SMA(ABS(CLOSE-M1),7,1)*100;G1:=FILTER(REF(M2,1)<20 AND M2>REF(M2,1),5);TU:=C/MA(C,40)<0.74;PER1:=5;MMA:=EMA(C,PER1);SMMA:=EMA(MMA,PER1);IMPETMMA:=MMA - REF(MMA,1);IMPETSMMA:=SMMA - REF(SMMA,1);DIVMA:= ABS(MMA - SMMA);TDJ:=(H-L)/REF(C,1)>0.05;AVERIMPET:= (IMPETMMA+IMPETSMMA)/2;TDF:= POW(DIVMA,1)*POW(AVERIMPET,3);NTDF:=TDF/HHV(ABS(TDF),PER1*3);YUL:=COUNT(TDJ,5)>1;启动:=TU AND TDJ AND YUL;确定:=CROSS(NTDF,-0.9);波段:=FILTER((G1 AND C1>20 OR C>REF(C,1)) AND REF(启动,1),10);选股:=FILTER(REF(启动,1) AND (确定OR C>REF(C,1)) AND"MACD.MACD">-1.5,10);妖底:COUNT(选股,13)>=1 AND 波段,LINETHICK2,COLORGRAY; DRAWTEXT(妖底,0.1,'←妖底'),COLORRED;VAR1G:=(((CLOSE/MA(CLOSE,40))*100)<78);VAR2G:=(((CLOSE/MA(CLOSE,60))*100)<74);VAR3G:=(HIGH>(LOW*1.051));VAR4G:=(VAR3G AND (COUNT(VAR3G,5) > 1));VARAA:=IF((VAR4G AND (VAR1G OR VAR2G)),2,0);VARBB:=C/REF(C,25)<=1.1;VARCC:=(SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100)<15; 操盘线:=SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,2,1); VARV5:=SMA(操盘线,2,1);{ M}操盘线抄底:=操盘线>REF(操盘线,1) AND REF(操盘线,1)<REF(操盘线,2) AND 操盘线<23;极品底:VARAA AND VARBB AND VARCC AND 操盘线抄底;DRAWTEXT(极品底,0.4,' ←极品底'),COLORYELLOW;。

HB:=COST(99.9); LB:=COST(0.1); B3:=(HB-LB)/50; B31:=HB-B3;B32:=HB-2*B3; B33:=HB-3*B3; B34:=HB-4*B3; B35:=HB-5*B3; B36:=HB-6*B3; B37:=HB-7*B3; B38:=HB-8*B3; B39:=HB-9*B3; B310:=HB-10*B3; B311:=HB-11*B3; B312:=HB-12*B3; B313:=HB-13*B3; B314:=HB-14*B3; B315:=HB-15*B3; B316:=HB-16*B3; B317:=HB-17*B3; B318:=HB-18*B3; B319:=HB-19*B3; B320:=HB-20*B3; B321:=HB-21*B3; B322:=HB-22*B3; B323:=HB-23*B3; B324:=HB-24*B3; B325:=HB-25*B3;B326:=HB-26*B3;B327:=HB-27*B3;B328:=HB-28*B3;B329:=HB-29*B3;B330:=HB-30*B3;B331:=HB-31*B3;B332:=HB-32*B3;B333:=HB-33*B3;B334:=HB-34*B3;B335:=HB-35*B3;B336:=HB-36*B3;B337:=HB-37*B3;B338:=HB-38*B3;B339:=HB-39*B3;B340:=HB-40*B3;B341:=HB-41*B3;B342:=HB-42*B3;B343:=HB-43*B3;B344:=HB-44*B3;B345:=HB-45*B3;B346:=HB-46*B3;B347:=HB-47*B3;B348:=HB-48*B3;B349:=HB-49*B3;A1:=WINNER(HB)*100-WINNER(B31)*100;A2:=WINNER(B31)*100-WINNER(B32)*100;A3:=WINNER(B32)*100-WINNER(B33)*100;A4:=WINNER(B33)*100-WINNER(B34)*100;A5:=WINNER(B34)*100-WINNER(B35)*100;A6:=WINNER(B35)*100-WINNER(B36)*100;A7:=WINNER(B36)*100-WINNER(B37)*100;A8:=WINNER(B37)*100-WINNER(B38)*100;A9:=WINNER(B38)*100-WINNER(B39)*100;A10:=WINNER(B39)*100-WINNER(B310)*100; A11:=WINNER(B310)*100-WINNER(B311)*100; A12:=WINNER(B311)*100-WINNER(B312)*100; A13:=WINNER(B312)*100-WINNER(B313)*100; A14:=WINNER(B313)*100-WINNER(B314)*100; A15:=WINNER(B314)*100-WINNER(B315)*100; A16:=WINNER(B315)*100-WINNER(B316)*100; A17:=WINNER(B316)*100-WINNER(B317)*100; A18:=WINNER(B317)*100-WINNER(B318)*100; A19:=WINNER(B318)*100-WINNER(B319)*100; A20:=WINNER(B319)*100-WINNER(B320)*100;A21:=WINNER(B320)*100-WINNER(B321)*100;A22:=WINNER(B321)*100-WINNER(B322)*100;A23:=WINNER(B322)*100-WINNER(B323)*100;A24:=WINNER(B323)*100-WINNER(B324)*100;A25:=WINNER(B324)*100-WINNER(B325)*100;A26:=WINNER(B325)*100-WINNER(B326)*100;A27:=WINNER(B326)*100-WINNER(B327)*100;A28:=WINNER(B327)*100-WINNER(B328)*100;A29:=WINNER(B328)*100-WINNER(B329)*100;A30:=WINNER(B329)*100-WINNER(B330)*100;A31:=WINNER(B330)*100-WINNER(B331)*100;A32:=WINNER(B331)*100-WINNER(B332)*100;A33:=WINNER(B332)*100-WINNER(B333)*100;A34:=WINNER(B333)*100-WINNER(B334)*100;A35:=WINNER(B334)*100-WINNER(B335)*100;A36:=WINNER(B335)*100-WINNER(B336)*100;A37:=WINNER(B336)*100-WINNER(B337)*100;A38:=WINNER(B337)*100-WINNER(B338)*100;A39:=WINNER(B338)*100-WINNER(B339)*100;A40:=WINNER(B339)*100-WINNER(B340)*100;A41:=WINNER(B340)*100-WINNER(B341)*100;A42:=WINNER(B341)*100-WINNER(B342)*100;A43:=WINNER(B342)*100-WINNER(B343)*100;A44:=WINNER(B343)*100-WINNER(B344)*100;A45:=WINNER(B344)*100-WINNER(B345)*100;A46:=WINNER(B345)*100-WINNER(B346)*100;A47:=WINNER(B346)*100-WINNER(B347)*100;A48:=WINNER(B347)*100-WINNER(B348)*100;A49:=WINNER(B348)*100-WINNER(B349)*100;A50:=WINNER(B349)*100-WINNER(LB)*100;STICKLINE(ISLASTBAR,HB ,HB ,A1*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B31 ,B31 ,A1*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B32 ,B32 ,A2*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B33 ,B33 ,A3*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B34 ,B34 ,A4*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B35 ,B35 ,A5*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B36 ,B36 ,A6*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B37 ,B37 ,A7*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B38 ,B38 ,A8*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B39 ,B39 ,A9*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B310 ,B310 ,A10*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B311 ,B311 ,A11*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B312 ,B312 ,A12*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B313 ,B313 ,A13*50 ,0 ),COLORYELLOW;STICKLINE(ISLASTBAR,B314 ,B314 ,A14*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B315 ,B315 ,A15*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B316 ,B316 ,A16*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B317 ,B317 ,A17*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B318 ,B318 ,A18*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B319 ,B319 ,A19*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B320 ,B320 ,A20*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B321 ,B321 ,A21*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B322 ,B322 ,A22*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B323 ,B323 ,A23*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B324 ,B324 ,A24*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B325 ,B325 ,A25*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B326 ,B326 ,A26*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B327 ,B327 ,A27*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B328 ,B328 ,A28*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B329 ,B329 ,A29*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B330 ,B330 ,A30*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B331 ,B331 ,A31*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B332 ,B332 ,A32*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B333 ,B333 ,A33*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B334 ,B334 ,A34*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B335 ,B335 ,A35*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B336 ,B336 ,A36*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B337 ,B337 ,A37*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B338 ,B338 ,A38*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B339 ,B339 ,A39*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B340 ,B340 ,A40*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B341 ,B341 ,A41*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B342 ,B342 ,A42*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B343 ,B343 ,A43*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B344 ,B344 ,A44*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B345 ,B345 ,A45*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B346 ,B346 ,A46*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B347 ,B347 ,A47*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,B348 ,B348 ,A48*50 ,0 ),COLORYELLOW; STICKLINE(ISLASTBAR,LB ,LB ,A50*50 ,0 ),COLORYELLOW;。

通达信主图指标综合（附源码）通达信主图指标综合（附源码）获利盘:WINNER(CLOSE)*100,NODRAW;DRAWBAND(MA(CLOSE,20),RGB(33,0,0),MA(CLOSE,60),RGB( 0,0,0));DRAWBAND(MA(CLOSE,5),RGB(150,150,0),MA(CLOSE,10),R GB(0,0,150));DRAWKLINE(H,O,L,C);MA5:MA(CLOSE,5),COLORWHITE;MA10:MA(CLOSE,10),COLORGREEN,LINETHICK2;短线进场:IF(C>=MA10 AND C>=MA5,MA10,DRAWNULL),COLORRED,LINETHICK2;MA20:MA(CLOSE,20),COLORBROWN;中线进场:IF(C>=MA20 AND C>=MA10,MA20,DRAWNULL),COLORYELLOW;MA60:MA(CLOSE,60),COLORCYAN;MA120:MA(CLOSE,120),COLOR006600,LINETHICK2;{趋势买卖}VAR1:=(C+H+O+L)/4;卖出:XMA(VAR1,20)*(1+80/1000),COLORGREEN,POINTDOT;买入:XMA(VAR1,32)*(1-100/1000),COLORMAGENTA,POINTDOT;DRAWTEXT(CROSS(CLOSE,买入),LOW*0.95,'Ｂ'),COLORRED,LINETHICK2;DRAWTEXT(CROSS(卖出,CLOSE),HIGH*1.02,'Ｓ'),COLORGREEN;VOL5:=MA(VOL,5); VOL10:=MA(VOL,10); VOL20:=MA(VOL,20);量托:=VOL5>VOL10 AND VOL5>VOL20 ANDCROSS(VOL10,VOL20); {月均线系统:5,10,20}{金蜘蛛:=MA5>MA10 AND MA10>MA20 AND CROSS(MA5,MA20)AND CROSS(MA10,MA20);}MA2:=MA(C,2);金蜘蛛:=MAX(MAX(MA5,MA10),MA20)<CLOSE AND OPEN<MIN(MIN(MA5,MA10),MA20) AND (MA5>=REF(MA5,1)) AND MA2>REF(MA2,1);出水芙蓉:=(CLOSE>MA5 AND CLOSE>MA10 AND CLOSE>MA20AND COUNT(CLOSE>MA5 AND CLOSE>MA10 AND CLOSE>MA20,8)==1);反弹托:=MA5>MA10 AND MA5>MA20 AND MA20<MA60 AND MA60<MA120 AND CROSS(MA10,MA20);月托:=MA5>MA10 AND MA5>MA20 AND (MA20>=MA60 OR MA60>=MA120)AND CROSS(MA10,MA20); {月均线系统:5,10,20}一阳穿三线:=CLOSE>OPEN {收阳} AND CLOSE>MA5 AND CLOSE>MA10 AND CLOSE>MA20AND OPEN<MA5 AND OPEN<MA10 AND OPEN<MA20AND (REF(CLOSE,1)<REF(MA5,1) OR REF(CLOSE,1)<REF(MA10,1)OR REF(CLOSE,1)<REF(MA20,1)){一阳穿月三根均线};底部:=COUNT(CROSS(MA5,MA10),5)>0 AND COUNT(CROSS(MACD.DIF,MACD.DEA),5)>0 AND COUNT(CROSS(MA(VOL,5),MA(VOL,10)),5)>0;VAR01:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;VAR02:=SMA(SMA(VAR01,3,1),3,1);绝买:=CROSS(3*VAR02-2*EMA(VAR02,5),VAR02) AND VAR02<60 AND CLOSE>O;买的前提条件:=量托 OR 出水芙蓉 OR 金蜘蛛 OR 月托 OR 一阳穿三线 OR 底部 OR 绝买;价压:=MA5<MA10 AND MA5<MA20 AND CROSS(MA20,MA10);死蜘蛛:=MA5<MA10 AND CROSS(MA20,MA5) AND CROSS(MA20,MA10);头部:=COUNT(CROSS(MA10,MA5),5)>0 AND COUNT(CROSS(MACD.DEA,MACD.DIF),5)>0 AND COUNT(CROSS(MA(VOL,10),MA(VOL,5)),5)>0;{可看30分钟线买卖} 断头铡刀:=CLOSE<OPEN {收阴} AND CLOSE<MA5 AND CLOSE<MA10 AND CLOSE<MA20AND HIGH>MA5 AND HIGH>MA10 AND HIGH>MA20AND (REF(CLOSE,1)>REF(MA5,1) OR REF(CLOSE,1)>REF(MA10,1) OR REF(CLOSE,1)>REF(MA20,1)); {一阴下穿三根均线}卖的前提条件:=价压 OR 死蜘蛛 OR 头部 OR 断头铡刀;DRAWTEXT(量托 AND COUNT(量托,5)==1 AND COUNT(卖的前提条件,5)==0,MA5,'量托'),COLORRED;DRAWTEXT(出水芙蓉AND COUNT(出水芙蓉,5)==1 AND COUNT(卖的前提条件,5)==0,MA5,'芙蓉'),COLORRED; {买入};DRAWTEXT(反弹托AND COUNT(反弹托,5)==1 AND COUNT(卖的前提条件,5)==0,MA10,'反弹托'),COLORRED;DRAWTEXT(月托 AND COUNT(月托,5)==1 AND COUNT(卖的前提条件,5)==0,MA10,'月托'),COLORRED;DRAWTEXT(金蜘蛛AND COUNT(金蜘蛛,5)==1 AND COUNT(卖的前提条件,5)==0,MA10,'金蜘蛛');DRAWTEXT(一阳穿三线 AND COUNT(一阳穿三线,5)==1 AND COUNT(卖的前提条件,5)==0,MA5,'阳');DRAWTEXT(底部 AND COUNT(底部,5)==1 AND COUNT(卖的前提条件,5)==0 ,MA5,'底部'),COLORGREEN;DRAWTEXT(绝买 AND COUNT(绝买,5)==1 AND COUNT(卖的前提条件,5)==0,MA5,'绝买'),COLORRED;DRAWTEXT(价压 AND COUNT(价压,5)==1 AND COUNT(买的前提条件,5)==0,MA10,'价压'),COLORYELLOW;DRAWTEXT(死蜘蛛AND COUNT(死蜘蛛,5)==1 AND COUNT(买的前提条件,5)==0,HHV(HIGH,5),'死蜘蛛');DRAWTEXT(断头铡刀AND COUNT(断头铡刀,5)==1,HHV(HIGH,5),'断头'),COLORGREEN;DRAWTEXT(头部 AND COUNT(头部,5)==1 AND COUNT(买的前提条件,5)==0 AND COUNT(卖的前提条件,5)>0,HHV(HIGH,5),'头部');{公式条件:两阳夹一阴;后一个阳收盘价大于前一阴最高价;阴线成交量小于阳线成交量}O1:=REF(O,1); C1:=REF(C,1); H1:=REF(H,1); V1:=REF(V,1);O2:=REF(O,2); C2:=REF(C,2); V2:=REF(V,2);多方炮:=C2>O2 AND C1<O1 AND C>O AND C>H1 AND V1<V2 AND V>V1;DRAWTEXT(COUNT(月托,6)>0 AND 多方炮,CLOSE,'托炮');{短线高手}VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);买１:=VAR10;买２:=(VAR11+VAR13+VAR15+VAR17);卖１:=(VAR12+VAR14+VAR16+VAR18);B:IF(买１>0 OR 买２>0,LOW*0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLORYEL LOW;DRAWTEXT(买１>0 OR 买２>0,LOW*0.98,'买'),COLORRED;S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGR EEN;DRAWTEXT(卖１>0,HIGH*1.02,'卖'),COLORGREEN;VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE;POSITION:=MA120;{买卖点}买卖点1:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;买卖点2:=2*ABS(买卖点1);买卖点3:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);情报:= 100-买卖点3;红军:= IF(买卖点1>0,买卖点1,0);绿军:= IF(买卖点1<0,买卖点2,0);{主力控盘度: 无庄控盘(白色)-动力线上升(深灰色)-开始控盘(红色)-高度控盘(粉色)-主力出货(绿色)}控盘V1:=EMA(EMA(CLOSE,9),9);控盘V2:=100*WINNER(CLOSE*0.95);控盘:=(控盘V1-REF(控盘V1,1))/REF(控盘V1,1)*1000;{专吸庄血修改说明：绿柱前有两条以上白柱的买入更可靠。

通达信庄家仓位综合主图指标公式MA5:MA(C,5);MA6:=MA(C,6);MA13:MA(C,13);MA21:=MA(C,21);MA30:MA(C,30);MA55:MA(C,55);MA120:MA(C,120);A2:=REF(MA21,1);J1:=(MA21-A2)/A2*100;MJ1:=MA(J1,3);乖离2:=(MA21-MA30)/MA30*100;VAR1:=IF(BETWEEN(乖离2,-2,5),2,0);MAX1:=MAX(MA21,MA30);MAX2:=MAX(MAX1,MA55);MIN1:=MIN(MA21,MA30);MIN2:=MIN(MIN1,MA55);K1:=(MAX2/MIN2-1)*100;{粘合度符合条件}VAR2:=IF(K1<=8,1,0);上火车轨:=MA21>MA30 AND MA21>REF(MA21,1) AND MA30>REF(MA30,1) AND MA21-MA30>REF((MA21-MA30),1) ;STICKLINE(上火车轨,MA21,MA30,0,0),COLORRED;神枪手:=DRAWTEXT(FILTER(上火车轨 AND "MACD.DIF"<0.15 AND "MACD.DIF">REF("MACD.DIF",1) AND MA(V,60)>REF(MA(V,60),1) AND MA(V,5)>MA(V,10) AND J1>REF(J1,1) AND( L<=MA21 AND C>MA21 OR (CROSS(MA5,MA21)) ),5),L*0.98,'←神枪手');神枪手选股:FILTER(上火车轨AND "MACD.DIF"<0.15 AND "MACD.DIF">REF("MACD.DIF",1) AND MA(V,60)>REF(MA(V,60),1) AND MA(V,5)>MA(V,10) AND J1>REF(J1,1) AND( L<=MA21 AND C>MA21 OR (CROSS(MA5,MA21)) ),5);{44.40%15240}短线暴涨:DRAWTEXT(FILTER( (VAR1 OR VAR2) AND MA13>REF(MA13,1) AND COUNT(MA30>REF(MA30,1),3)=3 AND MA30>MA55 AND COUNT(CROSS(MA5,MA30),3) AND J1>MJ1 AND MA(V,5)>MA(V,60)AND MA(V,60)>REF(MA(V,60),1),5),MA55*0.99,'短线暴涨'),COLORRED;DRAWTEXT(CROSS("KDJ.K"(5,2,3),"KDJ.D"(5,2,3)) AND "KDJ.D"(5,2,3)<30 AND J1>MJ1 AND MA55>REF(MA55,1) AND COUNT(J1<1,3)>=1 ,L*0.995,'←买入'),COLORYELLOW;DRAWTEXT(CROSS("KDJ.D"(5,2,3),"KDJ.K"(5,2,3)) AND "KDJ.D"(5,2,3)>65 AND J1<MJ1 AND COUNT(J1>1,3)>=1,H*1.005,'←卖出'),COLORGREEN;DRAWTEXT(CROSS("KDJ.D"(18,9,6),"KDJ.K"(18,9,6)) AND "KDJ.D"(18,9,6)>60 AND "KDJ.J"(45,15,15)>90,H*1.03,'←顶'),COLORRED;DRAWTEXT(CROSS(MA5,MA6) AND "KDJ.K"(5,3,3)>=50 AND "KDJ.J"(5,3,3)<31 ,L*0.92,'←再买'),COLORMAGENTA;XL1:=((LLV(LOW,3) = LLV(LOW,60)) AND ((CLOSE / REF(CLOSE,1)) >= 1.04));XL2:=(((CLOSE - EMA(CLOSE,21)) / EMA(CLOSE,21)) * 100);XL3:=CROSS(XL2,(0 - 20));DRAWTEXT(FILTER(((XL1 > 0) AND LOW),5),(LOW - 0.4),'●买点');DRAWTEXT((XL3 > 0),(LOW - 0.2),'●绝对底部');X6:=REF(CLOSE,1);X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(ABS((CLOSE - X6)),7,1)) * 100);X8:=CROSS(79,X7);X9:=FILTER(X8,4);DRAWTEXT(X9,(HIGH * 1.02),'●出货'),COLOR9000F5;STICKLINE(C>1.098*REF(C,1),C,O,0,0),COLORYELLOW;AAA:=CONST(HHV(H,90));R1:=MA(CLOSE,1);R2:=MA(CLOSE,3);R3:=(MA(R2,1)*1);R4:=(MA(R2,3)*1);DRAWTEXT(CROSS(R3,R4),(LOW-0.1),'进'),COLORYELLOW;X1:=(C+L+H)/3;DD:=TOTALCAPITAL;SS:=FINANCE(7);GG:=FINANCE(33);TH:=DYNAINFO(39);A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);LC:=REF(CLOSE,1);RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);FF:=EMA(CLOSE,3);MA15:=EMA(CLOSE,21);DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'出'),COLORGREEN;{双线持币:HHV(MA(HIGH,(3)),2),LINETHICK1,COLOR00FF00;单线持股:LLV(MA(HIGH,(3)),1),LINETHICK1,COLOR0000FF;}VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;VAR12:=(HIGH+LOW+CLOSE)/3;VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));VAR15:=IF(VAR13>=150 AND VAR13<200 ANDVAR14>=150 AND VAR14<200,10,0);VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;VAR18:=100-ABS(VAR17);VAR19:=IF(VAR18<90,VAR18,100);VAR1A:=IF(VARE>0,VARE,0);VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,HIGH*1.02,'大笔出货'),LINETHICK1,COLORFFCC66;AA1:=AMOUNT/V;BB1:=L<AA1*0.9;CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;DD1:=L<MA(C,5)*0.921;EE1:=V<MA(V,5)*1.5;老鼠仓:=BB1 AND CC1 AND DD1 AND EE1,LINETHICK0;DRAWTEXT(老鼠仓,(LOW* 0.99),'老鼠仓'),COLOR40CCFF;A74:=MA(CLOSE,20);A75:=(CLOSE > MA(CLOSE,5));A76:=(MA(CLOSE,5) > MA(CLOSE,10));A77:=(CLOSE > MA(CLOSE,10));A78:=(MA(CLOSE,5) > MA(CLOSE,20));A79:=(CLOSE > MA(CLOSE,20));A710:=REF(A74,1);A711:=(A74 > A710);AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10)))+ IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 -10)));DSLX:=(CLOSE / INDEXC);DSLX1:=MA(DSLX,5);DSLX2:=MA(DSLX,10);V1:=MA(VOL,5);V2:=MA(VOL,10);T1:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));T2:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));T3:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)),1,0));T4:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)),1,0));T5:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));T6:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));T7:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));T8:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));T9:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));T10:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));T11:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));T12:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));T13:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));T14:=CONST(IF( C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));T15:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));T16:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));T17:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 >= V2)),1,0));T18:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 >= V2)),1,0));T19:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 < V2)),1,0));T20:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1 >= V2)),1,0));T21:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1 < V2)),1,0));T22:=CONST(IF(C>200 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)),1,0));T23:=CONST(IF(C>200 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)),1,0));T24:=CONST(IF(C>200 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)),1,0));T25:=CONST(IF(C>200 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)),1,0));DRAWTEXT(T1=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03),'量能理想,明显走强,中线参与，仓位在2/3左右'),COLORFF00FF ;DRAWTEXT(T2=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03),'走势趋强,还显不足,短线进场，仓位在1/2左右'),COLORFF00FF ;DRAWTEXT(T3=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03),'量价良好,没有明显走强，短线进场，仓位1/2左右'),COLORFF00FF ;DRAWTEXT(T4=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03),'形态尚可，量能不足，未完全走强，短线参与，仓位1/3左右'),COLORFF00FF ;DRAWTEXT(T5=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03),'形态变坏，重仓者减持大半，清仓者观望'),COLORFF00FF ;DRAWTEXT(T6=1 AND CURRBARSCOUNT=70,AAA*0.98,'随大盘一起下跌，明显缩量走势，考虑到风险，减持或清仓'),COLORFF00FF ;DRAWTEXT(T7=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03),'该股放量下跌，走势明显偏弱，离场观望'),COLORFF00FF ;DRAWTEXT(T8=1 AND CURRBARSCOUNT=70,AAA-(AAA*0.03),'该股缩量下跌，走势偏弱，离场观望。

通达信成本计算主图指标公式源码不错，好玩。

但设计不方便，有时间的同学可以改进。

用法：源码里面有股票代码、时间、价格、数量，可以将你买入的股票相应的数据填入，过几天就可以方便的看到你的收益情况。

{成本计算(主图)}上18H:WMA(SMA(HHV(HIGH,18),9/2,1),3),COLOR00FFFF,LINETHICK1;下18L:WMA(SMA(LLV(LOW,18),9/2,1),3),COLORFFFFFF,LINETHICK1;{第一只个股，填入代码、买入时间、价位及股数}代码1:=CODELIKE('0');买入时间1:=YEAR{年}=0 AND MONTH{月}=0 AND DAY{日}=0;买入价位1:=15.62;买入股数1:=1200;天数1:=BARSLAST(买入时间1);{第二只个股，填入代码、买入时间、价位及股数}代码2:=CODELIKE('0');{在[0]位置处填写个股代码}买入时间2:=YEAR{年}=0 AND MONTH {月}=0 AND DAY{日}=0;买入价位2:=0;买入股数2:=0;天数2:=BARSLAST(买入时间2);{第三只个股，填入代码、买入时间、价位及股数}代码3:=CODELIKE('0');买入时间3:=YEAR{年}=0 AND MONTH{月}=0 AND DAY{日}=0;买入价位3:=0;买入股数3:=0;天数3:=BARSLAST(买入时间3);{第四只个股，填入代码、买入时间、价位及股数}代码4:=CODELIKE('0');买入时间4:=YEAR{年}=0 AND MONTH{月}=0 AND DAY{日}=0;买入价位4:=0;买入股数4:=0;天数4:=BARSLAST(买入时间4);{第五只个股，填入代码、买入时间、价位及股数}代码5:=CODELIKE('0');买入时间5:=YEAR{年}=0 AND MONTH{月}=0 AND DAY{日}=0;买入价位5:=0;买入股数5:=0;天数5:=BARSLAST(买入时间5);{第六只个股，填入代码、买入时间、价位及股数}代码6:=CODELIKE('0');买入时间6:=YEAR{年}=0 AND MONTH{月}=0 AND DAY{日}=0;买入价位6:=0;买入股数6:=0;天数6:=BARSLAST(买入时间6);{--------------------------------------------------------------------------------}{1}买入个股时间1:=IF(代码1,买入时间1,0);买入价格1:=IF(买入个股时间1,买入价位1,0);买入价1:=REF(买入价位1,BARSLAST(买入个股时间1));现价1:=IF(BARSLAST(买入个股时间1)+1>=1,CONST(C),0);最高价条件1:=IF(BARSLAST(买入个股时间1)+1>=1,H=HHV(H,BARSLAST(买入个股时间1)+1),0);最高价横线1:=IF(BARSLAST(最高价条件1)>=0 AND BARSLAST(买入个股时间1)+1>=1,CONST(REF(H,BARSLAST(最高价条件1))),0);最低价条件1:=IF(BARSLAST(买入个股时间1)+1>=1,L=LLV(L,BARSLAST(买入个股时间1)+1),0);最低价横线1:=IF(BARSLAST(最低价条件1)+1>=1 AND BARSLAST(买入个股时间1)+1>=1,CONST(REF(L,BARSLAST(最低价条件1))),0);{2}买入个股时间2:=IF(代码2,买入时间2,0);买入价格2:=IF(买入个股时间2,买入价位2,0);买入价2:=REF(买入价位2,BARSLAST(买入个股时间2));现价2:=IF(BARSLAST(买入个股时间2)+1>=1,CONST(C),0);最高价条件2:=IF(BARSLAST(买入个股时间2)+1>=1,H=HHV(H,BARSLAST(买入个股时间2)+1),0);最高价横线2:=IF(BARSLAST(最高价条件2)+1>=1 AND BARSLAST(买入个股时间2)+1>=1,CONST(REF(H,BARSLAST(最高价条件2))),0);最低价条件2:=IF(BARSLAST(买入个股时间2)+1>=1,L=LLV(L,BARSLAST(买入个股时间2)+1),0);最低价横线2:=IF(BARSLAST(最低价条件2)+1>=1 AND BARSLAST(买入个股时间2)+1>=1,CONST(REF(L,BARSLAST(最低价条件2))),0);{3}买入个股时间3:=IF(代码3,买入时间3,0);买入价格3:=IF(买入个股时间3,买入价位3,0);买入价3:=REF(买入价位3,BARSLAST(买入个股时间3));现价3:=IF(BARSLAST(买入个股时间3)+1>=1,CONST(C),0);最高价条件3:=IF(BARSLAST(买入个股时间3)+1>=1,H=HHV(H,BARSLAST(买入个股时间3)+1),0);最高价横线3:=IF(BARSLAST(最高价条件3)+1>=1 AND BARSLAST(买入个股时间3)>=0,CONST(REF(H,BARSLAST(最高价条件3))),0);最低价条件3:=IF(BARSLAST(买入个股时间3)+1>=1,L=LLV(L,BARSLAST(买入个股时间3)+1),0);最低价横线3:=IF(BARSLAST(最低价条件3)+1>=1 AND BARSLAST(买入个股时间3)+1>=1,CONST(REF(L,BARSLAST(最低价条件3))),0);{4}买入个股时间4:=IF(代码4,买入时间4,0);买入价格4:=IF(买入个股时间4,买入价位4,0);买入价4:=REF(买入价位4,BARSLAST(买入个股时间4));现价4:=IF(BARSLAST(买入个股时间4)+1>=1,CONST(C),0);最高价条件4:=IF(BARSLAST(买入个股时间4)+1>=1,H=HHV(H,BARSLAST(买入个股时间4)+1),0);最高价横线4:=IF(BARSLAST(最高价条件4)+1>=1 AND BARSLAST(买入个股时间4)>=0,CONST(REF(H,BARSLAST(最高价条件4))),0);最低价条件4:=IF(BARSLAST(买入个股时间4)+1>=1,L=LLV(L,BARSLAST(买入个股时间4)+1),0);最低价横线4:=IF(BARSLAST(最低价条件4)+1>=1 AND BARSLAST(买入个股时间4)+1>=1,CONST(REF(L,BARSLAST(最低价条件4))),0);{5}买入个股时间5:=IF(代码5,买入时间5,0);买入价格5:=IF(买入个股时间5,买入价位5,0);买入价5:=REF(买入价位5,BARSLAST(买入个股时间5));现价5:=IF(BARSLAST(买入个股时间5)+1>=1,CONST(C),0);最高价条件5:=IF(BARSLAST(买入个股时间5)+1>=1,H=HHV(H,BARSLAST(买入个股时间5)+1),0);最高价横线5:=IF(BARSLAST(最高价条件5)>=0 AND BARSLAST(买入个股时间5)+1>=1,CONST(REF(H,BARSLAST(最高价条件5))),0);最低价条件5:=IF(BARSLAST(买入个股时间5)+1>=1,L=LLV(L,BARSLAST(买入个股时间5)+1),0);最低价横线5:=IF(BARSLAST(最低价条件5)+1>=1 AND BARSLAST(买入个股时间5)+1>=1,CONST(REF(L,BARSLAST(最低价条件5))),0);{6}买入个股时间6:=IF(代码6,买入时间6,0);买入价格6:=IF(买入个股时间6,买入价位6,0);买入价6:=REF(买入价位6,BARSLAST(买入个股时间6));现价6:=IF(BARSLAST(买入个股时间6)+1>=1,CONST(C),0);最高价条件6:=IF(BARSLAST(买入个股时间6)+1>=1,H=HHV(H,BARSLAST(买入个股时间6)+1),0);最高价横线6:=IF(BARSLAST(最高价条件6)+1>=1 AND BARSLAST(买入个股时间6)+1>=1,CONST(REF(H,BARSLAST(最高价条件6))),0);最低价条件6:=IF(BARSLAST(买入个股时间6)+1>=1,L=LLV(L,BARSLAST(买入个股时间6)+1),0);最低价横线6:=IF(BARSLAST(最低价条件6)+1>=1 AND BARSLAST(买入个股时间6)+1>=1,CONST(REF(L,BARSLAST(最低价条件6))),0);{---------------------------------------------------------------------------------};持股数量【股】:IF(代码1,买入股数1,IF(代码2,买入股数2,IF(代码3,买入股数3,IF(代码4,买入股数4,IF(代码5,买入股数5,IF(代码6,买入股数6,DRAWNULL)))))),NODRAW;持股天数:IF(代码1,天数1,IF(代码2,天数2,IF(代码3,天数3,IF(代码4,天数4,IF(代码5,天数5,IF(代码6,天数6,DRAWNULL)))))),NODRAW; 最高价:IF(代码1,最高价横线1,IF(代码2,最高价横线2,IF(代码3,最高价横线3, IF(代码4,最高价横线4,IF(代码5,最高价横线5,IF(代码6,最高价横线6,DRAWNULL)))))),COLOR00009B;最低价:IF(代码1,最低价横线1,IF(代码2,最低价横线2,IF(代码3,最低价横线3, IF(代码4,最低价横线4,IF(代码5,最低价横线5,IF(代码6,最低价横线6,DRAWNULL)))))),COLOR009B00;买入价:IF(代码1,买入价1,IF(代码2,买入价2,IF(代码3,买入价3,IF(代码4,买入价4,IF(代码5,买入价5,IF(代码6,买入价6,DRAWNULL)))))),COLORGREEN;现价:IF(代码1,现价1,IF(代码2,现价2,IF(代码3,现价3,IF(代码4,现价4,IF(代码5,现价5,IF(代码6,现价6,DRAWNULL)))))),COLORMAGENTA;买入时间:=IF(代码1,买入时间1,IF(代码2,买入时间2,IF(代码3,买入时间3, IF(代码4,买入时间4,IF(代码5,买入时间5,IF(代码6,买入时间6,DRAWNULL))))));股数:=IF(代码1,买入股数1,IF(代码2,买入股数2,IF(代码3,买入股数3,IF(代码4,买入股数4,IF(代码5,买入股数5,IF(代码6,买入股数6,DRAWNULL))))));STICKLINE(CROSS(买入时间,0.5),IF(现价>买入价,现价,买入价),最高价,0,0),COLOR00009B;STICKLINE(ISLASTBAR,IF(现价>买入价,现价,买入价),最高价,0,0),COLOR00009B;STICKLINE(CROSS(买入时间,0.5),IF(现价<买入价,现价,买入价),最低价,0,0),COLOR009B00;STICKLINE(ISLASTBAR,IF(现价<买入价,现价,买入价),最低价,0,0),COLOR009B00;DRAWBAND(现价,RGB(155,0,0),买入价,RGB(0,155,0));DRAWBAND(买入价,RGB(0,255,0),买入价,RGB(0,255,0));DRAWBAND(现价,RGB(255,0,255),现价,RGB(255,0,255));DRAWKLINE(HIGH,OPEN,LOW,CLOSE);D1:=YEAR AND MONTH AND DAY;AA1:=STRCAT(CON2STR(YEAR,0),'年');AA2:=STRCAT(CON2STR(MONTH,0),'月');AA3:=STRCAT(CON2STR(DAY,0),'日');AA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日'))))))); AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】'); DRAWTEXT_FIX(D1,0,1,0,AA),COLORGREEN;现赢利:=(现价-买入价)/买入价*100;曾浮赢:=(最高价-买入价)/买入价*100;曾浮亏:=(最低价-买入价)/买入价*100;金额:=买入价*现赢利*股数/100;WW1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT('【','曾浮赢'),'】'),':'),CON2STR(曾浮赢,2)),'﹪');WW2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT('【','曾浮亏'),'】'),':'),CON2STR(曾浮亏,2)),'﹪');WW3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT('【','现赢利'),'】'),':'),CON2STR(现赢利,2)),'﹪');WW4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT('【','现亏损'),'】'),':'),CON2STR(现赢利,2)),'﹪');WW5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT('【','利润'),'】'),':'),CON2STR(金额,0)),'元');WW6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT('【','亏损'),'】'),':'),CON2STR(金额,0)),'元');DRAWTEXT_FIX(HHV(H,80)=最高价,0.8,0,0,WW1),COLOR00009B; DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高价OR HHV(H,80)<最高价) AND 最高价>0,0.81,0.01,0,WW1),COLORFF99FF;DRAWTEXT_FIX(HHV(H,80)=最高价,0.64,0,0,WW2),COLOR009B00; DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高价OR HHV(H,80)<最高价) AND 最高价>0,0.65,0.01,0,WW2),COLOR00FF00;DRAWTEXT_FIX(HHV(H,80)=最高价AND 现价>=买入价,0.64,1,0,WW3),COLORRED;DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高价OR HHV(H,80)<最高价) AND 最高价>0 AND现价>=买入价,0.67,1,0,WW3),COLORRED;DRAWTEXT_FIX(HHV(H,80)=最高价AND 现价<买入价,0.64,1,0,WW4),COLORGREEN;DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高价OR HHV(H,80)<最高价) AND 最高价>0 AND现价<买入价,0.67,1,0,WW4),COLORGREEN;DRAWTEXT_FIX(HHV(H,80)=最高价AND 现价>=买入价,0.8,1,0,WW5),COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高价OR HHV(H,80)<最高价) AND 最高价>0 AND现价>=买入价,0.83,1,0,WW5),COLORYELLOW;DRAWTEXT_FIX(HHV(H,80)=最高价AND 现价<买入价,0.8,1,0,WW6),COLORWHITE;DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高价OR HHV(H,80)<最高价)AND 最高价>0 AND现价<买入价,0.83,1,0,WW6),COLORWHITE;。