主要是学习公式的写法
{画全息九宫格横线,间隔为是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;
|