[转载]混沌指标组
(2016-12-16 08:25:22)
标签:
转载 |
分类: 现货源码 |
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
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
MA1:=MA((HIGH+LOW)/2,SHORT);
MA2:=MA((HIGH+LOW)/2,LONG);
MA1-MA2,STICK,COLORgreen;
OSCMACD:
参数:LONG
OSC: (MA(CLOSE,SHORT)-MA(CLOSE,LONG))/MA(CLOSE,SHORT)*100,
COLORSTICK;
OSCMACD: MA(OSC,5);
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;
混沌看盘
{市场主导}
FD:=(HIGH-LOW)/3;{分段}
OPEN1:=OPEN>FD*2+LOW;
OPEN3:=OPEN<FD+LOW;
OPEN2:=NOT(OPEN1 OR OPEN3);
CLOSE1:=CLOSE>FD*2+LOW;
CLOSE3:=CLOSE<FD+LOW;
CLOSE2:=NOT(CLOSE1 OR CLOSE3);
DFZD:=CLOSE1 OR (OPEN3 AND CLOSE2);{多方主导}
WQS1:=OPEN2 AND CLOSE2;{中性}
KFZD:=NOT(DFZD OR WQS1);{空方主导}
{趋势}
ZD:=(HIGH+LOW)/2;{中点}
QSXS:=ZD>REF(HIGH,1);{趋势向上}
QSXX:=ZD<REF(LOW,1);{趋势向下}
WQS2:=NOT(QSXS OR QSXX);{无趋势}
{跳动量}
{由于无数据可用,改用成交量和成交金额替代}
ZTDL:=VOL>REF(VOL,1)*1.1 OR
AMOUNT>REF(AMOUNT,1)*1.5;{正跳动量}
FTDL:=VOL<REF(VOL,1)*0.7 OR
AMOUNT<REF(AMOUNT,1)*0.5;{负跳动量}
ZTDL2:=ZTDL AND FTDL<1;{修正跳动量}
FTDL2:=FTDL AND ZTDL<1;{修负跳动量}
{市场促进指数}
MFI1:=(HIGH-LOW)/(VOL/10000);{用VOL计算MFI}
MFI2:=(HIGH-LOW)/(AMOUNT/1000000);{用AMOUNT计算MFI}
ZMFI1:=MFI1>REF(MFI1,1);
ZMFI2:=MFI2>REF(MFI2,1);
ZMFI:=ZMFI1 OR ZMFI2;{正MFI,只要有一项成立就成立}
FMFI:=NOT(ZMFI);{负MFI}
{MFI与交易量}
LD:=ZTDL2 AND ZMFI;{绿灯}
ST:=FTDL2 AND FMFI;{衰退}
WZ:=FTDL2 AND ZMFI;{伪装}
QF:=ZTDL2 AND FMFI;{蛰伏}
{分形}
A1:=REF(HIGH,2);
A2:=FILTER(HHV(HIGH,5)=A1,2);{向上分形成立}
A3:=BACKSET(A2,3);
A4:=IF(FILTER(A3,2),HIGH,0);
A5:=SUM(A4,3);
C1:=REF(LOW,2);
C2:=FILTER(LLV(LOW,5)=C1,2);{向下分形成立}
C3:=BACKSET(C2,3);
C4:=IF(FILTER(C3,2),LOW,0);
C5:=SUM(C4,3);
{信号}
XHWZ1:=HIGH*1.003;
XHWZ2:=LOW*0.998;
XHWZ3:=IF(QSXX,XHWZ2,IF(QSXS,XHWZ1,IF(DFZD,XHWZ1,XHWZ2)));
XHWZ4:=IF(ZD<REF(ZD,1),XHWZ2,XHWZ1);
S1:=DFZD AND QSXS ;{行情向上}
S2:=KFZD AND QSXX ;{行情向下}
S3:=DFZD AND QSXX;
S4:=KFZD AND QSXS;
S5:=DFZD AND WQS2;
S6:=KFZD AND WQS2;
S7:=WQS1 AND (QSXS OR QSXX OR WQS2);
{作图}
STICKLINE(1,LOW,HIGH,0.5,0 ),COLOR00FFFF;
STICKLINE(S2 ,close ,open,7,0 ),COLORFF2020;
STICKLINE(S1,close,open,7 ,0 ),COLOR2020FF;
STICKLINE(S3,CLOSE,OPEN,7,0),COLORYELLOW;
STICKLINE(S4,CLOSE,OPEN,7,0),COLORCYAN;
STICKLINE(S5,CLOSE,OPEN,7,0),COLORMAGENTA;
STICKLINE(S6,CLOSE,OPEN,7,0),COLORGREEN;
STICKLINE(S7,CLOSE,OPEN,7,0),COLORGRAY;
STICKLINE(1,CLOSE,OPEN,2,0),COLORWHITE;
STICKLINE(LD,XHWZ3,XHWZ3*0.999,3,0),COLORGREEN;{绿灯}
STICKLINE(ST,XHWZ3,XHWZ3*0.999,3,0),COLORMAGENTA;{衰退}
STICKLINE(WZ,XHWZ3,XHWZ3*0.999,3,0),COLORYELLOW;{伪装}
STICKLINE(QF,XHWZ3,XHWZ3*0.999,3,0),COLORRED;{蛰伏}
STICKLINE(A5>0.1,A5,A5*1.0001,6,0);{向上分形}
STICKLINE(C5>0.1,C5,C5*1.0001,6,0);{向下分形成立}
混沌看盘主要信号用法简介:
(1)K线颜色
红色---留意见顶
蓝色---留意见底
(2)一致性获利法的视窗
(方块颜色)
绿色---绿灯,顺势而行。
晶红---衰退,留意观察动能。
黄色---伪装,当前走势并不可信。
红色---蛰伏,可能反转。
(3)分形
类似于箱型理论。
CODE:[Copy to clipboard]{市场主导}
FD:=(HIGH-LOW)/3;{分段}
OPEN1:=OPEN>FD*2+LOW;
OPEN3:=OPEN<FD+LOW;
OPEN2:=NOT(OPEN1 OR OPEN3);
CLOSE1:=CLOSE>FD*2+LOW;
CLOSE3:=CLOSE<FD+LOW;
CLOSE2:=NOT(CLOSE1 OR CLOSE3);
DFZD:=CLOSE1 OR (OPEN3 AND CLOSE2);{多方主导}
WQS1:=OPEN2 AND CLOSE2;{中性}
KFZD:=NOT(DFZD OR WQS1);{空方主导}
{趋势}
ZD:=(HIGH+LOW)/2;{中点}
QSXS:=ZD>REF(HIGH,1);{趋势向上}
QSXX:=ZD<REF(LOW,1);{趋势向下}
WQS2:=NOT(QSXS OR QSXX);{无趋势}
{跳动量}
{由于无数据可用,改用成交量和成交金额替代}
ZTDL:=VOL>REF(VOL,1)*1.1 OR
AMOUNT>REF(AMOUNT,1)*1.5;{正跳动量}
FTDL:=VOL<REF(VOL,1)*0.7 OR
AMOUNT<REF(AMOUNT,1)*0.5;{负跳动量}
ZTDL2:=ZTDL AND FTDL<1;{修正跳动量}
FTDL2:=FTDL AND ZTDL<1;{修负跳动量}
{市场促进指数}
MFI1:=(HIGH-LOW)/(VOL/10000);{用VOL计算MFI}
MFI2:=(HIGH-LOW)/(AMOUNT/1000000);{用AMOUNT计算MFI}
ZMFI1:=MFI1>REF(MFI1,1);
ZMFI2:=MFI2>REF(MFI2,1);
ZMFI:=ZMFI1 OR ZMFI2;{正MFI,只要有一项成立就成立}
FMFI:=NOT(ZMFI);{负MFI}
{MFI与交易量}
LD:=ZTDL2 AND ZMFI;{绿灯}
ST:=FTDL2 AND FMFI;{衰退}
WZ:=FTDL2 AND ZMFI;{伪装}
QF:=ZTDL2 AND FMFI;{蛰伏}
{分形}
A1:=REF(HIGH,2);
A2:=FILTER(HHV(HIGH,5)=A1,2);{向上分形成立}
A3:=BACKSET(A2,3);
A4:=IF(FILTER(A3,2),HIGH,0);
A5:=SUM(A4,3);
C1:=REF(LOW,2);
C2:=FILTER(LLV(LOW,5)=C1,2);{向下分形成立}
C3:=BACKSET(C2,3);
C4:=IF(FILTER(C3,2),LOW,0);
C5:=SUM(C4,3);
{信号}
XHWZ1:=HIGH*1.003;
XHWZ2:=LOW*0.998;
XHWZ3:=IF(QSXX,XHWZ2,IF(QSXS,XHWZ1,IF(DFZD,XHWZ1,XHWZ2)));
XHWZ4:=IF(ZD<REF(ZD,1),XHWZ2,XHWZ1);
S1:=DFZD AND QSXS ;{行情向上}
S2:=KFZD AND QSXX ;{行情向下}
S3:=DFZD AND QSXX;
S4:=KFZD AND QSXS;
S5:=DFZD AND WQS2;
S6:=KFZD AND WQS2;
S7:=WQS1 AND (QSXS OR QSXX OR WQS2);
{作图}
STICKLINE(1,LOW,HIGH,0.5,0 ),COLOR00FFFF;
STICKLINE(S2 ,close ,open,7,0 ),COLORFF2020;
STICKLINE(S1,close,open,7 ,0 ),COLOR2020FF;
STICKLINE(S3,CLOSE,OPEN,7,0),COLORYELLOW;
STICKLINE(S4,CLOSE,OPEN,7,0),COLORCYAN;
STICKLINE(S5,CLOSE,OPEN,7,0),COLORMAGENTA;
STICKLINE(S6,CLOSE,OPEN,7,0),COLORGREEN;
STICKLINE(S7,CLOSE,OPEN,7,0),COLORGRAY;
STICKLINE(1,CLOSE,OPEN,2,0),COLORWHITE;
STICKLINE(LD,XHWZ3,XHWZ3*0.999,3,0),COLORGREEN,linethick5;;{绿灯}
STICKLINE(ST,XHWZ3,XHWZ3*0.999,3,0),COLORMAGENTA,linethick5;{衰退}
STICKLINE(WZ,XHWZ3,XHWZ3*0.999,3,0),COLORYELLOW,linethick5;{伪装}
STICKLINE(QF,XHWZ3,XHWZ3*0.999,3,0),COLORRED,linethick5;{蛰伏}
STICKLINE(A5>0.1,A5,A5*1.0001,6,0),;{向上分形}
STICKLINE(C5>0.1,C5,C5*1.0001,6,0),;{向下分形成立}
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;
信号}
XHWZ1:=HIGH*1.003;
XHWZ2:=LOW*0.998;
XHWZ3:=IF(QSXX,XHWZ2,IF(QSXS,XHWZ1,IF(DFZD,XHWZ1,XHWZ2)));
XHWZ4:=IF(ZD<REF(ZD,1),XHWZ2,XHWZ1);
S1:=DFZD AND QSXS ;{行情向上}
S2:=KFZD AND QSXX ;{行情向下}
S3:=DFZD AND QSXX;
S4:=KFZD AND QSXS;
S5:=DFZD AND WQS2;
S6:=KFZD AND WQS2;
S7:=WQS1 AND (QSXS OR QSXX OR WQS2);
混沌Y
input:m(3);
CKJ:=(C+H+L+O)/8+AMOUNT/V/200;
多空线: SMA(CKJ,9,1);
主力成本: forcast(COST(9),M),linethick2;
长命线: WMA(COST(27),120), CIRCLEDOT;
强命线: forcast(COST(81),9);
DRAWICON(LONGCROSS(SMA(CKJ,21,1),EMA(COST(3),9),9),LOW,1);
混沌冰火
DRAWGBK(c>0,colorrgb(230,200,0),colorrgb(11,30,0),1);//分析家5.0此行去掉
V1:=V/((H-L)*2-ABS(C-O));
DW:=IF(C>O,0-V1*(H-C+O-L),IF(C<O,0-V1*(H-L),0-V/2));
UP:=IF(C>O,V1*(H-L),IF(C<O,V1*(H-O+C-L),V/2));
CJ:=(H+L+O+C)/4;
DN:=intpart(559/POW(DATATYPE+1,2)-DATATYPE);//分析家5.0此行为DN:=intpart(559/POW(DATATYPE-1,2)-DATATYPE+2);
DIFF:=MA(CJ,DN)-MA(CJ,15+DN*2);
DEA:=MA(DIFF,DN+2);
MACD:= 2*(DIFF-DEA);
天气:=DN*160*MACD*ema(up+dw,DN)/capital;
冰火:=if(macd<0 and ema(up+dw,DN)>0,0-天气,天气);
冰火:if(ABS(macd)<0.05,冰火/ABS(macd)/20,冰火),linethick2,COLORWHITE;
混沌:if(ABS(冰火)<=6/DN,冰火/3,冰火*2.22),colorstick,linethick5;
0,colorgreen;
起点:26/DN,pointdot,colorwhite;
混沌定点爆破
input:n(8);
TR :=
SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),n);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),n);
PDI:= DMP*100/TR,colorwhite;
MDI:= DMM*100/TR,coloryellow;
APP:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
DEMAND:=IF(CLOSE>=OPEN,APP*(HIGH-LOW),0-APP*((HIGH-CLOSE)+(OPEN-LOW)));
SUPLY:=IF(CLOSE<OPEN,APP*((HIGH-OPEN)+(CLOSE-LOW)),0-APP*(HIGH-LOW));
机构:=sum(DEMAND/capital*100,8);
散户:=sum(SUPLY/capital*100,8);
混沌定点爆破:=0,pointdot;
cross(pdi,mdi) and cross(机构,散户);
混沌动态多空
input:N(13),M(15);
DTM:=IF(O<=REF(O,1),0,MAX((H-O),(O-REF(O,1))));
DBM:=IF(O>=REF(O,1),0,MAX((O-L),(O-REF(O,1))));
STM:=SUM(DTM,N);
SBM:=SUM(DBM,N);
ADTM:=IF(STM>SBM,(STM-SBM)/STM,IF(STM=SBM,0,(STM-SBM)/SBM)),COLORffff00;
多:forcast(ADTM,M),linethick2,colorred;
空:forcast(ADTM,6*M)-多;
动:(多+空)/2;
庆祝:slope(动,2)*4+slope(多-空,2)>0 and slope(多,2)>0 and
count(动*slope(多-空,3)>0.015,2+40*slope(多-空,3)),linethick0;
drawicon(庆祝,-1,10);
0,POINTDOT, COLOR33FF66,;
0.5,POINTDOT, COLOR33FF66,;
-0.5,POINTDOT,COLOR33FF66,;
1, colorblue,;
-1,colorred;