|
分時K線疊加日K線 日K線疊加周線結合漲跌幅度贏利有保障 主圖（源碼 貼圖）
祝大家兔年吉祥 心想事成 財源廣進！！！
此指標可調出任意均線，在分時K線疊加日K線 日K線疊加周線 漲跌幅度線結合研判做交易！！ 適合做T做短做中。 INPUT:df(0,0,55),gf(0,0,555),日(0,0,1),周(0,0,1),P1(0,0,255),P2(0,0,255),P3(0,0,255),P4(0,0,255),P5(0,0,255); TBS:=POW(10,ABS(LOG(MINDIFF))); BZ:=WEEKDAY;ZZ:=DATEDIFF(REF(DATE,1),DATE)<>BZ-REF(BZ,1) OR BARPOS=1; ZW:=BARSLAST(ZZ),LINETHICK; Zdg:=ZW=0 or ISLASTBAR; Zwx:=0*c; for Z=datacount-1 downto lbound(Zdg) do if Zdg[Z] then Zwx[Z]:=0; else Zwx[Z]:=Zwx[Z+1]+1; Zr:=BACKSET(ISLASTBAR,Zw+1)-ISLASTBAR; Zwx:=refx(Zwx,1)+Zr,LINETHICK; zq:=BARSLAST(ref(Zwx,1)=0 or BARPOS=1)+1; Zo:=ref(o,Zw); Zh:=hhv(h,Zw+1); ZL:=LLv(L,Zw+1); Z開:ROUND(ZO*TBS)/TBS,LINETHICK,COLOReeeeFF; Z高:ROUND(refx(Zh,Zwx)*TBS)/TBS,LINETHICK,COLOReeaaFF; Z低:ROUND(refx(ZL,Zwx)*TBS)/TBS,LINETHICK,COLOR00ee00; Z收:ROUND(refx(c,Zwx)*TBS)/TBS,LINETHICK,COLOR00eeFF; Z，:=Z收>Z開 or (Z收=Z開 and Z收>ref(Z收,Zw+1)); Zj:=cross(Zw,Zwx); yt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14)); ss:=周; STICKLINE(zw>0 and Z， and Zj and ss,Z低,Z高,3,0),Color613076;//Color3547E8 Color613076 Color666DCC STICKLINE(Z開<=Z收 and ss,Z開,Z收,YT,0),Color613076,LINEDOT; STICKLINE(Zw>0 and not(Z，) and Zj and ss,Z低,Z高,3,0),Color007900;//ColorFDDD32 ColorFA7D32 STICKLINE(Z開>=Z收 and ss,Z開,Z收,YT,0),Color007900,LINEDOT; RRL:=DAY; RRL:=RRL-REF(RRL,1)<>0 OR BARPOS=1; Rw:=BARSLAST(RRL),LINETHICK; Rdg:=Rw=0 or ISLASTBAR; Rwx:=0*C; for R=datacount-1 downto lbound(Rdg) do if Rdg[R] then Rwx[R]:=0; else Rwx[R]:=Rwx[R+1]+1; Rr:=BACKSET(ISLASTBAR,Rw+1)-ISLASTBAR; Rwx:=refx(Rwx,1)+Rr,LINETHICK; Rzq1:=BARSLAST(ref(Rwx,1)=0 or BARPOS=1)+1; Roo:=ref(o,Rw); RRh:=hhv(h,Rw+1); RRL:=LLv(L,Rw+1); R開:ROUND(ROO*TBS)/TBS,LINETHICK,COLOReeeeFF; R高:ROUND(refx(RRh,Rwx)*TBS)/TBS,LINETHICK,COLOReeaaFF; R低:ROUND(refx(RRL,Rwx)*TBS)/TBS,LINETHICK,COLOR00ee00; R收:ROUND(refx(c,Rwx)*TBS)/TBS,LINETHICK,COLOR00eeFF; RF:=R收>R開 or (R收=R開 and R收>ref(R收,Rw+1)); Rj:=cross(Rw,Rwx); Ryt1:=if(Rzq1=1 and refx(Rzq1,2)=1,13,if(refx(Rzq1,1)=1 or Rzq1=1,7,14)); RRK:=ROUND(ROO*TBS)/TBS; RRS:=ROUND(refx(c,Rwx)*TBS)/TBS; AR:=日; STICKLINE(Rw>0 and RF and Rj and AR,R低,R高,5,0),ColorD24A92; STICKLINE(R開<=R收 and AR,R開,R收,RYT1,0),ColorD24A92,LINEDOT; STICKLINE(Rw>0 and not(RF) and Rj and AR,R低,R高,5,0),Color6AA932; STICKLINE(R開>=R收 and AR,R開,R收,RYT1,0),Color6AA932,LINEDOT; TJA:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1); STICKLINE(C>=O,low,high,0.5,0),colorFF; STICKLINE(C>=O,close,open,8,0),color102088; STICKLINE(C>=O,close,open,7,0),color102099; STICKLINE(C>=O,close,open,6,0),color1020AA; STICKLINE(C>=O,close,open,5,0),color1020BB; STICKLINE(C>=O,close,open,4,0),color1020CC; STICKLINE(C>=O,close,open,3,0),color1020DD; STICKLINE(C>=O,close,open,2,0),color1020EE; STICKLINE(C>=O,close,open,1,0),color1020FF; STICKLINE(C<=O,low,high,0.5,0),colorFF8800; STICKLINE(C<=O,close,open,8,0),colorFF7700; STICKLINE(C<=O,close,open,7,0),colorFF8800; STICKLINE(C<=O,close,open,6,0),colorFF9900; STICKLINE(C<=O,close,open,5,0),colorFFAA00; STICKLINE(C<=O,close,open,4,0),colorFFBB00; STICKLINE(C<=O,close,open,3,0),colorFFCC00; STICKLINE(C<=O,close,open,2,0),colorFFDD00; STICKLINE(C<=O,close,open,1,0),colorFFEE00; TTt:=ISLASTBAR=1; AS1:=((H-L)/L)*100; AS2:=H-L; MAI:=C*1.015; MAII:=C*1.03; DRAWTEXTEX(TTT,0,310,1,'▼明短線贏利[1.5%--3%:]'+'/'+NUMTOSTR(MAI[SYSPARAM(1)],2)+'--'+NUMTOSTR(MAII [SYSPARAM(1)],2)),Color00dd00; DRAWTEXTEX(TTt,0,176,1,'【振幅:'+NUMTOSTR(AS1[SYSPARAM(1)],2)+'% '+NUMTOSTR(AS2[SYSPARAM(1)],2)+'元 】'+''),Colordddd00; DRAWTEXTEX(TTT,0,1,1,'【代碼:'+STKLABEL+' 名稱:'+STKNAME+'】'),ColorffFFFF;//DRAWTEXTEX(TTT,0,270,14,'【創于2010.11.20晚】'),ColorffFFFF; aa:=BLKNAME; BB:=STRLEFT(AA,STRFIND(AA,',',1)-1); K:=STKCOUNT(BB); DRAWTEXTEX(TTT,0,270,14,' 所屬板塊: '+BB+', 共有：'+NUMTOSTR(K,0)+' 家上市公司'),COLORDDaaDD; 最低:=TROUGHBARS(L,DF,1); ZD1:=SUMBARS(最低=0,1)-1; ZD2:=DATACOUNT-ZD1[DATACOUNT]; ZD3:=IF(BARPOS=ZD2,最低=0,0); ZD4:=IF(ZD3,1,0); KZ:=BARSLAST(ZD4)+1; 低價:=REF(L,BARSLAST(最低=0)); DRAWLINE(最低=0 and DF>0,L,ISLASTBAR,低價,0),Color999999; DRAWLINE(最低=0 and df>0,L*1.03,ISLASTBAR,低價*1.03,0),Color999999; DRAWLINE(最低=0 and df>0,L*1.05,ISLASTBAR,低價*1.05,0),Color999999; DRAWLINE(最低=0 and df>0,L*1.08,ISLASTBAR,低價*1.08,0),Color999999; DRAWLINE(最低=0 and df>=2,L*1.13,ISLASTBAR,低價*1.13,0),Color999999; DRAWLINE(最低=0 and df>=2,L*1.18,ISLASTBAR,低價*1.18,0),Color999999; //DRAWLINE(最低=0 and df>=2,L*1.25,ISLASTBAR,低價*1.25,0),Color999999; DRAWTEXT(KZ=1 and df>0,低價,NUMTOSTR(低價,2)+'[ 0％]'),ALIGN2,PXUP8,COLORWHITE; DRAWTEXT(KZ=1 and df>0,低價*1.03,'3％ ['+NUMTOSTR(低價*1.03,2)+']'),ALIGN2,PXUP8,COLORWHITE; DRAWTEXT(KZ=1 and df>0,低價*1.05,'5％ ['+NUMTOSTR(低價*1.05,2)+']'),ALIGN2,PXUP8,COLORWHITE; DRAWTEXT(KZ=1 and df>0,低價*1.08,'8％ ['+NUMTOSTR(低價*1.08,2)+']'),ALIGN2,PXUP8,COLORWHITE; DRAWTEXT(KZ=1 and df>=2,低價*1.13,'13％ ['+NUMTOSTR(低價*1.13,2)+']'),ALIGN2,PXUP8,COLORWHITE; DRAWTEXT(KZ=1 and df>=2,低價*1.18,'18％ ['+NUMTOSTR(低價*1.18,2)+']'),ALIGN2,PXUP8,COLORWHITE; //DRAWTEXT(KZ=1 and df>=2,低價*1.25,'25％ ['+NUMTOSTR(低價*1.25,2)+']'),ALIGN2,PXUP8,COLORWHITE; FU:=C-低價; 到當前幅度%:=FU/低價*100; DRAWTEXTEX(TTt,0,3,15,'【'+NUMTOSTR(低價,2)+'低--到當前幅度 C:'+NUMTOSTR(到當前幅度%[SYSPARAM(1)],2)+'% 漲跌:'+NUMTOSTR(FU[SYSPARAM(1)],2)+'】'),Color999999; 最高:=PEAKBARS(h,GF,1); ZG1:=SUMBARS(最高=0,1)-1; ZG2:=DATACOUNT-ZG1[DATACOUNT]; ZG3:=IF(BARPOS=ZG2,最高=0,0); ZG4:=IF(ZG3,1,0); KZA:=BARSLAST(ZG4)+1; 高價:=REF(H,BARSLAST(最高=0)); DRAWLINE(最高=0 and GF>0,H,ISLASTBAR,高價,0),Color999900; DRAWLINE(最高=0 and Gf>0,H*0.97,ISLASTBAR,高價*0.97,0),Color999900; DRAWLINE(最高=0 and Gf>0,H*0.95,ISLASTBAR,高價*0.95,0),Color999900; DRAWLINE(最高=0 and Gf>0,H*0.92,ISLASTBAR,高價*0.92,0),Color999900; DRAWLINE(最高=0 and Gf>0,H*0.87,ISLASTBAR,高價*0.87,0),Color999900; DRAWLINE(最高=0 and Gf>0,H*0.82,ISLASTBAR,高價*0.82,0),Color999900; DRAWLINE(最高=0 and Gf>0,H*0.72,ISLASTBAR,高價*0.72,0),Color999900; DRAWLINE(最高=0 and Gf>0,H*0.64,ISLASTBAR,高價*0.64,0),Color999900; DRAWTEXT(KZA=1 and Gf>0,高價,NUMTOSTR(高價,2)+'[ 0％]'),ALIGN2,PXUP8,,Color999900; DRAWTEXT(KZA=1 and Gf>0,高價*0.97,'3％ ['+NUMTOSTR(高價*0.97,2)+']'),ALIGN2,PXUP8,,Color999900; DRAWTEXT(KZA=1 and Gf>0,高價*0.95,'5％ ['+NUMTOSTR(高價*0.95,2)+']'),ALIGN2,PXUP8,,Color999900; DRAWTEXT(KZA=1 and Gf>0,高價*0.92,'8％ ['+NUMTOSTR(高價*0.92,2)+']'),ALIGN2,PXUP8,,Color999900; DRAWTEXT(KZA=1 and Gf>0,高價*0.87,'13％ ['+NUMTOSTR(高價*0.87,2)+']'),ALIGN2,PXUP8,,Color999900; DRAWTEXT(KZA=1 and Gf>0,高價*0.82,'18％ ['+NUMTOSTR(高價*0.82,2)+']'),ALIGN2,PXUP8,,Color999900; DRAWTEXT(KZA=1 and Gf>0,高價*0.72,'28％ ['+NUMTOSTR(高價*0.72,2)+']'),ALIGN2,PXUP8,,Color999900; DRAWTEXT(KZA=1 and Gf>0,高價*0.64,'36％ ['+NUMTOSTR(高價*0.36,2)+']'),ALIGN2,PXUP8,,Color999900; FUG:=高價-C; 高到當前幅度%:=FUG/高價*100; DRAWTEXTEX(TTt,0,3,30,'【'+NUMTOSTR(高價,2)+'高--到當前幅度 C:-'+NUMTOSTR(高到當前幅度%[SYSPARAM(1)],2)+'% 漲跌:-'+NUMTOSTR(FUG[SYSPARAM(1)],2)+'】'),ColorFFFF00; BQ:=IF((SYSPARAM(1) = (BARSSINCE((C > 0)) + 1)),1,0); BQ1:=(H<REF(L,1));BQ2:=(L>REF(H,1)); BQ3:=REF(L,1)-H; BQ4:=L-REF(H,1); BQ5:=REF(L,1); BQ6:=H; BQ7:=REF(H,1); BQ8:=L; QZH:=IF(BQ1,BQ1,BQ2); QZH1:=IF(BQ1,BQ5,BQ7); QZH2:=IF(BQ1,BQ6,BQ8); QK:=IF(C>O,C,O); QK1:=IF(C>O,O,C); QKA:=IF(C>O,o+(c-o)*0.65,o+(c-o)*0.35); QKB:=IF(C>O,o+(c-o)*0.35,o+(c-o)*0.65); STICKLINE(BQ1,QKA,QK,5.5,0),colorEE0000; STICKLINE(BQ2,QKB,QK1,5,0),color20CEEE; DRAWTEXT(((BQ > 0) AND Bq1),H,'↓缺口 '+'\n '+NUMTOSTR(BQ3[SYSPARAM(1)],2)+' '+'\n '+NUMTOSTR(BQ5[SYSPARAM(1)],2)+'-'+NUMTOSTR(BQ6[SYSPARAM(1)],2)+' '),colorFFFFEE,pxdn10,ALIGN2; DRAWTEXT(((BQ > 0) AND Bq2),L,'↑缺口 '+'\n '+NUMTOSTR(BQ4[SYSPARAM(1)],2)+' '+'\n '+NUMTOSTR(BQ7[SYSPARAM(1)],2)+'-'+NUMTOSTR(BQ8[SYSPARAM(1)],2)+' '),color00FFEE,pxup20,ALIGN2; DRAWSL(SYSPARAM(1)=BARPOS AND QZH,QZH1,0,0,0),COLOR888888; DRAWSL(SYSPARAM(1)=BARPOS AND QZH,QZH2,0,0,0),COLOR888888; QKD:=BQ8[DATACOUNT]; QKE:=0; QK:=IF(BQ2,1,IF(BQ1,-1,0)); for I=DATACOUNT-1 downto 2 do begin IF BQ8[I ]<QKD then QKD:=BQ8 [I ]; IF BQ6[I ]>QKE then QKE:=BQ6 [I ]; IF QK[I ]=1 and QKD<=BQ6[I-1] then QK [I ]:=0; IF QK[I ]=-1 and QKE>=BQ8[I-1] then QK [I ]:=0; end; DRAWTEXT(QK=1,BQ8,'未補'),COLOR999999,PXUP; DRAWTEXT(QK=-1,BQ6,'未補 '),COLOR999999,PXDN ; AS:=(o+h+l+c)/4; JJX: MA(AS,p1),linethick1,ColorFFFFFF; JJA: MA(AS,p2),linethick1,Color00FFFF; JJB: MA(AS,p3),linethick1,ColorFF55FF; JJC: MA(AS,p4),linethick1,Color00FF00; JJD: MA(AS,p5),linethick1,ColorFFFF00; BLT:=BARSTATUS=2; DRAWTEXT(BLT AND JJX>REF(JJX,1),JJX,'↑'+NUMTOSTR(p1,0)+':'+NUMTOSTR(JJX,2)),COLORCCDDCC; DRAWTEXT(BLT AND JJX<REF(JJX,1),JJX,'↓'+NUMTOSTR(p1,0)+':'+NUMTOSTR(JJX,2)),ColorDDDDDD; DRAWTEXT(BLT AND JJA>REF(JJA,1),JJA,'↑'+NUMTOSTR(p2,0)+':'+NUMTOSTR(JJA,2)),COLOR00EEEE; DRAWTEXT(BLT AND JJA<REF(JJA,1),JJA,'↓'+NUMTOSTR(p2,0)+':'+NUMTOSTR(JJA,2)),Color00EEEE; DRAWTEXT(BLT AND JJB>REF(JJB,1),JJB,'↑'+NUMTOSTR(p3,0)+':'+NUMTOSTR(JJB,2)),COLORCC55CC; DRAWTEXT(BLT AND JJB<REF(JJB,1),JJB,'↓'+NUMTOSTR(p3,0)+':'+NUMTOSTR(JJB,2)),ColorCC55CC; DRAWTEXT(BLT AND JJC>REF(JJC,1),JJC,'↑'+NUMTOSTR(p4,0)+':'+NUMTOSTR(JJC,2)),COLOR00CC; DRAWTEXT(BLT AND JJC<REF(JJC,1),JJC,'↓'+NUMTOSTR(p4,0)+':'+NUMTOSTR(JJC,2)),Color00CC00; DRAWTEXT(BLT AND JJD>REF(JJD,1),JJD,'↑'+NUMTOSTR(p5,0)+':'+NUMTOSTR(JJD,2)),COLORCCCC00; DRAWTEXT(BLT AND JJD<REF(JJD,1),JJD,'↓'+NUMTOSTR(p5,0)+':'+NUMTOSTR(JJD,2)),ColorCCCC00; LC := REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; PARTLINE(RSI1>76,H),CIRCLEDOT,LINETHICK1,COLORFFFF00,pxup5; PARTLINE(RSI1>80,H),CROSSDOT,LINETHICK1,COLOR000FF,pxup5; DRAWTEXT((BQ > 0) AND RSI1>76,h,''+NUMTOSTR(RSI1[SYSPARAM(1)],2)+':RSI>76 '),pxup29,COLORFFFF00,ALIGN2; {添加到參數精靈里 --------顯示近期漲跌幅度-------- 找近期低點 Param#1 顯示漲幅幅度 找近期高點 Param#2 顯示跌幅幅度 日=1 Param#3 分時疊加日線用; 周=1 Param#4 疊加日線用; --------顯示均價線-------- P1計算 Param#5 任意均價線; P2計算 Param#6 任意均價線; P3計算 Param#7 任意均價線; P4計算 Param#8 任意均價線; P5計算 Param#9 任意均價線; |
|
|
