四季变天图,包括2个公式，一个是引用公式 Y01，另外一个是 四季变天图 主公式

{Y01}

{这是被引用公式}

ND1970:=(YEAR-1970)*365+INTPART((YEAR-1972)/4)-IF(INTPART(YEAR/4)=YEAR/4,1,0)+DAY+(MONTH-1)*30+IF(MONTH<=8,INTPART(MONTH/2),INTPART((MONTH-7)/2)+4)-

    IF(MONTH>2 AND INTPART(YEAR/4)=YEAR/4,1,IF(MONTH>2 AND NOT(INTPART(YEAR/4)=YEAR/4),2,0));

C1:C;

O1:REF(O,BARSLAST(ND1970-REF(ND1970,1)>WEEKDAY-REF(WEEKDAY,1)));

H1:HHV(H,BARSLAST(ND1970-REF(ND1970,1)>WEEKDAY-REF(WEEKDAY,1))+1);

L1:LLV(L,BARSLAST(ND1970-REF(ND1970,1)>WEEKDAY-REF(WEEKDAY,1))+1);

RQ:CURRBARSCOUNT;



{ 四季变天 }

n:=6;

{四季变天图 TDX  N:1,100,9}

MT1:=IF(ISLASTBAR,REF((C*2-REF(C,3)),1),DRAWNULL); 

MT2:=IF(ISLASTBAR,REF((C*2-REF(C,3)),2),DRAWNULL);

MT3:=IF(ISLASTBAR,C*2-REF(C,3),DRAWNULL);

高:=CONST(REF(HHV(H,150),3)),NODRAW; 

低:=CONST(REF(LLV(L,150),3)),NODRAW;

色彩峰:=高-低;

NN:=100;

AA:=REF(H,N)=HHV(H,2*N+1);  AA1:=REF(L,N)=LLV(L,2*N+1);

QY:=BACKSET(AA,N+1);  QY1:=BACKSET(AA1,N+1);

CC:=FILTER(QY,N) AND H=HHV(H,N+1);  CC1:=FILTER(QY1,N) AND L=LLV(L,N+1);

DDD:=BARSLAST(CC);  DD1:=BARSLAST(CC1);

GDTS:=IF(CC,CURRBARSCOUNT,0);  DDTS:=IF(CC1,CURRBARSCOUNT,0);

DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);  DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);

GDCS1:=CONST(DINGBUTS);  DDCS1:=CONST(DDTS1);

GDCS13:=CONST(REF(HIGH,GDCS1-1));  DDCS13:=CONST(REF(L,DDCS1-1));

DINGBUTS1:=REF(DINGBUTS,DDD+1);  DDTS2:=REF(DDTS1,DD1+1);

GDCS2:=CONST(DINGBUTS1);  DDCS2:=CONST(DDTS2);

M:=INTPART(3*N/5);

AAA:=REF(H,M)=HHV(H,2*M+1);

QYY:=BACKSET(AAA,M+1);

CCC:=FILTER(QYY,M) AND H=HHV(H,M+1);

DDDD:=BARSLAST(CCC),NODRAW;

GDTSS:=IF(CCC,CURRBARSCOUNT,0);

DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS);

GDCS11:=CONST(DINGBUTSS);

DINGBUTS11:=REF(DINGBUTSS,DDDD+1);

GDCS22:=CONST(DINGBUTS11);

AA11:=REF(L,M)=LLV(L,2*M+1);

QY11:=BACKSET(AA11,M+1);

CC11:=FILTER(QY11,M) AND L=LLV(L,M+1);

DD11:=BARSLAST(CC11);

DDTSS:=IF(CC11,CURRBARSCOUNT,0);

DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS);

DDCS11:=CONST(DDTS11);

DDTS22:=REF(DDTS11,DD11+1);

DDCS22:=CONST(DDTS22);

ZGD:=HHV(H,60)*1.01.00;

ZGD2:=CONST(ZGD);

高点压力M:=DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLORRED,LINETHICK1;

低点支撑M:=DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1) COLORRED,LINETHICK1;

高点压力1:=DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) ,COLORBLUE,LINETHICK1;

低点支撑1:=DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),COLORBLUE,LINETHICK1;

高点:=CONST(HHV(H,NN)),NODRAW;

低点:=CONST(LLV(L,NN)),NODRAW;

GJ:=(C+H+L+O)/4;

明日阻力:=L+(GJ-L)+(C-L);

明日支撑:=L+(C-GJ);

明日阻力2:=L+2*(GJ-L)+(C-L);

明日支撑2:=L+(C-GJ)-(GJ-L);

今日阻力:=CONST(REF(明日阻力 , 1)),NODRAW;

今日支撑:=CONST(REF(明日支撑 , 1)),NODRAW;

今日阻力2:=CONST(REF(明日阻力2 , 1)),NODRAW;

今日支撑2:=CONST(REF(明日支撑2 , 1)),NODRAW;

STICKLINE(ISLASTBAR,今日阻力,今日阻力2,10,0),COLOR555555;

DRAWTEXT(ISLASTBAR,今日阻力,'       阻'),COLOR0000FF;

STICKLINE(ISLASTBAR,今日支撑,今日支撑2,10,0),COLOR555555;

DRAWTEXT(ISLASTBAR,今日支撑,'       支'),COLOR00FF00;

JRH:=HHV(C,2);

JRL:=LLV(C,2);

MA3:=MA(CLOSE,3);

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

R1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));

R2:=(REF(R1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R3:=(REF(R2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R4:=(REF(R3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R5:=(REF(R4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R6:=(REF(R5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R7:=(REF(R6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R8:=(REF(R7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));