|
数浪公式+薛斯通道
N=5
v1:=ma(HIGH,30)*1.15 ; v2:=ma(HIGH,3)*1.03; v3:=ma(LOW,3)*0.97; v4:=ma(LOW,30)*0.85; {v5}大通道上:fft(v1,30); {v6}小通道上:fft(v2,30); {v7}小通道下:fft(v3,30); {v8}大通道下:fft(v4,30); A1:=大通道上-REF(大通道上,1); A2:=小通道上-REF(小通道上,1); A3:=小通道下-REF(小通道下,1); A4:=大通道下-REF(大通道下,1); PARTLINE(A1>0,大通道上) LINETHICK2 COLORRED; PARTLINE(A1=0,大通道上) LINETHICK1 COLORWHITE; PARTLINE(A1<0,大通道上) LINETHICK1 COLORGREEN; PARTLINE(A2>0,小通道上) LINETHICK2 COLORRED; PARTLINE(A2=0,小通道上) LINETHICK1 COLORWHITE; PARTLINE(A2<0,小通道上) LINETHICK1 COLORGREEN; PARTLINE(A3>0,小通道下) LINETHICK2 COLORRED; PARTLINE(A3=0,小通道下) LINETHICK1 COLORWHITE; PARTLINE(A3<0,小通道下) LINETHICK1 COLORGREEN; PARTLINE(A4>0,大通道下) LINETHICK2 COLORRED; PARTLINE(A4=0,大通道下) LINETHICK1 COLORWHITE; PARTLINE(A4<0,大通道下) LINETHICK1 COLORGREEN; kxs:=sysparam(2); dsj:=1; GET:zig(3,n),coloryellow; pl5:=zig(3,5)*dsj; en1:=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)*dsj; ex1:=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)*dsj; pl10:=zig(3,10)*dsj; en2:=zig(3,10)>ref(zig(3,10),1) and ref(zig(3,10),1)<=ref(zig(3,10),2) and ref(zig(3,10),2)<=ref(zig(3,10),3)*dsj; ex2:=zig(3,10)<ref(zig(3,10),1) and ref(zig(3,10),1)>=ref(zig(3,10),2) and ref(zig(3,10),2)>=ref(zig(3,10),3)*dsj; pl20:=zig(3,20)*dsj; en3:=zig(3,20)>ref(zig(3,20),1) and ref(zig(3,20),1)<=ref(zig(3,20),2) and ref(zig(3,20),2)<=ref(zig(3,20),3)*dsj; ex3:=zig(3,20)<ref(zig(3,20),1) and ref(zig(3,20),1)>=ref(zig(3,20),2) and ref(zig(3,20),2)>=ref(zig(3,20),3)*dsj; pl40:=zig(3,40)*dsj; 走强1:=barslast(pl5<ref(pl5,1)); 走弱1:=barslast(pl5>ref(pl5,1)); 走强2:=barslast(pl10<ref(pl10,1)); 走弱2:=barslast(pl10>ref(pl10,1)); 走强3:=barslast(pl20<ref(pl20,1)); 走弱3:=barslast(pl20>ref(pl20,1)); ztjz5:=if(pl10>ref(pl10,1),count(en1,走强2),0); ztjd5:=if(pl10>ref(pl10,1),count(ex1,走强2),0); dtjz5:=if(pl10<ref(pl10,1),count(en1,走弱2),0); dtjd5:=if(pl10<ref(pl10,1),count(ex1,走弱2),0); ztjz10:=if(pl20>ref(pl20,1),count(en2,走强3),0); ztjd10:=if(pl20>ref(pl20,1),count(ex2,走强3),0); dtjz10:=if(pl20<ref(pl20,1),count(en2,走弱3),0); dtjd10:=if(pl20<ref(pl20,1),count(ex2,走弱3),0); drawtext(en1 and dtjz5=1,l*0.98,'㈠'),colorffff00; drawtext(ex1 and dtjd5=2,h*1.02,'㈡'),colorffff00; drawtext(en2 and ztjz5=1,l*0.98,'㈢'),colorffff00; drawtext(ex1 and pl10>ref(pl10,1) and ztjd5=1,h*1.02,'⑴'),colorff; drawtext(en1 and pl10>ref(pl10,1) and ztjz5=2,l*0.98,'⑵'),colorff; drawtext(ex1 and pl10>ref(pl10,1) and ztjz5=2,h*1.02,'⑶'),colorff; drawtext(en1 and pl10>ref(pl10,1) and ztjz5=3,l*0.98,'⑷'),colorff; drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.02,'⑸'),colorff; drawtext(en2 and dtjz10=1,l*0.94,'Ⅰ'),colorff0000; drawtext(ex2 and dtjd10=2,h*1.06,'Ⅱ'),colorff0000; drawtext(en3 and ztjz10=1,l*0.94,'Ⅲ'),colorff0000; drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.06,'①'),Linethick3,colorffff; drawtext(en2 and pl20>ref(pl20,1) and ztjz10=2,l*0.94,'②'),Linethick3,colorffff; drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=2 or (ztjd10=0 or ztjd10=2) and ex2,h*1.06*dsj,'③'),Linethick3,colorffff; drawtext(en2 and pl20>ref(pl20,1) and ztjz10=3,l*0.94,'④'),Linethick3,colorffff; 点石成金
画渐变背景色((收盘价 > 0),RGB颜色值(0,0,0),RGB颜色值(0,0,0),0);
input: N(5,1,60); DRAWGBK(C, COLORRGB(10,40,10),COLORRGB(10,40,10),1); {-----------------------☆功能开关------------------------} jQCB:=EMA(C,3); h1:=h; hh:=hhv(h,21); L1:=L; LL:=llv(L,21); if h1[datacount] =hh[datacount] then begin if L1[datacount] =LL[datacount] then begin end; end; 顶:=hh,LINEDOT,PRECISION2,COLORYELLOW;//黄 底:=LL,LINEDOT,PRECISION2,COLORGREEN;//绿 DScj1:=PEAKBARS(3,N,1); DScj2:=TROUGHBARS(3,N,1); DScj3:=PEAKBARS(2,N,1); 点石:=ma(LLV(jQCB,3),DScj2+1),PRECISION2,LINETHICK,ColorFFA6FF; 成金:=ma(HHV(jQCB,1),DScj3+1),PRECISION2,LINETHICK,COLORYELLOW; 压力:=ma(wma(h,2),DScj1+1),PRECISION2,LINETHICK,ColorFF8700; Kn:=BARSCOUNT(C)=SYSPARAM(1); p:=SYSPARAM(1); {未来参考K线} F:=100*(C-REF(C,1))/REF(C,1); p1:=IF(C<REF(O,1) AND f<0,1,0); p3:=IF(C>REF(O,1) AND f>0,1,0); p2:=IF(C<REF(O,2) AND f<0,1,0); p4:=IF(C>REF(O,2) AND f>0,1,0); 买D5:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1; 卖D6:=P3=0 AND REF(P3,1)=1 AND P4=0 AND REF(P4,1)=1; AS:=ZIG(3,3); 涨AL:=CROSS(AS,REF(AS,1)); 跌AG:=CROSS(REF(AS,1),AS); 买点:=FILTER((TROUGHBARS(3,15,1)<4)=1,3);//提前一天 卖点:=FILTER((PEAKBARS(3,15,1)<4)=1,3); //提前一天 {-----------------【图解模板】---------------------} {K线} KLINE(O,H,L,C,0); {未来K线} STICKLINE(买点,L,(O+C)/2,0,0),COLORWHITE; {未来买点} STICKLINE(买点,C,(O+C)/2,7,0),COLORWHITE; {未来买点} STICKLINE(卖点,H,(O+C)/2,0,0),COLORYELLOW;{未来卖点} STICKLINE(卖点,C,(O+C)/2,7,0),COLORYELLOW;{未来卖点} STICKLINE(买D5 and 涨AL,L,(O+C)/2,0,0),COLORWHITE; {未来买} STICKLINE(买D5 and 涨AL,O,(O+C)/2,7,0),COLORWHITE; {未来买} STICKLINE(卖D6 and 跌AG,L,(O+C)/2,0,0),Color3EA63E;{未来卖} STICKLINE(卖D6 and 跌AG,O,(O+C)/2,7,0),Color3EA63E;{未来卖} {} PARTLINE(C,顶),LINEDOT,COLORYELLOW;//黄 PARTLINE(C,底),LINEDOT,COLORGREEN;//绿 {} PARTLINE(DScj1>0,压力),ColorFFB900; //压力--暗蓝 PARTLINE(DScj2>0,点石),ColorFFA6FF; //点石--暗粉 PARTLINE(DScj3>0 and 成金>ref(成金,1),成金),LINETHICK2,Color00A3C1;//成金--金黄 {} DRAWTEXT(Kn AND DScj2>0,点石*0.98,'点石:'+NUMTOSTR(点石[p],2)),ALIGN0,ColorFFA6FF; DRAWTEXT(Kn AND DScj3>0 and 成金>ref(成金,1),成金,'成金:'+NUMTOSTR(成金[p],2)),ALIGN0,PXDN12,COLORYELLOW; DRAWTEXT(Kn AND DScj1>0,压力,'压力:'+NUMTOSTR(压力[p],2)),ALIGN2,PXUP12,ColorFF8700; // 新结构波浪
新结构波浪
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; L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 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);{过滤后高点} DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT; DRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT; J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1); DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT; {以上语句为新结构波浪} A3:=H<REF(H,REF(BARSLAST(HD),1)+1); 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)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2)); D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点} DRAWICON(HH,H,10),ALIGN2; DRAWICON(LL,L,12),ALIGN1; 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),LINETHICK0; {长期低点，也可供引用} 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),LINETHICK0;{长期高点，也可供引用} DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1; DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线} K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1); DRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN,LINETHICK1; {最后的长期连线，连在收盘价上} {以下是两条趋势线原码} UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1); VV:=UU>REF(UU,1); WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2); XX:=WW>REF(WW,1); DRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1; UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1); VV2:=UU2>REF(UU2,1); WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2); XX2:=WW2>REF(WW2,1); DRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1; 前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3; 前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3; 前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3; 前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3; 短高:=REF(H,BARSLAST(VV2)),LINETHICK0; 短低:=REF(L,BARSLAST(VV)),LINETHICK0; 短比: (C-短低)/(短高-短低),LINETHICK0; {以下语句是大盘趋势叠加} 常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV)); 叠1:INDEXC/常数,COLORGRAY,LINETHICK0; PARTLINE(1,叠1),COLORGRAY; 常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX)); 叠2:INDEXC/常数2,COLORGRAY,LINETHICK0; PARTLINE(1,叠2),COLORGRAY; DRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN; DRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN; DRAWNUMBER(HD,H*(1+0.002),H,2),COLORBLUE,ALIGN0; DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORBLUE,ALIGN0; 数浪公式+薛斯通道
v1:=简单移动平均(最高价,30)*1.15 ;
v2:=简单移动平均(最高价,3)*1.03; v3:=简单移动平均(最低价,3)*0.97; v4:=简单移动平均(最低价,30)*0.85; {v5}大通道上:傅立叶变换(v1,30); {v6}小通道上:傅立叶变换(v2,30); {v7}小通道下:傅立叶变换(v3,30); {v8}大通道下:傅立叶变换(v4,30); A1:=大通道上-向前引用(大通道上,1); A2:=小通道上-向前引用(小通道上,1); A3:=小通道下-向前引用(小通道下,1); A4:=大通道下-向前引用(大通道下,1); 画分段线(A1>0,大通道上) LINETHICK2 COLORRED; 画分段线(A1=0,大通道上) LINETHICK1 COLORWHITE; 画分段线(A1<0,大通道上) LINETHICK1 COLORGREEN; 画分段线(A2>0,小通道上) LINETHICK2 COLORRED; 画分段线(A2=0,小通道上) LINETHICK1 COLORWHITE; 画分段线(A2<0,小通道上) LINETHICK1 COLORGREEN; 画分段线(A3>0,小通道下) LINETHICK2 COLORRED; 画分段线(A3=0,小通道下) LINETHICK1 COLORWHITE; 画分段线(A3<0,小通道下) LINETHICK1 COLORGREEN; 画分段线(A4>0,大通道下) LINETHICK2 COLORRED; 画分段线(A4=0,大通道下) LINETHICK1 COLORWHITE; 画分段线(A4<0,大通道下) LINETHICK1 COLORGREEN; kxs:=系统参数(2); dsj:=1; GET:之字转向(3,n),coloryellow; pl5:=之字转向(3,5)*dsj; en1:=之字转向(3,5)>向前引用(之字转向(3,5),1) and 向前引用(之字转向(3,5),1)<=向前引用(之字转向(3,5),2) and 向前引用(之字转向(3,5),2)<=向前引用(之字转向(3,5),3)*dsj; ex1:=之字转向(3,5)<向前引用(之字转向(3,5),1) and 向前引用(之字转向(3,5),1)>=向前引用(之字转向(3,5),2) and 向前引用(之字转向(3,5),2)>=向前引用(之字转向(3,5),3)*dsj; pl10:=之字转向(3,10)*dsj; en2:=之字转向(3,10)>向前引用(之字转向(3,10),1) and 向前引用(之字转向(3,10),1)<=向前引用(之字转向(3,10),2) and 向前引用(之字转向(3,10),2)<=向前引用(之字转向(3,10),3)*dsj; ex2:=之字转向(3,10)<向前引用(之字转向(3,10),1) and 向前引用(之字转向(3,10),1)>=向前引用(之字转向(3,10),2) and 向前引用(之字转向(3,10),2)>=向前引用(之字转向(3,10),3)*dsj; pl20:=之字转向(3,20)*dsj; en3:=之字转向(3,20)>向前引用(之字转向(3,20),1) and 向前引用(之字转向(3,20),1)<=向前引用(之字转向(3,20),2) and 向前引用(之字转向(3,20),2)<=向前引用(之字转向(3,20),3)*dsj; ex3:=之字转向(3,20)<向前引用(之字转向(3,20),1) and 向前引用(之字转向(3,20),1)>=向前引用(之字转向(3,20),2) and 向前引用(之字转向(3,20),2)>=向前引用(之字转向(3,20),3)*dsj; pl40:=之字转向(3,40)*dsj; 走强1:=上一次条件成立位置(pl5<向前引用(pl5,1)); 走弱1:=上一次条件成立位置(pl5>向前引用(pl5,1)); 走强2:=上一次条件成立位置(pl10<向前引用(pl10,1)); 走弱2:=上一次条件成立位置(pl10>向前引用(pl10,1)); 走强3:=上一次条件成立位置(pl20<向前引用(pl20,1)); 走弱3:=上一次条件成立位置(pl20>向前引用(pl20,1)); ztjz5:=条件函数(pl10>向前引用(pl10,1),统计总数(en1,走强2),0); ztjd5:=条件函数(pl10>向前引用(pl10,1),统计总数(ex1,走强2),0); dtjz5:=条件函数(pl10<向前引用(pl10,1),统计总数(en1,走弱2),0); dtjd5:=条件函数(pl10<向前引用(pl10,1),统计总数(ex1,走弱2),0); ztjz10:=条件函数(pl20>向前引用(pl20,1),统计总数(en2,走强3),0); ztjd10:=条件函数(pl20>向前引用(pl20,1),统计总数(ex2,走强3),0); dtjz10:=条件函数(pl20<向前引用(pl20,1),统计总数(en2,走弱3),0); dtjd10:=条件函数(pl20<向前引用(pl20,1),统计总数(ex2,走弱3),0); 显示文字(en1 and dtjz5=1,最低价*0.98,'㈠'),colorffff00; 显示文字(ex1 and dtjd5=2,最高价*1.02,'㈡'),colorffff00; 显示文字(en2 and ztjz5=1,最低价*0.98,'㈢'),colorffff00; 显示文字(ex1 and pl10>向前引用(pl10,1) and ztjd5=1,最高价*1.02,'⑴'),colorff; 显示文字(en1 and pl10>向前引用(pl10,1) and ztjz5=2,最低价*0.98,'⑵'),colorff; 显示文字(ex1 and pl10>向前引用(pl10,1) and ztjz5=2,最高价*1.02,'⑶'),colorff; 显示文字(en1 and pl10>向前引用(pl10,1) and ztjz5=3,最低价*0.98,'⑷'),colorff; 显示文字(ex2 and pl20>向前引用(pl20,1) and ztjd10=1,最高价*1.02,'⑸'),colorff; 显示文字(en2 and dtjz10=1,最低价*0.94,'Ⅰ'),colorff0000; 显示文字(ex2 and dtjd10=2,最高价*1.06,'Ⅱ'),colorff0000; 显示文字(en3 and ztjz10=1,最低价*0.94,'Ⅲ'),colorff0000; 显示文字(ex2 and pl20>向前引用(pl20,1) and ztjd10=1,最高价*1.06,'①'),Linethick3,colorffff; 显示文字(en2 and pl20>向前引用(pl20,1) and ztjz10=2,最低价*0.94,'②'),Linethick3,colorffff; 显示文字(ex2 and pl20>向前引用(pl20,1) and ztjd10=2 or (ztjd10=0 or ztjd10=2) and ex2,最高价*1.06*dsj,'③'),Linethick3,colorffff; 显示文字(en2 and pl20>向前引用(pl20,1) and ztjz10=3,最低价*0.94,'④'),Linethick3,colorffff; STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,9,0),colorFF5B00; STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,8,0),colorFF6C00; STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),colorFF7B00; STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,6,0),colorFF9C00; STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,5,0),colorFFBE00; STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3.5,0),colorFFCC00; STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,1.5,0),colorFFFF00; STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,9,0),color70084; STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,8,0),colorA3; STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,0),colorB7; STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,6,0),colorCD; STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,5,0),colorE9; STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,3,0),color754E9; STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1.5,0),color76EF3; STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1,0),color77BF3; STICKLINE((CLOSE > OPEN),OPEN,LOW,1,0),color726CA; STICKLINE((CLOSE > OPEN),CLOSE,HIGH,1,0),color726CA; STICKLINE((OPEN > CLOSE),CLOSE,LOW,1,0),colorDE9100; STICKLINE((OPEN > CLOSE),OPEN,HIGH,1,0),colorDE9100; n=21 input: N(5,1,100);
A1:=向前引用(最高价,N)=最高值(最高价,2*N+1); B1:=信号过滤(A1,N); C1:=向前赋值(B1,N+1); D1:=信号过滤(C1,n);{高点} A2:=向前引用(最低价,N)=最低值(最低价,2*N+1); B2:=信号过滤(A2,N); C2:=向前赋值(B2,N+1); D2:=信号过滤(C2,N);{低点} E1:=(向前引用(最低值(最低价,2*N),1)+向前引用(最高值(最高价,2*N),1))/2; E2:=(最高价+最低价)/2;{高低点出现在同一K线上时可作取舍} H1:=(D1 AND 求逻辑非(D2 AND E1>=E2)) OR 数据位置状态=2 OR 有效值周期数(收盘价)=1; L1:=(D2 AND 求逻辑非(D1 AND E1<E2)); H2:=D1 AND 求逻辑非(D2 AND E1>=E2); X1:=向前引用(上一次条件成立位置(H1),1)+1; F1:=向前赋值(H1 AND 统计总数(L1,X1)>0,上一低点位置 (条件函数(L1,最低价,10000),X1)); G1:=F1>向前引用(F1,1); I1:=向前赋值(G1,2); LD:=I1>向前引用(I1,1);{过滤后低点} L2:=LD OR 数据位置状态=2 OR 有效值周期数(收盘价)=1; X2:=向前引用(上一次条件成立位置(L2),1)+1; F2:=向前赋值(L2 AND 统计总数(H2,X2)>0,上一高点位置 (条件函数(H2,最高价,0),X2)); G2:=F2>向前引用(F2,1); I2:=向前赋值(G2,2); HD:=I2>向前引用(I2,1);{过滤后高点} R1:=向前赋值(数据位置状态=2,上一次条件成立位置(HD)+1); S1:=R1>向前引用(R1,1); {前一高} T1:=向前赋值(数据位置状态=2,上一次条件成立位置(LD)+1); U1:=T1>向前引用(T1,1); {前一低} R2:=向前赋值(S1,向前引用(上一次条件成立位置(HD),1)+2); S2:=R2>向前引用(R2,1); {前二高} T2:=向前赋值(U1,向前引用(上一次条件成立位置(LD),1)+2); U2:=T2>向前引用(T2,1); {前二低} T3:=向前赋值(U2,向前引用(上一次条件成立位置(LD),1)+2); U3:=T3>向前引用(T3,1); {前三低} T4:=向前赋值(U3,向前引用(上一次条件成立位置(LD),1)+2); U4:=T4>向前引用(T4,1); {前四低} R3:=向前赋值(S2,向前引用(上一次条件成立位置(HD),1)+2); S3:=R3>向前引用(R3,1); {前三高} R4:=向前赋值(S3,向前引用(上一次条件成立位置(HD),1)+2); S4:=R4>向前引用(R4,1); {前四高} 短期压力:画直线(S2,最高价,S1,最高价,1),Colorred; 短期支撑:画直线(U2,最低价,U1,最低价,1),Colorgreen; 中期压力:画直线(S3,最高价,S2,最高价,1),Coloryellow; 中期支撑:画直线(U3,最低价,U2,最低价,0),Colorgreen; 长期压力:画直线(S4,最高价,S3,最高价,1),COLORFF00FF; 长期支撑:画直线(U4,最低价,U3,最低价,0),Colorgreen; 画图标(S1,最高价*1.01,10); 画图标(S2,最高价*1.01,10); 画图标(S3,最高价*1.01,10); 画图标(S4,最高价*1.01,10); 画图标(U1,最低价*0.99,9); 画图标(U2,最低价*0.99,9); 画图标(U3,最低价*0.99,9); 画图标(U4,最低价*0.99,9); 画柱线(收盘价>=开盘价,开盘价,收盘价,8,0),COLORRED; 画柱线(收盘价>=开盘价,收盘价,最高价,0,0),COLORRED; 画柱线(收盘价>=开盘价,最低价,开盘价,0,0),COLORRED; 画柱线(收盘价<开盘价,收盘价,开盘价,8,0),colorFFFF00; 画柱线(收盘价<开盘价,开盘价,最高价,0,0),colorFFFF00; 画柱线(收盘价<开盘价,最低价,收盘价,0,0),colorFFFF00; J:=(收盘价*2+最高价+最低价)/4; K:=(指数平滑移动平均(J,13) - 指数平滑移动平均(J,21))*180; D:=指数平滑移动平均(K,2); kk:=K-D; dd:=-1*(K-D); jj:=交叉函数(kk,dd); 画柱线(jj,开盘价,收盘价,8,0),COLORyellow; 画柱线(jj,开盘价,最高价,0,0),COLORyellow; 画柱线(jj,最低价,收盘价,0,0),COLORyellow; ss2:=移动平均(收盘价,3,1); ss6:=移动平均(收盘价,5,1); dk:=2*(ss2-ss6)*15*4*1.5; 画柱线(dk>0 and kk<dd,开盘价,收盘价,8,0),COLORgreen; 画柱线(dk>0 and kk<dd,开盘价,最高价,0,0),COLORgreen; 画柱线(dk>0 and kk<dd,最低价,收盘价,0,0),COLORgreen; 画柱线(dk<0 and kk<dd, 开盘价,收盘价,8,0),colorgray; 画柱线(dk<0 and kk<dd ,开盘价,最高价,0,0),colorgray; 画柱线(dk<0 and kk<dd ,最低价,收盘价,0,0),colorgray; 音叉
z:zig(4,N);a:=FLATZIG(4,N);q:=datacount; aa:=if(ISLASTBAR,0,a=1 or a=0); w:barslast(aa),LINETHICK;s:=sum(aa,0);ss:=s[q]-s+1;ba:=barpos; K:=if(ss<4,4,ss[SYSPARAM(1)]); xx0:=ref(ba,barssince(ss=K)); xx1:=ref(ba,barssince(ss=K-1)); xx2:=ref(ba,barssince(ss=K-2)); x0:=xx0[q];x1:=xx1[q];x2:=xx2[q]; y0:=z[x0];y1:=z[x1];y2:=z[x2]; x:=(x1+x2)/2;y:=(y1+y2)/2;xL:=(y-y0)/(x-x0); DRAWSL(ba=x0,z,xL,0,0),COLORMAGENTA,LINEDOT; DRAWSL(ba=x1,z,xL,0,0),COLORGREEN,LINEDOT; DRAWSL(ba=x2,z,xL,0,0),COLORGREEN,LINEDOT; DRAWLINE(ba=x1,z,ba=x2,z,0),COLORGREEN,LINETHICK2; 中:LINEVALUE(ba=x0,z,ba=x0+1,y0+xL,0,0),COLORMAGENTA; 下:LINEVALUE(ba=x1,z,ba=x1+1,y1+xL,0,0),COLORGREEN; 上:LINEVALUE(ba=x2,z,ba=x2+1,y2+xL,0,0),COLORGREEN; 斜率:xL,LINETHICK; 角度:ATAN(xL)*114.6,LINETHICK; 中1:=LINEVALUE(ba=x0,z,ba=x0+1,y0+xL,1,0),COLORMAGENTA; 中0:=if(ba>x1,中,中1); M1:=LINEVALUE(ba=x1,z,ba=x2,z,0,0); M2:=LINEVALUE(ba=x1,z,ba=x2,z,1,0); M:=if(ba>x,m1,m2); u:=中0-if(y2>y1,下,上); t0:=中0-u[q]*0.5,LINETHICK,Color005500; t1:=中0-u[q]*1.5,LINETHICK,Color005500; t2:=中0-u[q]*2,LINETHICK,Color005500; wt0:=barssince(cross(t0,m) or cross(m,t0))*0; wt1:=barssince(cross(t1,m) or cross(m,t1))*0; wt2:=barssince(cross(t2,m) or cross(m,t2))*0; t0+wt0,LINEDASHDOT,Color005500; t1+wt1,LINEDASHDOT,Color005500; t2+wt2,LINEDASHDOT,Color005500; u0:=中0+u[q]*0.5,LINETHICK,Color005500; u1:=中0+u[q]*1.5,LINETHICK,Color005500; u2:=中0+u[q]*2,LINETHICK,Color005500; wu0:=barssince(cross(u0,m) or cross(m,u0))*0; wu1:=barssince(cross(u1,m) or cross(m,u1))*0; wu2:=barssince(cross(u2,m) or cross(m,u2))*0; u0+wu0,LINEDASHDOT,Color005500; u1+wu1,LINEDASHDOT,Color005500; u2+wu2,LINEDASHDOT,Color005500; PARTLINE(BETWEEN(m,u2,t2),m),LINETHICK,Color005500; UZ百分比线
UZ百分比线
附件
黄金分割公式
{-------------------------------------------------------------}
V1:=REF(C,1); V2:=SMA(MAX(C-V1,0),6,1)/SMA(ABS(C-V1),6,1)*100; DRAWICON(IF(CROSS(81,V2),1,0),h*1.01,11); Var1:=SYSPARAM(3)-SYSPARAM(2)+1; Var2:=SYSPARAM(3)-BARPOS; Var3:=HHV(HIGH,Var1); Var4:=LLV(LOW,VaR1); Var5:=REFX(Var3,Var2); //主图最高价 Var5:IF(SYSPARAM(3)<>SYSPARAM(1),SYSPARAM(6),Var5),COLORWHITE; Var6:REFX(Var4,Var2),COLORWHITE; //主图最低价 黄191: (Var5-Var6)*0.191+Var6,COLORWHITE,POINTDOT; 黄382: (Var5-Var6)*0.382+Var6,COLORWHITE,POINTDOT; 黄500: (Var5-Var6)*0.500+Var6,COLORWHITE; 黄618: (Var5-Var6)*0.618+Var6,COLORWHITE,POINTDOT; 黄809: (Var5-Var6)*0.809+Var6,COLORWHITE,POINTDOT; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.0381+Var6,'最低价('+NUMTOSTR(Var6,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.191+Var6,'黄金0.191('+NUMTOSTR(黄191,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.382+Var6,'黄金0.382('+NUMTOSTR(黄382,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.500+Var6,'黄金分割中轴('+NUMTOSTR(黄500,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.618+Var6,'黄金0.618('+NUMTOSTR(黄618,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.809+Var6,'黄金0.809('+NUMTOSTR(黄809,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.981+Var6,'最高价('+NUMTOSTR(Var5,2)+')'),COLORWHITE; zf:=(c/ref(c,4)-1)*100; s:='z:'+NUMTOSTR(zf[SYSPARAM(1)],2); DRAWTEXT(BARPOS=SYSPARAM(1),h,s) ALIGN4; 稳操胜券庄家显身
//稳操胜券庄家显身
VAR2:=REF(LOW,1); VAR3:=((SMA(ABS((LOW - VAR2)),3,1) / SMA(MAX((LOW - VAR2),0),3,1)) * 100); VAR4:=EMA(IF((CLOSE * 1.2),(VAR3 * 10),(VAR3 / 10)),3); VAR5:=LLV(LOW,38); VAR6:=HHV(VAR4,38); VAR7:=IF(LLV(LOW,90),1,0); VAR8:=((EMA(IF((LOW <= VAR5),((VAR4 + (VAR6 * 2)) / 2),0),3) / 618) * VAR7); 有庄的影子:STICKLINE(VAR8,0,VAR8,6,1),colorFFAAFF; 趋势线:(((CLOSE - MA(CLOSE,40)) / MA(CLOSE,40)) * 100),colorAABBDD; AA:=(((((REF(趋势线,1) < REF(趋势线,2)) AND (趋势线 < (0 - 30))) AND (趋势线 >= REF(趋势线,1))) OR (REF(CROSS((0 - 30),趋势线),1) AND CROSS(趋势线,(0 - 30)))) OR (趋势线 = (0 - 30))); DRAWTEXT(AA,500,'砸锅卖田买'),colorFFFF; 砸锅卖田买:IF(AA,500,(0 - 30)),colorFFFF; BB:=(((((REF(趋势线,1) < REF(趋势线,2)) AND (趋势线 < (0 - 20))) AND (趋势线 > (0 - 25))) AND (趋势线 >= REF(趋势线,1))) OR (REF(CROSS((0 - 20),趋势线),1) AND CROSS(趋势线,(0 - 20)))); DRAWTEXT(BB,300,'见底信号'),colorFF; 见底信号:IF(BB,300,(0 - 20)),colorFF; CC:=(((((REF(趋势线,1) < REF(趋势线,2)) AND (趋势线 < (0 - 25))) AND (趋势线 > (0 - 30))) AND (趋势线 >= REF(趋势线,1))) OR (REF(CROSS((0 - 25),趋势线),1) AND CROSS(趋势线,(0 - 25)))); DRAWTEXT(CC,400,'莫错失机会'),colorFF00; 莫错失机会:IF(CC,400,(0 - 25)),colorFF00; 底部快显:IF(CROSS((0 - 20),趋势线),100,(0 - 20)),LINETHICK2,colorF0F000; DRAWTEXT(CROSS((0 - 20),趋势线),120,'★'),colorF0F000; 机会来临:IF(CROSS((0 - 25),趋势线),150,(0 - 25)),LINETHICK2,colorF00FF0; DRAWTEXT(CROSS((0 - 25),趋势线),170,'★'),colorF00FF0; 砸锅卖田等:IF(CROSS((0 - 30),趋势线),200,(0 - 30)),LINETHICK2,colorFFFFFF; DRAWTEXT(CROSS((0 - 30),趋势线),220,'★'),colorFFFFFF; (0 - 20),POINTDOT,colorFF; (0 - 25),POINTDOT,color1; (0 - 30),POINTDOT,colorFFFF; [江恩黄金分割]
input:w(2,1,3);
年:=MA(CLOSE,26); STICKLINE(C>=年 AND C>=O,C,O,7,0),COLORRED; STICKLINE(C>=年 AND C>=O,H,L,0,0),COLORRED; STICKLINE(C>=年 AND C<O,C,O,7,1),COLORRED; STICKLINE(C>=年 AND C<O,O,H,0,0),COLORRED; STICKLINE(C>=年 AND C<O,C,L,0,0),COLORRED; STICKLINE(C<年 AND C>O,C,O,7,1),COLORffff00; STICKLINE(C<年 AND C<=O,C,O,7,0),COLORffff00; STICKLINE(C<年 AND C<=O,H,L,0,1),COLORffff00; STICKLINE(C<年 AND C>O,C,H,0,1),COLORffff00; STICKLINE(C<年 AND C>O,O,L,0,1),COLORffff00; u1:=sysparam(3); u:=u1-sysparam(2)+1; hh:=hhv(H,u); ll:=llv(L,u); 最高:=hh[u1],COLORYELLOW; PARTLINE(C and w<>3,最高),COLORYELLOW; 最低:ll[u1],COLORred; PARTLINE(C and w<>3,最低),COLORred; PARTLINE(C and w=1,最低+(最高-最低)*0.191),LINEDOT,COLORWHITE; PARTLINE(C and w=1,最低+(最高-最低)*0.382),LINEDOT,COLORWHITE; PARTLINE(C and w<>3,最低+(最高-最低)*0.5),COLORGREEN; PARTLINE(C and w=1,最低+(最高-最低)*0.618),LINEDOT,COLORWHITE; PARTLINE(C and w=1,最低+(最高-最低)*0.809),LINEDOT,COLORWHITE; DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3) and w<>3,REF(最低,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'最低↓'),ALIGN2,COLORred; DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3) and w<>3,REF(最高,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'最高↑'),ALIGN2,COLORYELLOW; DRAWTEXT(BARPOS=SYSPARAM(2) and w=1,REF((最低+(最高-最低)*0.191)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黄金 0.191↑'+NUMTOSTR(最低+(最高-最低)*0.191,2)),COLORWHITE; DRAWTEXT(BARPOS=SYSPARAM(2) and w=1,REF((最低+(最高-最低)*0.382)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黄金 0.382↑'+NUMTOSTR(最低+(最高-最低)*0.382,2)),COLORWHITE; DRAWTEXT(BARPOS=SYSPARAM(2) and w<>3,REF((最低+(最高-最低)*0.5)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM (2))),' 50% ↑'+NUMTOSTR(最低+(最高-最低)*0.5,2)),COLORGREEN; DRAWTEXT(BARPOS=SYSPARAM(2) and w=1,REF((最低+(最高-最低)*0.618)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黄金 0.618↑'+NUMTOSTR(最低+(最高-最低)*0.618,2)),COLORWHITE; DRAWTEXT(BARPOS=SYSPARAM(2) and w=1,REF((最低+(最高-最低)*0.809)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黄金 0.809↑'+NUMTOSTR(最低+(最高-最低)*0.809,2)),COLORWHITE; PARTLINE(C and w=2,最低+(最高-最低)*1/8),LINEDOT,Color0095BC; PARTLINE(C and w=2,最低+(最高-最低)*1/4),LINEDOT,Color0095BC; PARTLINE(C and w=2,最低+(最高-最低)*3/8),LINEDOT,Color0095BC; PARTLINE(C and w=2,最低+(最高-最低)*5/8),LINEDOT,Color0095BC; PARTLINE(C and w=2,最低+(最高-最低)*7/8),LINEDOT,Color0095BC; PARTLINE(C and w=2,最低+(最高-最低)*3/4),LINEDOT,Color0095BC; DRAWTEXT(BARPOS=SYSPARAM(2) and w=2,REF((最低+(最高-最低)*1/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 1/8↑'+NUMTOSTR(最低+(最高-最低)*1/8,2)),Color0095BC; DRAWTEXT(BARPOS=SYSPARAM(2) and w=2,REF((最低+(最高-最低)*1/4)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 1/4↑'+NUMTOSTR(最低+(最高-最低)*1/4,2)),Color0095BC; DRAWTEXT(BARPOS=SYSPARAM(2) and w=2,REF((最低+(最高-最低)*3/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 3/8↑'+NUMTOSTR(最低+(最高-最低)*3/8,2)),Color0095BC; DRAWTEXT(BARPOS=SYSPARAM(2) and w=2,REF((最低+(最高-最低)*5/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 5/8↑'+NUMTOSTR(最低+(最高-最低)*5/8,2)),Color0095BC; DRAWTEXT(BARPOS=SYSPARAM(2) and w=2,REF((最低+(最高-最低)*7/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 7/8↑'+NUMTOSTR(最低+(最高-最低)*7/8,2)),Color0095BC; DRAWTEXT(BARPOS=SYSPARAM(2) and w=2,REF((最低+(最高-最低)*3/4)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 3/4↑'+NUMTOSTR(最低+(最高-最低)*3/4,2)),Color0095BC; G:=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); X:=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); DRAWTEXT(G,L*0.997,'▲'),ALIGN1,Colorff00ff; DRAWTEXT(G,L,'￣'),ALIGN1,Color00ff00; DRAWTEXT(X,H*1.002,'▼'),ALIGN1,Color00ffff; DRAWTEXT(X,H,'￣'),ALIGN1,Color00ffff; ED:=barslast(G); EF:=barslast(X); 买入到卖出天数:ED,LINETHICK0,ColorFFFFFF; 卖出到买入天数:EF,LINETHICK0,ColorFFFFFF; 真真正正的黄金分割
input:n(30,1,1000);
HH:HHV(H,N); LL:LLV(L,N); <% VH=FFL.VARDATA("HH") VL=FFL.VARDATA("LL") VN=FFL.VARDATA("N") LAST=UBOUND(VH) IF VN>LAST THEN VN=LAST+1 FOR I=LAST TO LAST-VN+1 STEP-1 VH(I)=VH(LAST) VL(I)=VL(LAST) NEXT FFL.VARDATA("HH")=VH FFL.VARDATA("LL")=VL FFL.VARSTARTINDEX("HH")=LAST-VN+1 FFL.VARSTARTINDEX("LL")=LAST-VN+1 %> HH,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,HH,'【黄金分割】↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH,HH,2),align2,coloryellow; LL+((HH-LL)*0.809),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.809),' 0.809↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.809),LL+((HH-LL)*0.809),2),align2,coloryellow; LL+((HH-LL)*0.764),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.764),' 0.764↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.764),LL+((HH-LL)*0.764),2),align2,coloryellow; LL+((HH-LL)*0.618),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.618),' 0.618↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.618),LL+((HH-LL)*0.618),2),align2,coloryellow; LL+((HH-LL)*0.500),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.500),' 0.500↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.500),LL+((HH-LL)*0.500),2),align2,coloryellow; LL+((HH-LL)*0.382),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.382),' 0.382↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.382),LL+((HH-LL)*0.382),2),align2,coloryellow; LL+((HH-LL)*0.333),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.333),' 0.333↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.333),LL+((HH-LL)*0.333),2),align2,coloryellow; LL+((HH-LL)*0.236),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.236),' 0.236↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.236),LL+((HH-LL)*0.236),2),align2,coloryellow; LL+((HH-LL)*0.191),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.191),' 0.191↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.191),LL+((HH-LL)*0.191),2),align2,coloryellow; LL,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL,'〖底部起点〗↑'),coloryellow; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL,LL,2),align2,coloryellow; 黄金分割线──价格
//黄金分割线──价格
DRAWBKBMP(CLOSE>0,'MOON'); STICKLINE(C>=O,C,O,8,0),COLOR0000AA; STICKLINE(C>=O,C,O,6,0),COLOR0000CC ; STICKLINE(C>=O,C,O,4,0),COLOR0000DD ; STICKLINE(C>=O,C,O,2,0),COLOR0000FF; STICKLINE(C>=O,H,L,0,0),COLORRED; STICKLINE(C>=O,C,O,8,0),COLOR0000AA; STICKLINE(C>=O,C,O,6,0),COLOR0000CC ; STICKLINE(C>=O,C,O,4,0),COLOR0000DD ; STICKLINE(C>=O,C,O,2,0),COLOR0000FF; STICKLINE(C>=O,H,L,0,0),COLORRED; STICKLINE(C<=O,C,O,8,0),Color007B00; STICKLINE(C<=O,C,O,6,0),Color009000; STICKLINE(C<=O,C,O,4,0),Color00A800; STICKLINE(C<=O,C,O,2,0),COLORGREEN; STICKLINE(C<=O,H,L,0,0),COLORCYAN; ５日:MA(C,5); ２０日:MA(C,20); ３０日:MA(C,30); ６０日:MA(C,60); Var1:=SYSPARAM(3)-SYSPARAM(2)+1; Var2:=SYSPARAM(3)-BARPOS; Var3:=HHV(HIGH,Var1); Var4:=LLV(LOW,VaR1); Var5:=REFX(Var3,Var2); //主图最高价 Var5:IF(SYSPARAM(3)<>SYSPARAM(1),SYSPARAM(6),Var5),COLORRED,LINETHICK3; Var6:REFX(Var4,Var2),COLORWHITE,LINETHICK3; //主图最低价 黄191:(Var5-Var6)*0.191+Var6,COLORYELLOW,POINTDOT,LINETHICK3; 黄382:(Var5-Var6)*0.382+Var6,COLORYELLOW,POINTDOT,LINETHICK3; 黄500:(Var5-Var6)*0.500+Var6,COLORYELLOW; 黄618:(Var5-Var6)*0.618+Var6,COLORYELLOW,POINTDOT,LINETHICK3; 黄809:(Var5-Var6)*0.809+Var6,COLORYELLOW,POINTDOT,LINETHICK3; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.0381+Var6,'最低价('+NUMTOSTR(Var6,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.191+Var6,'黄金0.191('+NUMTOSTR(黄191,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.382+Var6,'黄金0.382('+NUMTOSTR(黄382,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.500+Var6,'黄金分割中轴('+NUMTOSTR(黄500,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.618+Var6,'黄金0.618('+NUMTOSTR(黄618,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.809+Var6,'黄金0.809('+NUMTOSTR(黄809,2)+')'),COLORWHITE; DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.981+Var6,'最高价('+NUMTOSTR(Var5,2)+')'),COLORWHITE; 时间之窗[飞狐]主图
DRAWGBK(DATE>900101,COLORRGB(95,95,95),COLORRGB(0,0,0),1);
Var1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2); Var2:=REF(Var1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); Var3:=REF(Var2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); Var4:=REF(Var3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); Var5:=REF(Var4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); Var6:=REF(Var5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); Var7:=REF(Var6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); Var8:=REF(Var7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); Var9:=REF(Var8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); VarA:=REF(Var9,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); 涨:STICKLINE(Var1 OR Var2 OR Var3 OR Var4 OR Var5 OR Var6 OR Var7 OR Var8 OR Var9 OR VarA OR VarB OR VarC,CLOSE,REF(CLOSE,1),7,1),COLORRED; VarD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2); 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); Var10:=REF(VarF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); Var11:=REF(Var10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); Var12:=REF(Var11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); Var13:=REF(Var12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); Var14:=REF(Var13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); Var15:=REF(Var14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); Var16:=REF(Var15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); Var17:=REF(Var16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); Var18:=REF(Var17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 跌:STICKLINE(VarD OR VarE OR VarF OR Var10 OR Var11 OR Var12 OR Var13 OR Var14 OR Var15 OR Var16 OR Var17 OR Var18,CLOSE,REF(CLOSE,1),7,1),COLORGREEN; Var19:=REF(VarD OR VarE OR VarF OR Var10 OR Var11 OR Var12 OR Var13 OR Var14 OR Var15 OR Var16 OR Var17 OR Var18,1) AND Var1; 底:STICKLINE(Var19,REF(CLOSE,1),REF(CLOSE,2),7,0),COLORred; Var1A:=REF(Var1 OR Var2 OR Var3 OR Var4 OR Var5 OR Var6 OR Var7 OR Var8 OR Var9 OR VarA OR VarB OR VarC,1) AND VarD; 顶:STICKLINE(Var1A,REF(CLOSE,1),REF(CLOSE,2),7,0),COLORBLUE; a:=BARSCOUNT(c); ah:=hhv(h,72); al:=llv(l,72); a0:=(ah-al)/21; b1:=l-a0; stickline((a+0)/13=FLOOR((a+0)/13),b1,b1-3*a0,1,0); drawtext((a+0)/13=FLOOR((a+0)/13),b1-2.5*a0,'转向时间窗'),COLORWHITE; Z10:ZIG(3,10); Z20:ZIG(3,20); Z30:ZIG(3,30); z40:zig(3,40); z60:zig(3,60); 参照系:ref(z10,1),pointdot,coloryellow; z10新低点:llv(z10,0),pointdot,color00ff00; zig(3,80); zig(3,100),color00ff00; 江恩时间窗
a:=BARSCOUNT(c);
ah:=hhv(h,72); al:=llv(l,72); a0:=(ah-al)/21; b1:=l-a0; stickline((a+0)/13=FLOOR((a+0)/13),b1,b1-3*a0,1,0); drawtext((a+0)/13=FLOOR((a+0)/13),b1-2.5*a0,'转向时间窗'),COLORWHITE; INPUT:n(20,1,999),上角(50,0,500),下角(50,0,500); {江恩角度线 周期、角度可调} N日:=n*10; p1:=CLOSE-REF(CLOSE,1); p2:=SUM(ABS(p1),0); p3:=COUNT(CLOSE>0,0); k1:=p2/p3/上角*10; k2:=p2/p3/下角*10; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH,-0.5*K2,0,0),COLOR33FFCC,POINTDOT; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH, -K2,0,0),COLOR33FFCC,POINTDOT; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH,-2*K2,0,0),COLOR33FFCC; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH,-4*K2,0,0),COLOR33FFCC,POINTDOT; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH,-8*K2,0,0),COLOR33FFCC,POINTDOT; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,0.5*K1,0,0),COLORffCCff,POINTDOT; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW, K1,0,0),COLORffCCff,POINTDOT; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,2*K1,0,0),COLORffCCff; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,4*K1,0,0),COLORffCCff,POINTDOT; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,8*K1,0,0),COLORffCCff,POINTDOT; 画线法__真正高手用的
KDTP input:n(9),m(3); RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100; K:=SMA(RSV,M,1); D:=BARSLAST(CROSS(K,80)); KH:=REF(H,D); PARTLINE(C<KH,KH),COLORGREEN,POINTDOT; 预警:CROSS(C,KH); DRAWTEXT(CROSS(C,KH),L*0.995,'预警'),COLORGREEN; KD指标K值上穿80时(条件)，取当日最高价，向右画线，直到某日收盘价突破该价格(突破该线)，画线结束。1、作出主图指标；2突破时条件选股(预警)。 XH-Z zig-分段信号 INPUT:N(20,1,100); M:=(SYSPARAM(4)-SYSPARAM(5))/SYSPARAM(5)*100,LINETHICK0;{确定高低点差} M1:=IF(DATATYPE>5,M/6,IF(DATATYPE>3,M/8,M/10)),LINETHICK0;{确定ZIG转向参数} M1:IF(M1>1,FLOOR(M1),CEILING(M1)),LINETHICK0; z:=zig(4,M1); f:=z-ref(z,1); d:=FILTER(refx(f>0 and ref(f,1)<0,1)or BARPOS=1,2);{低点} wd:=barslast(d);{低点位置} g:=FILTER(refx(f<0 and ref(f,1)>0,1)or BARPOS=1,2);{高点} wg:=barslast(g);{高点位置} xwd:=if(sum(wd=0,2)>1,1,wd)linethick0;//低点位置确认 xwg:=if(sum(wg=0,2)>1,1,wg)linethick0;//高点位置确认 fd:=hhv(h,xwd)/ref(L,xwd)-1>M1/100;//低点巩固系数 fg:=1-LLv(L,xwg)/ref(h,xwg)>M1/100;//高点巩固系数 dqz:=BACKSET(ISLASTBAR and wd<wg and fd=0,xwd+1)=0;//低点过滤系数 gqz:=BACKSET(ISLASTBAR and wg<wd and fg=0,xwd+1)=0;//高点过滤系数 {以下输出信号} dd:dqz*d or BARPOS=1;{输出低点} gg:gqz*g or BARPOS=1;{输出高点} 画圆弧 ng\nd均为16 drawtext(sysparam(2)=barpos,c,'板块:'+blkname),colorccffff,align4; gg:="xh-z.gg";//(ng); dd:="xh-z.dd";//(nd); p:=SYSPARAM(1); z:=gg*h+dd*L; sd:=sum(dd,0); sdd:=sd[p]-sd+1; wx1:=barssince(sdd=3); wx2:=barssince(sdd=2); wx3:=barssince(sdd=1); ry1:=hhv((wx1=0)*z,0); ry2:=hhv((wx2=0)*z,0); ry3:=hhv((wx3=0)*z,0); rx2:=hhv((wx2=0)*wx1,wx1+1); rx3:=hhv((wx3=0)*wx1,wx1+1); x2:=rx2[p]; x3:=rx3[p]; y1:=ry1[p]; y2:=(ry2[p]-ry1[p]); y3:=(ry3[p]-ry1[p]); xy:=POW(x2,2)+POW(y2,2); e:=(x3*xy/x2-(x3*x3+y3*y3))/(y3-x3*y2/x2); d:=-(y2*e+xy)/x2; y1:=POW((d*d+e*e)/4-POW((wx1+d/2),2),0.5); y2:=-POW((d*d+e*e)/4-POW((wx1+d/2),2),0.5); c1:=ref(L,wx1)-ref(y1,wx1); yy:=(y1+c1); c2:=ref(L,wx1)+ref(y1,wx1); ye:=(y2+c2); wyy:=abs(ref(yy,wx3)-ref(z,wx3))<0.01; wye:=abs(ref(ye,wx3)-ref(z,wx3))<0.01; if wyy[datacount] then yy,LINETHICK2,COLORMAGENTA; ELSE ye,LINETHICK2,COLORMAGENTA; sg:=sum(gg,0); sgg:=sg[p]-sg+1; wxg1:=barssince(sgg=3); wxg2:=barssince(sgg=2); wxg3:=barssince(sgg=1); ryg1:=hhv((wxg1=0)*z,0); ryg2:=hhv((wxg2=0)*z,0); ryg3:=hhv((wxg3=0)*z,0); rxg2:=hhv((wxg2=0)*wxg1,wxg1+1); rxg3:=hhv((wxg3=0)*wxg1,wxg1+1); xg2:=rxg2[p]; xg3:=rxg3[p]; yg1:=ryg1[p]; yg2:=(ryg2[p]-ryg1[p]); yg3:=(ryg3[p]-ryg1[p]); xyg:=POW(xg2,2)+POW(yg2,2); eg:=(xg3*xyg/xg2-(xg3*xg3+yg3*yg3))/(yg3-xg3*yg2/xg2); g:=-(yg2*eg+xyg)/xg2; yg1:=POW((g*g+eg*eg)/4-POW((wxg1+g/2),2),0.5); yg2:=-POW((g*g+eg*eg)/4-POW((wxg1+g/2),2),0.5); cg1:=ref(z,wxg1)-ref(yg1,wxg1); yyg:=(yg1+cg1); cg2:=ref(z,wxg1)+ref(yg1,wxg1); yeg:=(yg2+cg2); wyyg:=abs(ref(yyg,wxg3)-ref(z,wxg3))<0.01; wyeg:=abs(ref(yeg,wxg3)-ref(z,wxg3))<0.01; if wyyg[datacount] then yyg,LINETHICK2,COLORGREEN; ELSE yeg,LINETHICK2,COLORGREEN; DRAWICON(dd,z,11); DRAWICON(gg,z,10); 波段画线 input:n(5,5,30); fh:=high; fl:=low; ///以下找历史最高点，hh1表示最高价，phh1表示最高点位置/// hh1:=fh[1]; phh1:=1; for i=1 to datacount do //从第1条K线开始，循环执行下面3条复合语句，直到K线结束 if hh1<fh then begin //判断 hh1:=fh; phh1:=i; //用hh1单值变量记录历史最高价,phh1记录位置 end; ///以下找phh1之后的最低点，ll表示最低价，pll最低点位置 if phh1<datacount then begin ll:=fl[phh1+1]; for i=phh1 to datacount do if ll>fl then begin ll:=fl; pll:=i; end; end; ///以下用zig转折模拟波段，通过参数n来调整波的分布/// ///找历史最高后的波峰最高点，hh2次高价，phh2位置/// tj:=peakbars(high,n,1)=0; nstart:=max(lbound(tj),phh1+1); if nstart<=datacount then begin hh2:=0; for i=nstart to datacount do if tj then begin if hh2<fh then begin hh2:=fh; phh2:=i; end; end; end; //////以下画线/////////// drawline(barpos=phh1,high,barpos=phh2,high,1),colormagenta; drawline(barpos=phh1,high,barpos=pll,low,1),coloryellow; 波浪+趋势 {以下语句为新结构波浪} 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; L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 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);{过滤后高点} DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT; DRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT; J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1); DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT; {以上语句为新结构波浪} A3:=H<REF(H,REF(BARSLAST(HD),1)+1); 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)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2)); D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点} DRAWICON(HH,H,10),ALIGN2; DRAWICON(LL,L,12),ALIGN1; 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),LINETHICK0; {长期低点，也可供引用} 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),LINETHICK0;{长期高点，也可供引用} DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1; DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线} K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1); DRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN,LINETHICK1; {最后的长期连线，连在收盘价上} {以下是两条趋势线原码} UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1); VV:=UU>REF(UU,1); WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2); XX:=WW>REF(WW,1); DRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1; UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1); VV2:=UU2>REF(UU2,1); WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2); XX2:=WW2>REF(WW2,1); DRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1; 前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3; 前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3; 前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3; 前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3; 短高:=REF(H,BARSLAST(VV2)),LINETHICK0; 短低:=REF(L,BARSLAST(VV)),LINETHICK0; 短比: (C-短低)/(短高-短低),LINETHICK0; {以下语句是大盘趋势叠加} 常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV)); 叠1:INDEXC/常数,COLORGRAY,LINETHICK0; PARTLINE(1,叠1),COLORGRAY; 常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX)); 叠2:INDEXC/常数2,COLORGRAY,LINETHICK0; PARTLINE(1,叠2),COLORGRAY; DRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN; DRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN; DRAWNUMBER(HD,H*(1+0.002),H,2),COLORBLUE,ALIGN0; DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORBLUE,ALIGN0; JGB
n=3 1 9999 A1:=REF(H,N)=HHV(H,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N);{高点} A2:=REF(L,N)=LLV(L,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N);{低点} E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2; E2:=(H+L)/2;{高低点出现在同一K线上时可作取舍} H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1; L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2); X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1)); G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:I1>REF(I1,1),LINETHICK0;{过滤后低点} L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1; X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2)); G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:I2>REF(I2,1),LINETHICK0;{过滤后高点} DRAWLINE(HD,H,LD,L,0),COLORYELLOW,LINETHICK1;DRAWLINE(LD,L,HD,H,0),COLORYELLOW,LINETHICK1; {高低点之间作连线。Param#1调峰点参数N(3,2,999);} J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1); DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORYELLOW; {作最后的连线。这根线有时会不尽人意。} JGE n=3 2 9999 m =1 0 1 HD:="jgb.HD"(N);LD:="jgb.LD"(N); DRAWLINE(LD,L,HD,H,0),COLORFF9900;DRAWLINE(HD,H,LD,L,0),COLORFF9900; J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1); DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORFF9900; R1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1); S1:=R1>REF(R1,1); {前一高} T1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1); U1:=T1>REF(T1,1); {前一低} R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2); S2:=R2>REF(R2,1); {前二高} T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2); U2:=T2>REF(T2,1); {前二低} 短高:REF(H,BARSLAST(S1)),LINETHICK1; 短低:REF(L,BARSLAST(U1)),LINETHICK1; 短比:(C-短低)/(短高-短低),LINETHICK0; DRAWLINE(S2,H,S1,H,1); DRAWLINE(U2,L,U1,L,1); V1:=LINEVALUE(S2,H,S1,H,0,1); V2:=LINEVALUE(U2,L,U1,L,0,1); DRAWICON(CROSS(C,V1),V1,4); DRAWICON(CROSS(V2,C),V2,5); DRAWICON(CROSS(C,短高),短高,4); DRAWICON(CROSS(短低,C),短低,5); A3:=H<REF(H,REF(BARSLAST(HD),1)+1); 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); HZ:=E3>REF(E3,1);{找出全部长期高点} A4:=L>REF(L,REF(BARSLAST(LD),1)+1); B4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2)); D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LZ:=E4>REF(E4,1);{找出全部长期低点} R3:=BACKSET(ISLASTBAR,BARSLAST(HZ)+1); S3:=R3>REF(R3,1); {前一长高} T3:=BACKSET(ISLASTBAR,BARSLAST(LZ)+1); U3:=T3>REF(T3,1); {前一长低} 长高:REF(H,BARSLAST(S3)),LINETHICK2; 长低:REF(L,BARSLAST(U3)),LINETHICK2; 长比:(C-长低)/(长高-长低),LINETHICK0; PARTLINE(1,长低+(长高-长低)/2),COLORRED; PARTLINE(1,长低+(长高-长低)/3),POINTDOT,COLORDDDDDD; PARTLINE(1,长低+2*(长高-长低)/3),POINTDOT,COLORDDDDDD; {下面做大盘叠加，从可见的第一根K线开始。} A:=BARSCOUNT(C)=SYSPARAM(2); B:=BARSLAST(A); CC:=REF(INDEXC,B)/REF(C,B); DD1:=INDEXO/CC; DD2:=INDEXH/CC; DD3:=INDEXL/CC; DD4:=INDEXC/CC; STICKLINE(M AND DD4>=REF(DD4,1),DD3,DD1,0.1,0),COLORFF66FF; STICKLINE(M AND DD4>=REF(DD4,1),DD4,DD2,0.1,0),COLORFF66FF; STICKLINE(M AND DD4>=REF(DD4,1),DD1,DD4,7,1),COLORFF66FF; STICKLINE(M AND DD4<REF(DD4,1),DD3,DD2,0.1,0),COLOR99FF33; STICKLINE(M AND DD4<REF(DD4,1),DD4,DD1,7,0),COLOR99FF33; 背离系数:100*(C-DD4)/DD4,LINETHICK0; |
|
|
