分享(KDJ+MACD+CCI+RSI)
-
相关简介:C/C++ Code 复制内容到剪贴板 DRAWGBK(C=C,COLORRGB(130,130,130),COLORRGB(30,30,30),1); LC:=REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*400-200; FILLRGN(rsi1-60,rsi1,-60),COLOR6699cc; FILLRGN(rsi1-60,rsi1,-60),COLORGRAY; RS
-
文章来源:择股网作者:股海网发布时间:2009-07-31浏览次数:
C/C++ Code复制内容到剪贴板
- DRAWGBK(C=C,COLORRGB(130,130,130),COLORRGB(30,30,30),1);
- LC := REF(CLOSE,1);
- RSI1:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*400-200;
- FILLRGN(rsi1>-60,rsi1,-60),COLOR6699cc;
- FILLRGN(rsi1<-60,rsi1,-60),COLORGRAY;
- RSI:SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100,LINETHICK0;
- //////////
- DI := (EMA(CLOSE,12) - EMA(CLOSE,26))*100;
- DE := EMA(DI,9);
- MACD := 2*(DI-DE);
- ////////////
- RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*400-200;
- K1:=SMA(RSV,3,1),COLORMAGENTA,LINETHICK2;
- D1:=SMA(K1,3,1),COLORGREEN,LINETHICK0;
- J1:=3*K1-2*D1,COLORYELLOW,LINETHICK2;
- FILLRGN(j1<k1,j1,k1),ColorFF0000;
- FILLRGN(j1>k1,j1,k1),COLORMAGENTA;
- FILLRGN(k1>d1,d1,k1),COLORYELLOW;
- FILLRGN(k1<d1,d1,k1),COLORCYAN;
- ///////////
- {红柱}
- STICKLINE(macd>0 and macd>ref(macd,1),macd,0,3,0),COLOR0000AA;
- STICKLINE(macd>0 and macd>ref(macd,1),macd,0,2.7,0),COLOR0000BB;
- STICKLINE(macd>0 and macd>ref(macd,1),macd,0,2.3,0),COLOR0000CC;
- STICKLINE(macd>0 and macd>ref(macd,1),macd,0,2,0),COLOR0000CC;
- STICKLINE(macd>0 and macd>ref(macd,1),macd,0,1.6,0),COLOR0000DD;
- STICKLINE(macd>0 and macd>ref(macd,1),macd,0,1.2,0),COLOR0000EE;
- STICKLINE(macd>0 and macd>ref(macd,1),macd,0,0.8,0),COLOR0000FF;
- STICKLINE(macd>0 and macd>ref(macd,1),macd,0,0.5,0),COLORRED;
- {黄柱}
- STICKLINE(macd>0 and macd<ref(macd,1),macd,0,3,0),color0090FF;
- STICKLINE(macd>0 and macd<ref(macd,1),macd,0,2.7,0),color009FFF;
- STICKLINE(macd>0 and macd<ref(macd,1),macd,0,2.3,0),color00a6FF;
- STICKLINE(macd>0 and macd<ref(macd,1),macd,0,2,0),color00b5FF;
- STICKLINE(macd>0 and macd<ref(macd,1),macd,0,1.6,0),color00c4FF;;
- STICKLINE(macd>0 and macd<ref(macd,1),macd,0,1.2,0),Color00d3ff;
- STICKLINE(macd>0 and macd<ref(macd,1),macd,0,0.8,0),color00e2FF;
- STICKLINE(macd>0 and macd<ref(macd,1),macd,0,0.5,0),color00FFFF;
- {蓝柱}
- STICKLINE(macd<0 and macd<ref(macd,1),macd,0,3,0),COLORFF0000;
- STICKLINE(macd<0 and macd<ref(macd,1),macd,0,2.7,0),COLORFF3300;
- STICKLINE(macd<0 and macd<ref(macd,1),macd,0,2.3,0),COLORFF5500;
- STICKLINE(macd<0 and macd<ref(macd,1),macd,0,2,0),COLORFF7700;
- STICKLINE(macd<0 and macd<ref(macd,1),macd,0,1.6,0),COLORFF9900;
- STICKLINE(macd<0 and macd<ref(macd,1),macd,0,1.2,0),COLORFFBB00;
- STICKLINE(macd<0 and macd<ref(macd,1),macd,0,0.8,0),COLORFFDD00;
- STICKLINE(macd<0 and macd<ref(macd,1),macd,0,0.5,0),COLORFFFF00;
- {粉柱}
- STICKLINE(macd<0 and macd>ref(macd,1),macd,0,3,0),ColorFF00a9;
- STICKLINE(macd<0 and macd>ref(macd,1),macd,0,2.7,0),ColorFF00a1;
- STICKLINE(macd<0 and macd>ref(macd,1),macd,0,2.3,0),ColorFF00aa;
- STICKLINE(macd<0 and macd>ref(macd,1),macd,0,2,0),ColorFF00bb;
- STICKLINE(macd<0 and macd>ref(macd,1),macd,0,1.6,0),ColorFF00cc;
- STICKLINE(macd<0 and macd>ref(macd,1),macd,0,1.2,0),ColorFF00dd;
- STICKLINE(macd<0 and macd>ref(macd,1),macd,0,0.8,0),ColorFF00ee;
- STICKLINE(macd<0 and macd>ref(macd,1),macd,0,0.5,0),ColorFF00ff;
- ///////////
- PARTLINE(di>=de or di<de,di),COLORbb,LINETHICK2;
- PARTLINE(di>=de or di<de,de),COLORWHITE,LINETHICK1;
- DIFF : (EMA(CLOSE,12) - EMA(CLOSE,26)),COLORbb,LINETHICK0;
- DEA : EMA(DIFF,9),COLORWHITE,LINETHICK0;
- ///////////
- RSV1:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
- K:SMA(RSV1,3,1),Color330700,LINETHICK0;
- D:SMA(K,3,1),COLORCYAN,LINETHICK0;
- J:3*K-2*D,COLORMAGENTA,LINETHICK0;
- //////////
- TYP:=(HIGH+LOW+CLOSE)/3;
- CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),LINETHICK2,COLORGREEN;
- //////////
- DRAWICON(cross(k1,d1),d1,12),ALIGN0;
- DRAWICON(cross(d1,k1),d1,11),ALIGN0;
- 200,COLORGREEN,LINEDOT;
- 150,COLORWHITE,POINTDOT;
- 100,COLORWHITE,POINTDOT;
- 0,COLORGRAY,LINETHICK2;
- -100,COLORWHITE,POINTDOT;
- -150,COLORWHITE,POINTDOT;
- -200,COLORRED,LINEDOT;
下载链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn请仔细输入!)
|