全套混沌操作法公式、源碼

相關標簽:

?

分形圖：

?

原理解析：
VAR1賦值:若2日前的最高價=5日內最高價的最高值則將最近3周期置為1 VAR2賦值:VAR1上穿0.9 VAR3賦值:若2日前的最低價=5日內最低價的最低值則將最近3周期置為1 VAR4賦值:VAR3上穿0.9 當滿足條件VAR2時,在最高價和最高價*1.01位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00E40E 當滿足條件VAR4時,在最低價和最低價*0.99位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00E40E VAR5賦值:如果VAR2,返回最高價,否則返回如果VAR4,返回最低價,否則返回0 POLYLINE(VAR5,VAR5),COLORFF00FF VAR6賦值:若2日前的最高價=5日內最高價的最高值ANDLOW<1日前的最低價ANDHIGH<1日前的最高價則將最近3周期置為1 VAR7賦值:若2日前的最高價=5日內最高價的最高值ANDLOW>1日前的最低價ANDHIGH>1日前的最高價則將最近3周期置為1 VAR8賦值:若2日前的最高價=5日內最高價的最高值ANDHIGH<1日前的最高價ANDLOW>1日前的最低價ANDREF(最低價,1)>2日前的最低價ANDREF(最高價,1)<2日前的最高價則將最近3周期置為1 VAR9賦值:若2日前的最低價=5日內最低價的最低值ANDLOW>1日前的最低價ANDHIGH>1日前的最高價則將最近3周期置為1 VARA賦值:若2日前的最低價=5日內最低價的最低值ANDLOW<1日前的最低價ANDHIGH<1日前的最高價則將最近3周期置為1 VARB賦值:若2日前的最低價=5日內最低價的最低值ANDHIGH<1日前的最高價ANDLOW>1日前的最低價ANDREF(最低價,1)>2日前的最低價ANDREF(最高價,1)<2日前的最高價則將最近3周期置為1 輸出堅定: 當滿足條件VAR6上穿0.9時,在最高價和最高價*1.01位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR0000FF 當滿足條件VAR9上穿0.9時,在最低價和最低價*0.99位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR0000FF 輸出猶豫: 當滿足條件VAR7上穿0.9時,在最高價和最高價*1.01位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00E5E9 當滿足條件VARA上穿0.9時,在最低價和最低價*0.99位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00E5E9 輸出等待: 當滿足條件VAR8上穿0.9時,在最高價和最高價*1.01位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF4100 當滿足條件VARB上穿0.9時,在最低價和最低價*0.99位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF4100 輸出分析家公式網HTTP://WWW.70822.COM整理: 上次VAR2距今天數日前的最高價, POINTDOT,COLOREA91B5 當滿足條件收盤價時,在上次VAR2距今天數日前的最高價和上次VAR2距今天數日前的最高價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOREA91B5 輸出支撐: 上次VAR4距今天數日前的最低價, POINTDOT,COLOR3791B5 當滿足條件收盤價時,在上次VAR4距今天數日前的最低價和上次VAR4距今天數日前的最低價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR3791B5 輸出現價:收盤價,POINTDOT,COLOR000F89 賦值: (最高價 + 最低價 + 收盤價)/3 如果TYP>1日前的TYP,返回TYP*成交量(手),否則返回0的N日累和/如果TYP<1日前的TYP,返回TYP*成交量(手),否則返回0的N日累和5/34/5 MACD：MA(收盤價,5)-收盤價的34日簡單移動平均 COLORSTICK 收盤價的5日簡單移動平均-收盤價的34日簡單移動平均的5日簡單移動平均 S賦值:(收盤價的5日簡單移動平均-收盤價的34日簡單移動平均)的3日指數移動平均 S1賦值:S<1日前的SAND S>0 S2賦值:S<1日前的SAND S<0 當滿足條件S>=0時,在0和S位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,畫紅色 當滿足條件S1時,在0和S位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00FFFF 當滿足條件S2時,在0和S位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFFFFFF 輸出四種視窗：MFI:(最高價-最低價)*100000/成交量(手) 輸出MA5:資金流量指標的5日簡單移動平均 輸出A1:資金流量指標>=1日前的資金流量指標*1.1 AND 成交量(手)>=1日前的成交量(手)*1.1 輸出A2:資金流量指標<=1日前的資金流量指標*0.9 AND 成交量(手)<=1日前的成交量(手)*0.9 輸出A3:資金流量指標>=1日前的資金流量指標*1.1 AND 成交量(手)<=1日前的成交量(手)*0.9 輸出A4:資金流量指標<=1日前的資金流量指標*0.9 AND 成交量(手)>=1日前的成交量(手)*1.1 當滿足條件A2時,在4位置書寫文字,線寬為3 當滿足條件A1時,在1位置書寫文字,線寬為3 當滿足條件A3時,在3位置書寫文字,線寬為3 當滿足條件A4時,在2位置書寫文字,線寬為3 。鱷魚線：VAR1賦值:(最高價+最低價)/2 輸出上唇:3日前的VAR1的5日[1日權重]移動平均,畫綠色 輸出牙齒:5日前的VAR1的8日[1日權重]移動平均,畫紅色 輸出下顎:8日前的VAR1的13日[1日權重]移動平均,畫藍色 顎魚分形：VAR1賦值:(最高價+最低價)/2 輸出上唇:3日前的VAR1的5日[1日權重]移動平均,畫綠色 輸出牙齒:5日前的VAR1的8日[1日權重]移動平均,畫紅色 輸出下顎:8日前的VAR1的13日[1日權重]移動平均,畫藍色 VAR1賦值:若2日前的最高價=5日內最高價的最高值則將最近3周期置為1 VAR2賦值:VAR1上穿0.9 VAR3賦值:若2日前的最低價=5日內最低價的最低值則將最近3周期置為1 VAR4賦值:VAR3上穿0.9 當滿足條件VAR2時,在最高價*1.01位置畫4號圖標,COLOR00E40E 當滿足條件VAR4時,在最低價*0.99位置畫5號圖標,COLOR00E40E VAR5賦值:如果VAR2,返回最高價,否則返回如果VAR4,返回最低價,否則返回0 VAR6賦值:若2日前的最高價=5日內最高價的最高值ANDLOW<1日前的最低價ANDHIGH<1日前的最高價則將最近3周期置為1 VAR7賦值:若2日前的最高價=5日內最高價的最高值ANDLOW>1日前的最低價ANDHIGH>1日前的最高價則將最近3周期置為1 VAR8賦值:若2日前的最高價=5日內最高價的最高值ANDHIGH<1日前的最高價ANDLOW>1日前的最低價ANDREF(最低價,1)>2日前的最低價ANDREF(最高價,1)<2日前的最高價則將最近3周期置為1 VAR9賦值:若2日前的最低價=5日內最低價的最低值ANDLOW>1日前的最低價ANDHIGH>1日前的最高價則將最近3周期置為1 VARA賦值:若2日前的最低價=5日內最低價的最低值ANDLOW<1日前的最低價ANDHIGH<1日前的最高價則將最近3周期置為1 VARB賦值:若2日前的最低價=5日內最低價的最低值ANDHIGH<1日前的最高價ANDLOW>1日前的最低價ANDREF(最低價,1)>2日前的最低價ANDREF(最高價,1)<2日前的最高價則將最近3周期置為1 輸出上向分形: 上次VAR2距今天數日前的最高價, POINTDOT,COLOREA91B5 當滿足條件收盤價時,在上次VAR2距今天數日前的最高價和上次VAR2距今天數日前的最高價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫洋紅色 輸出向下分形: 上次VAR4距今天數日前的最低價, POINTDOT,COLOR3791B5 當滿足條件收盤價時,在上次VAR4距今天數日前的最低價和上次VAR4距今天數日前的最低價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫黃色 AO：VAR1賦值:(最高價+最低價)/2 輸出AO:VAR1的5日[1日權重]移動平均-VAR1的34日[1日權重]移動平均,COLOR6699CC 當滿足條件AO>=1日前的AO時,在0和AO位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,畫紅色 當滿足條件AO<=1日前的AO時,在0和AO位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,畫綠色 AO,COLOR000000 AC：VAR1賦值:(最高價+最低價)/2 AO賦值:VAR1的5日[1日權重]移動平均-VAR1的34日[1日權重]移動平均 輸出AC:(AO-AO的5日[1日權重]移動平均)的5日[1日權重]移動平均,COLOR6699CC 當滿足條件AC>=1日前的AC時,在0和AC位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,畫紅色 當滿足條件AC<=1日前的AC時,在0和AC位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,畫綠色 AC,COLOR000000 區域：VAR1賦值:(最高價+最低價)/2 AO賦值:VAR1的5日[1日權重]移動平均-VAR1的34日[1日權重]移動平均 AC賦值:(AO-AO的5日[1日權重]移動平均)的5日[1日權重]移動平均 AO>1日前的AO AND AC>1日前的AC,畫紅色 AO<1日前的AO AND AC<1日前的AC,畫綠色 AO>1日前的AO AND AC<1日前的AC,畫深灰色 AO<1日前的AO AND AC>1日前的AC,畫深灰色 999MA1賦值:(最高價+最低價)/2的SHORT日簡單移動平均 MA2賦值:(最高價+最低價)/2的LONG日簡單移動平均 MA1-MA2,STICK,畫綠色 輸出OSCMACD：參數名：LONG 35 1 999SHORT 5 1 999OSC: (收盤價的SHORT日簡單移動平均-收盤價的LONG日簡單移動平均)/收盤價的SHORT日簡單移動平均*100, COLORSTICK 輸出OSCMACD: 變動速率線的5日簡單移動平均

?

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

源碼：

?

Var1:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
Var2:=CROSS(Var1,0.9);
Var3:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
Var4:=CROSS(Var3,0.9);
STICKLINE(Var2,HIGH,HIGH*1.01,5,0),Color00E40E;
STICKLINE(Var4,LOW,LOW*0.99,5,0),Color00E40E;
Var5:=IF(Var2,HIGH,IF(Var4,LOW,0));
POLYLINE(Var5,Var5),Colorff00ff;
Var6:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
Var7:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
Var8:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
Var9:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
VarA:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
VarB:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
堅定: STICKLINE(CROSS(Var6,0.9),HIGH,HIGH*1.01,5,0),Color0000FF;
STICKLINE(CROSS(Var9,0.9),LOW,LOW*0.99,5,0),Color0000FF;
猶豫: STICKLINE(CROSS(Var7,0.9),HIGH,HIGH*1.01,5,0),Color00E5E9;
STICKLINE(CROSS(VarA,0.9),LOW,LOW*0.99,5,0),Color00E5E9;
等待: STICKLINE(CROSS(Var8,0.9),HIGH,HIGH*1.01,5,0),ColorFF4100;
STICKLINE(CROSS(VarB,0.9),LOW,LOW*0.99,5,0),ColorFF4100;
壓力: REF(HIGH,BARSLAST(Var2)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2)),REF(HIGH,BARSLAST(Var2)),5,0),ColorEA91B5;
支撐: REF(LOW,BARSLAST(Var4)), POINTDOT,Color3791B5;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4)),REF(LOW,BARSLAST(Var4)),5,0),Color3791B5;現價:CLOSE,POINTDOT,Color000F89;
MFI：參數名：N 14 2 300
TYP := (HIGH + LOW + CLOSE)/3;
SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),N)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),N)
5/34/5 MACD：
ma(c,5)-ma(c,34) COLORSTICK ;ma(ma(c,5)-ma(c,34),5);
s:=EMA((ma(c,5)-ma(c,34)),3);
s1:=s<ref(s,1)and s>0;
s2:=s<ref(s,1)and s<0;STICKLINE(s>=0,0,s,8,1),COLORRED;
STICKLINE(s1,0,s,5,0),COLOR00ffff;
STICKLINE(s2,0,s,4,0),COLORffffff;
四種視窗：
MFI:(H-L)*100000/V;
MA5:MA(MFI,5);
A1:MFI>=REF(MFI,1)*1.1 AND V>=REF(V,1)*1.1;
A2:MFI<=REF(MFI,1)*0.9 AND V<=REF(V,1)*0.9;
A3:MFI>=REF(MFI,1)*1.1 AND V<=REF(V,1)*0.9;
A4:MFI<=REF(MFI,1)*0.9 AND V>=REF(V,1)*1.1;
DRAWTEXT(A2,4,'衰退'),linethick3;
DRAWTEXT(A1,1,'綠燈'),linethick3;
DRAWTEXT(A3,3,'偽裝'),linethick3;
DRAWTEXT(A4,2,'蟄伏'),linethick3;
0.1以下為《證券交易新空間》一書中的全部指標源碼。鱷魚線：
Var1:=(H+L)/2;
上唇:REF(SMA(Var1,5,1),3),COLORGREEN;
牙齒:REF(SMA(Var1,8,1),5),COLORRED;
下顎:REF(SMA(Var1,13,1),8),COLORBLUE;顎魚分形：Var1:=(H+L)/2;
上唇:REF(SMA(Var1,5,1),3),COLORGREEN;
牙齒:REF(SMA(Var1,8,1),5),COLORRED;
下顎:REF(SMA(Var1,13,1),8),COLORBLUE;Var1:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
Var2:=CROSS(Var1,0.9);
Var3:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
Var4:=CROSS(Var3,0.9);
drawicon(Var2,HIGH*1.01,4),Color00E40E;
drawicon(Var4,LOW*0.99,5),Color00E40E;
Var5:=IF(Var2,HIGH,IF(Var4,LOW,0));
{POLYLINE(Var5,Var5),Colorff00ff;}
Var6:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
Var7:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
Var8:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
Var9:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
VarA:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
VarB:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);上向分形: REF(HIGH,BARSLAST(Var2)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2)),REF(HIGH,BARSLAST(Var2)),5,0),COLORMAGENTA;
向下分形: REF(LOW,BARSLAST(Var4)), POINTDOT,Color3791B5;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4)),REF(LOW,BARSLAST(Var4)),5,0),COLORYELLOW;AO：
Var1:=(H+L)/2;
AO:SMA(Var1,5,1)-SMA(Var1,34,1),COLOR6699CC;
STICKLINE(AO>=REF(AO,1),0,AO,6,1),COLORRED;
STICKLINE(AO<=REF(AO,1),0,AO,6,1),COLORGREEN;
AO,COLOR000000;
AC：
Var1:=(H+L)/2;
AO:=SMA(Var1,5,1)-SMA(Var1,34,1);
AC:SMA((AO-SMA(AO,5,1)),5,1),COLOR6699CC;
STICKLINE(AC>=REF(AC,1),0,AC,6,1),COLORRED;
STICKLINE(AC<=REF(AC,1),0,AC,6,1),COLORGREEN;
AC,COLOR000000;區域：
Var1:=(H+L)/2;
AO:=SMA(Var1,5,1)-SMA(Var1,34,1);
AC:=SMA((AO-SMA(AO,5,1)),5,1);
AO>REF(AO,1) AND AC>REF(AC,1),COLORRED;
AO<REF(AO,1) AND AC<REF(AC,1),COLORGREEN;
AO>REF(AO,1) AND AC<REF(AC,1),COLORGRAY;
AO<REF(AO,1) AND AC>REF(AC,1),COLORGRAY;
OSC：
參數名：SHORT 5 1 999
LONG 35 1 999
MA1:=MA((HIGH+LOW)/2,SHORT);
MA2:=MA((HIGH+LOW)/2,LONG);
MA1-MA2,STICK,COLORgreen;OSCMACD：
參數名：LONG 35 1 999
SHORT 5 1 999
OSC: (MA(CLOSE,SHORT)-MA(CLOSE,LONG))/MA(CLOSE,SHORT)*100, COLORSTICK;
OSCMACD: MA(OSC,5);

?

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

?