大道线主图源码

大道线主图源码

大道线

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<LL;
STICKLINE(SQK,L,HH,2*N,1),LINETHICK4,COLORRED;
STICKLINE(XQK,H,LL,2*N,2),LINETHICK4,COLORYELLOW;
BB:=REF(INDEXC,1)<REF(INDEXC,2) AND REF(C,2)*0.95>=REF(C,1) AND REF(O,1)/REF(C,1)>=1.05
AND REF(C,1)<REF(O,1) AND C>O AND C/O>=1.05 AND C>REF(O,1)
AND REF(VOL,1)<REF(VOL,2);

I1:=0;
flag1:=0;
while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
IF REF(H,I1)<REF(L,I1+1) AND REF(L,I1+1)>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<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
IF REF(L,I)>REF(H,I+1) AND REF(H,I+1)<LLV(LOW,I+1)
THEN BEGIN FLAG:=1;
S:=I;
I:=BARSLAST(DISPSTATUS=1);
END
ELSE I:=I+1;
STICKLINE(FLAG,REF(h,S+1),LLV(LOW,S+1),20*(s+1),500),ColorC0C0C0,ALIGN1,LAYER7;
DRAWTEXT(FLAG,REF(H,s+1),NUMTOSTRN(ref(h,s+1),2)+'-'+NUMTOSTRN(LLV(LOW,S+1),2)),ALIGN2,COLORgreen;
 

A1:=REF(C,10)=HHV(C,2*10+1);
B1:=FILTER(A1,10);
C1:=BACKSET(B1,10+1);
HD:=FILTER(C1,10);
A2:=REF(C,10)=LLV(C,2*10+1);
B2:=FILTER(A2,10);
C2:=BACKSET(B2,10+1);
LD:=FILTER(C2,10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
t1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
t2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波峰:IF(t1,A,A),ColorFF00FF,POINTDOT;
STICKLINE(t1,A,A,9,0),ColorFF00FF;
波谷:IF(t2,B,B),Color80FF00,POINTDOT;
STICKLINE(t2,B,B,9,0),Color80FF00;
 

UU:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
XX:=WW>REF(WW,1);
UU2:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
XX2:=WW2>REF(WW2,1);

前一低:REF(L,BARSLAST(VV)),linethick3,COLOR99FF66,DOTLINE;
前二低:REF(L,BARSLAST(XX)),COLOR99FF66,DOTLINE,linethick2;
前一高:REF(H,BARSLAST(VV2)),COLORFF66FF,DOTLINE,linethick3;
前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,DOTLINE,linethick2;