線性回歸線公式源碼

相關標簽:

?

通達信線性回歸線同劃線工具，用法略。

?

?

原理解析：
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.tumamayizhan.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.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?