大道线主图源码

大道线主图源码

大道线

MA17:MA(C,17),LINETHICK1,ColorFFFFFF;
MA26:MA(C,26),LINETHICK1,ColorGreen ;
MA100:MA(C,100),LINETHICK1,ColorFF00FF;
MA145:MA(C,145),LINETHICK1, ColorFFFF00;
MA320:MA(C,320),LINETHICK1,ColorYellow;
MA455:MA(C,455),LINETHICK1,Color0000FF;
MA732:MA(C,732),LINETHICK1,color0066ff;

DRAWTEXTABS(5,10,'《白通线、临界均价线》'),COLORWHITE,linethick3;
DRAWTEXTABS(5,30,'《绿子线、紫红午线、短期均价线》'),COLORWHITE,linethick3;
DRAWTEXTABS(5,50,'《大红卯线、兰辰线、中期均价线》'),COLORWHITE,linethick3;
DRAWTEXTABS(5,70,'《黄申线、橙红亥线、长期均价线》'),COLORWHITE,linethick3;

{缺口}
stickline(L>REF(H,1),L,REF(H,1),50,1001),ColorFFFFFF;
DRAWTEXT(L>REF(H,1),REF(H,1),NUMTOSTRN(REF(H,1),2)+'-'+NUMTOSTRN(L,2)),ColorFFFFFF;
stickline(REF(L,1)>H,ref(L,1),H,50,1001),ColorFFFFFF;
DRAWTEXT(REF(L,1)>H,REF(L,1),NUMTOSTRN(ref(l,1),2)+'-'+NUMTOSTRN(h,2)),ColorFFFFFF;

{缺口数浪}
n:=6;
LL:=REF(L,1);
HH:=REF(H,1);
SQK:=L>HH;
XQK:=H STICKLINE(SQK,L,HH,2*N,1),LINETHICK4,COLORRED;
STICKLINE(XQK,H,LL,2*N,2),LINETHICK4,COLORYELLOW;
BB:=REF(INDEXC,1)=REF(C,1) AND REF(O,1)/REF(C,1)>=1.05
AND REF(C,1)O AND C/O>=1.05 AND C>REF(O,1)
AND REF(VOL,1)
I1:=0;
flag1:=0;
while I1 DO
IF REF(H,I1)HHV(H,I1+1)
THEN BEGIN FLAG1:=1;
S1:=I1;
I1:=BARSLAST(DISPSTATUS=1);
END
ELSE I1:=I1+1;
STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),ColorC0C0C0,ALIGN1,LAYER7;
DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(h,s1+1),2)+'-'+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORgreen;

I:=0;
flag:=0;
while I DO
IF REF(L,I)>REF(H,I+1) AND REF(H,I+1) THEN BEGIN FLAG:=1;
S:=I;
I:=BARSLAST(DISPSTATUS=1);
END
ELSE I:=I+1;
STIC