通达信两仪四象提供源码附图

{两仪四象}

{参数：N=3}

XA_1:=(3*CLOSE+LOW+OPEN+HIGH)/6;

太阳线:(20*XA_1+19*REF(XA_1,1)+18*REF(XA_1,2)+17*REF(XA_1,3)+16*REF(XA_1,4)+15*REF(XA_1,5)+14*REF(XA_1,6)+13*REF(XA_1,7)+12*REF(XA_1,8)+11*REF(XA_1,9)+10*REF(XA_1,10)+9*REF(XA_1,11)+8*REF(XA_1,12)+7*REF(XA_1,13)+6*REF(XA_1,14)+5*REF(XA_1,15)+4*REF(XA_1,16)+3*REF(XA_1,17)+2*REF(XA_1,18)+REF(XA_1,20))/210,LINETHICK2;

太阴线:MA(太阳线,10),LINETHICK2;

乾坤线:MA(太阳线,50),COLORCYAN,LINETHICK2;

IF(CLOSE>乾坤线,乾坤线,DRAWNULL),COLORMAGENTA,LINETHICK2;

DRAWBAND(太阳线,RGB(200,0,0),太阴线,RGB(0,0,200));

XA_2:=MAX(HHV(CLOSE,N)-LLV(CLOSE,N),ABS(CLOSE-REF(CLOSE,N)))/SUM(ABS(CLOSE-REF(CLOSE,1)),N);

XA_3:=EMA(XA_2,N);

XA_4:=INTPART(N-(XA_3-0.5)*N);

XA_5:=SUM((CLOSE-REF(CLOSE,1))*VOL,XA_4);

XA_6:=EMA(XA_5,N);{}

STICKLINE(XA_6>0 AND CLOSE<=OPEN,CLOSE,OPEN,3,0),COLORRED;

STICKLINE(XA_6>0 AND CLOSE<=OPEN,OPEN,HIGH,0,1),COLORRED;

STICKLINE(XA_6>0 AND CLOSE<=OPEN,CLOSE,LOW,0,1),COLORRED;

STICKLINE(XA_6>0 AND CLOSE>=OPEN,CLOSE,OPEN,3,1),COLORRED;

STICKLINE(XA_6>0 AND CLOSE>=OPEN,CLOSE,HIGH,0,1),COLORRED;

STICKLINE(XA_6>0 AND CLOSE>=OPEN,OPEN,LOW,0,1),COLORRED;

STICKLINE(XA_6<0 AND CLOSE<=OPEN,CLOSE,OPEN,3,0),COLORGREEN;

STICKLINE(XA_6<0 AND CLOSE<=OPEN,OPEN,HIGH,0,1),COLORGREEN;

STICKLINE(XA_6<0 AND CLOSE<=OPEN,CLOSE,LOW,0,1),COLORGREEN;

STICKLINE(XA_6<0 AND CLOSE>=OPEN,CLOSE,OPEN,3,1),COLORGREEN;

STICKLINE(XA_6<0 AND CLOSE>=OPEN,CLOSE,HIGH,0,1),COLORGREEN;

STICKLINE(XA_6<0 AND CLOSE>=OPEN,OPEN,LOW,0,1),COLORGREEN;

DRAWICON(CROSS(XA_6,0),LOW,7);

DRAWICON(CROSS(0,XA_6),HIGH,8);

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.3,0.03,0,9),COLORYELLOW;