源码
N:=100;
KK:=BARSLAST(CURRBARSCOUNT=N);
GD:=CONST(IF(ISLASTBAR=1,HHV(H,KK),0));{高点}
DD:=CONST(IF(ISLASTBAR=1,LLV(L,KK),0));{低点}
KJ:=GD-DD;{高低点差值=分区高度}
GD4:=IF(CURRBARSCOUNT<=N,GD,DRAWNULL);
高区:=IF(CURRBARSCOUNT<=N,GD,DRAWNULL),COLORRED,LINETHICK2;
低区:=IF(CURRBARSCOUNT<=N,DD,DRAWNULL),COLOR00FF00,LINETHICK2;
平衡:=IF(CURRBARSCOUNT<=N,DD+KJ/2,DRAWNULL),COLOR00FFFF;
低:=IF(CURRBARSCOUNT<=N/2,DD,DRAWNULL),COLORFFFF00;
高:=IF(CURRBARSCOUNT<=N/2,GD,DRAWNULL),COLOR00FFFF;
支撑:=IF(CURRBARSCOUNT<=N/2,DD+KJ*0.191,DRAWNULL),COLOR00FFFF;
强势:=IF(CURRBARSCOUNT<=N,DD+KJ*0.382,DRAWNULL),COLORFF00FF;
突破:=IF(CURRBARSCOUNT<=N,DD+KJ/2,DRAWNULL),COLOR0000FF;
警示:=IF(CURRBARSCOUNT<=N/2,DD+KJ*0.618,DRAWNULL),COLOR00FFFF;
压力:=IF(CURRBARSCOUNT<=N,DD+KJ*0.809,DRAWNULL),COLOR00FF00;
低涨:=IF(CURRBARSCOUNT<=N/2,(C/LLV(LOW,KK)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;
天数:BARSLAST(L=DD),COLORCYAN,NODRAW;
顶点:IF(CURRBARSCOUNT<=N, CONST(IF(ISLASTBAR=1,HHV(H, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,CROSSDOT;
低点:IF(CURRBARSCOUNT<=N, CONST(IF(ISLASTBAR=1,LLV(L, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORMAGENTA,CROSSDOT;
STICKLINE(CCI>=200 AND H>=顶点,O,C,2,0),COLORBLUE;
STICKLINE(CCI<=100 AND L<=低点,O,C,2,0),COLORYELLOW;
DRAWBAND(高区,RGB(120,20,0),强势,RGB(0,0,0));
DRAWBAND(强势,RGB(80,0,100),低区,RGB(0,0,0));
DRAWBAND(高,RGB(100,100,0),压力,RGB(0,0,0));
STICKLINE(CURRBARSCOUNT=N,GD,DD,0,0),COLORGREEN;
STICKLINE(CURRBARSCOUNT=N/2,GD,DD,0,0),COLOR408080;
STICKLINE(CURRBARSCOUNT=1,GD,DD,0,0),COLORGREEN;
STICKLINE(CURRBARSCOUNT<=N,支撑,支撑,2,0),COLORFF00FF;
STICKLINE(CURRBARSCOUNT<=N,强势,强势,2,0),COLORFF00FF;
STICKLINE(CURRBARSCOUNT<=N,压力,压力,2,0),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N/4+8,GD-KJ*0.09,'【风险区】--高抛避险'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N/4+10,GD-KJ*0.4,'【拉升区】--强势畜锐'),COLORFFFF80;
DRAWTEXT(CURRBARSCOUNT=N/4+15,DD+KJ/3,'【关注区】--逢低买入'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N/4+20,DD+KJ/10,'【低吸区】--大胆买入'),COLOR00FF00;
DRAWTEXT(CURRBARSCOUNT=N/2+10,GD-KJ*0.25,'【拉升区】'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=N/2+10,DD+KJ*0.25,'【持股区】'),COLORYELLOW;
高1:=REF(HHV(H,120),3);
低1:=REF(LLV(L,120),3);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
突破1:=REF(EMA(C,14),1);
A1XL:=(EMA(C,10)-突破1)/突破1*100;
基准:=IF(A1XL>=0,REF(EMA(C,10),BARSLAST(CROSS(A1XL,0))+1),REF(EMA(C,10),BARSLAST(CROSS(0,A1XL))+1));
STICKLINE(A1XL>=0,基准,突破1,0.5,0),COLOR408080;
第一防线:REFDATE(低,DATE),POINTDOT,COLORYELLOW,LINETHICK3;
第二防线:REFDATE(支撑,DATE),POINTDOT,COLORWHITE,LINETHICK3;
VAR11:=MA(C,9),COLORRED;
上升通道:IF(VAR11>REF(VAR11,1),VAR11,DRAWNULL),LINETHICK5,COLORRED;
下降通道:IF(VAR11 RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100; K24:=SMA(RSV24,3,1); D24:=SMA(K24,3,1); J24:=3*K24-2*D24; 压力位:IF(CROSS(J24,J),H,REF(H,BARSLAST(CROSS(J24,J)))),COLOR66CC66,LINETHICK3; 支撑位:IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24)))),COLORCC33CC,LINETHICK3; {支撑价:LLV(LOW,34),COLOR0088FF,DOTLINE,LINETHICK2; 阻力价:HHV(HIGH,34),COLORFF9900,DOTLINE,LINETHICK2;} A0:=(L+H+C*2)/4; AA:=EMA(A0,14)COLORYELLOW,LINETHICK1; BB:=EMA(A0,25)COLORYELLOW,LINETHICK2; A1X:=(AA-REF(AA,1))/REF(AA,1)*100; A2X:=(BB-REF(BB,1))/REF(BB,1)*100; G:=BARSLAST(CROSS(A1X,0)); CC:=IF(CURRBARSCOUNT<18,CONST(REF(C,1)),DRAWNULL),COLORBLUE; 必卖止损价位:REF(A0,G),COLORFFFFFF,LINETHICK3; DRAWKLINE(H,O,L,C); ZKP:=IF(C>REF(C,1),REF(C,1),DRAWNULL); ZSP:=IF(C>REF(C,1),C,DRAWNULL); DKP:=IF(C<=REF(C,1),REF(C,1),DRAWNULL); DSP:=IF(C<=REF(C,1),C,DRAWNULL); DRAWKLINE(H,DKP,L,DSP); STICKLINE(C<=REF(C,1),DKP,DSP,3.05,0),COLORBLUE; STICKLINE(C<=REF(C,1),DKP,DSP,2.2,0),COLORFF7700; STICKLINE(C<=REF(C,1),DKP,DSP,1.5,0),COLORFF9900; STICKLINE(C<=REF(C,1),DKP,DSP,0.5,0),COLORFFBB00; DRAWKLINE(H,ZKP,L,ZSP); STICKLINE(C>REF(C,1),ZKP,ZSP,3.05,0),COLOR000099; STICKLINE(C>REF(C,1),ZKP,ZSP,2.2,0),COLOR0000CC; STICKLINE(C>REF(C,1),ZKP,ZSP,1.5,0),COLOR0000FF; STICKLINE(C>REF(C,1),ZKP,ZSP,0.5,0),COLORCC66FF; STICKLINE(V/REF(V,1)>2 AND CLOSE>=OPEN,ZKP,ZSP,1,0),COLORYELLOW; TY:=C; A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10); A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10); 前期高位:REF(C,BARSLAST(HD)),COLOR8000FF,POINTDOT; STICKLINE(C,前期高位,前期高位,8,0),COLOR8000FF; JRH:=HHV(C,2); JRL:=LLV(C,2); VAR01:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2)); VAR02:=(REF(VAR01,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR03:=(REF(VAR02,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VAR04:=(REF(VAR03,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR05:=(REF(VAR04,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VAR06:=(REF(VAR05,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR07:=(REF(VAR06,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VAR08:=(REF(VAR07,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR09:=(REF(VAR08,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VARA:=(REF(VAR09,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VARC:=(REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VARD:=(CLOSE VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR010:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VAR011:=(REF(VAR010,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR012:=(REF(VAR011,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VAR013:=(REF(VAR012,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR014:=(REF(VAR013,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VAR015:=(REF(VAR014,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR016:=(REF(VAR015,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VAR017:=(REF(VAR016,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); VAR018:=(REF(VAR017,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); VAR019:=((REF(VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR012 OR VAR013 OR VAR014 OR VAR015 OR VAR016 OR VAR017 OR VAR018,1)) AND VAR01); VAR1A:=((REF(VAR01 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR06 OR VAR07 OR VAR08 OR VAR09 OR VARA OR VARB OR VARC,1)) AND VARD); 红色持股:=VAR01 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR06 OR VAR07 OR VAR08 OR VAR09 OR VARA OR VARB OR VARC,COLOR0000FF,NODRAW; 离场:=IF(红色持股,JRL,DRAWNULL); 明离场价:=离场,COLORFF99FF,NODRAW; 青色观望:=VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR012 OR VAR013 OR VAR014 OR VAR015 OR VAR016 OR VAR017 OR VAR018,COLORFFFF00,NODRAW; 进:=IF(青色观望,JRH,DRAWNULL); 今离场价:REF(离场,1),COLOR0000FF,NODRAW; 明进场价:进,COLOR33AACC,NODRAW; 今进场价:REF(明进场价,1),COLORGREEN,NODRAW; DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR00FFFF; DRAWTEXT_FIX(1,0.06,0,0,HYBLOCK)COLOR00FFFF; DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLOR00FFFF; DRAWTEXT_FIX(1,0.20,0,0,DYBLOCK)COLOR00FFFF; DRAWTEXT_FIX(1,0.00,0.10,0,'莸利比例:'),COLORYELLOW; DRAWNUMBER_FIX(1,0.06,0.10,0,CONST(WINNER(C )*100)),COLOR0080FF; DRAWTEXT_FIX(1,0.12,0.10,0,'动态PE:'),COLORYELLOW; DRAWNUMBER_FIX(1,0.17,0.10,0,CONST(DYNAINFO(39))),COLOR0080FF; DRAWTEXT_FIX(1,0.22,0.10,0,'市值:'),COLORYELLOW; DRAWNUMBER_FIX(1,0.26,0.10,0,FINANCE(40)/100000000),COLOR0080FF; DRAWTEXT_FIX (1,0.31,0.10,0,'公积金(股):'),COLORYELLOW; DRAWNUMBER_FIX(1,0.38,0.10,0,FINANCE(18)),COLOR0080FF; DRAWTEXT_FIX (1,0.43,0.10,0,'收益:'),COLORYELLOW; DRAWNUMBER_FIX(1,0.47,0.10,0,FINANCE(33)),COLOR0080FF; 主力买力度:=LARGEINTRDVOL*1000/VOL; 主力卖力度:=LARGEOUTTRDVOL*1000/VOL; AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW; DRAWRECTREL(0,215,CONST(ABS(主力买力度)*560/AAD),268,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0))); DRAWRECTREL(0,270,CONST(ABS(主力卖力度)*560/AAD),323,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0))); DRAWTEXT_FIX(1,0,0.224,0,STRCAT('主买力度:',CON2STR(主力买力度,0))),COLORYELLOW; DRAWTEXT_FIX(1,0,0.276,0,STRCAT('主卖力度:',CON2STR(主力卖力度,0))),COLORYELLOW; 超B:=L2_AMO(0,2)/10000.0; 大B:=L2_AMO(1,2)/10000.0; 中B:=L2_AMO(2,2)/10000.0; 小B:=L2_AMO(3,2)/10000.0; 超S:=L2_AMO(0,3)/10000.0; 大S:=L2_AMO(1,3)/10000.0; 中S:=L2_AMO(2,3)/10000.0; 小S:=L2_AMO(3,3)/10000.0; 净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S),COLORRED,NODRAW; {总额:=AMOUNT; 买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L)); 买%:=买/AMOUNT*100; 流入:=AMOUNT*买%/10000000000; 流出:=AMOUNT/100000000-流入; 净流入:=(流入-流出);} DIF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIF,9); MACD:=(DIF-DEA)*2; VAR113:=HHV(HIGH,60); VAR114:=LLV(LOW,30); VAR115:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100; VAR116:=(VAR113+VAR114+VAR115)/3; VAR117:=EMA(VAR116,5); K01:=EMA(VAR117,5)*2, COLORFF00FF; D01:=EMA(K01,5), COLORWHITE; J01:=K01*3-D01*2, COLORYELLOW; ENTERLONG:=CROSS(K01,D01); EXITLONG:=CROSS(D01,K01); B01:=(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)),L*0.98,1))*D01*2/3; B02:=IF(TROUGHBARS(3,15,1)=1 AND HIGH>LOW+0.01,20,0); 必买:=(B01 AND B02) AND 净流入>0; 必卖:=IF(PEAKBARS(3,15,1)=1,80,100),COLORGREEN,LINETHICK1; QQ:=必卖=80; B03:=((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))); V1:=EMA(CLOSE,60)-EMA(CLOSE,300); V2:=EMA(V1,300); V3:=(CLOSE-(LOW,8))/((HIGH,8)-LLV(LOW,8))*100; V4:=SMA(V3,2,1),NODRAW; V5:=SMA(V4,2,1),NODRAW; V6:=CLOSE/REF(CLOSE,3)>=1.1; V7:=BACKSET(V6,3); 大涨:=(V7 AND COUNT(V7,3)=1); DRAWICON(必买,L-0.16,11); DRAWICON(大涨 AND 必买,L-0.16,9); DRAWICON(大涨,L-0.18,1); DRAWICON(QQ,H+0.1,6); M1:=30; P2:=80; VAR101:=(C+H+O+L)/4; 买入:=XMA(VAR101,M1)*(1-P2/1000),COLORFFFFFF,LINETHICK2; 反弹:=EMA(EMA(EMA(HIGH,5),5),5)*0.95,COLORRED,LINETHICK1; 暴:=CROSS(买入,反弹); DRAWTEXT(暴>0,L*0.99,'↖起暴'),COLORYELLOW; TYP:=(HIGH+LOW+CLOSE)/3; CI15:=(TYP-MA(TYP,15))/(0.015*AVEDEV(TYP,15)); CI10:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10)); CI5:=(TYP-MA(TYP,5))/(0.015*AVEDEV(TYP,5)); CI3:=(TYP-MA(TYP,3))/(0.015*AVEDEV(TYP,3)); EMAH3:=EMA(H,3); EMAL3:=EMA(L,3); EMAH5:=EMA(H,5); EMAL5:=EMA(L,5); EMAL10:=EMA(L,10); EMAZ:=(EMAH3+EMAH5+EMAL3+EMAL5)/4; EMA3:=(EMAH3-EMAL3)/8+EMAL3; PBX1:=(EXPMA((C+H+L)/3,4)+MA((C+H+L)/3,4*2)+MA((C+H+L)/3,4*4))/3; PBX2:=(EXPMA((C+H+L)/3,6)+MA((C+H+L)/3,6*2)+MA((C+H+L)/3,6*4))/3; 冠军1号短线王:=PBX1>PBX2 AND CI15>0 AND CI10>0 AND EMAH3>EMAH5 AND EMAL3>EMAL5 AND EMAL5>EMAL10 AND O
