角斜線的角度公式源碼[通達信公式]

相關標簽:

?

?

原理解析：
HH20賦值:N*3日內最高價的最高值的最后一日取值設為常數 LL20賦值:N*3日內最低價的最低值的最后一日取值設為常數 K賦值:(HH20-LL20)/(N),NODRAW 輸出XY:當滿足條件到最后交易的周期=N時,在LL20位置畫直線起點，當滿足條件到最后交易的周期=1時,在HH20位置畫直線終點,0表示是否延長.,線寬為1,COLORFFFFFF 輸出YX:當滿足條件到最后交易的周期=N時,在HH20位置畫直線起點，當滿足條件到最后交易的周期=1時,在LL20位置畫直線終點,0表示是否延長.,線寬為1,COLORFFFFFF 輸出中位線:(XY+YX)/2,線寬為1,COLORFFFFFF 輸出XX:如果到最后交易的周期<N+1,返回HH20,否則返回無效數,線寬為1,COLORFFFFFF 輸出YY:如果到最后交易的周期<N+1,返回LL20,否則返回無效數,線寬為1,COLORFFFFFF 當滿足條件到最后交易的周期=1時,在HH20和LL20位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFFFFF 當滿足條件到最后交易的周期=N時,在HH20和LL20位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFFFFF 輸出參考標準角:(HH20-LL20)/(N*K)的反正切*57.29633,COLORFFFFFF,NODRAW MAN賦值:收盤價的N日簡單移動平均,COLORAAAAFF 當滿足條件到最后交易的周期=N-2時,在LL20*1.03位置書寫文字,COLORAAFFFF X角K賦值:1日前的MAN-MAN的最后一日取值設為常數*(到最后交易的周期-1)+MAN的最后一日取值設為常數 輸出MAN角斜線:當滿足條件到最后交易的周期=N時,在X角K位置畫直線起點，當滿足條件到最后交易的周期=1時,在X角K位置畫直線終點,0表示是否延長.,線寬為2,COLOR00FFFF 輸出MAN角水平線:如果到最后交易的周期<=N,返回N-1日前的MAN角斜線的最后一日取值設為常數,否則返回無效數,線寬為2,COLOR00FFFF 當滿足條件到最后交易的周期=1時,在MAN角水平線的最后一日取值設為常數和MAN角斜線位置之間畫柱狀線,寬度為0.03,0不為0則畫空心柱.,COLOR00FFFF 輸出MAN線:MAN,線寬為2,COLORAAAAFF 輸出MAN角:(MAN角斜線-MAN角水平線)/(N*K)的反正切*57.29633的最后一日取值設為常數,NODRAW N的參數是10ZQ賦值:DATACOUNT-BARPOS HH20賦值:ZQ日后的N*3日內最高價的最高值 LL20賦值:ZQ日后的N*3日內最低價的最低值 K賦值:(HH20-LL20)/(N),線寬為0 輸出XY:LINEVALUE(ZQ+1=N,LL20,ZQ+1=1,HH20,0,0),線寬為1,COLORFFFFFF 輸出YX:LINEVALUE(ZQ+1=N,HH20,ZQ+1=1,LL20,0,0),線寬為1,COLORFFFFFF 輸出中位線:(XY+YX)/2,線寬為1,COLORFFFFFF 輸出XX:如果ZQ+1<N+1,返回HH20,否則返回0,線寬為0,COLORFFFFFF PARTLINE(ZQ+1<N,HH20),線寬為1,COLORFFFFFF 輸出YY:如果ZQ+1<N+1,返回LL20,否則返回0,線寬為0,COLORFFFFFF PARTLINE(ZQ+1<N,LL20),線寬為1,COLORFFFFFF 當滿足條件ZQ+1=1時,在HH20和LL20位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFFFFF 當滿足條件ZQ+1=N時,在HH20和LL20位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFFFFF 參考標準角賦值:(HH20-LL20)/(N*K)的反正切*57.29633,COLORFFFFFF,線寬為0 MAN賦值:收盤價的N日簡單移動平均,COLORAAAAFF 當滿足條件ZQ+1=N-2時,在LL20*1.03位置書寫文字,COLORAAFFFF X角K賦值:ZQ日后的1日前的MAN-MAN*(ZQ)+ZQ日后的MAN 輸出MAN角斜線:LINEVALUE(ZQ+1=N,X角K,ZQ+1=1,X角K,0,0),線寬為2,COLOR00FFFF MAN角水平線A賦值:如果ZQ+1<=N,返回ZQ日后的N-1日前的MAN角斜線,否則返回0 輸出MAN角水平線:MAN角水平線A[DATACOUNT],線寬為0,COLOR00FFFF PARTLINE(ZQ+1<N,MAN角水平線),線寬為2,COLOR00FFFF 當滿足條件ZQ+1=1時,在ZQ日后的MAN角水平線和MAN角斜線位置之間畫柱狀線,寬度為0.8,0不為0則畫空心柱.,COLOR00FFFF,線寬為2 輸出MAN線:MAN,線寬為2,COLORAAAAFF 輸出MAN角:ZQ日后的(MAN角斜線-MAN角水平線)/(N*K)的反正切*57.29633,線寬為0 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.tumamayizhan.com ）

源碼：

?

?

?

N的參數是10

?

HH20:=CONST(HHV(H,N*3));
LL20:=CONST(LLV(L,N*3));
K:=(HH20-LL20)/(N),NODRAW;
XY:DRAWLINE(CURRBARSCOUNT=N,LL20,CURRBARSCOUNT=1,HH20,0),LINETHICK1,COLORFFFFFF;
YX:DRAWLINE(CURRBARSCOUNT=N,HH20,CURRBARSCOUNT=1,LL20,0),LINETHICK1,COLORFFFFFF;
中位線:(XY+YX)/2,LINETHICK1,COLORFFFFFF;
XX:IF(CURRBARSCOUNT<N+1,HH20,DRAWNULL),LINETHICK1,COLORFFFFFF;
YY:IF(CURRBARSCOUNT<N+1,LL20,DRAWNULL),LINETHICK1,COLORFFFFFF;
STICKLINE(CURRBARSCOUNT=1,HH20,LL20,0,0),COLORFFFFFF;
STICKLINE(CURRBARSCOUNT=N,HH20,LL20,0,0),COLORFFFFFF;
參考標準角:ATAN((HH20-LL20)/(N*K))*57.29633,COLORFFFFFF,NODRAW;
MAN:=MA(C,N),COLORAAAAFF;
DRAWTEXT(CURRBARSCOUNT=N-2,LL20*1.03,'主圖畫面參考標準角=45°'),COLORAAFFFF;
X角K:=CONST(REF(MAN,1)-MAN)*(CURRBARSCOUNT-1)+CONST(MAN);
MAN角斜線:DRAWLINE(CURRBARSCOUNT=N,X角K,CURRBARSCOUNT=1,X角K,0),LINETHICK2,COLOR00FFFF;
MAN角水平線:IF(CURRBARSCOUNT<=N,CONST(REF(MAN角斜線,N-1)),DRAWNULL),LINETHICK2,COLOR00FFFF;
STICKLINE(CURRBARSCOUNT=1,CONST(MAN角水平線),MAN角斜線,0.03,0),COLOR00FFFF;
MAN線:MAN,LINETHICK2,COLORAAAAFF;
MAN角:CONST(ATAN((MAN角斜線-MAN角水平線)/(N*K))*57.29633),NODRAW;{三角形-飛狐版-by舍得快樂}
N的參數是10
ZQ:=DATACOUNT-BARPOS;
HH20:=REFX(HHV(H,N*3),ZQ);
LL20:=REFX(LLV(L,N*3),ZQ);
K:=(HH20-LL20)/(N),LINETHICK;
XY:LINEVALUE(ZQ+1=N,LL20,ZQ+1=1,HH20,0,0),LINETHICK1,COLORFFFFFF;
YX:LINEVALUE(ZQ+1=N,HH20,ZQ+1=1,LL20,0,0),LINETHICK1,COLORFFFFFF;
中位線:(XY+YX)/2,LINETHICK1,COLORFFFFFF;
XX:IF(ZQ+1<N+1,HH20,0),LINETHICK,COLORFFFFFF;
PARTLINE(ZQ+1<N,HH20),LINETHICK1,COLORFFFFFF;
YY:IF(ZQ+1<N+1,LL20,0),LINETHICK,COLORFFFFFF;
PARTLINE(ZQ+1<N,LL20),LINETHICK1,COLORFFFFFF;
STICKLINE(ZQ+1=1,HH20,LL20,0,0),COLORFFFFFF;
STICKLINE(ZQ+1=N,HH20,LL20,0,0),COLORFFFFFF;
//參考標準角:=ATAN((HH20-LL20)/(N*K))*57.29633,COLORFFFFFF,LINETHICK;
MAN:=MA(C,N),COLORAAAAFF;
DRAWTEXT(ZQ+1=N-2,LL20*1.03,'主圖畫面參考標準角=45°'),COLORAAFFFF;
X角K:=REFX(REF(MAN,1)-MAN,ZQ)*(ZQ)+REFX(MAN,ZQ);
MAN角斜線:LINEVALUE(ZQ+1=N,X角K,ZQ+1=1,X角K,0,0),LINETHICK2,COLOR00FFFF;
MAN角水平線A:=IF(ZQ+1<=N,REFX(REF(MAN角斜線,N-1),ZQ),0);
MAN角水平線:MAN角水平線A[DATACOUNT],LINETHICK,COLOR00FFFF;
PARTLINE(ZQ+1<N,MAN角水平線),LINETHICK2,COLOR00FFFF;
STICKLINE(ZQ+1=1,REFX(MAN角水平線,ZQ),MAN角斜線,0.8,0),COLOR00FFFF,LINETHICK2;
MAN線:MAN,LINETHICK2,COLORAAAAFF;
MAN角:REFX(ATAN((MAN角斜線-MAN角水平線)/(N*K))*57.29633,ZQ),LINETHICK;
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?