|
论坛版主
   
指标公式版主 - 帖子
- 3206
- 积分
- 15905
- 威望
- 0
- 注册时间
- 2007-4-11
|
12楼
大 中
小 发表于 2008-3-4 09:15 只看该作者
引用:有位网友要找的 彩色MACD 原码!
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);
MACD: 2*(DIFF-DEA1);
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);
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);
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');
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');
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'); [ 本帖最后由 蓝鼠 于 2008-3-8 09:13 编辑 ]
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。
|