建仓成本估算 可估计回踩成本 通达信主图指标 源码 贴图

全息成本曲线:SUM(CLOSE*VOL,0)/SUM(VOL,0),COLORRED,LINETHICK2;
全息成本直线:=REFDATE(SUM(CLOSE*VOL,0)/SUM(VOL,0),DATE),COLORRED,LINETHICK2;

市场成本曲线:DMA(AMOUNT/(100*VOL),VOL/CAPITAL),COLORBROWN,LINETHICK2;
市场成本直线:=REFDATE(CONST(DMA(AMOUNT/(100*VOL),VOL/CAPITAL)),DATE),COLORBROWN,LINETHICK2;


机构成本曲线:COST(50),COLORRED,COLORMAGENTA,LINETHICK2;
机构成本直线:=REFDATE(CONST(COST(50)),DATE),COLORMAGENTA,LINETHICK2;



高点:=REFDATE(CONST(REF(HHV(H,0),0)),DATE),DOTLINE;
低点:=REFDATE(CONST(REF(LLV(L,0),0)),DATE),DOTLINE;

GD:=CONST(FINDHIGH(H,0,高点*10,1));
DD:=CONST(FINDLOW(L,0,低点*10,1));
GT:=CONST(BARSLAST(GD=H))+1;
DT:=CONST(BARSLAST(DD=L))+1;
SH:=CONST(IF(GT=1,H,REF(H,GT-1)));
SL:=CONST(IF(DT=1,L,REF(L,DT-1)));
CC:=IF(DT>GT,DT,GT);
CD:=INTPART(CC-(DT+GT)/2);
CG:=IF(高点>CD,CD/2,高点);

上涨周期:IF(CURRBARSCOUNT<=DT,BARSLAST(DD=L),DRAWNULL),COLORBROWN,NODRAW;
上涨幅度:IF(CURRBARSCOUNT<=DT,C/SL*100-100,DRAWNULL),NODRAW,COLORRED;
上涨均价:=IF(CURRBARSCOUNT<=DT,SUM(AMOUNT,DT)/SUM(V,DT)/100,DRAWNULL),NODRAW,COLORGRAY;
上涨换手:IF(CURRBARSCOUNT<=DT,SUM(HSL.HSL,DT),DRAWNULL),COLORMAGENTA,NODRAW;

下跌周期:BARSLAST(GD=H),COLORBLACK,NODRAW;
下跌幅度:IF(CURRBARSCOUNT<=GT,C/SH*100-100,DRAWNULL),NODRAW,COLORRED;
下跌均价:=IF(CURRBARSCOUNT<=GT,SUM(AMOUNT,GT)/SUM(V,GT)/100,DRAWNULL),NODRAW,COLORGRAY;
下跌换手:IF(CURRBARSCOUNT<=GT,SUM(HSL.HSL,GT),DRAWNULL),COLORBLUE,NODRAW;


{竖线表示统计起点位置}

上限:=CONST(HHV(H,0));
下限:=CONST(LLV(L,0));
STICKLINE(CURRBARSCOUNT=DT,上限,下限,1,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=GT,上限,下限,1,0),COLORGRAY;



拉升起点:=REFDATE(CONST(REF(LLV(L,0),0)),DATE)*1.0,DOTLINE;
{拉升起点:=REFDATE(CONST(COST(0.001)),DATE)*1.00,DOTLINE;}

拉升10%:=拉升起点*1.1,DOTLINE;
拉升20%:=拉升10%*1.1,DOTLINE;
拉升30%:=拉升20%*1.1,DOTLINE;
拉升40%:=拉升30%*1.1,DOTLINE;
拉升50%:=拉升40%*1.1,DOTLINE;
拉升60%:=拉升50%*1.1,DOTLINE;
拉升70%:=拉升60%*1.1,DOTLINE;
拉升80%:=拉升70%*1.1,DOTLINE;
拉升90%:=拉升80%*1.1,DOTLINE;
拉升100%:=拉升90%*1.1,DOTLINE;
拉升110%:=拉升100%*1.1,DOTLINE;
拉升120%:=拉升110%*1.1,DOTLINE;
拉升130%:=拉升120%*1.1,DOTLINE;
拉升140%:=拉升130%*1.1,DOTLINE;
拉升150%:=拉升140%*1.1,DOTLINE;
拉升160%:=拉升150%*1.1,DOTLINE;
拉升170%:=拉升160%*1.1,DOTLINE;
拉升180%:=拉升170%*1.1,DOTLINE;
拉升190%:=拉升180%*1.1,DOTLINE;
拉升200%:=拉升190%*1.1,DOTLINE;


拉升210%:=拉升200%*1.1,DOTLINE;
拉升220%:=拉升210%*1.1,DOTLINE;
拉升230%:=拉升220%*1.1,DOTLINE;
拉升240%:=拉升230%*1.1,DOTLINE;
拉升250%:=拉升240%*1.1,DOTLINE;
拉升260%:=拉升250%*1.1,DOTLINE;
拉升270%:=拉升260%*1.1,DOTLINE;
拉升280%:=拉升270%*1.1,DOTLINE;
拉升290%:=拉升280%*1.1,DOTLINE;
拉升300%:=拉升290%*1.1,DOTLINE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升起点,'拉升起点'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升10%,'拉升10%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升20%,'拉升20%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升30%,'拉升30%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升40%,'拉升40%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升50%,'拉升50%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升60%,'拉升60%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升70%,'拉升70%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升80%,'拉升80%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升90%,'拉升90%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升100%,'拉升100%'),COLORGRAY;

DRAWTEXT(CURRBARSCOUNT=DT,拉升110%,'拉升110%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升120%,'拉升120%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升130%,'拉升130%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升140%,'拉升140%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升150%,'拉升150%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升160%,'拉升160%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升170%,'拉升170%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升180%,'拉升180%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升190%,'拉升190%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升200%,'拉升200%'),COLORGRAY;

DRAWTEXT(CURRBARSCOUNT=DT,拉升210%,'拉升210%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升220%,'拉升220%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升230%,'拉升230%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升240%,'拉升240%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升250%,'拉升250%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升260%,'拉升260%'),COLORGRAY;

DRAWTEXT(CURRBARSCOUNT=DT,拉升270%,'拉升270%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升280%,'拉升280%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升290%,'拉升290%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=DT,拉升300%,'拉升300%'),COLORGRAY;


回踩起点:=REFDATE(CONST(REF(HHV(H,0),0)),DATE)*1.0,DOTLINE;
{回踩起点:=REFDATE(CONST(COST(99.999)),DATE)*1.0,DOTLINE;}

回踩10%:=回踩起点*0.90,DOTLINE;
回踩20%:=回踩10%*0.90,DOTLINE;
回踩30%:=回踩20%*0.90,DOTLINE;
回踩40%:=回踩30%*0.90,DOTLINE;
回踩50%:=回踩40%*0.90,DOTLINE;
回踩60%:=回踩50%*0.90,DOTLINE;
回踩70%:=回踩60%*0.90,DOTLINE;
回踩80%:=回踩70%*0.90,DOTLINE;
回踩90%:=回踩80%*0.90,DOTLINE;
回踩100%:=回踩90%*0.90,DOTLINE;

回踩110%:=回踩100%*0.90,DOTLINE;
回踩120%:=回踩110%*0.90,DOTLINE;
回踩130%:=回踩120%*0.90,DOTLINE;
回踩140%:=回踩130%*0.90,DOTLINE;
回踩150%:=回踩140%*0.90,DOTLINE;
回踩160%:=回踩150%*0.90,DOTLINE;
回踩170%:=回踩160%*0.90,DOTLINE;
回踩180%:=回踩170%*0.90,DOTLINE;
回踩190%:=回踩180%*0.90,DOTLINE;
回踩200%:=回踩190%*0.90,DOTLINE;


回踩210%:=回踩200%*0.90,DOTLINE;
回踩220%:=回踩210%*0.90,DOTLINE;
回踩230%:=回踩220%*0.90,DOTLINE;
回踩240%:=回踩230%*0.90,DOTLINE;
回踩250%:=回踩240%*0.90,DOTLINE;
回踩260%:=回踩250%*0.90,DOTLINE;
回踩270%:=回踩260%*0.90,DOTLINE;
回踩280%:=回踩270%*0.90,DOTLINE;
回踩290%:=回踩280%*0.90,DOTLINE;
回踩300%:=回踩290%*0.90,DOTLINE;
{WWW.GPXIAZAI.COM}

DRAWTEXT(CURRBARSCOUNT=GT,回踩起点,'回踩起点'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩10%,'回踩10%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩20%,'回踩20%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩30%,'回踩30%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩40%,'回踩40%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩50%,'回踩50%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩60%,'回踩60%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩70%,'回踩70%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩80%,'回踩80%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩90%,'回踩90%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩100%,'回踩100%'),COLORGRAY;

DRAWTEXT(CURRBARSCOUNT=GT,回踩110%,'回踩110%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩120%,'回踩120%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩130%,'回踩130%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩140%,'回踩140%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩150%,'回踩150%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩160%,'回踩160%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩170%,'回踩170%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩180%,'回踩180%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩190%,'回踩190%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩200%,'回踩200%'),COLORGRAY;

DRAWTEXT(CURRBARSCOUNT=GT,回踩210%,'回踩210%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩220%,'回踩220%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩230%,'回踩230%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩240%,'回踩240%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩250%,'回踩250%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩260%,'回踩260%'),COLORGRAY;

DRAWTEXT(CURRBARSCOUNT=GT,回踩270%,'回踩270%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩280%,'回踩280%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩290%,'回踩290%'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=GT,回踩300%,'回踩300%'),COLORGRAY;



DRAWTEXT(YEAR!=REF(YEAR,1),HIGH+0.3,VARCAT(VAR2STR(YEAR,0),' 年 ')),COLORGRAY;
STICKLINE(YEAR!=REF(YEAR,1)=1,CONST(HHV(H,0)),CONST(LLV(L,0)),0,-1),COLORGRAY;

{画K线}

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);


NN:=5;
LL:=REF(L,1);
HH:=REF(H,1);
SQK:=L>HH;
XQK:=H<LL;
向上跳空:IF(SQK=1,L-HH,DRAWNULL),COLORMAGENTA,CROSSDOT,LINETHICK3,NODRAW;
向下跳空:IF(XQK=1,H-LL,DRAWNULL),COLORBLUE,CROSSDOT,LINETHICK3,NODRAW;
QK:=IF(L>REF(H,1),L-REF(H,1),IF(H<REF(L,1),REF(L,1)-H,DRAWNULL));
DRAWNUMBER(L>REF(H,1),L,QK);
DRAWNUMBER(H<REF(L,1),H,QK);
DRAWTEXT(SQK,L*0.95,' 上跳'),COLORMAGENTA;
DRAWTEXT(XQK,H*1.05,' 下跳'),COLORBLUE;
STICKLINE(SQK,L,HH,4*NN,1),COLORMAGENTA;
STICKLINE(XQK,H,LL,4*NN,2),COLORBLUE;


DRAWKLINE(HIGH,OPEN,LOW,CLOSE);