{私募机构职业操盘}
魔鬼趋势顶线:SMA(AMOUNT/VOL/100,13,1)*1.15,COLORYELLOW,linethick2;
魔鬼趋势底线:SMA(AMOUNT/VOL/100,13,1)*0.85,COLORGREEN,linethick2;
市场持股成本:DMA(AMOUNT/V/100,V/CAPITAL),COLORRED;
aa:=v>ref(v,1) and cross(c,ma(c,10)) and ma(c,10)>ref(ma(c,10),1);
DRAWICON(FILTER(aa,3),l,1);
bb:=v>ref(v,1) and cross(c,ma(c,20)) and ma(c,20)>ref(ma(c,20),1);
DRAWICON(FILTER(bb,3),l,2);
cc:=v>ref(v,1) and cross(c,ma(c,30)) and ma(c,30)>ref(ma(c,30),1);
DRAWICON(FILTER(cc,3),l,3);
dd:=v>ref(v,1) and cross(c,ma(c,60)) and ma(c,60)>ref(ma(c,60),1);
DRAWICON(FILTER(dd,3),l,4);
ee:=v>ref(v,1) and cross(c,ma(c,90)) and ma(c,90)>ref(ma(c,90),1);
DRAWICON(FILTER(dd,3),l,6);
DRAWICON(CROSS(C,市场持股成本),L-0.20,1),ALIGN1;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
DRAWICON(B1>0,L-0.20,5);
DRAWTEXT(B1,L-0.30,'MACD底背'),COLORWHITE,ALIGN1;
DRAWICON(B2>0,L-0.20,4),ALIGN1;
DRAWTEXT(B2,L-0.30,'KDJ底背'),COLORFF00FF,ALIGN1;
DRAWICON(B3>0,L-0.20,3),ALIGN1;
DRAWTEXT(B3,L-0.30,'RSI底背'),COLORYELLOW,ALIGN1;
DRAWICON(CROSS(DIFF,DEA) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),L-0.20,6),ALIGN1;
DRAWTEXT(CROSS(DIFF,DEA) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),L-0.30,'金叉共振'),COLOR0099FF,ALIGN1;
aa:=o>ref(c,1) and v>ref(v,1) and cross(c,ma(c,10));DRAWICON(aa,l,1);
bb:=o>ref(c,1) and v>ref(v,1) and cross(c,ma(c,20));DRAWICON(bb,l,2);
cc:=o>ref(c,1) and v>ref(v,1) and cross(c,ma(c,30));DRAWICON(cc,l,3);
dd:=o>ref(c,1) and v>ref(v,1) and cross(c,ma(c,60));DRAWICON(dd,l,4);
ee:=o>ref(c,1) and v>ref(v,1) and cross(c,ma(c,90));DRAWICON(dd,l,6);
{以下显示叠加指针的数值}
k:"kdj.k",linethick,COLORWHITE;
d:"kdj.d",linethick0,COLORYELLOW;
r1:"rsi.rsi1",linethick0,ColorC080FF;
r2:"rsi.rsi2",linethick0,ColorFF8080;
r3:"rsi.rsi3",linethick0,Color87F8F4;
f:"macd.diff",linethick0,Color72C072;
a:"macd.dea",linethick0,ColorE98210;
m:"macd.macd",linethick0,COLORWHITE;
{以下定义叠加区间(在这里是可见K线的范围)}
q:=SYSPARAM(3)-SYSPARAM(2);
p:=SYSPARAM(3);
{以下计算叠加比和叠加平移量}
{1、叠加字段高度}
kh:=hhv(h,q);
kL:=LLv(L,q);
dh:=hhv(max(k,d),q);
dL:=LLv(min(k,d),q);
mh:=hhv(max(f,a),q);
mL:=LLv(max(f,a),q);
rh:=hhv(max(max(r1,r2),r3),q);
rL:=LLv(min(min(r1,r2),r3),q);
{2、叠加比}
bd:=(kh-kL)/(dh-dL)/3;
bm:=(kh-kL)/(mh-mL)/3;
br:=(kh-kL)/(rh-rL)/3;
{3、叠加平移量}
wk:=(kh-kL)/3;
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
wm:=(kh+kL-(mh+mL)*bm)/2;
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
{以下画叠加线}
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
STICKLINE(m<0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORGREEN;
{以下画叠加指针的横坐标线}
PARTLINE(1,wm[p]),COLORWHITE;
PARTLINE(1,20*br[p]+wr[p]),COLORGREEN,POINTDOT;
PARTLINE(1,80*br[p]+wr[p]),COLORred,POINTDOT;
PARTLINE(1,50*br[p]+wr[p]),COLORYELLOW,POINTDOT;
PARTLINE(1,20*bd[p]+wd[p]),COLORGREEN,POINTDOT;
PARTLINE(1,80*bd[p]+wd[p]),COLORred,POINTDOT;
PARTLINE(1,50*bd[p]+wd[p]),COLORYELLOW,POINTDOT;
{以下显示叠加指针的横坐标值}
DRAWTEXT(p=BARPOS,(80*br[p]+wr[p])*1.015,'80\nrsi')COLORWHITE,ALIGN0;
DRAWTEXT(p=BARPOS,(50*br[p]+wr[p])*1.015,'50\nrsi')COLORWHITE,ALIGN0;
DRAWTEXT(p=BARPOS,(20*br[p]+wr[p])*1.015,'20\nrsi')COLORWHITE,ALIGN0;
DRAWTEXT(p=BARPOS,(20*bd[p]+wd[p])*1.015,'20\nkdj')COLORWHITE,ALIGN0;
DRAWTEXT(p=BARPOS,(50*bd[p]+wd[p])*1.015,'50\nkdj')COLORWHITE,ALIGN0;
DRAWTEXT(p=BARPOS,(80*bd[p]+wd[p])*1.015,'80\nkdj')COLORWHITE,ALIGN0;
DRAWTEXT(p=BARPOS,wm[p]*1.015,'0\nmacd')COLORWHITE,ALIGN0;A:=BACKSET(ISLASTBAR,BARSLAST(CROSS(K,D))+1);{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
