MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;
牛线:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORYELLOW;
马线:MA(牛线,6),COLORGREEN;
五日线:MA(CLOSE,5),CIRCLEDOT,COLOR0000FF;
HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=BACKSET(AA,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H);{顶部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORYELLOW,LINETHICK1;
DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLORGREEN,DOTLINE;
DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORWHITE,DOTLINE;{公式分割线};
{以下为单阳不破公式}
阳涨幅:=10;{可自调4-10}
阳倍量:=1.90;{王子倍量倍数}
单阳:=C>O*(1+阳涨幅/100) AND vol>REF(VOL,1)*阳倍量;
LS0:=BARSLAST(单阳);
不破价:=REF(L,LS0);
DRAWTEXT(单阳,L-L*0.02,'阳后放量+题材'),COLOR00FFFF;
位置1:=不破价 *0.998;
位置2:=不破价 *0.97;
位置3:=不破价 *0.94;
LS11:=IF(1,LS0=1,单阳);
LS21:=IF(1,LLV(L,1)>REF(L,1),1);
单阳不破:=LS11 AND LS21;
STICKLINE(单阳不破,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破,位置3,'1'),COLORGREEN;
LS12:=IF(2,LS0=2,单阳);
LS22:=IF(2,LLV(L,2)>REF(L,2),1);
单阳不破2:=LS12 AND LS22;
STICKLINE(单阳不破2,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破2,位置3,'2'),COLORGREEN;
LS13:=IF(3,LS0=3,单阳);
LS23:=IF(3,LLV(L,3)>REF(L,3),1);
单阳不破3:=LS13 AND LS23;
STICKLINE(单阳不破3,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破3,位置3,'3'),COLORGREEN;
LS14:=IF(4,LS0=4,单阳);
LS24:=IF(4,LLV(L,4)>REF(L,4),1);
单阳不破4:=LS14 AND LS24;
STICKLINE(单阳不破4,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破4,位置3,'4'),COLORGREEN;
LS15:=IF(5,LS0=5,单阳);
LS25:=IF(5,LLV(L,5)>REF(L,5),1);
单阳不破5:=LS15 AND LS25;
STICKLINE(单阳不破5,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破5,位置3,'5'),COLORGREEN;
LS16:=IF(6,LS0=6,单阳);
LS26:=IF(6,LLV(L,6)>REF(L,6),1);
单阳不破6:=LS16 AND LS26;
STICKLINE(单阳不破6,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破6,位置3,'6'),COLORGREEN;
LS17:=IF(7,LS0=7,单阳);
LS27:=IF(7,LLV(L,7)>REF(L,7),1);
单阳不破7:=LS17 AND LS27;
STICKLINE(单阳不破7,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破7,位置3,'7'),COLORGREEN;
LS18:=IF(8,LS0=8,单阳);
LS28:=IF(8,LLV(L,8)>REF(L,8),1);
单阳不破8:=LS18 AND LS28;
STICKLINE(单阳不破8,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破8,位置3,'8'),COLORGREEN;
LS19:=IF(9,LS0=9,单阳);
LS29:=IF(9,LLV(L,9)>REF(L,9),1);
单阳不破9:=LS19 AND LS29;
STICKLINE(单阳不破9,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破9,位置3,'9'),COLORGREEN;
LS110:=IF(10,LS0=10,单阳);
LS210:=IF(10,LLV(L,10)>REF(L,10),1);
单阳不破10:=LS110 AND LS210;
STICKLINE(单阳不破10,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破10,位置3,'10'),COLORGREEN;
{分割}
DRAWTEXT_FIX(1,0.37,0,0,'所属板块:'),COLORLIBLUE;
DRAWTEXT_FIX(1,0.43,0,0,HYBLOCK),COLORWHITE;
DRAWTEXT_FIX(1,0.49,0,0,DYBLOCK),COLORWHITE;
DRAWTEXT_FIX(1,0.55,0,0,FGBLOCK),COLORWHITE;
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
上市日期:=STRCAT(' 上市日期: ',CON2STR(FINANCE(42),0));
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
{}
市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));
{}
X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};
X3:=FINANCE(23)/FINANCE(10)*3.3;
X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
X5:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=X1+X2+X3+X4+X5;
预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警'));
财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3))));
优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};
现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额，理论上越大越好但不同行业有不同标准};
财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(财务预警,优质资产率),现金负债比));
{}
DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,财务系数),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLORRED;
{数字第二位是左右，第三是上下}
DRAWTEXT_FIX(1,0.8,0.2,0,'留意板块 '),COLORLIRED;
DRAWTEXT_FIX(1,0.15,0.2,0,'炒股就是炒预期 '),COLORLIBLUE;
DRAWTEXT_FIX(1,0,0.2,0,' 解析：'),COLORRED;
DRAWTEXT_FIX(1,0,0.25,0,' 红色线为长短期顶部'),COLORLIGREEN;
DRAWTEXT_FIX(1,0,0.3,0,' 黄色实心k线是超短信号，出现信号买,有赚就跑'),COLORLIGREEN;
DRAWTEXT_FIX(1,0,0.35,0,' 3、'),COLORLIGREEN;
DRAWTEXT_FIX(1,0,0.4,0,' 4、'),COLORLIGREEN;
{顶底}
短顶:HHV(H,20),COLORRED;
长顶:HHV(H,60),COLORRED;
DRAWKLINE(H,O,L,C);
{中买}
MA6:=MA(C,5);MA18:=MA(CLOSE,18);MA13:=MA(C,13);
A:=(3*C+L+O+H)/6;
VAR1:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
mtm:=C-REF(C,1);CB:=EMA(VAR1,13);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(Abs(MTM),6),6);
卖:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND crOSS(MA(DX,2),DX);
DRAWTEXT(FILTER(卖=1,1),HIGH*1.01,'卖'),COLORDD0000;
买:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2));
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'中'),COLOR00DDDD;
加仓:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;
DRAWTEXT(FILTER((CROSS(加仓,0) OR CROSS(CLOSE,CB)) AND 买=1,3),LOW-0.03,' ↖←←㈩'),COLORWHITE;
{今买明卖}
A1:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,20) AND MA(C,20)>MA(C,60);
A2:=C/REF(C,1)>=HHV(C/REF(C,1),10) ;
A3:=MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1) ;
A4:=MA(C,20)>REF(MA(C,20),1) AND MA(C,60)>REF(MA(C,60),1);
A5:=V>REF(V,1) AND REF(V,1)>REF(V,2) AND H/C<1.01 AND REF(C>O,1);
A6:=(3*CLOSE+OPEN+LOW+HIGH)/6;
A7:=(20*A6+19*REF(A6,1)+18*REF(A6,2)+17*REF(A6,3)+16*REF(A6,4)
+15*REF(A6,5)+14*REF(A6,6)+13*REF(A6,7)+12*REF(A6,8)+11*REF(A6,9)
+10*REF(A6,10)+9*REF(A6,11)+8*REF(A6,12)+7*REF(A6,13)+6*REF(A6,14)
+5*REF(A6,15)+4*REF(A6,16)+3*REF(A6,17)+2*REF(A6,18)+REF(A6,20))/210;
A8:=BARSLAST(CROSS(A7,MA(A7,5)))<6;
STICKLINE(A1 AND A2 AND A3 AND A4 AND A5 AND A8,C,O,1.5,0),COLORYELLOW;
