|
|
|
楼主 |
发表于 2014-2-15 16:44
|
显示全部楼层
本帖最后由 731219 于 2014-2-15 16:49 编辑
再把它做成公式，其中GSTQ是通达信自带的，没有它是不行的。这里借用到它。
{红灰区隧道}
开盘破:(REF(C,1)*0.99)+0.01 NODRAW ,COLORRED;
下沿止:REF(MIN(C,O),1)*0.995 NODRAW COLORGREEN;
低三:(L+0.00)*1.033,NODRAW,COLORGREEN;
低四:(L+0.00)*1.043,COLOR0088FF,NODRAW;
低五:L*1.053,NODRAW,COLORFFFFFF;
低六:(L+0.00)*1.065,COLORRED,NODRAW;
低七:(L+0.00)*1.075,COLOR0088FF,NODRAW;
低八:(L+0.00)*1.085,COLOR0088FF,NODRAW;
FH:100*(H-REF(C,1))/REF(C,1),COLOR88AAFF,NODRAW;
二:C*1.023,NODRAW,COLOR00FFFF;
三:C*1.033,NODRAW,COLORGREEN;
四:C*1.043,NODRAW,COLOR00FFFF;
五:C*1.053,NODRAW,COLORGREEN;
六:C*1.063,NODRAW;
七:C*1.073,NODRAW,COLOR00FFFF;
MZ1:=BARSCOUNT(C)>=15;
MZ2:=CAPITAL*0.000001<10.5;
MZ3:=C<=32 AND REF(C<=35,1) AND REF(C<=35,2);
MZ4:= NAMELIKE('ST')=0 AND NAMELIKE('*ST')=0 AND NAMELIKE('SST')=0 AND NAMELIKE('S*ST')=0 AND NAMELIKE('S ST')=0;
NNN:=MZ1 AND MZ2 AND MZ3 AND MZ4;
M13:=MA(C,13);
MMDDP1A:=IF(C>500,1.02,1.06);
MMDDP3A:=IF(C>500,1.008,1.035);
MMDDP1:=IF(HOUR!=0,MMDDP3A,MMDDP1A);
上轨:=XMA((C+H+O+L)/4,12)*MMDDP1;
DM:=DMA((C+H+O+L)/4,12)*MMDDP1;
STICKLINE(隧道上轨向上,1,0,5,0),COLOR000033;
STICKLINE(隧道上轨向上=0,1,0,5,0),COLOR444444;
DMR:=CROSS(上轨,DM) AND NNN ,STICK COLORWHITE LINETHICK2;
DMR上穿上轨:IF(CROSS(DM,上轨),CROSS(DM,上轨)*0.98,DRAWNULL),CIRCLEDOT COLORRED LINETHICK2;
RTAA:C<M13 AND REF(COUNT(H>上轨,4)>0,1) AND 上轨>REF(上轨,1) AND REF(H>上轨,1)=0 AND NNN ,COLOR00FF00 ,NODRAW ;
V1:=MA(CLOSE,3);
V2:=MA(CLOSE,2*3);
V3:=MA(CLOSE,3*3);
V4:=MA(CLOSE,4*3);
V5:=MA(CLOSE,5*3);
V6:=MA((V1+V2+V3+V4+V5)/5,5);
上轨M:=V6*(1+6.5/100);
隧道M:=CROSS(上轨M,DM);
STICKLINE(隧道M,1.2,0,1,1),COLORFFFFFF;
STICKLINE(RTAA,0,0.6,0.1,0),COLORGREEN;
{前8天有涨停止线}
MZ5A:=COUNT(C/REF(C,1)>1.09,8);
MZ6:=REF(C,1)/C>1.03 OR (C<REF(MIN(C,O),1) AND C<O);
八天:MZ5A AND MZ6,COLORYELLOW ;
RTAA隧:C<M13 AND REF(COUNT(H>上轨M,4)>0,1) AND 上轨M>REF(上轨M,1) AND REF(H>上轨M,1)=0 AND NNN ,COLOR00FF00 ;
天气:(((GSTQ.股市天气)-30)*3)/100,COLOR00AAFF,LINETHICK2;
天:=GSTQ.股市天气;
天气上:天>REF(天,1) AND 隧道上轨向上,COLORAAAFFF,NODRAW;
STICKLINE(天气上,0.8,0,1,1),COLORAAAFFF; |
|
|
[复制链接]
发表于 2014-2-15 08:56
