当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：全息九宫格，可能你没见过的公式 学习九宫写法 源码分享
软件名称：[B]全息九宫格，可能你没见过的公式 学习九宫写法 源码分享[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2020-06-06 00:12:55
软件简介:
主要是学习公式的写法
{画全息九宫格横线，间隔为是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);
WWWFXJGSWCOM:=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;
{分析家公式网 WWW.70822.com 整理}
[url=http://www.70822.com/soft/sort013/sort05/down-148255.html]全息九宫格，可能你没见过的公式 学习九宫写法 源码分享[/url]