JJ:=(H+L+3*C)/5; VAR021:=EMA(JJ,5);VAR022:=EMA(JJ,13);VAR023:=EMA(JJ,21);VAR024:=EMA(JJ,34);H1A:=(VAR021+VAR022+VAR023+VAR024)/4; 成本和谐:MA(H1A,5),COLORWHITE,LINETHICK1; IF(成本和谐>REF(成本和谐,1),成本和谐,DRAWNULL),COLORRED,LINETHICK3; IF(成本和谐<REF(成本和谐,1),成本和谐,DRAWNULL),COLORGREEN,LINETHICK3; {ZF:=(EMA(SUM(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)),3),49) * 10)+EMA(C,20); ★强势线★:IF(PERIOD!=0 ,EMA(ZF,34),DRAWNULL),LINETHICK2,COLOR00FFFF; IF(★强势线★>REF(★强势线★,1),★强势线★,DRAWNULL),COLORFF00FF,LINETHICK2; MA120:MA(C,120),DOTLINE,COLORWHITE;} N:=30; T1:=CONST(HHVBARS(V,N)); T0:IF(CURRBARSCOUNT<=N+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),LINETHICK3,COLORYELLOW; IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT; DRAWTEXT(ISLASTBAR,T0,' 量能平台'); N5:=10; T011:=CONST(LLVBARS(LOW,N5)); T11HIGH:=CONST(REF(HIGH,T011)); CC01:=CONST(CURRBARSCOUNT); T12:=CONST(BARSLAST((CURRBARSCOUNT >(CC01+T011)) AND (HIGH>T11HIGH))); T12HIGH:=CONST(REF(HIGH,T12)); T13:=CONST(BARSLAST((CURRBARSCOUNT >(CC01+T12)) AND (HIGH>T12HIGH))); T13HIGH:=CONST(REF(HIGH,T13)); 洗盘杀入线:DRAWLINE(CURRBARSCOUNT=T13+1, T13HIGH, ISLASTBAR, T13HIGH, 1),LINETHICK2,COLORWHITE; DRAWTEXT(ISLASTBAR, T13HIGH, '洗盘杀入线')LINETHICK2,COLORWHITE; VARA1:=IF(CLOSE>150,91.3,0.913); 箱体下沿:INTPART(CLOSE/VARA1 )*VARA1,POINTDOT,LINETHICK4,COLORGREEN; 箱体上沿:箱体下沿+VARA1,POINTDOT,LINETHICK4,COLORYELLOW ; 箱体中线: (箱体下沿+箱体上沿)/2,POINTDOT,COLORWHITE,LINETHICK3; N2:=75;P:=5;P01:=10; {N2为多少天内的高低值参数,我以自已的初始K线根数定义。P1、P2为短、长支撑压力取点参数} A11:=REF(H,P)=HHV(H,2*P+1); B11:=FILTER(A11,P); C11:=BACKSET(B11,P+1); D1:=FILTER(C11,P); E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); F1:=E1>REF(E1,1); 短压:DRAWLINE(D1,H,F1,H,1),COLORCYAN; A22:=REF(L,P)=LLV(L,2*P+1); B22:=FILTER(A22,P); C22:=BACKSET(B22,P+1); D2:=FILTER(C22,P); E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); F2:=E2>REF(E2,1); 短支:DRAWLINE(D2,L,F2,L,1),COLORLIRED; AA1:=REF(H,P01)=HHV(H,2*P01+1); BB1:=FILTER(AA1,P01); CC1:=BACKSET(BB1,P01+1); DD1:=FILTER(CC1,P01); EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1); FF1:=EE1>REF(EE1,1); 长压:DRAWLINE(DD1,H,FF1,H,1),COLORGREEN; AA2:=REF(L,P01)=LLV(L,2*P01+1); BB2:=FILTER(AA2,P01); CC2:=BACKSET(BB2,P01+1); DD2:=FILTER(CC2,P01); EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1); FF2:=EE2>REF(EE2,1); 长支:DRAWLINE(DD2,L,FF2,L,1),COLORRED; DRAWTEXT_FIX(1,0.00,0,0,HYBLOCK)COLOR0080FF; DRAWTEXT_FIX(1,0.14,0,0,DYBLOCK)COLOR00FFFF; DRAWTEXT_FIX(1,0.00,0.06,0,EXTERNSTR(0,1))COLOR0000FF; DRAWTEXT_FIX(1,0.00,0.12,0,EXTERNSTR(0,2))COLORFF00FF; DRAWTEXT_FIX(1,0.00,0.18,0,EXTERNSTR(0,3))COLORFF88FF; DRAWTEXT_FIX(1,0.00,0.24,0,EXTERNSTR(0,5)),COLORCYAN; {新增证监会行业} DRAWTEXT_FIX(1,0.00,0.30,0,EXTERNSTR(0,6)),COLOR0080FF; 涨停:=IF(REF(C,1)*1.095-C<0.01 ,1,0); STICKLINE(涨停,OPEN,CLOSE,4,0),COLORRED; STICKLINE(涨停,OPEN,CLOSE,3,0),COLORRED; DRAWTEXT(涨停,L-0.1,'涨停'),COLORYELLOW; C3:=REF(C,1); 跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0); STICKLINE(跌停,OPEN,CLOSE,4,0),COLORBLUE; STICKLINE(跌停,OPEN,CLOSE,3,0),COLORGREEN; DRAWTEXT(跌停,H+0.3,'跌停'),COLORGREEN; DRAWICON(CROSS(ZIG(3,10) ,REF(ZIG(3 ,10),1)) ,LOW*0.98,1); DRAWICON(CROSS(REF(ZIG(3,10),1),ZIG(3,10)) ,HIGH*1.02,2); DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,'买') , COLORRED,LINETHICK1; DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.008,'卖') , COLORGREEN,LINETHICK1; |
|