通达信精准的买点主图指标(源码)

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(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));

[1] [2]  下一页