自己好久以前写的一个主图公式
p1:5; p2:13;p3:34 M:98; p:60; g:500; 密集度:90;
CYC1:0.01*EMA(AMOUNT,P1)/EMA(VOL,P1);
CYC2:0.01*EMA(AMOUNT,P2)/EMA(VOL,P2);
CYC3:0.01*EMA(AMOUNT,P3)/EMA(VOL,P3);
CYC∞:DMA(AMOUNT/(100*VOL),VOL/(100*FINANCE(7)));
全赢:cost(100),linethick0;
跟风:(c-cyc2)/cyc2*100,linethick0;
中线:(c-cyc3)/cyc3*100,linethick0;
DRAWICON(h>cost(100),h,8);
密集:="畴码密集.密集度";
密集位:if(密集>密集度,c,ref(c,barslast(密集>密集度))),colorblue;
大盘:indexc/(EMA(INDEXC,500)/EMA(C,500)),colorred;
stickline(密集位>ref(密集位,1),ref(密集位,1),ref(密集位,1),70,0),colorffffff;
stickline(密集位
DRAWICON(H>COST(97),COST(M),7);
DRAWICON(H>COST(P),COST(P),6);
DRAWTEXT(filter(cross(c,cost(0)*1.1),7),l*0.9,'盈亏临界'),COLORyellow,ALIGN0;
STICKLINE(sysparam(3)=barpos,ref(HHV(HIGH,10),1)*(1-0.0191),ref(HHV(HIGH,10),1)*(1-0.0191)+0.01,10,0),COLORYELLOW,SHIFT1;
DRAWTEXT(sysparam(3)=barpos,ref(HHV(HIGH,10),1)*(1-0.0191)*1.01,'止损:'+numtostr(ref(HHV(HIGH,10),1)*(1-0.0191),2)),COLORYELLOW,SHIFT2;
STICKLINE(sysparam(3)=barpos,ref(HHV(HIGH,10),1)*(1-0.0809),ref(HHV(HIGH,10),1)*(1-0.0809)+0.01,10,0),COLORyellow,SHIFT1;
DRAWTEXT(sysparam(3)=barpos,ref(HHV(HIGH,10),1)*(1-0.0809)*1.01,'止损:'+numtostr(ref(HHV(HIGH,10),1)*(1-0.0809),2)),COLORyellow,SHIFT2;
支点:=(ref(c,1)+ref(l,1)+ref(h,1))/3;
阻力:=2*支点-ref(l,1);
支撑:=2*支点-ref(h,1);
STICKLINE(sysparam(3)=barpos,支点,支点,10,0),COLORFFFFFF,SHIFT1;
DRAWTEXT(sysparam(3)=barpos,支点,'支点'),COLORFFFFFF,SHIFT2;
STICKLINE(sysparam(3)=barpos,阻力,阻力,10,0),COLORmagenta,SHIFT1;
DRAWTEXT(sysparam(3)=barpos,阻力,'阻力'),COLORmagenta,SHIFT2;
STICKLINE(sysparam(3)=barpos,支撑,支撑,10,0),COLORmagenta,SHIFT1;
DRAWTEXT(sysparam(3)=barpos,支撑,'支撑'),COLORmagenta,SHIFT2;
{周线寻马}
EMA7:=EMA(C,7),COLOR00FF00;
EMA14:=EMA(C,14),COLORWHITE;
EMA21:=EMA(C,21),COLORYELLOW;
ZMA7:=EMA(C,35),COLORFF00FF;
ZMA14:=EMA(C,70),COLORFFCCCC;
ZMA34:=EMA(C,170),COLORFFCC66;
VV0:=BARSLAST(CROSS(ZMA7,ZMA14) AND ZMA7>ZMA14);
VV1:=VV0 AND BARSLAST(CROSS(ZMA7,ZMA34));
VV2:=VV1 AND CROSS(ZMA14,ZMA34);
DRAWTEXT(VV2,L*0.95,'周线波一'),coloryellow;{双跨越信号显示9号图标为钱袋子}
VV3:=ZMA7>ZMA34 AND ZMA14>ZMA34;
VV4:=VV3 AND CROSS(ZMA7,ZMA14);
DRAWTEXT(VV4,L*0.95,'周线波二'),colorred;{第二波信号显示5号图标为黄色笑脸};
周线买点:vv2 or vv4 ,linethick0;
DRAWTEXTex(1,10,8,15,'■'+numtostr(m,0)+'%赢利'+numtostr(cost(m),2)),COLORYELLOW;
DRAWTEXTex(1,10,8,65,'■当前赢利'+numtostr(winner(c)*100,1)),COLORRED;
DRAWTEXTex(1,10,8,115,'■拉升成本'+numtostr(cost(p),2)),COLORGREEN;
DRAWTEXTex(1,10,8,165,'■控盘成本'+numtostr(cost(30),2)),COLORFF0000;
DRAWTEXTex(1,10,8,215,'■主力成本'+numtostr(cost(4),2)),COLORFF00FF;
DRAWTEXTex(1,10,8,265,'■底部位置'+numtostr(cost(0.05),2)),COLORFFFFCC;
DRAWTEXtex(1,10,500,960,BLKNAME),colorcccccc;
Var1:=WINNER(CLOSE*0.900)*100;
Var2:=VOL/CAPITAL*100;
Var3:=Var1-Var2;
DRAWTEXTex(Var3<1,10,770,850,'■极弱股'),COLORYELLOW;
DRAWTEXTex(Var3>=1 AND Var3<5,10,770,850,'■弱势股'),COLORYELLOW;
DRAWTEXTex(Var3>=5 AND Var3<10,10,770,850,'■转型股'),COLORYELLOW;
DRAWTEXTex(Var3>=10 AND Var3<25,10,770,850,'■强势股'),COLORYELLOW;
DRAWTEXTex(Var3>=25,10,770,850,'■主升浪'),COLORYELLOW;
{现金流量表判处境}
处境:="■现金流量判处境.级别";
DRAWTEXTex(处境=2,10,770,800,'■级别:初创期'),coloryellow;
DRAWTEXTex(处境=3,10,770,800,'■级别:发展期'),coloryellow;
DRAWTEXTex(处境=4,10,770,800,'■级别:成熟还债期'),coloryellow;
DRAWTEXTex(处境=5,10,770,800,'■级别:成熟无债期'),coloryellow;
DRAWTEXTex(处境=1,10,770,800,'■级别:难以判断'),coloryellow;
DRAWTEXTex(处境=0,10,770,800,'■级别:衰退还债期'),coloryellow;
DRAWICON("千钧控盘系数.买点"=1,h*1.01,1);
DRAWICON("●复合金叉●.月金叉">0,l*0.99,10);
DRAWICON("●复合金叉●.周金叉">0,l*0.99,4);
DRAWICON("●复合金叉●.日金叉">0,l*0.99,4);
c1:=(3*c+o+l+h)/6;{均价}
ma1:=ma(c,60);
ma2:=ma(c,120);
c2:=max(ma1,ma2);
c3:=min(ma1,ma2);
牛熊:=if(c1>c2,1,if(c1
DRAWTEXTex(牛熊=0.8,10,770,900,'■2&3区间,安全系数80'),COLORYELLOW;
DRAWTEXTex(牛熊=0.6,10,770,900,'■2-3区间,安全系数60'),COLORYELLOW;
DRAWTEXTex(h>=CYC2*1.1,10,770,700,'■注意短期赢利10%:目前'+numtostr((c-cyc2)/cyc2*100,2)+'%'),COLORgray;
DRAWTEXTex(h>=CYC3*1.2,10,770,750,'■注意中期赢利20%:目前'+numtostr((c-cyc3)/cyc3*100,2)+'%'),COLORgreen;
EXPLAIN(1,'
●山人模型:'),COLORRED;
EXPLAIN(1,'
弱势侧重楼梯(资金6:4)
强势侧重涨停(资金4:6)
看大盘、盯板块、找领头羊');
EXPLAIN(1,'
●操作步骤:'),COLORGREEN;
EXPLAIN(1,'
板块理论异动分析
↓
楼梯形态或涨停形态异动分析
↓
量价射线寻找突破时的进入点
↓
楼梯形态根据大周期均线理论卖出,涨停形态根据动能理论卖出');
EXPLAIN(1,'
●特别注意:'),colormagenta;
EXPLAIN(1,'
判别主动、远离被动');
EXPLAIN(1,'
●山人理论:'),coloryellow;
EXPLAIN(1,'
板块理论、
停板理论(异动、洗盘、反转拉伸-N字型拐点)、
射线理论、动能理论、
下坠吊杆、上翘撑杆、
1/2时空理论、攻城密码
');
- 上一篇:有很多人要的水手突破 飞狐版.源码 2014/8/13
- 下一篇:缠论指标源码 2014/8/13