大智慧大道线主图源码

大道线

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;
 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)  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;