大道线主图源码

大道线
 
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;