线性回归线公式源码主图指标公式[通达信公式]

相关标签:

通达信线性回归线同划线工具，用法略。

原理解析：
UR赋值:10 LR赋值:10 TC1赋值:如果最高价=8*UR日内最高价的最高值,返回最高价,否则返回无效数 TC2赋值:上次TC1=最高价距今天数的最后一日取值设为常数+1 输出UP:如果TC2=1,返回最高价,否则返回TC2-1日前的最高价的最后一日取值设为常数 BC1赋值:如果最低价=8*LR日内最低价的最低值,返回最低价,否则返回无效数 BC2赋值:上次BC1=最低价距今天数的最后一日取值设为常数+1 输出LL:如果BC2=1,返回最低价,否则返回BC2-1日前的最低价的最后一日取值设为常数 LP赋值:到最后交易的周期<=BC2 AND 最低价=LL HP赋值:到最后交易的周期<=TC2 AND 最高价=UP 当满足条件如果BC2>TC2,返回HP,否则返回LP时,在LL和UP位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR628962 当满足条件如果BC2>TC2,返回LP,否则返回HP时,在LL和UP位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR628962 NOD赋值:(如果TC2>BC2,返回TC2,否则返回BC2-如果TC2>BC2,返回BC2,否则返回TC2) LR1赋值:收盘价的NOD+1日线性回归预测值 输出NP:如果到最后交易的周期<=BC2和TC2的较大值,返回如果TC2和BC2的较小值=1,返回LR1,否则返回TC2和BC2的较小值-1日前的LR1的最后一日取值设为常数,否则返回无效数,POINTDOT,COLOR93BDA8 LR2赋值:收盘价的NOD+1日线性回归斜率 LR3赋值:如果TC2和BC2的较小值=1,返回LR2,否则返回TC2和BC2的较小值-1日前的LR2的最后一日取值设为常数 输出FP:NP-LR3*(NOD),POINTDOT,COLOR93BDA8 输出EQU:(NP+FP)/2,POINTDOT,COLOR93BDA8 AD赋值:NP-FP的绝对值 DBL赋值:上次BC1不等于无效数距今天数+1 DBH赋值:上次TC1不等于无效数距今天数+1 BSP赋值:如果BC2>TC2,返回DBL,否则返回DBH-1 LRL赋值:如果NP>FP,返回FP+AD/NOD*BSP,否则返回FP-AD/NOD*BSP AT1赋值:如果到最后交易的周期位于BC2和TC2之间ANDH>LRL,返回最高价,否则返回LRL AT2赋值:BC2和TC2的较大值日内AT1-LRL的最高值 AT3赋值:上次AT1-LRL=AT2距今天数的最后一日取值设为常数 AT4赋值:如果AT3=0,返回最高价,否则返回AT3日前的最高价的最后一日取值设为常数 AT5赋值:如果AT3=0,返回AT1-LRL,否则返回AT3日前的AT1-LRL的最后一日取值设为常数 ATL赋值:LRL+AT5 UT1赋值:如果到最后交易的周期位于BC2和TC2之间ANDL<LRL,返回最低价,否则返回LRL UT2赋值:BC2和TC2的较大值日内LRL-UT1的最高值 UT3赋值:上次LRL-UT1=UT2距今天数的最后一日取值设为常数 UT4赋值:如果UT3=0,返回最高价,否则返回UT3日前的最高价的最后一日取值设为常数 UT5赋值:如果UT3=0,返回LRL-UT1,否则返回UT3日前的LRL-UT1的最后一日取值设为常数 UTL赋值:LRL-UT5 RH赋值:如果到最后交易的周期>=BC2和TC2的较小值-10,返回ATL,否则返回BC2和TC2的较小值-11日前的ATL的最后一日取值设为常数 RL赋值:如果到最后交易的周期>=BC2和TC2的较小值-10,返回UTL,否则返回BC2和TC2的较小值-11日前的UTL的最后一日取值设为常数 输出中轨:如果NP>FP,返回如果LRL<=RH,返回LRL,否则返回无效数,否则返回如果LRL>=RL,返回LRL,否则返回无效数,COLOR628962 输出上轨:如果NP>FP,返回如果ATL<=RH,返回ATL,否则返回无效数,否则返回如果ATL>=RL,返回ATL,否则返回无效数,COLOR628962 输出下轨:如果NP>FP,返回如果UTL<=RH,返回UTL,否则返回无效数,否则返回如果UTL>=RL,返回UTL,否则返回无效数,COLOR628962 当满足条件收阳线时,在横轴0.01纵轴0.9位置书写文字,画红色 当满足条件收阳线时,在横轴1纵轴1位置书写文字,画红色

 来源:程序化99（ WWW.CXH99.COM ）

源码：

UR:=10;LR:=10;
{线性回归线}
TC1:=IF(H=HHV(H,8*UR),H,DRAWNULL);
TC2:=CONST(BARSLAST(TC1=H))+1;
UP:CONST(IF(TC2=1,H,REF(H,TC2-1)));
BC1:=IF(L=LLV(L,8*LR),L,DRAWNULL);
BC2:=CONST(BARSLAST(BC1=L))+1;
LL:CONST(IF(BC2=1,L,REF(L,BC2-1)));
LP:=CURRBARSCOUNT<=BC2 AND L=LL;{低点定位}
HP:=CURRBARSCOUNT<=TC2 AND H=UP;{高点定位}
STICKLINE(IF(BC2>TC2,HP,LP),LL,UP,0,0),COLOR628962;
STICKLINE(IF(BC2>TC2,LP,HP),LL,UP,0,0),COLOR628962;NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));{用时}LR1:=FORCAST(C,NOD+1);
NP:IF(CURRBARSCOUNT<=MAX(BC2,TC2),CONST(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1))),DRAWNULL),POINTDOT,COLOR93BDA8;{近点}
LR2:=SLOPE(C,NOD+1);
LR3:=CONST(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)));
FP:NP-LR3*(NOD),POINTDOT,COLOR93BDA8;{远点}
EQU:(NP+FP)/2,POINTDOT,COLOR93BDA8;AD:=ABS(NP-FP);{高差};
DBL:=BARSLAST(BC1!=DRAWNULL)+1;
DBH:=BARSLAST(TC1!=DRAWNULL)+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=CONST(BARSLAST(AT1-LRL=AT2));
AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));
AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));
ATL:=LRL+AT5;UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=CONST(BARSLAST(LRL-UT1=UT2));
UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));
UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));
UTL:=LRL-UT5;RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,CONST(REF(ATL,MIN(BC2,TC2)-11)));{限制高}
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,CONST(REF(UTL,MIN(BC2,TC2)-11)));{限制低}
中轨:IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLOR628962;
上轨:IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLOR628962;
下轨:IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLOR628962;
DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】