主图 周期微调:=5; 顶底开关:=1; 结构带开关:=1; KDJA :=3*SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1)-2*SMA(SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1),3,1),NODRAW; STICKLINE(顶底开关>0 AND (KDJA >=90),CLOSE,OPEN,3,0),COLOR009CFF; STICKLINE(顶底开关>0 AND (KDJA >=90),CLOSE,OPEN,2.8,0),COLOR009CFF; STICKLINE(顶底开关>0 AND (KDJA >=90),CLOSE,OPEN,2.5,0),COLOR00C0FF; STICKLINE(顶底开关>0 AND (KDJA >=90),CLOSE,OPEN,1.5,0),COLOR00D1FF; STICKLINE(顶底开关>0 AND (KDJA >=90),CLOSE,OPEN,1,0),COLOR00EAFF; STICKLINE(顶底开关>0 AND (KDJA >=90),CLOSE,OPEN,0.7,0),COLORYELLOW; STICKLINE(顶底开关>0 AND (KDJA <=10),OPEN,CLOSE,3,0),COLORFF0000; STICKLINE(顶底开关>0 AND (KDJA <=10),OPEN,CLOSE,2.5,0),COLORFF1100; STICKLINE(顶底开关>0 AND (KDJA <=10),OPEN,CLOSE,2,0),COLORFF2200; STICKLINE(顶底开关>0 AND (KDJA <=10),OPEN,CLOSE,1.5,0),COLORFF3300; STICKLINE(顶底开关>0 AND (KDJA <=10),OPEN,CLOSE,1,0),COLORFF4400; STICKLINE(顶底开关>0 AND (KDJA <=10),OPEN,CLOSE,0.5,0),COLORFF5500; STICKLINE(顶底开关>0 AND (KDJA <=10),H,L,0,0),COLORFF6600; A1:=REF(HIGH,周期微调)=HHV(HIGH,12+1); B1:=FILTER(A1,周期微调); C1:=BACKSET(B1,周期微调+1); D1:=FILTER(C1,周期微调);{高点} A2:=REF(LOW,周期微调)=LLV(LOW,10+1); B2:=FILTER(A2,周期微调); C2:=BACKSET(B2,周期微调+1); D2:=FILTER(C2,周期微调);{低点} 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);{过滤后高点} 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);{找出全部长期低点} H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤,方法同前。只是不用考虑高低点出现在同一K线} X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3)); G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1); {长期低点,也可供引用} L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1; X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4)); G4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1);{长期高点,也可供引用} K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1); UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1); VV:=UU>REF(UU,1); WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2); XX:=WW>REF(WW,1); UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1); VV2:=UU2>REF(UU2,1); WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2); XX2:=WW2>REF(WW2,1); 高点:=BARSLAST(HD); 低点:=BARSLAST(LD); J1:=BACKSET(ISLASTBAR,MIN(高点,低点)+1); J2:=J1>REF(J1,1); NOTEXT1:DRAWLINE(LD,L,HD,H,0),LINETHICK1,DOTLINE,COLOR0000FF; NOTEXT2:DRAWLINE(HD,H,LD,L,0),LINETHICK1,DOTLINE,COLOR00FF00; NOTEXT3:DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(高点>低点,H,L),0),DOTLINE,COLORFFFFFF; 高位价:REF(REF(H,高点),1),COLORRED,NODRAW; 低位价:REF(REF(L,低点),1),COLORGREEN,NODRAW; H11:=高位价,NODRAW; H12:=低位价,NODRAW; L22:=0,NODRAW; VVA:=IF(高点<低点,H11,DRAWNULL)NODRAW; 买入成立:=VVA,COLOR00FFFF,NODRAW; VVB:=IF(高点>低点,L22,DRAWNULL)NODRAW; 买入不成立:=VVB,COLORGREEN,NODRAW; 高位价1:=IFC(高点<低点,高位价,L22); 低位价1:=IFC(高点<低点,低位价,L22); VAR1:=高位价1/低位价1; VAR2:=SQRT(SQRT(VAR1)); VAR3:=SQRT(VAR1); VAR4:=VAR3+VAR2-1; VAR5:=高位价1/VAR2; VAR6:=高位价1/VAR3; VAR7:=高位价1/VAR4; VAR8:=REFDATE(HHV(H,高点+1),DATE); VAR9:=REFDATE(LLV(L,低点+1),DATE); 买C1:=CONST(VAR5),NODRAW,COLORYELLOW; 买C2:=CONST(VAR6),NODRAW,COLORYELLOW; 买C3:=CONST(VAR7),NODRAW,COLORYELLOW; 买入C1:DRAWLINE(VV2,CONST(买C1),CURRBARSCOUNT=1,买C1,1),COLORFF8800,DOTLINE; 买入C2:DRAWLINE(VV2,CONST(买C2),CURRBARSCOUNT=1,买C2,1),COLORFF8800,DOTLINE; 买入C3:DRAWLINE(VV2,CONST(买C3),CURRBARSCOUNT=1,买C3,1),COLORFF8800,DOTLINE; DRAWTEXT(VV2,买C1,VARCAT('买入C1:',VAR2STR(买C1,2))),COLORWHITE; DRAWTEXT(VV2,买C2,VARCAT('买入C2:',VAR2STR(买C2,2))),COLORWHITE; DRAWTEXT(VV2,买C3,VARCAT('买入C3:',VAR2STR(买C3,2))),COLORWHITE; DRAWTEXT(VV,L,VARCAT('低位【A】',VAR2STR(L,2))),COLORGREEN; DRAWTEXT(VV2,H,VARCAT('高位【B】',VAR2STR(H,2))),COLORRED; STICKLINE(VV2,H,CONST(VAR7),0,0),COLORFF8800; DRAWLINE(VV,L,VV2,H,0),COLORFF8800,LINETHICK2; DRAWLINE(VV2,H,CURRBARSCOUNT=1,CONST(VAR7),0),COLORGREEN,DOTLINE; DRAWNUMBER(HD,H,H),DRAWABOVE,COLORFFFF00; DRAWNUMBER(LD,L,L),COLOR00FFFF; DRAWICON(CURRBARSCOUNT=XX,L,38); DRAWICON(CURRBARSCOUNT=VV2,H,39); 高位价2:=REF(REF(H,高点),1),NODRAW; 低位价2:=REF(REF(L,低点),1),NODRAW; H111:=高位价2,NODRAW; H121:=低位价2,NODRAW; L221:=0,NODRAW; H221:=高位价2,NODRAW; H231:=低位价2,NODRAW; VVA1:=IF(高点>低点,H121,DRAWNULL)NODRAW; 卖出成立:=VVA1,COLOR00FFFF,NODRAW; VVB1:=IF(高点<低点,L221,DRAWNULL)NODRAW; 卖出不成立:=VVB1,COLORGREEN,NODRAW; 高位价3:=IFC(高点>低点,高位价2,L221); 低位价3:=IFC(高点>低点,低位价2,L221); VAR11:=高位价3/低位价3; VAR21:=SQRT(SQRT(VAR11)); VAR31:=SQRT(VAR11); VAR41:=VAR31+VAR21-1; VAR51:=低位价3*VAR21; VAR61:=低位价3*VAR31; VAR71:=低位价3*VAR41; 卖C1:=CONST(VAR51),NODRAW,COLORMAGENTA,DOTLINE; 卖C2:=CONST(VAR61),NODRAW,COLORMAGENTA,DOTLINE; 卖C3:=CONST(VAR71),NODRAW,COLORMAGENTA,DOTLINE; 卖出C1:DRAWLINE(VV,CONST(卖C1),CURRBARSCOUNT=1,卖C1,1),COLORMAGENTA,DOTLINE; 卖出C2:DRAWLINE(VV,CONST(卖C2),CURRBARSCOUNT=1,卖C2,1),COLORMAGENTA,DOTLINE; 卖出C3:DRAWLINE(VV,CONST(卖C3),CURRBARSCOUNT=1,卖C3,1),COLORMAGENTA,DOTLINE; DRAWTEXT(VV,卖C1,VARCAT('卖出C1:',VAR2STR(卖C1,2))),COLORYELLOW; DRAWTEXT(VV,卖C2,VARCAT('卖出C2:',VAR2STR(卖C2,2))),COLORYELLOW; DRAWTEXT(VV,卖C3,VARCAT('卖出C3:',VAR2STR(卖C3,2))),COLORYELLOW; DRAWLINE(VV,L,CURRBARSCOUNT=1,CONST(VAR71),0),COLORMAGENTA,DOTLINE; STICKLINE(VV,L,CONST(VAR71),0,0),COLORMAGENTA; DRAWLINE(VV2,H,VV,L,0),COLORMAGENTA,LINETHICK2; DRAWICON(VV,L,38); DRAWICON(VV2,H,39); 浪子缠换手副图 换手率%:100*VOL/(FINANCE(7)/100)COLORYELLOW,NODRAW; 低迷:IF(换手率%<=1,换手率%,DRAWNULL),COLORFF9900,NODRAW; 温和放量:IF(换手率%>1 && 换手率%<=3,换手率%,DRAWNULL),COLORBBBBBB,NODRAW; 异动:IF(换手率%>3 && 换手率% <=5,换手率%,DRAWNULL),NODRAW; 活跃:IF(换手率%>5 && 换手率%<=8,换手率%,DRAWNULL)COLORMAGENTA,NODRAW; 非常活跃:IF(换手率%>8 && 换手率%<=10,换手率%,DRAWNULL)COLORYELLOW,NODRAW; 高度活跃:IF(换手率%>10 && 换手率%<=15,换手率%,DRAWNULL)COLOR0077FF,NODRAW; 极度活跃:IF(换手率%>15 && 换手率%<=25,换手率%,DRAWNULL)COLORRED,NODRAW; 巨量换手:IF(换手率%>25,换手率%,DRAWNULL)COLOR000099,NODRAW; STICKLINE(低迷,换手率%,0,2.8,0),COLORFF0000;{低迷蓝色} STICKLINE(低迷,换手率%,0,2.3,0),COLORFF3300; STICKLINE(低迷,换手率%,0,1.7,0),COLORFF5500; STICKLINE(低迷,换手率%,0,1.0,0),COLORFF7700; STICKLINE(低迷,换手率%,0,0.3,0),COLORFF9900; STICKLINE(温和放量,换手率%,0,2.8,0),COLOR555555;{温和灰色} STICKLINE(温和放量,换手率%,0,2.3,0),COLOR777777; STICKLINE(温和放量,换手率%,0,1.7,0),COLOR999999; STICKLINE(温和放量,换手率%,0,1.0,0),COLORBBBBBB; STICKLINE(温和放量,换手率%,0,0.3,0),COLORFF00FF; STICKLINE(异动,换手率%,0,2.8,0),COLOR004400;{异动绿色} STICKLINE(异动,换手率%,0,2.3,0),COLOR006600; STICKLINE(异动,换手率%,0,1.7,0),COLOR009900; STICKLINE(异动,换手率%,0,1.0,0),COLOR00CC00; STICKLINE(异动,换手率%,0,0.3,0),COLOR00FF00; STICKLINE(活跃,换手率%,0,2.8,0),COLOR880088;{活跃粉色} STICKLINE(活跃,换手率%,0,2.3,0),COLORAA00AA; STICKLINE(活跃,换手率%,0,1.7,0),COLORCC00CC; STICKLINE(活跃,换手率%,0,1.0,0),COLOREE00EE; STICKLINE(活跃,换手率%,0,0.3,0),COLORFF33FF; STICKLINE(非常活跃,换手率%,0,2.8,0),COLOR008888;{非常活跃黄色} STICKLINE(非常活跃,换手率%,0,2.3,0),COLOR00AAAA; STICKLINE(非常活跃,换手率%,0,1.7,0),COLOR00CCCC; STICKLINE(非常活跃,换手率%,0,1.0,0),COLOR00EEEE; STICKLINE(非常活跃,换手率%,0,0.3,0),COLOR44FFFF; STICKLINE(高度活跃,换手率%,0,2.8,0),COLOR0000AA;{高度活跃橘红} STICKLINE(高度活跃,换手率%,0,2.3,0),COLOR0022CC; STICKLINE(高度活跃,换手率%,0,1.7,0),COLOR0044DD; STICKLINE(高度活跃,换手率%,0,1.0,0),COLOR0055FF; STICKLINE(高度活跃,换手率%,0,0.3,0),COLOR0099FF; STICKLINE(极度活跃,换手率%,0,2.8,0),COLOR000066;{极度活跃红色} STICKLINE(极度活跃,换手率%,0,2.3,0),COLOR000088; STICKLINE(极度活跃,换手率%,0,1.7,0),COLOR0000AA; STICKLINE(极度活跃,换手率%,0,1.0,0),COLOR0000CC; STICKLINE(极度活跃,换手率%,0,0.3,0),COLOR2222FF; STICKLINE(巨量换手,换手率%,0,2.8,0),COLOR000022;{巨量换手酱红色} STICKLINE(巨量换手,换手率%,0,2.3,0),COLOR000033; STICKLINE(巨量换手,换手率%,0,1.7,0),COLOR000055; STICKLINE(巨量换手,换手率%,0,1.0,0),COLOR000077; STICKLINE(巨量换手,换手率%,0,0.3,0),COLOR000099; X_1:=REF(CLOSE,1)*1.1-CLOSE<0.01 AND HIGH=CLOSE; 前高量:REF(HHV(换手率%,60),REF(X_1,1)),COLORGREEN; 成交量:VOL,VOLSTICK,NODRAW; N:=90; 后量超前量:V>=HHV(V,N); DRAWICON(后量超前量,前高量,13); V5:=MA(V,5),COLORWHITE,NODRAW; V35:=MA(V,35),COLORGREEN,NODRAW; V135:=MA(V,135),COLORFF00FF,NODRAW; XG:=CROSS(V5,V35) AND V>V5 AND V>V135*2; 牛股启动:FILTER(XG,20),LINETHICK3,COLORRED,NODRAW; DRAWTEXT(牛股启动,前高量,' 牛股启动'), COLORYELLOW; DRAWICON(牛股启动,前高量,34); 量比:VOL/REF(MA(VOL,5),1),COLORFFFFFF,NODRAW; 预测量:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,VOL),VOLSTICK; MAVOL1:=MA(预测量,5); MAVOL2:=MA(预测量,60); 均量金叉:CROSS(MAVOL1,MAVOL2); DRAWICON(均量金叉,5,11); 趋势浪子缠副图 V1:=IF(C/REF(C,1)>=1.098 AND C=O,EMA(EMA(EMA(HHV(V,10),3),13),360),EMA(EMA(EMA(V,3),13),360)); V2:=IF(C/REF(C,1)>=1.098 AND C=O,HHV(V,10),HHV(V,3));{股票下载网WWW.GPXIAZAI.COM} 紫:EMA(((CLOSE*V2-REF(COST(90),1)*V1)/20+250)*1.2/5,3),COLORMAGENTA,LINETHICK2; 趋势1:=EMA(紫,13),COLORMAGENTA,DOTLINE; 兰:EMA(((REF(COST(90),1)*V1-CLOSE*V2)/20+250)*1.2/5,3),COLORCYAN,LINETHICK2; 趋势2:=EMA(兰,13),COLORCYAN,DOTLINE; 红:EMA(((CLOSE*V2-REF(COST(10),1)*V1)/20+250)*1.2/5,3),COLORRED,LINETHICK2; 趋势3:=EMA(红,13),COLORRED,DOTLINE; 蓝:EMA(((REF(COST(10),1)*V1-CLOSE*V2)/20+250)*1.2/5,3),COLORBLUE,LINETHICK2; 趋势4:=EMA(蓝,13),COLORBLUE,DOTLINE; DRAWTEXT(COUNT(红=HHV(红,60),10)=1 AND 红=HHV(红,60),红,'★突破'),COLORRED; {X_1:=30; X_2:=10; X_3:=VOL/10000*CLOSE/100; X_4:=REF(CLOSE,1); X_5:=SUM(VOL,2)/((HHV(HIGH,2)-LLV(LOW,2))*100); X_6:=(CLOSE-X_4)*X_5; X_7:=SUM(X_6,0); X_8:=X_7; JZOBV:=X_8; 紫2:EMA(((CLOSE*JZOBV-REF(COST(90),1)*JZOBV)/20+250)*1.2/5,3),COLORMAGENTA,DOTLINE; 兰3:EMA(((REF(COST(90),1)*JZOBV-CLOSE*JZOBV)/20+250)*1.2/5,3),COLORCYAN,DOTLINE; 红4:EMA(((CLOSE*JZOBV-REF(COST(10),1)*JZOBV)/20+250)*1.2/5,3),COLORRED,DOTLINE; 蓝5:EMA(((REF(COST(10),1)*JZOBV-CLOSE*JZOBV)/20+250)*1.2/5,3),COLORBLUE,DOTLINE;}; 三色浪子缠副图 XB_1:=IF(DATE<=1211231,1,1); XB_2:=EMA(CLOSE,3); XB_3:=EMA(CLOSE,20); XB_4:=EMA(CLOSE,60); XB_5:=ATAN((XB_4-REF(XB_4,1))/XB_4*10)/3.142*180; XB_6:=EMA(CLOSE,120); XB_7:=EMA(CLOSE,250); XB_8:=REF(LOW,1); XB_9:=SMA(ABS(LOW-XB_8),3,1)/SMA(MAX(LOW-XB_8,0),3,1)*100; XB_10:=EMA(XB_9*10,3); XB_11:=LLV(LOW,13); XB_12:=HHV(XB_10,13); XB_13:=EMA(IF(LOW<=XB_11,(XB_10+XB_12*2)/2,0),3)/618; XB_14:=IF(XB_13>500,500,XB_13); XB_15:=XB_1 AND CLOSE>XB_4 AND XB_4>XB_6 AND XB_6>XB_7; XB_16:=XB_1 AND XB_15 AND KDJ.J>REF(KDJ.J,1) AND REF(KDJ.J,1)<REF(KDJ.J,2) AND ABS(LOW-XB_4)/XB_4<0.08 AND CLOSE>REF(CLOSE,1); XB_17:=1; (-0.5),DOTLINE,COLORBLACK; STICKLINE(CLOSE>MA(CLOSE,60),0,0.2,1,0),COLORRED; STICKLINE(CLOSE>MA(CLOSE,20),0.2,0.4,1,0),COLORGREEN; STICKLINE(XB_5>0,0.4,0.6,1,0),COLORMAGENTA; STICKLINE(XB_16,0.6,0.8,1,0),COLORBLUE; STICKLINE(XB_14>1,0.8,1,1,0),COLORYELLOW; DRAWICON(XB_1 AND XB_15 AND CLOSE>MA(CLOSE,20) AND XB_14>1 AND KDJ.J>REF(KDJ.J,1) AND REF(KDJ.J,1)<REF(KDJ.J,2) AND ABS(LOW-XB_4)/XB_4<0.08 AND XB_5>0 AND CLOSE>REF(CLOSE,1),(-0.1),5) AND XB_17; 浪子缠绕单枪匹马副图选股一体 DBHM:REF(CLOSE,1)/REF(CLOSE,2)<1.11 AND REF(CLOSE,1)/REF(OPEN,1)>=1 AND REF(CLOSE,2)/REF(CLOSE,3)<1.09 AND REF(CLOSE,1)/REF(HHV(CLOSE,170),1)>0.85 AND LOW/MA(CLOSE,20)<1.15 AND LOW/MA(CLOSE,60)<1.2 AND LOW/MA(CLOSE,120)<1.3 AND LOW/MA(CLOSE,250)<1.3 AND REF(CLOSE,1)/REF(CLOSE,2)>1.092 AND LOW/REF(CLOSE,1)<0.955 AND OPEN/REF(CLOSE,1)<1.01; |
|