通达信百年经典主图指标公式源码

间隔:=3;角度:=4;
M1:=IF((CLOSE > 100),1,0.01);
M2:=(1 / 间隔);
PYEAR:=(角度 * 0.25);
BB:=LLV(YEAR,0);
PMONTH:=SUM(MONTH,0);
CC:=LLV(PMONTH,0);
PDAY:=SUM(DAY,0);
P1990:=LLV(PDAY,0);
T1990:=((((YEAR - 1990) * 365.24219) + ((MONTH - 1) * 30.43685)) + DAY);
A:=((((BB - 1990) * 365.24219) + ((CC - 1) * 30.436)) + P1990);
V1:=CEILING((T1990 - A));
V2:=((V1 * M1) * PYEAR);
V3:=(V2 - ((CEILING(((V2 - CLOSE) / (365.24219 * M1))) * 365.24219) * M1));
V333:=(V2 - ((FLOOR(((V2 - CLOSE) / (365.24219 * M1))) * 365.24219) * M1));
V444:=(V2 - (((CEILING(((V2 - CLOSE) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
V4:=(V2 - (((FLOOR(((V2 - CLOSE) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
{PLOYLINE((Abs((V444 - REF(V444,1))) < (10 * M1)),V444),,COLORFF;
PLOYLINE((ABS((V4 - REF(V4,1))) < (10 * M1)),V4),,COLORFF;}
V5:=REVERSE(V2);
V6:=(V5 + ((CEILING(((CLOSE - V5) / (365.24219 * M1))) * 365.24219) * M1));
V555:=(V5 + ((FLOOR(((CLOSE - V5) / (365.24219 * M1))) * 365.24219) * M1));
V666:=(V5 + (((CEILING(((CLOSE - V5) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
V22:=(V5 + (((FLOOR(((CLOSE - V5) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
{PLOYLINE((ABS((V666 - REF(V666,1))) < (10 * M1)),V666),,COLORFF00;
PLOYLINE((ABS((V22 - REF(V22,1))) < (10 * M1)),V22),,COLORFF00;}
V33:=(V2 - ((CEILING(((V2 - MA(CLOSE,30)) / (365.24219 * M1))) * 365.24219) * M1));
V3333:=(V2 - ((FLOOR(((V2 - MA(CLOSE,30)) / (365.24219 * M1))) * 365.24219) * M1));
V4444:=(V2 - (((CEILING(((V2 - MA(CLOSE,30)) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
V44:=(V2 - (((FLOOR(((V2 - MA(CLOSE,30)) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
{PLOYLINE((ABS((V4444 - REF(V4444,1))) < (10 * M1)),V4444),,COLORFF0000;
PLOYLINE((ABS((V44 - REF(V44,1))) < (10 * M1)),V44),,COLORFF0000;}
V55:=REVERSE(V2);
V66:=(V55 + ((CEILING(((MA(CLOSE,30) - V55) / (365.24219 * M1))) * 365.24219) * M1));
V5555:=(V55 + ((FLOOR(((MA(CLOSE,30) - V55) / (365.24219 * M1))) * 365.24219) * M1));
V6666:=(V55 + (((CEILING(((MA(CLOSE,30) - V55) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
VAR1:=(V55 + (((FLOOR(((MA(CLOSE,30) - V55) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2));
{PLOYLINE((ABS((V6666 - REF(V6666,1))) < (10 * M1)),V6666),,COLORFF00DD;
PLOYLINE((ABS((VAR1 - REF(VAR1,1))) < (10 * M1)),VAR1),,COLORFF00DD;}
M5:=MA(C,5);
E5:=EMA(C,5);
M10:=MA(C,10);
E10:=EMA(C,10);
M20:=MA(C,20);
E20:=EMA(C,20);
M50:=MA(C,50);
E50:=EMA(C,50);
M60:=MA(C,60);
E60:=EMA(C,60);
M120:=MA(C,120);
E120:=EMA(C,120);
M250:=MA(C,250);
E250:=EMA(C,250);
STICKLINE((E250>=M250),E250,M250,2,0),COLORRED;
STICKLINE((E120>=M120),E120,M120,6,0),COLORWHITE;
STICKLINE((E60>=M60),E60,M60,6,0),COLORBLUE;
STICKLINE((E50>=M50),E50,M50,6,0),COLORYELLOW;
STICKLINE((E20>=M20),E20,M20,6,0),COLORMAGENTA;
STICKLINE((E20>=M20),E20,M20,6,0),COLORMAGENTA;
STICKLINE((E20<=M20),M20,E20,6,0),COLORGREEN;
STICKLINE((E10>=M10),M10,E10,6,0),COLOR88FFDD;
STICKLINE((E10<=M10),M10,E10,6,0),COLORFFCD02;STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.1,0),COLOR0000FF;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.1,0),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),LINETHICK2,COLOR5050FF;{红柱}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.5,0),COLOR5050FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.3,0),COLOR5F5FFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR5F5FFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.75,0),COLOR6C6CFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.5,0),COLOR6C6CFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.2,0),COLOR7E7EFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),COLOR7E7EFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.65,0),COLOR9D9DFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.5,0),COLOR9D9DFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.1,0),COLORAFAFFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),COLORAFAFFF;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.6,0),COLORC1C1FF;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.25,0),COLORC1C1FF;
STICKLINE(C=O,C,O,8,0),COLOR009900;STICKLINE(CLOSE=OPEN,OPEN,LOW,0.1,0),COLORFF8A85;STICKLINE(CLOSE<OPEN,CLOSE,HIGH,0.1,0),COLORFF8A85;
STICKLINE(CLOSE<OPEN,OPEN,LOW,0.1,0),COLORFF8A85;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,4,0),LINETHICK2,COLOR008200;{绿柱}
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3.5,0),COLOR138B13;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),COLOR279227;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2.5,0),COLOR419D41;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2,0),COLOR62AB62;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,1.5,0),COLOR80B980;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,1,0),COLOR90BE90;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),COLOR9FC49E;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.25,0),COLORB1CCB1;
AS:=BACKSET(ISLASTBAR,HHVBARS(HIGH,45)+1);
B:=AS>REF(AS,1);
D:=BACKSET(ISLASTBAR,LLVBARS(LOW,45)+1);
E:=D>REF(D,1);
HH:=REF(HIGH,BARSLAST(B));
LL:=REF(LOW,BARSLAST(E));
高点:HH,LINETHICK2;
低点:LL,LINETHICK2;
C点:PLOYLINE(1,HH*0.8709),COLORFF0000,LINETHICK2;
{B点:PLOYLINE(1,HH*0.75),LINETHICK2,COLORFFFFFF;
PLOYLINE(1,HH*0.7252),COLORFFFFFF;
PLOYLINE(1,HH*0.667),crOSSDOT,COLORFFddeE;
PLOYLINE(1,HH*0.625),COLORFFDDEE;}
{M点:PLOYLINE(1,HH*0.5),LINETHICK2,COLORFFFFEE;}
DRAWTEXT(ISLASTBAR,HH*0.8709,'有名底'),COLORFFFF11;
{DRAWTEXT(ISLASTBAR,HH*0.7252,'无名底'),COLORFFFF22;
DRAWTEXT(ISLASTBAR,HH*0.625,'超跌底'),COLORFFFF33;
DRAWTEXT(ISLASTBAR,HH*0.5,'狂跌底'),COLORFFFF44; };