|
{月周日K线}
DRAWGBK(1, COLORRGB(50,50,50),COLORRGB(100,100,100),0); input:AA(5,1,1000),BB(20,1,1000); DRAWBKBMP(c,‘光和影‘); {-----------------------☆功能开关------------------------} {月--周期K线} if datacount<BB then exit; y1:=mod(barpos,BB); Y2:=if(y1=0,BB-1,y1-1); Y3:=barslast(Y2=0); Y4:=barslast(Y2=BB-1); Y5:=ref(o,Y3); Y6:=hhv(h,Y3+1)*(Y4=0); Y7:=llv(if(L=0,100000,L),Y3+1)*(Y4=0); Y8:=IF(Y3=0,C,0); Y9:=IF(Y4=0,C,0); Y10:=IF(Y4=0,Y6,0); Y11:=IF(Y4=0,Y7,0); for n=lbound(Y8) to ubound(Y8) do begin if Y8[n]>0 then begin for z=n+BB-1 to ubound(Y8) do begin if Y9[z]>0 then begin for s=n to z-1 do begin YC1[s]:=Y9[z]; YH1[s]:=Y10[z]; YL1[s]:=Y11[z]; end; break; end; end; end; end; YXQc1:=C; YXQh1:=hhv(h,Y2[datacount]+1); XQL1:=LLV(if(L=0,1000000,L),Y2[datacount]+1); YXQCC:=if(barpos>datacount-Y2[datacount]-1,YXQc1[datacount],if(Y2=BB-1,C,YC1)); YXQHH:=if(barpos>datacount-Y2[datacount]-1,YXQh1[datacount],if(Y2=BB-1,ref(YH1,1),YH1)); YXQLL:=if(barpos>datacount-Y2[datacount]-1,XQL1[datacount],if(Y2=BB-1,ref(YL1,1),YL1)); {周--周期K线} if datacount<AA then exit; Z1:=mod(barpos,AA); Z2:=if(Z1=0,AA-1,Z1-1); Z3:=barslast(Z2=0); Z4:=barslast(Z2=AA-1); Z5:=ref(o,Z3); Z6:=hhv(h,Z3+1)*(Z4=0); Z7:=llv(if(L=0,100000,L),Z3+1)*(Z4=0); Z8:=IF(Z3=0,C,0); Z9:=IF(Z4=0,C,0); Z11:=IF(Z4=0,Z6,0); Z12:=IF(Z4=0,Z7,0); for n=lbound(Z8) to ubound(Z8) do begin if Z8[n]>0 then begin for z=n+AA-1 to ubound(Z8) do begin if Z9[z]>0 then begin for s=n to z-1 do begin ZC1[s]:=Z9[z]; ZH1[s]:=Z11[z]; ZL1[s]:=Z12[z]; end; break; end; end; end; end; Zzc1:=C; Zzh1:=hhv(h,Z2[datacount]+1); ZzL1:=LLV(if(L=0,1000000,L),Z2[datacount]+1); ZzCC:=if(barpos>datacount-Z2[datacount]-1,Zzc1[datacount],if(Z2=AA-1,C,ZC1)); ZzHH:=if(barpos>datacount-Z2[datacount]-1,Zzh1[datacount],if(Z2=AA-1,ref(ZH1,1),ZH1)); ZzLL:=if(barpos>datacount-Z2[datacount]-1,ZzL1[datacount],if(Z2=AA-1,ref(ZL1,1),ZL1)); {-----------------【图解模板】---------------------} {月--周期K线} FILLRGN(Y2>0 and YXQCC>=Y5,YXQHH,YXQLL),ColorA8A6FF; FILLRGN(Y2>0 and YXQCC<Y5,YXQHH,YXQLL),ColorD8A668; {周--周期K线} FILLRGN(Z2>0 and ZzCC>=Z5,ZzHH,ZzLL),Color8787E9; FILLRGN(Z2>0 and ZzCC<Z5,ZzHH,ZzLL),ColorFF8E18; {日--K线} STICKLINE(C>=O,C,O,7,0),COLORRED; STICKLINE(C>=O,C,O,4,0),COLOR5070ff; STICKLINE(C>=O,C,O,2,0),COLOR9fff; STICKLINE(C>=O,H,L,0,0),COLORYELLOW; STICKLINE(C<=O,C,O,7,0),COLOR8F2020; STICKLINE(C<=O,C,O,4,0),COLORa36600; STICKLINE(C<=O,C,O,2,0),colord9cc66; STICKLINE(C<=O,H,L,0,0),colorffdd99; {主图成交量} hh:=SYSPARAM(4); ll:=SYSPARAM(5); x:=ll-(hh-ll+MINDIFF)/5; y:=HHV(VOL,SYSPARAM(3)-SYSPARAM(2)+1); yvb:=y[SYSPARAM(3)]/(ll-x+MINDIFF); z:=VOL/yvb+x; STICKLINE(CLOSE>REF(CLOSE,1),x,z,7.5,1),Color700084; STICKLINE(CLOSE>REF(CLOSE,1),x,z,7,1),Color000099; STICKLINE(CLOSE>REF(CLOSE,1),x,z,6.5,1),ColorA3; STICKLINE(CLOSE>REF(CLOSE,1),x,z,6,1),Color0000AA; STICKLINE(CLOSE>REF(CLOSE,1),x,z,5.5,1),ColorB7; STICKLINE(CLOSE>REF(CLOSE,1),x,z,5,1),Color0000BB; STICKLINE(CLOSE>REF(CLOSE,1),x,z,4.5,1),ColorCD; STICKLINE(CLOSE>REF(CLOSE,1),x,z,4,1),Color0000CC; STICKLINE(CLOSE>REF(CLOSE,1),x,z,3.5,1),ColorE9; STICKLINE(CLOSE>REF(CLOSE,1),x,z,3,1),Color0000DD; STICKLINE(CLOSE>REF(CLOSE,1),x,z,2.5,1),Color754E9; STICKLINE(CLOSE>REF(CLOSE,1),x,z,2,1),Color0000EE; STICKLINE(CLOSE>REF(CLOSE,1),x,z,1.5,1),Color76EF3; STICKLINE(CLOSE>REF(CLOSE,1),x,z,1,0),Color0000FF; STICKLINE(CLOSE>REF(CLOSE,1),x,z,0.1,0),Color77BF3; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,8,0),color008800; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,7,0),color009900; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,6,0),color00AA00; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,5,0),color00BB00; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),color00CC00; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,3,0),color00DD00; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,2,0),color00EE00; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,1,0),color00FF00; 五日量:MA(z,5); 十日量:MA(z,10); VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1); VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1); VAR3:=EMA(VAR2,10); VAR4:=LLV(LOW,33); VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3); 主力进场:IF(VAR5>REF(VAR5,1),VAR5,0),COLORRED,LINETHICK; 主力洗盘:IF(VAR5<REF(VAR5,1),VAR5,0),COLORGREEN,LINETHICK; ay:=HHV(VAR5,SYSPARAM(3)-SYSPARAM(2)+1); ayvb:=ay[SYSPARAM(3)]/(ll-x+MINDIFF)*3; az:=VAR5/ayvb+x; STICKLINE(VAR5>REF(VAR5,1),x,az,8,0 ),COLOR3afa; STICKLINE(VAR5>REF(VAR5,1),x,az,7,0),COLOR5afb; STICKLINE(VAR5>REF(VAR5,1),x,az,6,0 ),COLOR7afc; STICKLINE(VAR5>REF(VAR5,1),x,az,5,0),COLOR9afd; STICKLINE(VAR5>REF(VAR5,1),x,az,4,0),COLORaafe; STICKLINE(VAR5>REF(VAR5,1),x,az,3,0 ),COLORbbff; STICKLINE(VAR5>REF(VAR5,1),x,az,2,0 ),COLORccff; STICKLINE(VAR5>REF(VAR5,1),x,az,1,0),COLOR10ddff; STICKLINE(VAR5<REF(VAR5,1),x,az,8,0),COLORFF5B00; STICKLINE(VAR5<REF(VAR5,1),x,az,7,0),COLORFF6c00; STICKLINE(VAR5<REF(VAR5,1),x,az,6,0),COLORFF7B00; STICKLINE(VAR5<REF(VAR5,1),x,az,5,0),COLORFF9C00; STICKLINE(VAR5<REF(VAR5,1),x,az,4,0),COLORFFBE00; STICKLINE(VAR5<REF(VAR5,1),x,az,3,0),COLORFFee00; STICKLINE(VAR5<REF(VAR5,1),x,az,2,0),COLORFFff30; STICKLINE(VAR5<REF(VAR5,1),x,az,1,0),COLORffff90; ma10:ma(c,10); ma20:ma(c,20); ma60:ma(c,60); ma120:ma(c,120); ma250:ma(c,250); |
|
|
