自己好久以前写的一个主图公式

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(密集位<ref(密集位,1),ref(密集位,1),ref(密集位,1),30,0),colorffffff;

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<c3,0.6,if(c1>c3 and c1<c2,0.8,0)));{2+3区间，返回1；2-3区间，返回0.6；2&3区间，返回0.8}
DRAWTEXTex(牛熊=1,10,770,900,■2+3区间，安全系数100),COLORYELLOW;
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时空理论、攻城密码
);