逃顶主图，落袋为安（通达信公式 主图 源码 测试图）
逃顶主图，落袋为安{逃顶主图}MA5:=MA(C,5);MA13:MA(C,13);MA34:MA(C,34),COLORRED;MA55:MA(C,55),COLORYELLOW,LINETHICK2;MA88:=MA(C,88);LC:=REF(CLOSE,1); RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; 低吸:=CROSS(RSI,11);DRAWTEXT(低吸,L-0.05,' 2成仓'),COLORYELLOW;VAR7:=EMA(AMOUNT/VOL/100,3);VAR8:=EMA(VAR7,88);VAR9:=EMA(VAR7,88)*0.85;VARA:=VAR9*0.87;VARB:=LOW<VARA AND CLOSE>REF(CLOSE,1)*1.02;DRAWTEXT(FILTER(VARB,6),L-0.45,'★杀庄'),COLORFF00FF;VARF:=(2*CLOSE+HIGH+LOW)/4;VA4:=LLV(LOW,34);VA5:=HHV(HIGH,34);VA6:=EMA((VARF-VA4)/(VA5-VA4)*100,6);VA7:=EMA(0.667*REF(VA6,1)+0.333*VA6,4);DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VA6>VA7,3) AND REF(LOW,1)=LLV(LOW,120) ANDCLOSE>OPEN,1,0),L,'★'),COLORYELLOW;DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VA6>VA7,3) AND REF(LOW,1)=LLV(LOW,120) ANDCLOSE>OPEN,1,0),L,'一成仓'),COLORYELLOW;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*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/211;D2:=EMA(D1,2);D3:=EMA(D2,2);K1:=EMA(D3,2);多方趋势:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1),2,1);天线:=78.89;STICKLINE(CROSS(天线,多方趋势),H*1.02,H*1.00,6,0),COLOR00FF00;DRAWTEXT(CROSS(天线,多方趋势),H*1.04,'落袋'),COLOR00FF00;ZF:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(DYBLOCK,' '),HYBLOCK),' '),GNBLOCK),' '),FGBLOCK);DRAWTEXT_FIX(ISLASTBAR,0,0,0,ZF),COLORYELLOW;C6:=REF(C,1);涨停:=IF((C-C6)*100/C6>=(10-0.01*100/C6),1,0);STICKLINE(涨停,OPEN,CLOSE,2,0),COLORMAGENTA;{逃顶主图}STICKLINE(涨停,H,L,0,0),COLORLIRED;跌停:=(REF(C,1)-C)*100/REF(C,1)>=(10-1/REF(C,1)) AND (REF(C,1)-C)*100/REF(C,1)<=(10+1/REF(C,1)) AND L=C;STICKLINE(跌停,OPEN,CLOSE,2,0),COLORYELLOW;涨停日:=CLOSE/REF(CLOSE,1)>=1.095;ZTCS:=COUNT(涨停,BARSLAST(涨停+1));ZTCS90:=COUNT(涨停,90);{DRAWNUMBER(涨停,HIGH*1.04,ZTCS90),COLORYELLOW;}GZT1:=STRCAT(' 共涨停: ',CON2STR(ZTCS,0));GZT2:=STRCAT(GZT1,'次');SSTS1:=STRCAT(' 上市: ',CON2STR(FINANCE(42),0));SSTS2:=STRCAT(SSTS1,'天');NTZZT1:=STRCAT(' 距今:',CON2STR(CONST(BARSLAST(涨停)),0));NTZZT2:=STRCAT(NTZZT1,'天有涨停');ZTTJ1:=STRCAT(SSTS2,GZT2);ZTTJ2:=STRCAT(ZTTJ1,NTZZT2);ZTTJ:=STRCAT('涨停统计:',ZTTJ2);DRAWTEXT_FIX(CURRBARSCOUNT=1,0,5,0,ZTTJ),COLORYELLOW;获利比例:WINNER(CLOSE)*100,NODRAW;O1:=CROSS(REF(LLV(L,20),1)*1.01,L);O2:=MIN(C,O)>L*1.03&&C>REF(LLV(L,20),1)&&BARSLAST(REF(LLV(L,20)=L,1))>6;O3:=O1&&O2;O4:=O>C &&EXIST(O3,2);DRAWTEXT(O4,L-0.35,'短底');MA1:MA(CLOSE,5);MA2:MA(CLOSE,20);A1:=COUNT(CROSS(MA(C,5),MA(C,20)),10)>=1;DRAWTEXT(MA1>=MA2 AND L<=MA2 AND C>=MA2 AND A1,L-1.8,'2成仓'),COLORYELLOW;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,'五',''))))));AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),AA3),AA4);DRAWTEXT_FIX(ISLASTBAR,0.4,0,0,AA),COLORYELLOW;
谢谢，谢谢！找了很久了！ 有道理。。。 我抢、我抢、我抢沙发~ my god！好东西！ 已收藏！ 我是个凑数的。。。 牛人一个
页:
[1]