MACD指标大全
原文：http://www./viewthread.php?tid=1736186
发一些飞狐MACD指标，大家可以试试，看能不能通用，如果哪个不通用，我会做一些修改。
图已传完，除了主图和选股的没有发图。基本上都传上了。
{130macd}
Var1:=(EMA(CLOSE,12)-EMA(CLOSE,26))*100;
Var2:=EMA(Var1,9);
Var3:=2*(Var1-Var2);
FILLRGN(Var1>=0,0,Var1*0.8),COLOREEEEFF;
FILLRGN(Var1>=0,0,Var1*0.7),COLORDDDDFF;
FILLRGN(Var1>=0,0,Var1*0.6),COLORCCCCFF;
FILLRGN(Var1>=0,0,Var1*0.5),COLORBBBBFF;
FILLRGN(Var1>=0,0,Var1*0.4),COLORAAAAFF;
FILLRGN(Var1>=0,0,Var1*0.3),COLOR9999FF;
FILLRGN(Var1>=0,0,Var1*0.2),COLOR8888FF;
FILLRGN(Var1>=0,0,Var1*0.1),COLOR7777FF;
FILLRGN(Var1<0,0,Var1*0.8),COLORFFB0B0;
FILLRGN(Var1<0,0,Var1*0.7),COLORFF9D9D;
FILLRGN(Var1<0,0,Var1*0.6),COLORFF8E8E;
FILLRGN(Var1<0,0,Var1*0.5),COLORFF7D7D;
FILLRGN(Var1<0,0,Var1*0.4),COLORFF6A6A;
FILLRGN(Var1<0,0,Var1*0.3),COLORFF4D4D;
FILLRGN(Var1<0,0,Var1*0.2),COLORFF2D2D;
FILLRGN(Var1<0,0,Var1*0.1),COLORFF0000;
FILLRGN(Var2>=0,0,Var2*0.8),COLORD3FF60;
FILLRGN(Var2>=0,0,Var2*0.7),COLORC2FF24;
FILLRGN(Var2>=0,0,Var2*0.6),COLORBAFF02;
FILLRGN(Var2>=0,0,Var2*0.5),COLORAFF200;
FILLRGN(Var2>=0,0,Var2*0.4),COLORA4E100;
FILLRGN(Var2>=0,0,Var2*0.3),COLOR96CE00;
FILLRGN(Var2>=0,0,Var2*0.2),COLOR89BD00;
FILLRGN(Var2>=0,0,Var2*0.1),COLOR78A600;
FILLRGN(Var2<0,0,Var2*0.8),COLOR1EBE01;
FILLRGN(Var2<0,0,Var2*0.7),COLOR20CD01;
FILLRGN(Var2<0,0,Var2*0.6),COLOR22DC01;
FILLRGN(Var2<0,0,Var2*0.5),COLOR25F101;
FILLRGN(Var2<0,0,Var2*0.4),COLOR34FE10;
FILLRGN(Var2<0,0,Var2*0.3),COLOR49FE29;
FILLRGN(Var2<0,0,Var2*0.2),COLOR6BFE52;
FILLRGN(Var2<0,0,Var2*0.1),COLOR82FE6B;
{K线叠加MACD}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(CLOSE,3)-EMA(CLOSE,8);
D2:=EMA(OPEN,3)-EMA(OPEN,8);
D3:=EMA(HIGH,3)-EMA(HIGH,8);
D4:=EMA(LOW,3)-EMA(LOW,8);
DRAWICON(CROSS(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(CROSS(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;
{MACD 底背离选股}
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,9);
MACD := 2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
T:=BARSLAST( DEA>0);
T1:=LLVBARS(DIFF,T);
REF(CLOSE,T1)>CLOSE AND REF(DIFF,T1)<DIFF AND
REF(MACD,1)<MACD AND ALL(DIFF<0,T) AND T1>15 AND
COUNT(JC,T)>=1;
{MACD 三底背离选股}
{Short=12,long =26,M=9}
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,9);
MACD := 2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
T:=BARSLAST( DEA>0);
T1:=LLVBARS(DIFF,T);
T2:=HHVBARS(DIFF ,T1);
T3:=LLVBARS(DIFF,T2);
REF(CLOSE,T1)>REF(CLOSE,T3) AND REF(CLOSE,T3)>CLOSE AND
REF(DIFF,T1)<REF(DIFF,T3) AND REF(DIFF,T3)<DIFF AND
REF(DIFF,T1)<REF(DIFF,T-1) AND REF(DIFF,T3)<REF(DIFF,T-3) AND
ALL(DIFF<0,T)AND T3>10;
{MACD 实战逃顶}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00
附件
 1.jpg (31.97 KB)
-
2007-10-20 19:58
- 2.jpg (40.95 KB)
-
2007-10-20 19:58
- 3.jpg (33.4 KB)
-
2007-10-20 19:58
|
 发短消息  加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
2楼 大 中 小 发表于 2007-10-20 20:00 只看该作者
{MACD(费虚)}
{N=21}
WY:=((H-REF(H,1))+(L-REF(L,1)))/2;
HX:=V/(H-L);
Y:=(WY/HX*1000);
老费MACD:FORCAST(Y,21),colorstick,COLORWHITE;
{MACD(杨文峰） s:12 p:26 m: 9 }
DIFF: EMA(CLOSE,S) - EMA(CLOSE,P),colorred;
DEA:EMA(DIFF,M),COLORYELLOW;
MACD: 2*(DIFF-DEA),COLORSTICK;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2,0),COLORYELLOW;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2,0),COLORMAGENTA;
PARTLINE(DIFF<DEA,DIFF),COLORGREEN;
EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,0),COLORCYAN;
EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,0),COLORGREEN;
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'资金无入场意愿，萎缩中'),COLORMAGENTA;
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'场内资金运作'),COLORRED;
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空激烈争夺'),COLORGREEN;
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'场外资金介入（或出局）意愿强烈'),COLORMAGENTA;
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14),COLORRED;
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号'),COLORMAGENTA;
EXPLAIN(cross(mdi,pdi),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号'),COLORCYAN;
EXPLAIN(adx< ref(adx,1) and adx<20,'ADX值递减，降到20以下，且横向行进时，市场气氛为盘整'),COLORRED;
EXPLAIN(adx< ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值从上升倾向转为下降时，表明行情即将反转'),COLORCYAN;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
EXPLAIN(1=1,'MACD,KDJ,CCI,W&R,RSI,MTM等指标的判断:'),COLORGREEN;
EXPLAINEX(1=1,'MACD=',macd,2,1),COLORMAGENTA;
EXPLAIN(MACD>0 and diff>0,'大势属多头市场'),COLORRED;
EXPLAIN(MACD>0.35,'超买中，随时有可能见顶回落'),COLORCYAN;
EXPLAIN(MACD<0 and diff<0,'大势属空头市场'),COLORMAGENTA;
EXPLAIN(MACD<-0.35,'超卖中，随时有可能反弹'),COLORCYAN;
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o轴，可考虑买入'),COLORRED;
EXPLAIN(cross(j,k) and k<50,'KDJ金叉'),COLORGREEN;
EXPLAIN(cross(k,d) and k>70,'KDJ死叉'),COLORCYAN;
EXPLAIN(j>84,'KDJ指标高位');EXPLAIN(j<16,'KDJ指标低位'),COLORGREEN;
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指标底位，买入机会'),COLORRED;
EXPLAIN(cci>180,'CCI指标高位，卖出机会'),COLORGREEN;
EXPLAINEX(1=1,'CCI=',cci,2,1),COLORMAGENTA;
EXPLAINEX(1=1,'换手率=',vol/CAPITAl*100,2,1),COLORMAGENTA;
explain((vol/CAPITAl)>0.075,'换手过大，小心主力出逃，短期头部'),COLORMAGENTA;
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),COLORRED;
EXPLAINEX(1=1,'威廉指标=',wr,2,1),COLORGREEN;
explain(wr>-20,'W&R超买，短线即将见顶，应及时卖出'),COLORCYAN;
explain(wr<-80,'W&R超卖，短线即将见底，应伺机买进'),COLORGREEN;
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM从下向上突破MTMMA，买入信号'),COLORCYAN;
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM从上向下跌破MTMMA，卖出信号'),COLORGREEN;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相对强弱RSI1=',RSI1,2,1),COLORGREEN;
EXPLAIN(RSI1>85,'6日RSI超买,防止回挡\n'),COLORCYAN;
EXPLAIN(RSI1>80,'6日RSI向上突破85，超买,考虑卖出'),COLORMAGENTA;
EXPLAIN(RSI1<15,'6日RSI超卖,随时有可能反弹\n');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超卖，考虑买入'),COLORRED;
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，买进信号'),COLORCYAN;
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，卖出信号'),COLORGREEN;
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'心理线,PSY=',psy,2,1),COLORGREEN;
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水岭:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水岭=',分水岭,2,1),COLORGREEN;
EXPLAIN(close>分水岭,'股价在分水岭之上,大势属多头,可积极做多'),COLORRED;
EXPLAIN(close<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹'),COLORGREEN;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收敛中，有变盘的可能，上下自己分析'),COLORMAGENTA;
EXPLAIN(var57 and var56 and c>o ,'布林上下乖离太大，有反弹的可能'),COLORGREEN;
W1:=C<=MA(C,5) AND C<=MA(C,10);
W2:=O>MA(C,5) AND O>MA(C,10);
W3:=MA(V,5)<=MA(V,10);
W4:=diff<=dea;
EXPLAIN(W1 AND W2,'断头铡刀:向下的趋势,不是洗盘就是将下跌,卖出'),colorgreen;
EXPLAIN(W1 ,'5日均线死叉10均线,短线空头势力强大,卖出'),coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,卖出'),colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空头形成,卖出'),colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉见顶,卖出'),coloryellow;
EXPLAIN(W1 AND W3 AND W4 ,'多方溃败,空方强大,向下彻底形成,卖出'),colorgreen;
{MACD+KD}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,10);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,12);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;
{MACD+KD解盘}
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK;
MAC := DIFF>ref(DIFF ,1);
DIF:2*DIFF;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2);
趋势,colorred;
长期趋势:EMA(Var1,10)*(-1);
Jm:=CROSS(DIFF,DEA)*0.2;
JmCount:=COUNT(Jm=0.2,BARSLAST(DEA>0));
DRAWTEXT(DEA<0 AND Jm=0.2,Jm,'0轴下第'),colorgreen;
DRAWNUMBER(DEA<0 AND Jm=0.2,0,JmCount,0),coloryellow;
DRAWTEXT(DEA<0 AND Jm=0.2,0,' 次金叉'),coloryellow;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
DRAWTEXT(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3AND(VOL/CAPITAL<=(10/100)))
AND((K<=20 AND D<=20)) ,0.40,
'短线KD金叉'),COLORYELLOW;
DRAWTEXT(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3AND
(VOL/CAPITAL<=(10/100)))AND(BARSLAST(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3
AND(VOL/CAPITAL<=(10/100)))AND((K<=20 AND D<=20)))>=1)AND(BARSLAST(CROSS(k,D)
AND(COUNT(VOL>REF(VOL,1),30)>3AND(VOL/CAPITAL<=(10/100)))AND((K<=30 AND D<=20)))<=7) ,0.40,
'短线KD二次金叉'),Color00FFFF,LINETHICK2,ALIGN2;
b:=CROSS(D,K) AND K>60 AND D>60;
b1:=COUNT(b,BARSLAST( D<60));
DRAWTEXT(b AND b1=1,0.50, '短线KD死叉'),ColorFFFFFF,LINETHICK2,ALIGN2;
DRAWTEXT(b AND b1=2,0.70, '短线KD二次死叉'),ColorFFFFFF,LINETHICK2,ALIGN2;
{MACD+短线DIFF}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;
[ 本帖最后由 小黑19 于 2007-10-20 20:01 编辑 ]
附件
- 1.jpg (20.89 KB)
-
2007-10-20 20:01
- 2.jpg (29.31 KB)
-
2007-10-20 20:01
- 3.jpg (38.93 KB)
-
2007-10-20 20:01
- 4.jpg (45.41 KB)
-
2007-10-20 20:01
- 5.jpg (37.41 KB)
-
2007-10-20 20:01
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
3楼 大 中 小 发表于 2007-10-20 20:01 只看该作者
{MACDSDS}
{INPUT:SHORT(12,1,100,1),LONG(26,1,100,1), M(9,1,100,2);}
DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
MACD:=EMA(DIF,M),COLOR58FF58;
DEF:=2*(DIF-MACD),COLORFFFF00,LINETHICK0;
{STICKLINE(DEF>=0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLOR6058FF;}
{STICKLINE(DEF>=0 AND DEF< REF(DEF,1),0,DEF,6,0),COLOR6058FF;}
{STICKLINE(DEF<0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLORFFFF00;}
{STICKLINE(DEF<0 AND DEF< REF(DEF,1),0,DEF,6,0),COLORFFFF00;}
{IF(DIF<1000,1,0)COLORBROWN;}
多头趋势:=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0);
空头趋势:=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0);
缩头:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0);
缩脚:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0);
SDS:=缩脚,LINETHICK0;
阻力:=IF(CROSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0);
支撑:=IF(CROSS(MA(C,20),C) OR CROSS(MA(C,60),C),1,0);
做多:=IF(CROSS(MACD,DIF) AND DIF>0 AND MACD>0,1,0);
放空:=IF(CROSS(DIF,MACD) AND DIF<0 AND MACD<0,1,0);
{DRAWICON(多头趋势,DIF,1);}
{DRAWICON(空头趋势,DIF,2);}
{IF(DIF<1000,0,1),COLORCCFFFF,LINETHICK2;}
{IF(MACD<1000,MACD,1),COLOR58FF58;}
{PDRAWICON(FILTER(缩头,3) AND 缩头,DEF+0.01,5);}
{DRAWICON(FILTER(缩脚,3) AND 缩脚,DEF,4);}
{DRAWICON(FILTER(阻力,16) AND DEF>=0,DEF+0.01,12);}
{DRAWICON(FILTER(支撑,16) AND DEF<0,DEF,12);}
sds
{MACD背离}
input:n(1,0.1,100);
dif:=stkindi('','macd.diff',0,6);
fz1:=PEAKBARSA(dif*17,1,1);
fz2:=PEAKBARSA(dif*17,1,2);
v1:=fz1=1 and ref(dif,fz1)>ref(dif,fz2) and ref(c,fz1)<ref(c,fz2);
v2:=fz1=1 and ref(dif,fz1)<ref(dif,fz2) and ref(c,fz1)>ref(c,fz2);
顶背离:STICKLINE(v1 or v2,0,1,3,0.1),colorffff54;
dz1:=TROUGHBARSA(dif*17,1,1);
dz2:=TROUGHBARSA(dif*17,1,2);
v3:=dz1=1 and ref(dif,dz1)>ref(dif,dz2) and ref(c,dz1)<ref(c,dz2);
v4:=dz1=1 and ref(dif,dz1)<ref(dif,dz2) and ref(c,dz1)>ref(c,dz2);
底背离:STICKLINE(v3 or v4,0,1,3,0.1),color5454ff;
{MACD变色优化}
input:LONG(22,20,100),SHORT(10,5,40),m(9,2,60);
DIFF: EMA(CLOSE,SHORT) - EMA(CLOSE,LONG),colorred;
DEA:EMA(DIFF,M),COLORYELLOW;
MACD: 2*(DIFF-DEA),COLORSTICK;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2,0),COLORYELLOW;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2,0),COLORwhite;
PARTLINE(DIFF<DEA,DIFF),COLORGREEN;
{MACD叠加K线}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9),colorred;
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,7,0),COLORMAGENTA;
STICKLINE(D1<=D2,D1,D2,7,0),COLORGREEN;
{MACD多空趋势}
A:EMA((CLOSE-ref(c,1))/ref(c,1)*10-(INDEXC-ref(INDEXC,1))/ref(INDEXC,1)*10,5)LINETHICK0;
STICKLINE(A>0,0,A,1,2),LINETHICK3,COLORred;
STICKLINE(A<0,0,A,1,2),LINETHICK2,COLORyellow;
HSNP1:=CLOSE-REF(CLOSE,1);
HSNP2:=IF(CLOSE-REF(CLOSE,1)>=0,HSNP1,0);
HSNP3:=REF(CLOSE,1)-CLOSE;
HSNP4:=IF(CLOSE-REF(CLOSE,1)<=0,HSNP3,0);
HSNP5:=SUM(HSNP2,90)/SUM(HSNP4,90);
HSNP6:=100-100/(1+HSNP5);
HSNP7:=EMA(HSNP6,21);
HSNP8:=EMA(HSNP7,5);
HSNP:=EMA(HSNP7,3);
np:= (HSNP7-HSNP);
nl:=(HSNP-HSNP7);
STICKLINE(np>0,0,np,1,2),COLORff00ff;
STICKLINE(np<0,0,np,1,2),COLORcyan;
JJ :=(C*2+H+L)/4;
SK := EMA(JJ,13) - EMA(JJ,21);
SD := EMA(SK,3);
SP := EMA(SK,10);
长线1:IF(SD>=SP,SD,SP),LINETHICK2;
长线2:IF(SP-SD,SP,SD),LINETHICK2;
A1:=EMA(CLOSE,7)-EMA(CLOSE,21);
B1:=EMA((0.668*REF(A1,1)+0.333*A1),1);
做多:IF(A1>=B1,A1,B1),LINETHICK2,colorred;
做空:IF(B1-A1,B1,A1),LINETHICK2;
附件
- 1.jpg (30.93 KB)
-
2007-10-20 20:02
- 2.jpg (41.73 KB)
-
2007-10-20 20:02
- 3.jpg (48.74 KB)
-
2007-10-20 20:02
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
4楼 大 中 小 发表于 2007-10-20 20:03 只看该作者
{MACD加K线叠加}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<0 ,d4-0.1,10);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;
{MACD交易}
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);0.10;
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
V1:=EMA(EMA(CLOSE,n),n);
V2:=100*WINNER(CLOSE*0.95);
控盘力度:(V1-REF(V1,1))/REF(V1,1)*10,colorwhite,LINETHICK1;
无庄控盘:IF(控盘力度<0,控盘力度,0),LINETHICK2,COLOR00ff00,STICK;
有庄控盘:IF(控盘力度>REF(控盘力度,1) AND 控盘力度>0,控盘力度,0),LINETHICK2,COLORff00ff,STICK;
主力减仓:IF(控盘力度< REF(控盘力度,1) AND 控盘力度>0,控盘力度,0),LINETHICK2,COLOrBLUE,STICK;
高度控盘:IF(V2>50 AND COST(85)< CLOSE AND 控盘力度>0,控盘力度,0),LINETHICK2,COLORRED,STICK;
开始控盘:IF(CROSS(控盘力度,0),0.2,0),LINETHICK2,COLORFF00FF;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2), COLORSTICK;
趋势,colorred;
长期趋势:EMA(Var1,10)*(-1);
EXPLAIN(趋势>0,'Z线趋势上升中\n');
EXPLAIN(趋势<0,'Z线趋势下降中\n');
EXPLAIN(cross(趋势,0),'Z线考虑买入\n');
EXPLAIN(cross(0,趋势),'Z线考虑卖出\n');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'资金无入场意愿，萎缩中\n');
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'场内资金运作行为\n');
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空双方激烈争夺中\n');
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'场外资金介入（或出局）意愿强烈\n');
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号\n');
EXPLAIN(cross(mdi,pdi),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号\n');
EXPLAIN(adx>ref(adx,1),'ADX值持续高于前一日，行情将维持原趋势\n');
EXPLAIN(adx<ref(adx,1) and adx<20,'ADX值递减，降到20以下，且横向行进时，市场气氛为盘整\n');
EXPLAIN(adx<ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值从上升倾向转为下降时，表明行情即将反转\n');
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
EXPLAIN(1=1,'下面为:macd,KDJ,CCI,W&R,RSI,MTM等指标的判断:');
EXPLAINEX(1=1,'（中标）macd=',macd,2,1);
EXPLAIN(macd>0 and diff>0,'大势属多头市场\n');
EXPLAIN(macd>0.35,'超买中，随时有可能见顶回落\n');
EXPLAIN(macd<0 and diff<0,'大势属空头市场\n');
EXPLAIN(macd<-0.35,'超卖中，随时有可能反弹\n');
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o轴，可考虑买入\n');
EXPLAIN(cross(j,k) and k<50,'KDJ金叉\n');
EXPLAIN(cross(k,d) and k>70,'KDJ死叉\n');
EXPLAIN(j>84,'KDJ指标高位');EXPLAIN(j<16,'KDJ指标低位\n');
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指标底位，买入机会\n');
EXPLAIN(cci>180,'CCI指标高位，卖出机会\n');
EXPLAINEX(1=1,'（短标）cci=',cci,2,1);
EXPLAINEX(1=1,'换手率=',vol/CAPITAl*100,2,1);
explain((vol/CAPITAl)>0.075,'换手过大，小心主力出逃，短期头部\n');
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAINEX(1=1,'威廉指标（短标）=',wr,2,1);
explain(wr>-20,'W&R超买，短线即将见顶，应及时卖出\n');
explain(wr<-80,'W&R超卖，短线即将见底，应伺机买进\n');
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM从下向上突破MTMMA，买入信号\n');
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM从上向下跌破MTMMA，卖出信号\n');
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相对强弱RSI1=',RSI1,2,1);
EXPLAIN(RSI1>85,'6日RSI超买,防止回挡\n');
EXPLAIN(RSI1>80,'6日RSI向上突破85，超买,考虑卖出\n');
EXPLAIN(RSI1<15,'6日RSI超卖,随时有可能反弹\n');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超卖，考虑买入\n');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，买进信号\n');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，卖出信号\n');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理线,PSY=',psy,2,1);
EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,1);
EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,1);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水岭:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水岭（中长标）=',分水岭,2,1);
EXPLAIN(close>分水岭,'股价在分水岭之上,大势属多头,可积极做多\n');
EXPLAIN(close<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹\n');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收敛中，有变盘的可能，上下自己分析\n');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖离太大，有反弹的可能\n');
EXPLAIN(var58 and var56 and c<o ,'布林上下乖离太大，有回落的可能\n');
附件
- 4.jpg (37.96 KB)
-
2007-10-20 20:04
- 5.jpg (45.32 KB)
-
2007-10-20 20:04
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
5楼 大 中 小 发表于 2007-10-20 20:04 只看该作者
{MACD实战}
INPUT:LONG(26,20,100),SHORT(12,5,40),M(9,2,60);
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORCCFFFF;
MACD:EMA(DIF,M),COLOR58FF58;
DEF:2*(DIF-MACD),COLORFFFF00,LINETHICK0;
STICKLINE(DEF>=0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLOR6058FF;
STICKLINE(DEF>=0 AND DEF< REF(DEF,1),0,DEF,6,0),COLOR6058FF;
STICKLINE(DEF<0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLORFFFF00;
STICKLINE(DEF<0 AND DEF< REF(DEF,1),0,DEF,6,0),COLORFFFF00;
PARTLINE(DIF<1000,0),COLORBROWN;
多头趋势:=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0);
空头趋势:=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0);
缩头:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0);
缩脚:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0);
阻力:=IF(CROSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0);
支撑:=IF(CROSS(MA(C,20),C) OR CROSS(MA(C,60),C),1,0);
做多:=IF(CROSS(MACD,DIF) AND DIF>0 AND MACD>0,1,0);
放空:=IF(CROSS(DIF,MACD) AND DIF<0 AND MACD<0,1,0);
DRAWICON(多头趋势,DIF,10),ALIGN4;
DRAWICON(空头趋势,DIF,11),ALIGN5;
PARTLINE(DIF<1000,DIF),,COLORCCFFFF,LINETHICK2;
PARTLINE(MACD<1000,MACD),COLOR58FF58;
DRAWICON(FILTER(缩头,3) AND 缩头,DEF+0.01,5),ALIGN0;
DRAWICON(FILTER(缩脚,3) AND 缩脚,DEF,4),ALIGN1;
DRAWICON(FILTER(阻力,16) AND DEF>=0,DEF+0.01,12),ALIGN0;
DRAWICON(FILTER(支撑,16) AND DEF<0,DEF,12),ALIGN1;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAIN(多头趋势, '§§§§长线为多头趋势§§§§'),COLORRED;
EXPLAIN(空头趋势, '§§§§长线为空头趋势§§§§'),COLORGREEN;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAIN(缩头, '§请注意DEF柱状缩头'),COLORFFFF00;
EXPLAIN(缩脚, '§请注意DEF柱状缩脚'),COLORFFFF00;
EXPLAIN(FILTER(支撑,16) AND DEF<0, '§DEF柱状特殊研判'),COLORFFFF00;
EXPLAIN(做多=0 AND FILTER(支撑,16) AND DEF<0, '§多头注意今明两日低点支撑'),COLORFFFF00;
EXPLAIN(FILTER(阻力,16) AND DEF>=0, '§DEF柱状特殊研判'),COLORFFFF00;
EXPLAIN(放空=0 AND FILTER(阻力,16) AND DEF>=0, '§空头注意今明两日高点压力'),COLORFFFF00;
EXPLAIN(做多, '§多头注意今明两日低点支撑'),COLORFFFF00;
EXPLAIN(做多, '§找日出K线做多，用线控盘'),COLORFFFF00;
EXPLAIN(放空, '§空头注意今明两日高点压力'),COLORFFFF00;
EXPLAIN(放空, '§找日落K线放空，用线控盘'),COLORFFFF00;
EXPLAIN(CROSS(MACD,0), '§注意长线趋势空转多'),COLORRED;
EXPLAIN(CROSS(0,MACD), '§注意长线趋势多转空'),COLORGREEN;
A:=C>=REF(C,2);
B:=C< REF(C,2);
ZA:=BARSLAST(A);
ZB:=BARSLAST(B);
LA:=REF(L,ZA);
HB:=REF(H,ZB);
EXPLAIN(多头趋势 AND C< LA, '§防守价跌破：多头小心'),COLORRED;
EXPLAIN(空头趋势 AND C>HB, '§防守价突破：空头小心'),COLORRED;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAINEX(多头趋势, 'MACD多头防守价:',LA,2,0),COLOR3399FF ;
EXPLAINEX(空头趋势, 'MACD空头防守价:',HB,2,0),COLOR3399FF ;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAIN((COUNT(C>REF(C,1),30)>18 AND (COUNT(C>REF(C,1),3)=3)) AND (COUNT(DEF< REF(DEF,1),30)>18),'§反转--股价将可能反转向下'),COLOR58FF58;
EXPLAIN((COUNT(C< REF(C,1),30)>18 AND (COUNT(C< REF(C,1),3)=3)) AND (COUNT(DEF>REF(DEF,1),30)>18),'§反转--股价将可能反转向上'),COLOR58FF58;
EXPLAIN(DEF<0 AND ABS(DEF)>REF(ABS(DEF),1),'§MACD绿柱增长'),COLOR58FF58;
EXPLAIN(DEF<0 AND ABS(DEF)< REF(ABS(DEF),1),'§MACD绿柱缩短'),COLOR58FF58;
EXPLAIN(DEF>0 AND DEF>REF(DEF,1),'§MACD红柱增长'),COLOR58FF58;
EXPLAIN(DEF>0 AND DEF< REF(DEF,1),'§MACD红柱缩短'),COLOR58FF58;
EX55188(L,60)=L) AND (NOT(LLV(MACD,60)=MACD)),'§底背离--属买入信号'),COLOR58FF58;
EXPLAIN((HHV(H,60)=H) AND (NOT(HHV(MACD,60)=MACD)),'§顶背离--属卖出信号'),COLOR58FF58;
EXPLAIN(CROSS(MACD,DIF) AND MACD<0,'§MACD在0轴下死叉'),COLOR58FF58;
EXPLAIN(CROSS(DIF,MACD) AND MACD<0,'§MACD在0轴下金叉'),COLOR58FF58;
EXPLAIN(CROSS(DIF,MACD),'§金叉--属买入信号'),COLOR58FF58;
EXPLAIN(CROSS(MACD,DIF),'§死叉--属卖出信号'),COLOR58FF58;
EXPLAIN(CROSS(DIF,MACD) AND MACD>0,'§MACD在0轴上金叉'),COLOR58FF58;
EXPLAIN(CROSS(MACD,DIF) AND MACD>0,'§MACD在0轴上死叉'),COLOR58FF58;
EXPLAIN(CROSS(DIF,MACD) AND CROSS(DEF,0),'§上穿0轴，可考虑买入'),COLOR58FF58;
EXPLAIN(FILTER(CROSS(DIF,MACD) AND MACD>0,13),'§高位金叉'),COLOR58FF58;
EXPLAIN(FILTER(CROSS(DIF,MACD) AND MACD<0,6),'§低位金叉'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(DIF,MACD) AND MACD>0,20)=2 AND CROSS(DIF,MACD) AND
MACD>0,'§0轴上二次金叉'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(DIF,MACD) AND MACD>0,20)=3 AND CROSS(DIF,MACD) AND MACD>0,'§0轴上三次金叉'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(DIF,MACD) AND MACD>0,20)=4 AND CROSS(DIF,MACD) AND MACD>0,'§0轴上四次金叉'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(MACD,DIF),20)=2 AND CROSS(MACD,DIF),'§二次死叉，跌幅可能较深'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(DIF,MACD),20)=2 AND CROSS(DIF,MACD),'§二次金叉，涨幅可能较大'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF>=0 AND DEF<=REF(DEF,1),'§上涨趋势有所减缓，短线投资者可逢高卖出，但当回落至均线或其他支撑位时应及时回补'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF>0 AND DEF>REF(DEF,1),'§目前正处于反弹阶段，应保持谨慎'),COLOR58FF58;
EXPLAIN(DEF>0 AND DIF>0 AND DIF>MACD AND DIF>REF(DIF,1) AND C>REF(C,1),'§上升趋势尚未改变'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF>0 AND DEF< REF(DEF,1),'§短线反弹已经结束，应继续坚持谨慎原则'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF<=0 AND DEF< REF(DEF,1),'§有加速下跌趋势'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF<=0 AND DEF>=REF(DEF,1),'§下跌趋势有所减缓，可在W&R指标大于90时逢低买入，但有可能再次加速下跌，注意及时止损'),COLOR58FF58;
EXPLAIN(DEF<0 AND DIF<0 AND DIF< MACD AND DIF< REF(DIF,1) AND C< REF(C,1),'§下降趋势尚未改变'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF>=0 AND DEF>REF(DEF,1),'§有加速上涨趋势'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF<0 AND DEF< REF(DEF,1),'§目前正处于回落整理阶段，且回落有加速趋势'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF<0 AND DEF>=REF(DEF,1),'§目前正处于回落整理阶段，但整理即将结束，可在均线或其他支撑位附近逢低买入，但当整理完成后选择再次向下突破时应注意及时止损'),COLOR58FF58;
EXPLAIN(DEF<-0.35,'§超卖中，随时有可能反弹'),COLOR58FF58;
EXPLAIN(DEF>0.35,'§股价超买中，随时有可能回档'),COLOR58FF58;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
G:=26;
S:=12;
CC:=CLOSE;
ESS:=EMA(CC,12);
EGG:=EMA(CC,12);
RDIF:=REF(DIF,1);
RSS:=REF(ESS,1);
RGG:=REF(EGG,1);
RMACD:=REF(MACD,1);
RDEF:=REF(DEF,1);
RZZZ:=(RMACD+((M+1)/(2*(M-1)))*RDEF);
XDIF:=((G-1)*(S+1)*RGG-(G+1)*(S-1)*RSS+(S+1)*(G+1)*RDIF)/(2*G-2*S);
XMACD:=((G-1)*(S+1)*RGG-(G+1)*(S-1)*RSS+(S+1)*(G+1)*RMACD)/(2*G-2*S);
XDEF:=((G-1)*(S+1)*RGG-(G+1)*(S-1)*RSS+(S+1)*(G+1)*RZZZ)/(2*G-2*S);
AA:=ISLASTBAR;
BB:=BACKSET(AA=1,1);
Y:=BARSLAST(BB=1);
X:=Y+1;
TDIF:=DIF*X;
TSS:=ESS*X;
TGG:=EGG*X;
TMACD:=MACD*X;
TDEF:=DEF*X;
TZZZ:=(TMACD+((M+1)/(2*(M-1)))*TDEF);
YDIF:=((G-1)*(S+1)*TGG-(G+1)*(S-1)*TSS+(S+1)*(G+1)*TDIF)/(2*G-2*S);
YMACD:=((G-1)*(S+1)*TGG-(G+1)*(S-1)*TSS+(S+1)*(G+1)*TMACD)/(2*G-2*S);
YDEF:=((G-1)*(S+1)*TGG-(G+1)*(S-1)*TSS+(S+1)*(G+1)*TZZZ)/(2*G-2*S);
EE:=1;
EXPLAINEX(EE=1,'DIF....今日转折：',XDIF,2,1),COLORCCFFFF ;
EXPLAINEX(EE=1,'MACD今日转折：',XMACD,2,1),COLOR3399FF ;
EXPLAINEX(EE=1,'DEF...今日转折：',XDEF,2,1),COLORFF9966 ;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAINEX(EE=1,'DIF....明日转折：',YDIF,2,1),COLORCCFFFF;
EXPLAINEX(EE=1,'MACD明日转折：',YMACD,2,1),COLOR3399FF;
EXPLAINEX(EE=1,'DEF...明日转折：',YDEF,2,1),COLORFF9966;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),colorcyan;
{MACD角>30}{n:0.05}
Var1:="MACD.DIFF"+1;
Var2:=BARSLAST(CROSS(Var1,1));
Var3:=(Var1-REF(Var1,Var2))/REF(Var1,Var2)/N/Var2;
Var4:=IF(Var1>=1,ATAN(Var3)/3.142*180,0);
MACD角大于30度: Var4>30, , {00050002};
附件
- 1.jpg (40.94 KB)
-
2007-10-20 20:05
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
6楼 大 中 小 发表于 2007-10-20 20:06 只看该作者
{MACD解盘指标}
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);0.10;
MACD: 2*(DIFF-DEA1),LINETHICK0;
s1:=MACD<ref(MACD,1)and MACD>0;
s2:=MACD<ref(MACD,1)/2 and MACD<0;
STICKLINE(MACD>=0,MACD,0,8,1),COLORRED;
STICKLINE(s1,0,MACD,8,1),COLOR00ffff;
STICKLINE(s2,0,MACD,8,0),COLORffffff;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,8,1),COLORffff00;
DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
MAC:3*DIFF-2*DEA1,LINETHICK1;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2), COLORSTICK;
EXPLAIN(趋势>0,'Z线趋势上升中');
EXPLAIN(趋势<0,'Z线趋势下降中');
EXPLAIN(cross(趋势,0),'Z线考虑买入');
EXPLAIN(cross(0,趋势),'Z线考虑卖出');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号');
EXPLAIN(cross(mdi,pdi),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号');
EXPLAIN(adx>ref(adx,1),'ADX值持续高于前一日，行情将维持原趋势');
M周▲:DRAWTEXT(CROSS("MACD.DIFF#WEEK" ,"MACD.DEA#WEEK"),DEA1,'▲M周'),COLORred;
M月个:DRAWTEXT(CROSS("MACD.DIFF#MONTH" ,"MACD.DEA#MONTH"),DEA1,'个M月'),COLORMAGENTA;
W1:=C<=MA(C,5) AND C<=MA(C,10) ;
W2:=O>MA(C,5) AND O>MA(C,10) ;
W3:=MA(V,5)<=MA(V,10);
W4:=diff<dea;
EXPLAIN(W1 AND W2,'断头铡刀:向下的趋势,不是洗盘就是将下跌,卖出')colorgreen;
EXPLAIN(W1 ,'5日均线死叉10均线,短线空头势力强大,卖出')coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,卖出')colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空头形成,卖出')colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉见顶,卖出')coloryellow;
EXPLAIN(W1 AND W3 AND W4 ,'多方溃败,空方强大,向下彻底形成,卖出')colorgreen;
DRAWTEXT(W1 AND W2 AND W3 AND W4,DIFF,'＃'),colorFFFF10;
EXPLAINEX(1=1,'换手率=',vol/CAPITAl*100,2,0);
explain((vol/CAPITAl)>0.075,'换手过大，小心主力出逃，短期头部');
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相对强弱RSI1=',RSI1,2,0);
EXPLAIN(RSI1>85,'6日RSI超买,防止回挡\n');
EXPLAIN(RSI1>80,'6日RSI向上突破85，超买,考虑卖出');
EXPLAIN(RSI1<15,'6日RSI超卖,随时有可能反弹');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超卖，考虑买入');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，买进信号');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，卖出信号');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理线,PSY=',psy,2,0);
EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,0);
EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,0);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水岭:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水岭（中长标）=',分水岭,2,0);
EXPLAIN(close>分水岭,'股价在分水岭之上,大势属多头,可积极做多');
EXPLAIN(close<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收敛中，有变盘的可能，上下自己分析\n');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖离太大，有反弹的可能\n');
{MACD实战1}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;
附件
- 1.jpg (37.9 KB)
-
2007-10-20 20:06
- 2.jpg (40.54 KB)
-
2007-10-20 20:06
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
7楼 大 中 小 发表于 2007-10-20 20:07 只看该作者
{MACD实战1.1}
input:LONG(26,20,100),SHORT(12,5,40),M(9,2,60);
DIFF:=(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG));
DEA:=EMA(DIFF,M);
MACD2:=(2 * (DIFF - DEA));
VERTLINE(((CLOSE < 0) AND CROSS(DIFF,0))),color80;
VERTLINE(((CLOSE < 0) AND CROSS(MACD2,0))),color80;
VERTLINE(((CLOSE < 0) AND CROSS(0,DIFF))),color808080;
VERTLINE(((CLOSE < 0) AND CROSS(0,MACD2))),color808080;
DU0:=CROSS(DIFF,0);
UD0:=CROSS(0,DIFF);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));
JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0));
JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0));
JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1));
JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1));
JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
BSLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));
DRAWICON((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),0,10),ALIGN4;
DRAWICON((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),0,11),ALIGN5;
STICKLINE((MACD2 >= 0),0,MACD2,6,1),colorFF;
STICKLINE(((MACD2 >= 0) AND (MACD2 < REF(MACD2,1))),0,MACD2,6,0),colorFF;
STICKLINE((MACD2 < 0),0,MACD2,6,0),colorFFFF00;
STICKLINE(((MACD2 < 0) AND (MACD2 > REF(MACD2,1))),0,MACD2,6,1),colorFFFF00;
DIF:DIFF,LINETHICK2,colorFFFF;
MACD:DEA,colorFF00;
DEF:MACD2,LINETHICK0,colorFFFF00;
STICKLINE((CLOSE > 0),0,0,10,0),color808080;
DEFUT:=BARSLAST(CROSS(MACD2,0));
DEFDT:=BARSLAST(CROSS(0,MACD2));
DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1)));
DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1)));
DEFU2L:=REF(DEFUL,(DEFUT + 1));
DEFD2L:=REF(DEFDL,(DEFDT + 1));
DRAWICON(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),MACD2,5),ALIGN0;
DRAWICON(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),MACD2,4);
DRAWICON(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),MACD2,12),ALIGN0;
DRAWICON(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),MACD2,12);
EXPLAIN(JDU2,'注意长线趋势空转多');
EXPLAIN(JUD2,'注意长线趋势多转空');
EXPLAIN((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),'长线为多头趋势');
EXPLAIN((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),'长线为空头趋势');
EXPLAINEX((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),'MACD多头防守价',BSLINE,2,1);
EXPLAINEX((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),'MACD空头防守价',BSLINE,2,1);
EXPLAIN(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (CLOSE < BSLINE)),'防守价跌破：多头小心');
EXPLAIN(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (CLOSE > BSLINE)),'防守价突破：空头小心');
EXPLAIN(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND CROSS(MACD2,0)),'空头注意今明两日高点压力\n找日落K线放空，用线控盘');
EXPLAIN(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND CROSS(0,MACD2)),'多头注意今明两日低点支撑\n找日出K线做多，用线控盘');
EXPLAIN(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),'DEF柱状特殊研判\n空头注意今明两日高点压力');
EXPLAIN(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),'DEF柱状特殊研判\n多头注意今明两日低点支撑');
EXPLAINEX((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),'空头注意压力',HHV(HIGH,2),2,1);
EXPLAIN((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),'找日落K线放空，用线控盘');
EXPLAINEX((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'多头注意支撑',LLV(LOW,2),2,1);
EXPLAIN((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'找日出K线进场，用线控盘');
EXPLAIN(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),'请注意DEF柱状缩头');
EXPLAIN(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),'请注意DEF柱状缩脚');
{MACD选股}
input:n(5,2,1000);
diff:=stkindi('','macd.diff',0,6);
dea:=stkindi('','macd.dea',0,6);
MACD:=stkindi('','macd.MACD',0,6);
T1:=REF(C,2)<REF(O,2) AND REF(C,2)<REF(C,3) AND C>O AND C>REF(C,1);
T2:=DIFF>DEA AND REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3);
T3:=DIFF<REFX(DIFF,1) AND REFX(DIFF,1)<REFX(DIFF,2);
{MACD优化}
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);0.10;
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2), COLORSTICK;
EXPLAIN(趋势>0,'Z线趋势上升中\n');
EXPLAIN(趋势<0,'Z线趋势下降中\n');
EXPLAIN(cross(趋势,0),'Z线考虑买入\n');
EXPLAIN(cross(0,趋势),'Z线考虑卖出\n');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'资金无入场意愿，萎缩中\n');
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'场内资金运作行为\n');
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空双方激烈争夺中\n');
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'场外资金介入（或出局）意愿强烈\n');
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号\n');
EXPLAIN(cross(mdi,pdi),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号\n');
EXPLAIN(adx>ref(adx,1),'ADX值持续高于前一日，行情将维持原趋势\n');
EXPLAIN(adx<ref(adx,1) and adx<20,'ADX值递减，降到20以下，且横向行进时，市场气氛为盘整\n');
EXPLAIN(adx<ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值从上升倾向转为下降时，表明行情即将反转\n');
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
EXPLAIN(1=1,'下面为:macd,KDJ,CCI,W&R,RSI,MTM等指标的判断:');
EXPLAINEX(1=1,'（中标）macd=',macd,2,1);
EXPLAIN(macd>0 and diff>0,'大势属多头市场\n');
EXPLAIN(macd>0.35,'超买中，随时有可能见顶回落\n');
EXPLAIN(macd<0 and diff<0,'大势属空头市场\n');
EXPLAIN(macd<-0.35,'超卖中，随时有可能反弹\n');
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o轴，可考虑买入\n');
EXPLAIN(cross(j,k) and k<50,'KDJ金叉\n');
EXPLAIN(cross(k,d) and k>70,'KDJ死叉\n');
EXPLAIN(j>84,'KDJ指标高位');EXPLAIN(j<16,'KDJ指标低位\n');
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指标底位，买入机会\n');
EXPLAIN(cci>180,'CCI指标高位，卖出机会\n');
EXPLAINEX(1=1,'（短标）cci=',cci,2,1);
EXPLAINEX(1=1,'换手率=',vol/CAPITAl*100,2,1);
explain((vol/CAPITAl)>0.075,'换手过大，小心主力出逃，短期头部\n');
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAINEX(1=1,'威廉指标（短标）=',wr,2,1);
explain(wr>-20,'W&R超买，短线即将见顶，应及时卖出\n');
explain(wr<-80,'W&R超卖，短线即将见底，应伺机买进\n');
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM从下向上突破MTMMA，买入信号\n');
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM从上向下跌破MTMMA，卖出信号\n');
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相对强弱RSI1=',RSI1,2,1);
EXPLAIN(RSI1>85,'6日RSI超买,防止回挡\n');
EXPLAIN(RSI1>80,'6日RSI向上突破85，超买,考虑卖出\n');
EXPLAIN(RSI1<15,'6日RSI超卖,随时有可能反弹\n');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超卖，考虑买入\n');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，买进信号\n');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，卖出信号\n');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理线,PSY=',psy,2,1);
EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,1);
EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,1);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水岭:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水岭（中长标）=',分水岭,2,1);
EXPLAIN(close>分水岭,'股价在分水岭之上,大势属多头,可积极做多\n');
EXPLAIN(close<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹\n');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收敛中，有变盘的可能，上下自己分析\n');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖离太大，有反弹的可能\n');
EXPLAIN(var58 and var56 and c<o ,'布林上下乖离太大，有回落的可能\n');
T1 AND T2 AND T3;
附件
- 1.jpg (43.82 KB)
-
2007-10-20 20:08
- 2.jpg (40.98 KB)
-
2007-10-20 20:08
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
8楼 大 中 小 发表于 2007-10-20 20:08 只看该作者
{MACD周叉 LONG 26 SHORT 12 MID 9 }
DIFF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORWHITE;
DEA:EMA(DIFF,M),COLORYELLOW;
MACD:(DIFF-DEA)*2,COLORSTICK;
周DIFF:MA("MACD.DIFF#WEEK"(LONG,SHORT,M),5),POINTDOT,LINETHICK1,COLORWHITE;
周DEA:MA("MACD.DEA#WEEK"(LONG,SHORT,M),5),POINTDOT,LINETHICK1,COLOR33FF99;
周金▲:DRAWTEXT(CROSS("MACD.DIFF#WEEK"(LONG,SHORT,M) ,"MACD.DEA#WEEK"(LONG,SHORT,M)),0,'▲'),COLORred;
周死▼:DRAWTEXT(CROSS("MACD.DEA#WEEK"(LONG,SHORT,M) ,"MACD.DIFF#WEEK"(LONG,SHORT,M)),0,'▼')COLORgreen;
月金个:DRAWTEXT(CROSS("MACD.DIFF#MONTH"(LONG,SHORT,M) ,"MACD.DEA#MONTH"(LONG,SHORT,M)),0,'个'),COLORMAGENTA;
月死丫:DRAWTEXT(CROSS("MACD.DEA#MONTH"(LONG,SHORT,M) ,"MACD.DIFF#MONTH"(LONG,SHORT,M)),0,'丫'),COLORYELLOW;
{MACD周期背离}
input:n(30,0.1,100);
dif:=stkindi('','macd.diff',0,6);
tj1:=c>ref(c,n) and dif<ref(dif,n);
tj2:=c<ref(c,n) and dif>ref(dif,n);
背离:tj1 or tj2;
aa:=BACKSET(背离,n);
PARTLINE(aa,c/10);
{变色MACD}
input: SHORT(5,1,1000), LONG(9,1,1000),M(26,1,1000);
DIFF : (EMA(CLOSE,SHORT) - EMA(CLOSE,LONG)),linethick2,colorgreen;
DEA : EMA(DIFF,M),colorcyan;
MACD:2*(DIFF-DEA), COLORSTICK;
tj:=(diff>dea);
tj1:=(diff>0);
PARTLINE(tj,diff),colormagenta,linethick2;
partline(tj1 and tj,diff),colorred,linethick2;
tj2:=diff<-1 and diff<dea and macd<-1;
partline(tj2,diff),colorblue,linethick2;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2-B1);
C1:=LLV(low,999999);
C2:=HHV(high,999999);
C3:=(C2-C1);
D:=B3/C3;
W1:=C<=MA(C,5) AND C<=MA(C,10) ;
W2:=O>MA(C,5) AND O>MA(C,10) ;
W3:=MA(V,5)<=MA(V,10);
W4:=diff<=dea;
EXPLAIN(W1 AND W2,'断头铡刀:向下的趋势,不是洗盘就是将下跌,卖出')colorgreen;
EXPLAIN(W1 ,'5日均线死叉10均线,短线空头势力强大,卖出')coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,卖出')colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空头形成,卖出')colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉见顶,卖出')coloryellow;
EXPLAIN(W1 AND W3 AND W4 ,'多方溃败,空方强大,向下彻底形成,卖出')colorgreen;
VERTLINE(W1 AND W2 AND W3 AND W4),colorgreen;
附件
- 1.jpg (42.84 KB)
-
2007-10-20 20:09
- 2.jpg (40.08 KB)
-
2007-10-20 20:09
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
9楼 大 中 小 发表于 2007-10-20 20:09 只看该作者
{变色MACD三死叉见顶}{
DIFF : (EMA(CLOSE,SHORT) - EMA(CLOSE,LONG)),linethick2,colorgreen;
DEA : EMA(DIFF,M),colorcyan;
MACD:2*(DIFF-DEA), COLORSTICK;
tj:=(diff>dea);
tj1:=(diff>0);
PARTLINE(tj,diff),colormagenta,linethick2;
partline(tj1 and tj,diff),colorred,linethick2;
tj2:=diff<-1 and diff<dea and macd<-1;
partline(tj2,diff),colorblue,linethick2;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2-B1);
C1:=LLV(low,999999);
C2:=HHV(high,999999);
C3:=(C2-C1);
D:=B3/C3;
W1:=C<=MA(C,5) AND C<=MA(C,10) ;
W2:=O>MA(C,5) AND O>MA(C,10) ;
W3:=MA(V,5)<=MA(V,10);
W4:=diff<=dea;
EXPLAIN(W1 AND W2,'断头铡刀:向下的趋势,不是洗盘就是将下跌,卖出')colorgreen;
EXPLAIN(W1 ,'5日均线死叉10均线,短线空头势力强大,卖出')coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,卖出')colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空头形成,卖出')colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉见顶,卖出')coloryellow;
EXPLAIN(W1 AND W3 AND W4 ,'多方溃败,空方强大,向下彻底形成,卖出')colorgreen;
VERTLINE(W1 AND W2 AND W3 AND W4),colorgreen;
{超级叠加MACD}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;
{超前MACD}
aaa:=(C-MA(CLOSE,13))*100;
j值A:EMA(MA(aaa,7),1),COLOR00ffff,PRECISION1;
j值B:EMA(j值A,7),COLORff33ff,PRECISION1;
macd:(j值A-j值B)*2,COLORSTICK;
tj:=(j值A>j值B);
tj1:=(j值A>0);
PARTLINE(tj,j值A),colormagenta,linethick2;
partline(tj1 and tj,j值A),colorred,linethick2;
tj2:=j值A<-1 and j值A<j值B and macd<-1;
partline(tj2,j值A),colorblue,linethick2;
{超前MACD1}
DIFF:=(C-MA(CLOSE,13))*100;
AA:EMA(MA(DIFF,7),1),COLOR00ffff;
BB:EMA(AA,7),COLORff33ff;
MACD: (AA-BB)*2,COLORSTICK；
[ 本帖最后由 小黑19 于 2007-10-20 20:11 编辑 ]
附件
- 3.jpg (41.84 KB)
-
2007-10-20 20:11
- 4.jpg (50.17 KB)
-
2007-10-20 20:11
- 5.jpg (40.46 KB)
-
2007-10-20 20:11
- 6.jpg (31.68 KB)
-
2007-10-20 20:11
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
10楼 大 中 小 发表于 2007-10-20 20:11 只看该作者
{多彩MACD}
{LONG=26 SHORT=12 M=9}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
s1:=MACD<ref(MACD,1)and MACD>0;
s2:=MACD<ref(MACD,1)/2 and MACD<0;
STICKLINE(MACD>=0,MACD,ref(MACD,2),1,1),COLORRED;
STICKLINE(s1,ref(MACD,2),MACD,1,1),COLOR00ffff;
STICKLINE(s2,ref(MACD,2),MACD,1,0),ColorFF0091;
STICKLINE(MACD>ref(MACD,2)and MACD<0,ref(MACD,1),MACD,1,1),COLORffff00;
s3:=BARSLAST(cross(diff,dea));
s4:=ref(s3,s3+1);
s5:=dea>ref(dea,s4);
s6:=dea<ref(dea,s4);
上成立:=cross(diff,dea) and s5;
下成立:=cross(diff,dea) and s6;
L1:=(EMA(CLOSE,3) - EMA(CLOSE,13));
L2:=EMA(L1,9);
L3:=BARSLAST(cross(L1,L2));
L4:=ref(L3,L3+1);
L5:=L2<ref(L2,L4);
变盘:cross(L1,L2) and L5,LINETHICK0,ColorD6FF9C;
STICKLINE(变盘,0.1,-0.1,2,1),ColorD6FF9C;
成立距今:BARSLAST(cross(diff,dea)),LINETHICK0;
L6:=BARSCOUNT(CLOSE);
DRAWICON(CROSS(L1,L2),DIFF,4);
DRAWICON(CROSS(L2,L1),DIFF,5);
ref(dea,s3),POINTDOT,COLORGREEN;{时间之窗}
IF(L1>L2,ref(dea,s3),0),POINTDOT,ColorB078FF;
IF(MACD<0,ref(dea,s3),0),POINTDOT,COLORGREEN;
VERTLINE(上成立),Color9D60FF;
VERTLINE(下成立),ColorFF0043;
VERTLINE(变盘),ColorD6FF9C;
{芳香MACD}
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA : EMA(DIFF,M);
MACD1 : 3*DIFF-2*DEA;
MACD2 : 2*(DIFF-DEA), COLORSTICK
{好看的MACD}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26),LINETHICK0;
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA),LINETHICK0;
PARTLINE(DIFF>REF(DIFF,1),DIFF),COLORRED;
PARTLINE(DIFF<REF(DIFF,1),DIFF),COLORGREEN;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,8,0),COLOR0000AA;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,5,0),COLOR0000CC;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,2.5,0),COLOR0000DD;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,8,0),COLOR0000AA;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,5,0),COLOR0077FF;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,3,0),COLOR00FFFF;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,8,0),COLORFF9900;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,5,0),COLORFFBB00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,3,0),COLORFFFF00;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,8,0),COLORFF0000;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,5,0),COLORFF4400;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,3,0),COLORFF8800;
{量价MACD}
OBV:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)/25000,1);
DIFF : EMA(obv,12) - EMA(obv,26),COLORYELLOW,LINETHICK2;
DEA : EMA(DIFF,9)COLORGREEN;
MACD : 2*(DIFF-DEA), ;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,5);
[ 本帖最后由 小黑19 于 2007-10-20 20:13 编辑 ]
附件
- 1.jpg (48.61 KB)
-
2007-10-20 20:13
- 2.jpg (34.21 KB)
-
2007-10-20 20:13
- 3.jpg (32.5 KB)
-
2007-10-20 20:13
- 5.jpg (38.47 KB)
-
2007-10-20 20:13
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
11楼 大 中 小 发表于 2007-10-20 20:14 只看该作者
{解盘}
MA5:MA(C,5) colorwhite;
MA10:MA(C,10)coloryellow;
POLYLINE(C,MA(C,20)) color999999;
MA30:MA(C,30)colorgreen;
POLYLINE(C,MA(C,45)) color999999;
MA60:MA(C,60)colormagenta;
POLYLINE(C,MA(C,90)) color999999;
MA120:MA(C,120)colorcyan;
POLYLINE(C,MA(C,150)) color999999;
POLYLINE(C,MA(C,180)) color999999;
POLYLINE(C,MA(C,210)) color999999;
MA250:MA(C,250)colorred;
VK:=SQRT(VOL/CAPITAL*100*5);
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;
EXPLAIN((MA5>MA10 and MA10>MA30 and MA5>MA30),'解：短期均线排列：多头')COLORred;
EXPLAIN((MA5<MA10 and MA10<MA30 and MA5<MA30),'解：短期均线排列：空头');
EXPLAIN((MA30>MA60 and MA30>MA120 and MA60>MA120),'解：中期均线排列：多头');
EXPLAIN((MA30<MA60 and MA30<MA120 and MA60<MA120),'解：中期均线排列：空头');
EXPLAIN((MA60>MA120 and MA120>MA250 and MA60>MA250),'解：长期均线排列：多头');
EXPLAIN((MA60<MA120 and MA120<MA250 and MA60<MA250),'解：长期均线排列：空头');
EXPLAIN((CROSS(MA5,MA10)),'解：短期均线5x10：金叉')COLORred;
EXPLAIN((CROSS(MA10,MA5)),'解：短期均线5x10：死叉');
EXPLAIN((CROSS(C,MA120)),'解：今日股价上穿半年线');
EXPLAIN((CROSS(MA120,C)),'解：今日股价跌破半年线');
EXPLAIN((CROSS(C,MA250)),'解：今日股价上穿一年线');
EXPLAIN((CROSS(MA250,C)),'解：今日股价跌破一年线');
EXPLAIN((CROSS(C,MA60) and CROSS(C,MA120) and CROSS(C,MA250)),'解：股价一阳上穿三线');
EXPLAIN((MA30>REF(MA30,1)),'解：30日均线趋势：向上');
EXPLAIN((MA30>REF(MA30,1) AND MA30<REF(MA30,1)*1.001),'解：30日均线趋势：走平');
EXPLAIN((MA30<REF(MA30,1)),'解：30日均线趋势：向下');
EXPLAIN((MA5>REF(MA5,1)*1.015),'解：5日均线：强劲向上');
EXPLAIN((MA5>REF(MA5,1) AND MA5<REF(MA5,1)*1.005),'解：5日均线：方向不明');
EXPLAIN((MA5<REF(MA5,1)*0.985),'解：5日均线：快速向下');
DIFF:=EMA(C,5)-EMA(C,20);
DEA:=EMA(DIFF,10);
MACD:=2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
DCJC:=JC AND DEA>0;
EXPLAIN((JC AND DEA>0),'解：MACD在0轴上金叉')COLORred;
EXPLAIN((JC AND DEA<0),'解：MACD在0轴下金叉');
EXPLAIN((SC AND DEA>0),'解：MACD在0轴上死叉');
EXPLAIN((SC AND DEA<0),'解：MACD在0轴下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解：MACD的红柱：增长');
EXPLAIN((MACD>0 AND MACD<REF(MACD,1)),'解：MACD的红柱：缩短');
EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的绿柱：增长');
EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'解：MACD的绿柱：缩短');
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解：0轴上金叉次数：2')COLORredCOLORred;
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解：0轴上金叉次数：3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解：0轴上金叉次数：4');
EXPLAINICON(HIGH>=HHV(HIGH,20), 'MyBMP');
EM5:EMA(C,5) colorwhite;
EM10:EMA(C,10)coloryellow;
POLYLINE(C,EMA(C,20)) color999999;
EM30:EMA(C,30)colorgreen;
POLYLINE(C,EMA(C,45)) color999999;
EM60:EMA(C,60)colormagenta;
POLYLINE(C,EMA(C,90)) color999999;
EM120:EMA(C,120)colorcyan;
POLYLINE(C,EMA(C,150)) color999999;
POLYLINE(C,EMA(C,180)) color999999;
POLYLINE(C,EMA(C,210)) color999999;
EM250:EMA(C,250)colorred;
FILLRGN(EMA(C,5)>EMA(C,10),EMA(C,5),EMA(C,10))COLOR6699FF;
FILLRGN(EMA(C,5)<EMA(C,10),EMA(C,5),EMA(C,10))COLORFF6666;
{VK:=SQRT(VOL/CAPITAL*100*5);}
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;
EXPLAIN((EM5>EM10 and EM10>EM30 and EM5>EM30),'解：短期均线排列：多头');
EXPLAIN((EM5<EM10 and EM10<EM30 and EM5<EM30),'解：短期均线排列：空头');
EXPLAIN((EM30>EM60 and EM30>EM120 and EM60>EM120),'解：中期均线排列：多头');
EXPLAIN((EM30<EM60 and EM30<EM120 and EM60<EM120),'解：中期均线排列：空头');
EXPLAIN((EM60>EM120 and EM120>EM250 and EM60>EM250),'解：长期均线排列：多头');
EXPLAIN((EM60<EM120 and EM120<EM250 and EM60<EM250),'解：长期均线排列：空头');
EXPLAIN((CROSS(EM5,EM10)),'解：短期均线5x10：金叉');
EXPLAIN((CROSS(EM10,EM5)),'解：短期均线5x10：死叉');
EXPLAIN((CROSS(C,EM120)),'解：今日股价上穿半年线');
EXPLAIN((CROSS(EM120,C)),'解：今日股价跌破半年线');
EXPLAIN((CROSS(C,EM250)),'解：今日股价上穿一年线');
EXPLAIN((CROSS(EM250,C)),'解：今日股价跌破一年线');
EXPLAIN((CROSS(C,EM60) and CROSS(C,EM120) and CROSS(C,EM250)),'解：股价一阳上穿三线');
EXPLAIN((EM30>REF(EM30,1)),'解：30日均线趋势：向上');
EXPLAIN((EM30>REF(EM30,1) AND EM30<REF(EM30,1)*1.001),'解：30日均线趋势：走平');
EXPLAIN((EM30<REF(EM30,1)),'解：30日均线趋势：向下');
EXPLAIN((EM5>REF(EM5,1)*1.015),'解：5日均线：强劲向上');
EXPLAIN((EM5>REF(EM5,1) AND EM5<REF(EM5,1)*1.005),'解：5日均线：方向不明');
EXPLAIN((EM5<REF(EM5,1)*0.985),'解：5日均线：快速向下');
EXPLAIN((JC AND DEA>0),'解：MACD在0轴上金叉');
EXPLAIN((JC AND DEA<0),'解：MACD在0轴下金叉');
EXPLAIN((SC AND DEA>0),'解：MACD在0轴上死叉');
EXPLAIN((SC AND DEA<0),'解：MACD在0轴下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解：MACD的红柱：增长');
EXPLAIN((MACD>0 AND MACD<REF(MACD,1)),'解：MACD的红柱：缩短');
EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的绿柱：增长');
EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'解：MACD的绿柱：缩短');
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解：0轴上金叉次数：2');
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解：0轴上金叉次数：3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解：0轴上金叉次数：4');
{世志MACD}
{M:1 100 26 M1:1 100 3 M2: 1 100 3}
Var1:=(CLOSE-LLV(LOW,m))/(HHV(HIGH,m)-LLV(LOW,m))*100-50,LINETHICK3;
K:SMA(Var1,m1,1),LINETHICK2,COLORFFFFAA;
D:SMA(K,m2,1),LINETHICK2,COLORBLUE;
MACD: 2*(K-D),LINETHICK3, COLORSTICK;
VAR2:=(CLOSE-LLV(LOW,85))/(HHV(HIGH,85)-LLV(LOW,85))*100-50,LINETHICK3;
底: SMA(Var2,5,1),COLOR9900FF,LINETHICK3;
45;
上:40,POINTDOT,COLORRED,LINETHICK3;
中:0,LINETHICK2,POINTDOT;
下:-40,LINETHICK3,POINTDOT,COLORGREEN;
-45;
{天堂星MACD实战YM}
MA3:=MA(CLOSE,3);
MA5:=MA(CLOSE,5);
MA7:=MA(CLOSE,7);
MA15:=MA(CLOSE,15);
ma30:=ma(close,30);
ma60:=ma(close,60),coloryellow;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
双线合一:=count(cross(diff,dea),2)=1 ;
短均线多头:=ma3>ma5 and ma5>ma7;
中均线多头:=ma15>ma30 and ma30>ma60;
aa:=双线合一 and 短均线多头 and filter(双线合一 and 短均线多头,2);
介入1:aa and diff<0.15;
介入2:aa and diff>macd and diff<0.15;
{新MACD金叉、死叉}
{MACD周叉 LONG 26 SHORT 12 MID 9 日线、周线、周&月金叉、死叉同一图}
input:LONG(26,26 ,26 ),SHORT(12,12 ,12), MID(9,9, 9 );
DIFF:指数平滑移动平均(收盘价,SHORT)-指数平滑移动平均(收盘价,LONG),COLORWHITE;
DEA:指数平滑移动平均(DIFF,MID),COLORYELLOW;
MACD:(DIFF-DEA)*2,彩色棒状线;
DEA:= 指数平滑移动平均(DIFF,9),COLORGREEN;
画分段线(DIFF>DEA,DIFF),COLORRED,LINETHICK2;
画分段线(DIFF>DEA AND DIFF<0,DIFF),COLORMAGENTA,LINETHICK2;
画图标(交叉函数(DIFF,DEA),DIFF,10);
画图标(交叉函数(DEA,DIFF),DIFF,11);
周DIFF:简单移动平均("MACD.DIFF#WEEK"(LONG,SHORT,MID),5),点状线,LINETHICK1,COLORWHITE;
周DEA:简单移动平均("MACD.DEA#WEEK"(LONG,SHORT,MID),5),点状线,LINETHICK1,COLOR33FF99;
周金▲:显示文字(交叉函数("MACD.DIFF#WEEK"(LONG,SHORT,MID) ,"MACD.DEA#WEEK"(LONG,SHORT,MID)),0,'▲'),COLORred;
周死▼:显示文字(交叉函数("MACD.DEA#WEEK"(LONG,SHORT,MID) ,"MACD.DIFF#WEEK"(LONG,SHORT,MID)),0,'▼')COLORgreen;
月金个:显示文字(交叉函数("MACD.DIFF#MONTH"(LONG,SHORT,MID) ,"MACD.DEA#MONTH"(LONG,SHORT,MID)),0,'个'),COLORMAGENTA;
月死丫:显示文字(交叉函数("MACD.DEA#MONTH"(LONG,SHORT,MID) ,"MACD.DIFF#MONTH"(LONG,SHORT,MID)),0,'丫'),Color00FFFF;
Jm:=CROSS(DIFF,DEA);
JmCount:=COUNT(Jm,BARSLAST(DEA>0));
次数:=NUMTOSTR(JmCount,0);
DRAWTEXT(DEA<0 AND Jm,0,'0轴下金叉'),colorgreen;{Macd在0轴线以下第}
DRAWNUMBER(DEA<0 AND Jm,0-0.1,JmCount,0);
附件
- 2.jpg (34.21 KB)
-
2007-10-20 20:15
- 3.jpg (59.5 KB)
-
2007-10-20 20:15
- 4.jpg (51.95 KB)
-
2007-10-20 20:15
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
12楼 大 中 小 发表于 2007-10-20 20:15 只看该作者
{新彩色MACD}
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),Color00FF00,LINETHICK2;
DEA1:=EMA(DIFF,9);
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),ColorFFFFFF,LINETHICK2;
PARTLINE(DIFF>DEA,DIFF),COLORMAGENTA,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORRED,LINETHICK2;DRAWICON(CROSS(DIFF,DEA),DIFF,4);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
a:=macd/4;
STICKLINE(a>=0,0,0+a,7,0),color00ffff;
STICKLINE(a>=0,0+a,0+2*a,7,0),color0099ff;
STICKLINE(a>=0,0+2*a,0+3*a,7,0),color0066ff;
STICKLINE(a>=0,0+3*a,macd,7,0),color0033ff;
STICKLINE(a<=0,0,a,7,0),COLORffff99;
STICKLINE(a<=0,0+a,2*a,7,0),COLORffcc66;
STICKLINE(a<=0,0+2*a,3*a,7,0),COLORff9966;
STICKLINE(a<=0,0+3*a,macd,7,0),COLORff9933;tj:=(diff>dea);
tj1:=(diff>0);
PARTLINE(tj,diff),colormagenta,linethick2;
partline(tj1 and tj,diff),colorred,linethick2;
tj2:=diff<-1 and diff<dea and macd<-1;
partline(tj2,diff),colorblue,linethick2;
{智能MACD}
DIFF:(EMA(CLOSE,3) - EMA(CLOSE,13)),colorred;
DEA:EMA(DIFF,9),colorff00ff;
MACD:0.9*(DIFF-DEA), COLORSTICK;
if(diff<0,diff,0),coloryellow,linethick1;
if(diff<0,0,diff),colorred,linethick1;
if(diff<dea,diff,dea),color00ff00,linethick1;
if(diff>dea,dea,dea),colorff00ff,linethick1;
aa:=cross(diff,dea);
二次金叉买就赢:0 ,LINETHICK0;
加仓要等绿变红:0 ,LINETHICK0;
时间之窗做参考:0 ,LINETHICK0;
见到死叉快点逃:0,LINETHICK0;
Var1:=(HIGH+LOW+CLOSE)/3;
Var2:=(EMA(Var1,2)+EMA(Var1,5)+EMA(Var1,8))/3;
Var3:=(EMA(Var1,6)+EMA(Var1,9)+EMA(Var1,12))/3;
Var4:=BARSCOUNT(CLOSE);
Var5:=HHV(HIGH,200);
Var6:=LLV(LOW,200);
Var7:=(Var5-Var6)/40;
Var8:=HIGH+Var7;
Var9:=LOW-Var7;
sjzc:=IF((Var4+0)/34=FLOOR((Var4+0)/34),50,0),COLORred,LINESTICK;
DRAWICON(sjzc ,0.09,1);
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,4);
DRAWICON(CROSS(DEA,DIFF),DIFF,2);
{主图MACD}
DIFF1:=EMA(CLOSE,4)-EMA(CLOSE,10);
DEA1:=EMA(DIFF1,5);
DIFF:DIFF1*4.5+EMA(C,4)*0.9,COLORWHITE;
DEA:DEA1*4.5+EMA(C,5)*0.9,COLORYELLOW;
STICKLINE(DIFF>DEA,DIFF,DEA,3,0),COLORmagenta;
STICKLINE(C>=O,C,O,7,0),COLORRED;
STICKLINE(C>=O,C,O,4,0),COLORB0B0FF;
aa:=STICKLINE(C>=O,C,O,2,0),COLORYELLOW;
STICKLINE(C>=O,H,L,0,0),COLORYELLOW;
STICKLINE(C<=O,C,O,7,0),COLORFF2020;
STICKLINE(C<=O,C,O,4,0),COLORFF6600;
BB:=STICKLINE(C<=O,C,O,2,0),COLORCYAN;
STICKLINE(C<=O,H,L,0,0),COLORCYAN;
附件
- 1.jpg (43.27 KB)
-
2007-10-20 20:16
- 2.jpg (41.9 KB)
-
2007-10-20 20:16
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
理想小六级同学
|
13楼 大 中 小 发表于 2007-10-20 20:17 只看该作者
{紫气MACD交易}{n:20}
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
V1:=EMA(EMA(CLOSE,n),n);
V2:=100*WINNER(CLOSE*0.95);
控盘力度:(V1-REF(V1,1))/REF(V1,1)*10,colorwhite,LINETHICK1;
无庄控盘:IF(控盘力度<0,控盘力度,0),LINETHICK2,COLOR00ff00,STICK;
有庄控盘:IF(控盘力度>REF(控盘力度,1) AND 控盘力度>0,控盘力度,0),LINETHICK2,COLORff00ff,STICK;
主力减仓:IF(控盘力度< REF(控盘力度,1) AND 控盘力度>0,控盘力度,0),LINETHICK2,COLOrBLUE,STICK;
高度控盘:IF(V2>50 AND COST(85)< CLOSE AND 控盘力度>0,控盘力度,0),LINETHICK2,COLORRED,STICK;
开始控盘:IF(CROSS(控盘力度,0),0.2,0),LINETHICK2,COLORFF00FF;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2), COLORSTICK;
趋势,colorred;
长期趋势:EMA(Var1,10)*(-1);
EXPLAIN(趋势>0,'Z线趋势上升中'),COLORRED;
EXPLAIN(趋势<0,'Z线趋势下降中'),COLORGREEN;
EXPLAIN(cross(趋势,0),'Z线考虑买入'),COLORCYAN;
EXPLAIN(cross(0,趋势),'Z线考虑卖出'),COLORCYAN;
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'资金无入场意愿，萎缩中'),COLORCYAN;
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'场内资金运作行为'),COLORRED;
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空双方激烈争夺中'),colorwhite;
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'场外资金介入（或出局）意愿强烈'),coloryellow;
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14),colormagenta;
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号'),COLORRED;
EXPLAIN(cross(mdi,pdi),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号'),COLORGREEN;
EXPLAIN(adx>ref(adx,1),'ADX值持续高于前一日，行情将维持原趋势'),coloryellow;
EXPLAIN(adx<ref(adx,1) and adx<20,'ADX值递减，降到20以下，且横向行进时，市场气氛为盘整'),colorwhite;
EXPLAIN(adx<ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值从上升倾向转为下降时，表明行情即将反转'),colorblue;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
EXPLAINEX(1=1,'（中标）macd=',macd,2,1),colorwhite;
EXPLAIN(macd>0 and diff>0,'大势属多头市场'),COLORRED;
EXPLAIN(macd>0.35,'超买中，随时有可能见顶回落'),COLORGREEN;
EXPLAIN(macd<0 and diff<0,'大势属空头市场'),coloryellow;
EXPLAIN(macd<-0.35,'超卖中，随时有可能反弹'),colorblue;
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o轴，可考虑买入');
EXPLAIN(cross(j,k) and k<50,'KDJ金叉'),coloryellow;
EXPLAIN(cross(k,d) and k>70,'KDJ死叉'),colorblue;
EXPLAIN(j>84,'KDJ指标高位');EXPLAIN(j<16,'KDJ指标低位'),COLORGREEN;
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指标底位，买入机会'),COLORRED;
EXPLAIN(cci>180,'CCI指标高位，卖出机会'),COLORGREEN;
EXPLAINEX(1=1,'（短标）cci=',cci,2,1),colorblue;
EXPLAINEX(1=1,'换手率=',vol/CAPITAl*100,2,1),COLORGREEN;
explain((vol/CAPITAl)>0.075,'换手过大，小心主力出逃，短期头部'),coloryellow;
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAINEX(1=1,'威廉指标（短标）=',wr,2,1),coloryellow;
explain(wr>-20,'W&R超买，短线即将见顶，应及时卖出'),colorblue;
explain(wr<-80,'W&R超卖，短线即将见底，应伺机买进'),colorwhite;
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM从下向上突破MTMMA，买入信号'),COLORRED;
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM从上向下跌破MTMMA，卖出信号'),COLORGREEN;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相对强弱RSI1=',RSI1,2,1),COLORRED;
EXPLAIN(RSI1>85,'6日RSI超买,防止回挡'),colorblue;
EXPLAIN(RSI1>80,'6日RSI向上突破85，超买,考虑卖出'),colormagenta;
EXPLAIN(RSI1<15,'6日RSI超卖,随时有可能反弹'),colorblue;
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超卖，考虑买入'),colormagenta;
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，买进信号'),COLORRED;
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，卖出信号'),colormagenta;
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理线,PSY=',psy,2,1),COLORGREEN;
EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,1),coloryellow;
EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,1),colorblue;
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水岭:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水岭（中长标）=',分水岭,2,1),coloryellow;
EXPLAIN(close>分水岭,'股价在分水岭之上,大势属多头,可积极做多'),COLORRED;
EXPLAIN(close<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹'),colorblue;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收敛中，有变盘的可能，上下自己分析'),coloryellow;
EXPLAIN(var57 and var56 and c>o ,'布林上下乖离太大，有反弹的可能'),COLORRED;
EXPLAIN(var58 and var56 and c<o ,'布林上下乖离太大，有回落的可能'),colorblue;
附件
- 1.jpg (50.45 KB)
-
2007-10-20 20:18
|
发短消息 加为好友
- 理想币
- 652 个
- 注册时间
- 2007-9-17
TOP
|
|
