曲线型移花宫（通达信公式 主图 源码 测试图）

 {曲线型移花宫}

最高点:REFDATE(CONST(REF(HHV(H,0),0)),DATE),LINETHICK1,COLORMAGENTA;

最低点:REFDATE(CONST(REF(LLV(L,0),0)),DATE),LINETHICK1,COLORGREEN;

 

分界线:COST(50),COLORYELLOW,LINETHICK3;

建仓线:COST(20),COLORBLUE,LINETHICK3;

基准线:DMA(AMOUNT/(100*VOL),VOL/CAPITAL),COLORMAGENTA,LINETHICK2; 

 

GD:=CONST(FINDHIGH(H,0,最高点*10,1));

GT:=CONST(BARSLAST(GD=H))+1;

DD:=CONST(FINDLOW(L,0,最低点*10,1));

DT:=CONST(BARSLAST(DD=L))+1;

 

上行1号线:基准线*1.10,DOTLINE;

上行2号线:上行1号线*1.10,DOTLINE;

上行3号线:上行2号线*1.10,DOTLINE;

上行4号线:上行3号线*1.10,DOTLINE;

上行5号线:上行4号线*1.10,DOTLINE;

上行6号线:上行5号线*1.10,DOTLINE;

上行7号线:上行6号线*1.10,DOTLINE;

上行8号线:上行7号线*1.10,DOTLINE;

上行9号线:上行8号线*1.10,DOTLINE;

 

下行1号线:基准线*0.90,DOTLINE;

下行2号线:下行1号线*0.90,DOTLINE;

下行3号线:下行2号线*0.90,DOTLINE;

下行4号线:下行3号线*0.90,DOTLINE;

下行5号线:下行4号线*0.90,DOTLINE;

下行6号线:下行5号线*0.90,DOTLINE;

下行7号线:下行6号线*0.90,DOTLINE;

下行8号线:下行7号线*0.90,DOTLINE;

下行9号线:下行8号线*0.90,DOTLINE;

 

 

{画K线} 

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

 

 

{拉升起点:=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;

拉升99.99%:=拉升90%*1.1,DOTLINE;

拉升110%:=拉升99.99%*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,基准线,'拉升起点'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升10%,'拉升10%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升20%,'拉升20%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升30%,'拉升30%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升40%,'拉升40%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升50%,'拉升50%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升60%,'拉升60%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升70%,'拉升70%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升80%,'拉升80%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升90%,'拉升90%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升99.99%,'拉升99.99%'),COLORWHITE;

 

DRAWTEXT(CURRBARSCOUNT=DT,拉升110%,'拉升110%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升120%,'拉升120%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升130%,'拉升130%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升140%,'拉升140%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升150%,'拉升150%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升160%,'拉升160%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升170%,'拉升170%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升180%,'拉升180%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升190%,'拉升190%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升200%,'拉升200%'),COLORWHITE;

 

DRAWTEXT(CURRBARSCOUNT=DT,拉升210%,'拉升210%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升220%,'拉升220%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升230%,'拉升230%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升240%,'拉升240%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升250%,'拉升250%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升260%,'拉升260%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升270%,'拉升270%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升280%,'拉升280%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升290%,'拉升290%'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=DT,拉升300%,'拉升300%'),COLORWHITE;

 

{回踩起点:=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;

回踩99.99%:=回踩90%*0.90,DOTLINE;

 

回踩110%:=回踩99.99%*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;

 

 

 

DRAWTEXT(CURRBARSCOUNT=GT,基准线,'回踩起点'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩10%,'回踩10%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩20%,'回踩20%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩30%,'回踩30%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩40%,'回踩40%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩50%,'回踩50%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩60%,'回踩60%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩70%,'回踩70%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩80%,'回踩80%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩90%,'回踩90%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩99.99%,'回踩99.99%'),COLORYELLOW;

 

DRAWTEXT(CURRBARSCOUNT=GT,回踩110%,'回踩110%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩120%,'回踩120%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩130%,'回踩130%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩140%,'回踩140%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=GT,回踩150%,'回踩150%'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT

p202062612154424378.jpg