反转上升结构趋势,波段类(通达信公式 副图 源码 测试图)全息九宫格,可能你没见过的公式 学习九宫写法 源码分享

 2023-04-21 21:36:09    通达信指标网  

主要是学习公式的写法

 
{画全息九宫格横线,间隔为是0%}
DRAWRECTREL(0,000,999,005,RGB(255,0,50)),NOFRAME;
DRAWRECTREL(0,100,999,105,RGB(255,0,100)),NOFRAME;
DRAWRECTREL(0,200,999,205,RGB(255,0,150)),NOFRAME;
DRAWRECTREL(0,300,999,305,RGB(255,0,200)),NOFRAME;
DRAWRECTREL(0,400,999,405,RGB(255,0,250)),NOFRAME;
 
DRAWRECTREL(0,500,999,505,RGB(250,250,250)),NOFRAME;
 
DRAWRECTREL(0,600,999,605,RGB(0,255,250)),NOFRAME;
DRAWRECTREL(0,700,999,705,RGB(0,255,200)),NOFRAME;
DRAWRECTREL(0,800,999,805,RGB(0,255,150)),NOFRAME;
DRAWRECTREL(0,900,999,905,RGB(0,255,100)),NOFRAME;
DRAWRECTREL(0,900,999,905,RGB(0,255,100)),NOFRAME;
DRAWRECTREL(0,990,999,995,RGB(0,255,50)),NOFRAME;
DRAWRECTREL(0,996,999,999,RGB(0,255,50)),NOFRAME;
 
{画全息九宫格竖线,间隔为五天}
 
QT1:=MOD(BARSLAST(BARSCOUNT(C)=5-1),5);
QHH:=CONST(HHV(H,0));QLL:=CONST(LLV(L,0));
STICKLINE(QT1=0,QHH,QLL,0.01,0);
T:=TOTALBARSCOUNT-CURRBARSCOUNT+1;
T5:=MOD(T,5);TXT:=IF(T5=0,'5T','');
DRAWTEXT(T5=0 AND PERIOD=5,L*0.98,TXT);
 
 
 
{画右侧空间距离色块,普通等系坐标,自下而上,颜色越深风险越大}
DRAWRECTREL(990,0.1,1000,009,RGB(255,0,0)),NOFRAME;      {6}
DRAWRECTREL(990,1,1000,99,RGB(255,0,50)),NOFRAME;       {5}
DRAWRECTREL(990,100,1000,199,RGB(255,0,100)),NOFRAME;  {4}
DRAWRECTREL(990,200,1000,299,RGB(255,0,150)),NOFRAME;  {3}
DRAWRECTREL(990,300,1000,399,RGB(255,0,200)),NOFRAME;  {2}
DRAWRECTREL(990,400,1000,499,RGB(255,0,250)),NOFRAME;  {1}
DRAWRECTREL(990,500,1000,599,RGB(255,0,255)),NOFRAME;  {0}
DRAWRECTREL(990,600,1000,699,RGB(0,255,250)),NOFRAME;  {1}
DRAWRECTREL(990,700,1000,799,RGB(0,255,200)),NOFRAME;  {2}
DRAWRECTREL(990,800,1000,899,RGB(0,255,150)),NOFRAME;  {3}
DRAWRECTREL(990,900,1000,999,RGB(0,255,100)),NOFRAME;  {4}
DRAWRECTREL(990,999,1000,1001,RGB(0,255,50)),NOFRAME ;   {5}
DRAWRECTREL(990,999.9,1000,1099,RGB(0,255,0)),NOFRAME;    {6};
 
 
{画左侧空间距离色块,普通等系坐标,自下而上,颜色越深风险越大}
DRAWRECTREL(0,0.1,10,009,RGB(255,0,0)),NOFRAME;      {6}
DRAWRECTREL(0,1,10,99,RGB(255,0,50)),NOFRAME;       {5}
DRAWRECTREL(0,100,10,199,RGB(255,0,100)),NOFRAME;  {4}
DRAWRECTREL(0,200,10,299,RGB(255,0,150)),NOFRAME;  {3}
DRAWRECTREL(0,300,10,399,RGB(255,0,200)),NOFRAME;  {2}
DRAWRECTREL(0,400,10,499,RGB(255,0,250)),NOFRAME;  {1}
DRAWRECTREL(0,500,10,599,RGB(255,0,255)),NOFRAME;  {0}
DRAWRECTREL(0,600,10,699,RGB(0,255,250)),NOFRAME;  {1}
DRAWRECTREL(0,700,10,799,RGB(0,255,200)),NOFRAME;  {2}
DRAWRECTREL(0,800,10,899,RGB(0,255,150)),NOFRAME;  {3}
DRAWRECTREL(0,900,10,999,RGB(0,255,100)),NOFRAME;  {4}
DRAWRECTREL(0,999,10,1001,RGB(0,255,50)),NOFRAME ;   {5}
DRAWRECTREL(0,999.9,10,1099,RGB(0,255,0)),NOFRAME;    {6};
 
{画九格等分坐标}
最高点:=REFDATE(CONST(REF(HHV(H,0),0)),DATE),LINETHICK1,COLORMAGENTA;
最低点:=REFDATE(CONST(REF(LLV(L,0),0)),DATE),LINETHICK1,COLORGREEN;
 
高低价差:=(最高点-最低点),DOTLINE;
区间1:=最高点-高低价差*0.90,DOTLINE;
区间2:=最高点-高低价差*0.80,DOTLINE;
区间3:=最高点-高低价差*0.70,DOTLINE;
区间4:=最高点-高低价差*0.60,DOTLINE;
区间5:=最高点-高低价差*0.50,DOTLINE;
区间6:=最高点-高低价差*0.40,DOTLINE;
区间7:=最高点-高低价差*0.30,DOTLINE;
区间8:=最高点-高低价差*0.20,DOTLINE;
区间9:=最高点-高低价差*0.10,DOTLINE;
 
{用文字来描述空间位置,便于快速识别}
 
DRAWTEXT(CURRBARSCOUNT=1,最低点,'          最低点位'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间1,'           低位一区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间2,'           低位二区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间3,'           低位三区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间4,'           中位四区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间5,'           中位五区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间6,'           中位六区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间7,'           高位七区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间8,'           高位八区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,区间9,'           高位九区'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,最高点,'          最高点位'),COLORWHITE;
{重画K线} 
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
WWW70822COM:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
ZT:=C>REF(C,1)*1.090 AND C<REF(C,1)*1.105;
DT:=C<REF(C,1)*0.901 AND C>REF(C,1)*0.898;
STICKLINE(ZT,C,O,4,0),COLORRED;
STICKLINE(DT,C,O,4,0),COLORGREEN;
DRAWTEXT(ZT,L-0.1,'涨停'),COLORRED;
DRAWTEXT(DT,H+0.3,'跌停'),COLORGREEN;

STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORYELLOW;


  •  标签:  

原文链接:https://www.tdxzb.com/?id=1224

本文版权:如无特别标注,本站文章均为原创。

相关文章

服务热线

18020657357

微信客服

微信客服