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

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

源码正文：

间隔:=3;角度:=4{XG51};
M1:=IF((CLOSE > 100),1,0.01){XG51};
M2:=(1 / 间隔){XG51};
PYEAR:=(角度 * 0.25){XG51};
BB:=LLV(YEAR,0){XG51};
PMONTH:=SUM(MONTH,0){XG51};
CC:=LLV(PMONTH,0){XG51};
PDAY:=SUM(DAY,0){XG51};
P1990:=LLV(PDAY,0){XG51};
T1990:=((((YEAR - 1990) * 365.24219) + ((MONTH - 1) * 30.43685)) + DAY){XG51};
A:=((((BB - 1990) * 365.24219) + ((CC - 1) * 30.436)) + P1990){XG51};
V1:=CEILING((T1990 - A)){XG51};
V2:=((V1 * M1) * PYEAR){XG51};
V3:=(V2 - ((CEILING(((V2 - CLOSE) / (365.24219 * M1))) * 365.24219) * M1)){XG51};
V333:=(V2 - ((FLOOR(((V2 - CLOSE) / (365.24219 * M1))) * 365.24219) * M1)){XG51};
V444:=(V2 - (((CEILING(((V2 - CLOSE) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2)){XG51};
V4:=(V2 - (((FLOOR(((V2 - CLOSE) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2)){XG51};
V5:=REVERSE(V2){XG51};
V6:=(V5 + ((CEILING(((CLOSE - V5) / (365.24219 * M1))) * 365.24219) * M1)){XG51};
V555:=(V5 + ((FLOOR(((CLOSE - V5) / (365.24219 * M1))) * 365.24219) * M1)){XG51};
V666:=(V5 + (((CEILING(((CLOSE - V5) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2)){XG51};
V22:=(V5 + (((FLOOR(((CLOSE - V5) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2)){XG51};
V33:=(V2 - ((CEILING(((V2 - ma(CLOSE,30)) / (365.24219 * M1))) * 365.24219) * M1)){XG51};
V3333:=(V2 - ((FLOOR(((V2 - MA(CLOSE,30)) / (365.24219 * M1))) * 365.24219) * M1)){XG51};
V4444:=(V2 - (((CEILING(((V2 - MA(CLOSE,30)) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2)){XG51};
V44:=(V2 - (((FLOOR(((V2 - MA(CLOSE,30)) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2)){XG51};
V55:=REVERSE(V2){XG51};
V66:=(V55 + ((CEILING(((MA(CLOSE,30) - V55) / (365.24219 * M1))) * 365.24219) * M1)){XG51};
V5555:=(V55 + ((FLOOR(((MA(CLOSE,30) - V55) / (365.24219 * M1))) * 365.24219) * M1)){XG51};
V6666:=(V55 + (((CEILING(((MA(CLOSE,30) - V55) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2)){XG51};
VAR1:=(V55 + (((FLOOR(((MA(CLOSE,30) - V55) / ((365.24219 * M1) * M2))) * 365.24219) * M1) * M2)){XG51};
M5:=MA(C,5){XG51};
E5:=ema(C,5){XG51};
M10:=MA(C,10){XG51};
E10:=EMA(C,10){XG51};
M20:=MA(C,20){XG51};
E20:=EMA(C,20){XG51};
M50:=MA(C,50){XG51};
E50:=EMA(C,50){XG51};
M60:=MA(C,60){XG51};
E60:=EMA(C,60){XG51};
M120:=MA(C,120){XG51};
E120:=EMA(C,120){XG51};
M250:=MA(C,250){XG51};
E250:=EMA(C,250){XG51};
stICKLINE((E250>=M250),E250,M250,2,0),COLORWHITE{XG51};
STICKLINE((E120>=M120),E120,M120,6,0),COLORRED{XG51};
STICKLINE((E60>=M60),E60,M60,6,0),COLORYELLOW{XG51};
STICKLINE((E50>=M50),E50,M50,6,0),COLORBLUE{XG51};
STICKLINE((E20>=M20),E20,M20,6,0),COLORLIMAGENTA{XG51};
STICKLINE((E20>=M20),E20,M20,6,0),COLORLIMAGENTA{XG51};
STICKLINE((E20<=M20),M20,E20,6,0),COLORCYAN{XG51};
STICKLINE((E10>=M10),M10,E10,6,0),COLOR88FFDD{XG51};
STICKLINE((E10<=M10),M10,E10,6,0),COLORFFCD02;STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.1,0),COLOR0000FF{XG51};
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.1,0),COLOR0000FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),LINETHICK2,COLOR5050FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.5,0),COLOR5050FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.3,0),COLOR5F5FFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR5F5FFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.75,0),COLOR6C6CFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.5,0),COLOR6C6CFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.2,0),COLOR7E7EFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),COLOR7E7EFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.65,0),COLOR9D9DFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.5,0),COLOR9D9DFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.1,0),COLORAFAFFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),COLORAFAFFF{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.6,0),COLORC1C1FF{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.25,0),COLORC1C1FF{XG51};
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{XG51};
STICKLINE(CLOSE<OPEN,OPEN,LOW,0.1,0),COLORFF8A85{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,4,0),LINETHICK2,COLOR008200{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3.5,0),COLOR138B13{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),COLOR279227{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2.5,0),COLOR419D41{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2,0),COLOR62AB62{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,1.5,0),COLOR80B980{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,1,0),COLOR90BE90{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),COLOR9FC49E{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.25,0),COLORB1CCB1{XG51};
AS:=BacKSET(ISLASTBAR,HHVBARS(HIGH,45)+1){XG51};
B:=AS>REF(AS,1){XG51};
D:=BACKSET(ISLASTBAR,LLVBARS(LOW,45)+1){XG51};
E:=D>REF(D,1){XG51};
HH:=REF(HIGH,BArslAST(B)){XG51};
LL:=REF(LOW,BARSLAST(E)){XG51};
高点:HH,LINETHICK2{XG51};
低点:LL,LINETHICK2{XG51};
C点:PLOYLINE(1,HH*0.8709),COLORFF0000,LINETHICK2{XG51};

DRAWTEXT(ISLASTBAR,HH*0.8709,'有名底'),COLORFFFF11{XG51};
{X.G?5?1.C.N.{};