四合一,KDJ,MACD,RSI,WR
-
相关简介：C/C++ Code 复制内容到剪贴板 {四合一,KDJ,MACD,RSI,WR} RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:SMA(RSV,3,1),linethick0,colorwhite; D:SMA(K,3,1),linethick0,coloryellow; J:3*K-2*D,linethick0,colorgreen; DIFF:(EMA(CLOSE,12)-EMA(CLOSE,26
-
文章来源：择股网作者：股海网发布时间：2009-09-26浏览次数：
C/C++ Code复制内容到剪贴板
- {四合一,KDJ,MACD,RSI,WR}
- RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
- K:SMA(RSV,3,1),linethick0,colorwhite;
- D:SMA(K,3,1),linethick0,coloryellow;
- J:3*K-2*D,linethick0,colorgreen;
- DIFF:(EMA(CLOSE,12)-EMA(CLOSE,26)),linethick0,COLOR6666FF;
- DEA:EMA(DIFF,9),colorFF0000,LINETHICK0;
- MACD:2*(DIFF-DEA),linethick0;
- LC:=REF(CLOSE,1);
- RSI12:SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100,linethick0,colorFFFF00;
- WR:-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),linethick0,colorFF00FF;
- a:=SYSPARAM(3)-SYSPARAM(2)+1;
- jh:=hhv(max(k,max(d,j)),a);
- jl:=llv(min(k,min(d,j)),a);
- diffh:=hhv(max(diff,max(dea,macd)),a);
- diffl:=llv(min(diff,min(dea,macd)),a);
- rh:=hhv(RSI12,a);
- rl:=llv(RSI12,a);
- wh:=hhv(WR,a);
- wl:=llv(WR,a);
- b1:=SYSPARAM(3)-barpos;
- hlast:=refx(max(max(jh,wh),max(diffh,rh)),b1);
- llast:=refx(min(min(jl,wl),min(diffl,rl)),b1);
- hl:=hlast-llast;
- jhl:=refx(jh,b1)-refx(jl,b1);
- diffhl:=refx(diffh,b1)-refx(diffl,b1);
- rhl:=refx(rh,b1)-refx(rl,b1);
- whl:=refx(wh,b1)-refx(wl,b1);
- hl2:=hlast+llast;
- jhl2:=refx(jh,b1)+refx(jl,b1);
- diffhl2:=refx(diffh,b1)+refx(diffl,b1);
- rhl2:=refx(rh,b1)+refx(rl,b1);
- whl2:=refx(wh,b1)+refx(wl,b1);
- jp:=hl/jhl;
- diffp:=hl/diffhl;
- rp:=hl/rhl;
- wp:=hl/whl;
- AAAAAAAA:1000000000000000000000000000000000000,colorblack,linethick0;
- DIFF2:(DIFF-diffhl2/2)*diffp+hl2/2,color0066FF;
- DEA2:(DEA-diffhl2/2)*diffp+hl2/2,colorFF0000,LINETHICK1;
- PARTLINE(C>0,DIFF2),COLOR6666FF;
- FILLRGN(DIFF>=DEA,DIFF2,DEA2),COLOR6666FF;
- FILLRGN(DIFF<=DEA,DIFF2,DEA2),colorFF0000;
- MACD2:=(MACD-diffhl2/2)*diffp+hl2/2;
- k0:(0-diffhl2/2)*diffp+hl2/2,LINEDOT,COLORGRAY;
- STICKLINE(MACD2>k0,k0,macd2,1,0),colorred;
- STICKLINE(not(MACD2>k0),k0,macd2,1,0),colorwhite;
- k2:(k-jhl2/2)*jp+hl2/2,colorwhite;
- d2:(d-jhl2/2)*jp+hl2/2,coloryellow;
- j2:(j-jhl2/2)*jp+hl2/2,colorgreen;
- rsi2:(rsi12-rhl2/2)*rp+hl2/2,colorFFFF00,linethick2;
- wR2:(wR-whl2/2)*wp+hl2/2,colorFF00FF,linethick2;
- k3:=hl/4;
- k4:=jhl/4;
- STICKLINE(islastbar,hlast,llast,2,0),shift1,colorwhite;
- STICKLINE(islastbar,llast,llast,8,0),shift1,colorwhite;
- STICKLINE(islastbar,k3+llast,k3+llast,8,0),shift1,colorwhite;
- STICKLINE(islastbar,k3*2+llast,k3*2+llast,8,0),shift1,colorwhite;
- STICKLINE(islastbar,k3*3+llast,k3*3+llast,8,0),shift1,colorwhite;
- STICKLINE(islastbar,hlast,hlast,8,0),shift1,colorwhite;
- DRAWNUMBER(islastbar,llast,jl,0),shift2,colorwhite;
- DRAWNUMBER(islastbar,k3+llast,k4+jl,0),shift2,colorwhite;
- DRAWNUMBER(islastbar,k3*2+llast,k4*2+jl,0),shift2,colorwhite;
- DRAWNUMBER(islastbar,k3*3+llast,k4*3+jl,0),shift2,colorwhite;
- DRAWNUMBER(islastbar,hlast,jh,0),shift2,colorwhite;
- DRAWTEXT(islastbar,hlast-k3/2,'KDJ用'),shift1,coloryellow;
- 15,COLOR99FF00,POINTDOT,linethick3;
下载链接：( 说明：股海资源如需解压密码的请输入本站域名：www.guhai.com.cn请仔细输入！）
|
☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:
现在就去充值积分
加入VIP可下载100以下的所有资源
栏目导航