[转载]山人箱体主图（通达信公式）

MA1:MA(CLOSE,5);

MA2:MA(CLOSE,10);

MA3:MA(CLOSE,20);

MA4:MA(CLOSE,60);

MA5:MA(CLOSE,120);

MA6:MA(CLOSE,250),COLORRED;

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0;

N1:=STRCAT(CON2STR(YEAR,0),' 年 ');

Y1:=STRCAT(CON2STR(MONTH,0),' 月 '); 

R:=STRCAT(CON2STR(DAY,0),' 日 '); 

SJ:=STRCAT(STRCAT(N1,Y1), R); 

DRAWTEXT_FIX(C>0,0.55,0,0,SJ);

DRAWTEXT_FIX(C>0,0.65,0,0,'作者 云顶山人'),COLORYELLOW;

N:=30;

TS:=BARSLAST(L=LLV(L,N));

开始信号:=FILTERX(TS=0,BARSSINCE(C));

开始天数:=BARSLAST(开始信号);

天数横线:=CONST(开始天数);

低点:DRAWLINE(L=LLV(L,N),L,ISLASTBAR,REF(L,TS),1),COLORYELLOW;

高点:DRAWLINE(L=LLV(L,N),CONST(HHV(H,天数横线)),ISLASTBAR,REF(CONST(HHV(H,天数横线)),TS),1),COLORYELLOW;

STICKLINE(开始信号,L,CONST(HHV(H,天数横线)),0,0),COLORYELLOW;

STICKLINE(ISLASTBAR,低点,高点,0,0),COLORYELLOW;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

NA:=15;

TSA:=BARSLAST(L=LLV(L,NA));

开始信号A:=FILTERX(TSA=0,BARSSINCE(C));

开始天数A:=BARSLAST(开始信号A);

天数横线A:=CONST(开始天数A);

低点A:DRAWLINE(L=LLV(L,NA),L,ISLASTBAR,REF(L,TSA),1),COLORGRAY;

高点A:DRAWLINE(L=LLV(L,NA),CONST(HHV(H,天数横线A)),ISLASTBAR,REF(CONST(HHV(H,天数横线A)),TSA),1),COLORGRAY;

STICKLINE(开始信号A,L,CONST(HHV(H,天数横线A)),0,0),COLORGRAY;

STICKLINE(ISLASTBAR,低点A,高点A,0,0),COLORGRAY;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

不注释！有缘人自己琢磨！2个时间周期箱体！