通达信整一个好玩的指标主图源码 贴图

以下是通达信整一个好玩的指标主图源码 贴图

M1是周期参数，不要太大，大了就不好玩了，因为只做了10等分，P是缩放参数，默认值1；运行有点慢。

{M1(5,20,10),P(1,10,1)}
 HH:=CONST(HHV(H,M1));
 LL:=CONST(LLV(L,M1));
 BC:=(HH-LL)/10;
 C1:=HH;
 C2:=HH-BC*1;
 C3:=HH-BC*2;
 C4:=HH-BC*3;
 C5:=HH-BC*4;
 C6:=HH-BC*5;
 C7:=HH-BC*6;
 C8:=HH-BC*7;
 C9:=HH-BC*8;
 C10:=HH-BC*9;
 C11:=LL;
 W1:=INTPART(LWINNER(M1,C1)*100-LWINNER(M1,C2)*100)/P;
 W2:=INTPART(LWINNER(M1,C2)*100-LWINNER(M1,C3)*100)/P;
 W3:=INTPART(LWINNER(M1,C3)*100-LWINNER(M1,C4)*100)/P;
 W4:=INTPART(LWINNER(M1,C4)*100-LWINNER(M1,C5)*100)/P;
 W5:=INTPART(LWINNER(M1,C5)*100-LWINNER(M1,C6)*100)/P;
 W6:=INTPART(LWINNER(M1,C6)*100-LWINNER(M1,C7)*100)/P;
 W7:=INTPART(LWINNER(M1,C7)*100-LWINNER(M1,C8)*100)/P;
 W8:=INTPART(LWINNER(M1,C8)*100-LWINNER(M1,C9)*100)/P;
 W9:=INTPART(LWINNER(M1,C9)*100-LWINNER(M1,C10)*100)/P;
 W10:=INTPART(LWINNER(M1,C10)*100-LWINNER(M1,C11)*100)/P;

T1:=IF(BACKSET(BARSTATUS=2,W1)=1,1,DRAWNULL);
 NOTEXT1:C1*T1,COLOR008000,LINETHICK1;
 T2:=IF(BACKSET(BARSTATUS=2,W2)=1,1,DRAWNULL);
 NOTEXT2:C2*T2,COLOR008000,LINETHICK1;
 T3:=IF(BACKSET(BARSTATUS=2,W3)=1,1,DRAWNULL);
 NOTEXT3:C3*T3,COLOR008000,LINETHICK1;
 T4:=IF(BACKSET(BARSTATUS=2,W4)=1,1,DRAWNULL);
 NOTEXT4:C4*T4,COLOR008000,LINETHICK1;
 T5:=IF(BACKSET(BARSTATUS=2,W5)=1,1,DRAWNULL);
 NOTEXT5:C5*T5,COLOR008000,LINETHICK1;
 T6:=IF(BACKSET(BARSTATUS=2,W6)=1,1,DRAWNULL);
 NOTEXT6:C6*T6,COLOR008000,LINETHICK1;
 T7:=IF(BACKSET(BARSTATUS=2,W7)=1,1,DRAWNULL);
 NOTEXT7:C7*T7,COLOR008000,LINETHICK1;
 T8:=IF(BACKSET(BARSTATUS=2,W8)=1,1,DRAWNULL);
 NOTEXT8:C8*T8,COLOR008000,LINETHICK1;
 T9:=IF(BACKSET(BARSTATUS=2,W9)=1,1,DRAWNULL);
 NOTEXT9:C9*T9,COLOR008000,LINETHICK1;
 T10:=IF(BACKSET(BARSTATUS=2,W10)=1,1,DRAWNULL);
 NOTEXT10:C10*T10,COLOR008000,LINETHICK1;
 STR1:=STRCAT(CON2STR(M1,0),’D’);
 DRAWTEXT(ISLASTBAR,HH,STR1),COLOR008000,DRAWABOVE;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);