相關標簽:

?

黃金通道 黃金分割 主圖公式

?

原理解析：
N2賦值:5 A1賦值:N2日前的最高價=2*N2+1日內最高價的最高值 B1賦值:A1的N2日過濾 C1賦值:若B1則將最近N2+1周期置為1 HD賦值: C1的N2日過濾 RH賦值:若到最后交易的周期=2則將最近上次HD距今天數+1周期置為1 SH賦值:RH>1日前的RH H1賦值:上次SH距今天數日前的最高價 當滿足條件H1時,在H1和H1位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,線寬為2,COLOR00FFFF 當滿足條件是否最后一個周期時,在H1*1.005位置書寫文字,COLORFFFF00 TTP賦值:(到最后交易的周期=5-4) 當滿足條件TTPANDH1時,在H1位置書寫數字,COLORFFFF00 A2賦值:N2日前的最低價=2*N2+1日內最低價的最低值 B2賦值:A2的N2日過濾 C2賦值:若B2則將最近N2+1周期置為1 LD賦值:C2的N2日過濾 RL賦值:若到最后交易的周期=2則將最近上次LD距今天數+1周期置為1 SL賦值:RL>1日前的RL L1賦值:上次SL距今天數日前的最低價 當滿足條件L1時,在L1和L1位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFFFF00,線寬為5 當滿足條件是否最后一個周期時,在L1*1.005位置書寫文字,COLORFFFF00 當滿足條件TTPANDL1時,在L1位置書寫數字,COLOR00FFFF VAR1賦值:收盤價>1日前的收盤價 AND 收盤價>2日前的收盤價 VAR2賦值:1日前的VAR1 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR3賦值:1日前的VAR2 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR4賦值:1日前的VAR3 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR5賦值:1日前的VAR4 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR6賦值:1日前的VAR5 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR7賦值:1日前的VAR6 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR8賦值:1日前的VAR7 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR9賦值:1日前的VAR8 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARA賦值:1日前的VAR9 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VARB賦值:1日前的VARA AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARC賦值:1日前的VARB AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 當滿足條件VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC時,在收盤價和1日前的收盤價位置之間畫柱狀線,寬度為3,1不為0則畫空心柱.,畫紅色 VARD賦值:收盤價<1日前的收盤價 AND 收盤價<2日前的收盤價 VARE賦值:1日前的VARD AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARF賦值:1日前的VARE AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR10賦值:1日前的VARF AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR11賦值:1日前的VAR10 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR12賦值:1日前的VAR11 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR13賦值:1日前的VAR12 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR14賦值:1日前的VAR13 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR15賦值:1日前的VAR14 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR16賦值:1日前的VAR15 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR17賦值:1日前的VAR16 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR18賦值:1日前的VAR17 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 當滿足條件VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18時,在收盤價和1日前的收盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFFCC66 VAR19賦值:1日前的VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18 AND VAR1 當滿足條件VAR19時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,畫黃色 VAR1A賦值:1日前的VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC AND VARD 當滿足條件VAR1A時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為4,2不為0則畫空心柱.,COLOR00FF00 當滿足條件VAR19時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00C8FF 當滿足條件VAR19時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR10ECFF 當滿足條件VAR19時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色 當滿足條件VAR1A時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00D900 當滿足條件VAR1A時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫藍色 當滿足條件VAR1A時,在1日前的收盤價和2日前的收盤價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR090FF2 輸出FG:如果最高價>最高價7%之字轉向的前1個波峰值,返回21日內最高價的最高值,否則返回最高價7%之字轉向的前1個波峰值,畫綠色 輸出FD:如果最低價<最低價7%之字轉向的前1個波谷值,返回21日內最低價的最低值,否則返回最低價7%之字轉向的前1個波谷值,畫紅色 輸出分割0.191[輸出名錯誤]:(FG-FD)*0.191+FD,DOTLINE,畫洋紅色 輸出分割0.382[輸出名錯誤]:(FG-FD)*0.382+FD,DOTLINE,畫青色 輸出分割0.5[輸出名錯誤]:(FG-FD)*0.5+FD,DOTLINE,畫綠色 輸出分割0.618[輸出名錯誤]:(FG-FD)*0.618+FD,DOTLINE,畫青色 輸出分割0.809[輸出名錯誤]:(FG-FD)*0.809+FD,DOTLINE,畫黃色 當滿足條件是否最后一個周期>0時,在分割0.191的絕對值位置書寫文字畫洋紅色 當滿足條件是否最后一個周期>0時,在分割0.382的絕對值位置書寫文字畫青色 當滿足條件是否最后一個周期>0時,在分割0.5的絕對值位置書寫文字畫綠色 當滿足條件是否最后一個周期>0時,在分割0.618的絕對值位置書寫文字畫青色 當滿足條件是否最后一個周期>0時,在分割0.809的絕對值位置書寫文字畫黃色 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

N2:=5;
A1:=REF(H,N2)=HHV(H,2*N2+1);
B1:=FILTER(A1,N2);
C1:=BACKSET(B1,N2+1);
HD:= FILTER(C1,N2);
RH:=BACKSET(CURRBARSCOUNT=2,BARSLAST(HD)+1);
SH:=RH>REF(RH,1);
H1:=REF(H ,BARSLAST(SH));
STICKLINE(H1,H1,H1,5,0),LINETHICK2,COLOR00FFFF;
DRAWTEXT(ISLASTBAR,H1*1.005,'近期高點'),COLORFFFF00;
TTP:=(CURRBARSCOUNT=5-4);
DRAWNUMBER(TTP AND H1,H1,H1),COLORFFFF00;
A2:=REF(L,N2)=LLV(L,2*N2+1);
B2:=FILTER(A2,N2);
C2:=BACKSET(B2,N2+1);
LD:=FILTER(C2,N2);
RL:=BACKSET(CURRBARSCOUNT=2,BARSLAST(LD)+1);
SL:=RL>REF(RL,1);
L1:=REF(L ,BARSLAST(SL));
STICKLINE(L1,L1,L1,5,0),COLORFFFF00,LINETHICK5;
DRAWTEXT(ISLASTBAR,L1*1.005,'近期低點'),COLORFFFF00;
DRAWNUMBER(TTP AND L1,L1,L1),COLOR00FFFF;
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,1),COLORRED;{紅1}
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,0),COLORFFCC66;
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),4,1),COLORYELLOW;
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),4,2),COLOR00FF00{98FD};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR00C8FF;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLOR10ECFF;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLORRED;{黃托底}
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR00D900;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORBLUE;{藍壓頂}
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0,0),COLOR090FF2;
FG:IF (HIGH>PEAK(1,7,1),HHV(HIGH,21),PEAK(1,7,1)),COLORGREEN;
FD:IF (LOW<TROUGH(2,7,1),LLV(LOW,21),TROUGH(2,7,1)),COLORRED;
分割0.191:(FG-FD)*0.191+FD,DOTLINE,COLORMAGENTA;
分割0.382:(FG-FD)*0.382+FD,DOTLINE,COLORCYAN;
分割0.5:(FG-FD)*0.5+FD,DOTLINE,COLORGREEN;
分割0.618:(FG-FD)*0.618+FD,DOTLINE,COLORCYAN;
分割0.809:(FG-FD)*0.809+FD,DOTLINE,COLORYELLOW;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.191),'F0.191')COLORMAGENTA;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.382),'F0.382')COLORCYAN;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.5),'F0.500')COLORGREEN;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.618),'F0.618')COLORCYAN;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.809),'F0.809')COLORYELLOW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?