牛熊皆準的無未來公式[大智慧公式]

相關標簽:

?

牛熊皆準的無未來公式

?

?

原理解析：
VAR1賦值:如果開盤價<=1日前的開盤價,返回0,否則返回最高價-開盤價和開盤價-1日前的開盤價的較大值 VAR2賦值:如果開盤價>=1日前的開盤價,返回0,否則返回開盤價-最低價和開盤價-1日前的開盤價的較大值 VAR3賦值:VAR1的5日累和 VAR4賦值:VAR2的5日累和 VAR5賦值:如果VAR3>VAR4,返回(VAR3-VAR4)/VAR3,否則返回如果VAR3=VAR4,返回0,否則返回(VAR3-VAR4)/VAR4 VAR6賦值:VAR5的5日簡單移動平均 VAR8賦值:如果開盤價<=1日前的開盤價,返回0,否則返回最高價-開盤價和開盤價-1日前的開盤價的較大值 VAR9賦值:如果開盤價>=1日前的開盤價,返回0,否則返回開盤價-最低價和開盤價-1日前的開盤價的較大值 VARA賦值:VAR8的3日累和 VARB賦值:VAR9的3日累和 VARC賦值:如果VARA>VARB,返回(VARA-VARB)/VARA,否則返回如果VARA=VARB,返回0,否則返回(VARA-VARB)/VARB VARD賦值:VARC的3日簡單移動平均 輸出火: 上次收盤價的5日指數移動平均<1日前的收盤價的5日指數移動平均距今天數,畫紅色 VARE賦值:2日內收盤價的最高值 VARF賦值:上次VARE<2日前的VARE距今天數 VAR10賦值:如果VARF>=1,返回VARF日內VARE的最低值,否則返回最低價 VAR11賦值:VAR10+VAR10*VARF*0.5/100 VAR12賦值:如果VAR11<1日前的VAR11,返回最低價的3日簡單移動平均,否則返回VAR11 VAR13賦值:VAR10+VAR10*(VARF-1)*1.618/100 輸出山: 統計5日中滿足收盤價的5日指數移動平均>1日前的收盤價的5日指數移動平均的天數,畫綠色 當滿足條件山>0時,在火和0位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色 當滿足條件山=0AND火=0時,在0和1位置之間畫柱狀線,寬度為2,1不為0則畫空心柱.,畫白色 當滿足條件山>0時,在火和山位置之間畫柱狀線,寬度為2,1不為0則畫空心柱.,COLORFFCC66 當滿足條件1日前的山=0AND山>0時,在0和5位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫黃色 當滿足條件山<火時,在火和山位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00FF00 當滿足條件3日前的火>0ANDREF(火,2)>0ANDREF(火,1)>0AND火=0ANDREF(火,1)>山時,在1日前的火位置書寫文字,畫紅色 當滿足條件3日前的火>0ANDREF(火,2)>0ANDREF(火,1)>0AND火=0ANDREF(火,1)>山時,在1日前的火位置書寫文字,畫黃色

?

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

源碼：

?

?

VAR1:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR2:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR3:=SUM(VAR1,5);
VAR4:=SUM(VAR2,5);
VAR5:=IF(VAR3>VAR4,(VAR3-VAR4)/VAR3,IF(VAR3=VAR4,0,(VAR3-VAR4)/VAR4));
VAR6:=MA(VAR5,5);
VAR8:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR9:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VARA:=SUM(VAR8,3);
VARB:=SUM(VAR9,3);
VARC:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VARD:=MA(VARC,3);
火: BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1)),COLORRED;
VARE:=HHV(CLOSE,2);
VARF:=BARSLAST(VARE<REF(VARE,2));
VAR10:=IF(VARF>=1,LLV(VARE,VARF),LOW);
VAR11:=VAR10+VAR10*VARF*0.5/100;
VAR12:=IF(VAR11<REF(VAR11,1),MA(LOW,3),VAR11);
VAR13:=VAR10+VAR10*(VARF-1)*1.618/100;
山: COUNT(EMA(CLOSE,5)>REF(EMA(CLOSE,5),1),5),COLORGREEN;
STICKLINE(山>0,火,0,2,0),COLORRED;
STICKLINE(山=0 AND 火=0,0,1,2,1),COLORWHITE;
STICKLINE(山>0,火,山,2,1),COLORFFCC66;
STICKLINE(REF(山,1)=0 AND 山>0,0,5{-1},4,0),COLORYELLOW;
STICKLINE(山<火,火,山,2,0),COLOR00FF00;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,REF(火,1),'●'),COLORRED;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,REF(火,1),'¤'),COLORYELLOW;

?

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

?