软件名称：[B]谷峰主图[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2012-11-17 01:53:52
软件简介:
谷峰主图
DRAWGBK(O>C,RGB(360,0,10),RGB(10,0,1),0,'01',0);
零轴:DYNAINFO(3)*1,COLOR0000FF;
XA1:=MA(CLOSE,20);
XA2:=(CLOSE>MA(CLOSE,5));
XA3:=(MA(CLOSE,5)>MA(CLOSE,10));
XA4:=(CLOSE>MA(CLOSE,10));
XA5:=(MA(CLOSE,5)>MA(CLOSE,20));
XA6:=(CLOSE>MA(CLOSE,20));
XA7:=REF(XA1,1);
XA8:=(XA1>XA7);
AVX:=(((((IF(XA2,10,(0 - 10)) + IF(XA3,10,(0 - 10))) + IF(XA4,10,(0 -10))) +
IF(XA5,10,(0 - 10))) + IF(XA6,10,(0 - 10))) + IF(XA8,10,(0 -10)))/80;
XFX:=AVX+零轴,COLOR00FFFF,LINETHICK1;
DRAWBAND(XFX,RGB(160,0,0),零轴,RGB(0,90,90));
谷峰线:XFX,COLOR8A8A8A;
N:=120;
K:=BARSLAST(CURRBARSCOUNT=N);
GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0));{高点}
DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0));{低点}
KJ:=GD-DD;{高低点差值=分区高度}
GD4:IF(CURRBARSCOUNT<=N/30,GD,DRAWNULL); {设置分区的宽度，调整数据可调整分区宽度}
平衡:IF(CURRBARSCOUNT<=N/30,DD+KJ/2,DRAWNULL),COLOR00FFFF;{低点+中点=0.50线,NODRAW}
压力:IF(CURRBARSCOUNT<=N/30,GD-KJ*0.191,DRAWNULL),COLORFF00FF;{高点-分区高度*0.191=0.819线,NODRAW}
支撑:IF(CURRBARSCOUNT<=N/30,DD+KJ*0.191,DRAWNULL),COLOR2626FF;{低点+分区高度*0.191=0.191线,NODRAW}
高:IF(CURRBARSCOUNT<=N/30,GD,DRAWNULL),COLOR00FFFF;{高点划线,POINTDOT}
低:IF(CURRBARSCOUNT<=N/30,DD,DRAWNULL),COLOR00FF00;{低点划线,POINTDOT}
低涨:IF(CURRBARSCOUNT<=N/30,(C/LLV(LOW,K)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;
天数:BARSLAST(L=DD),COLORCYAN,NODRAW;
DRAWBAND(高,RGB(160,160,0),压力,RGB(0,0,0));
DRAWBAND(压力,RGB(130,0,0),平衡,RGB(0,0,0));
DRAWBAND(平衡,RGB(100,0,100),支撑,RGB(0,0,0));
DRAWBAND(支撑,RGB(150,150,150),低,RGB(0,0,0));
STICKLINE(CURRBARSCOUNT=N/30,GD,DD,0,0),COLORGREEN;{划左侧高低点边线}
STICKLINE(CURRBARSCOUNT=1,GD,DD,0,0),COLORGREEN;{划右侧高低点边线}
STICKLINE(CURRBARSCOUNT<=N/30,平衡,平衡,4,0),COLORWHITE;{划平衡线横线线}
STICKLINE(CURRBARSCOUNT<=N/30,压力,压力,4,0),COLORRED;{划压力线横线线}
STICKLINE(CURRBARSCOUNT<=N/30,支撑,支撑*0.997,4,0),COLOR4080FF;{划支撑想横线线}
STICKLINE(CURRBARSCOUNT<=N/30,低,低,4,0),COLOR2626FF;{划低位横线线}
N2:=5;
A1:=REF(H,N2)=HHV(H,2*N2+1);
B1:=FILTER(A1,N2);
C1:=BACKSET(B1,N2+1);
HD:= FILTER(C1,N2);
RH:=BACKSET(CURRBARSCOUNT=2,BARSLAST(HD)+1);
SH:=RH>REF(RH,1);
H1:=REF(H ,BARSLAST(SH));
STICKLINE(H1,H1,H1,5,0),LINETHICK2,COLOR00FFFF;
DRAWTEXT(ISLASTBAR,H1*1.005,'近期高点'),COLOR4080FF;
TTP:=(CURRBARSCOUNT=5-4);
DRAWNUMBER(TTP AND H1,H1,H1),COLORFFFF00;
A2:=REF(L,N2)=LLV(L,2*N2+1);
B2:=FILTER(A2,N2);
C2:=BACKSET(B2,N2+1);
LD:=FILTER(C2,N2);
RL:=BACKSET(CURRBARSCOUNT=2,BARSLAST(LD)+1);
SL:=RL>REF(RL,1);
L1:=REF(L ,BARSLAST(SL));
STICKLINE(L1,L1,L1,5,0),COLORFFFF00,LINETHICK2;
DRAWTEXT(ISLASTBAR,L1*1.005,'近期低点'),COLORFFFF00;
DRAWNUMBER(TTP AND L1,L1,L1),COLOR00FFFF;
AHX:=MA(C,3);
BHX:=MA(C,14);
EHX:=(AHX+BHX)/2;
当前价:=C,COLORFFFFFF;
市盈率:=IF(FINANCE(33)>0,DYNAINFO(39),0)*0.35;
每股收益:=IF(FINANCE(33)>0.01,FINANCE(33)*0.65,0);
CKMJ:=每股收益*市盈率*4;
参考买价:STICKLINE(1,CKMJ,CKMJ*0.9983,5,0),COLOR00FF00;
DRAWTEXT(ISLASTBAR,CKMJ*1.0054,'参考买价'),COLOR00FFFF;
C11:=C>=CKMJ;
C21:=C<CKMJ;
AA:=C11>=C21 ;
BB:=C21>C11 ;
STICKLINE(AA,C,O,3.4,0),COLORAA00AA;
STICKLINE(AA,C,O,3.0,0),COLORBB00BB ;
STICKLINE(AA,C,O,2.0,0),COLORDD00DD ;
STICKLINE(AA,C,O,1.6,0),COLOREE00EE;
STICKLINE(AA,C,O,1.2,0),COLORFF00FF;
STICKLINE(AA,C,O,0.6,0),COLORFF00FF;
STICKLINE(AA,H,L,0,0),COLORFF00FF;
STICKLINE(BB,C,O,3.4,0),COLORAAAA00;
STICKLINE(BB,C,O,3.0,0),COLORBBBB00;
STICKLINE(BB,C,O,1.6,0),COLOREEEE00;
STICKLINE(BB,C,O,1.2,0),COLORFFFF00;
STICKLINE(BB,C,O,0.6,0),COLORFFFF00;
STICKLINE(BB,H,L,0,0),COLORFFFF00;
TTP123:=(CURRBARSCOUNT=5-4);
DRAWNUMBER(TTP123 AND CKMJ,CKMJ,CKMJ),COLORFFFF00;
SJ:=WMA((C-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2);
ZJ:=WMA(0.667*REF(SJ,1)+0.333*SJ,2);
DRAWTEXT(CROSS(SJ,ZJ) AND SJ<30,L-0.02,'★'),COLOR00FFFF,LINETHICK2;
DRAWTEXT(CROSS(ZJ,SJ) AND SJ>70,H+0.02,'★'),COLORFFFF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N/30+4,GD-KJ/12,'【风险】--高抛'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=N/30+4,GD-KJ/3,'【警示】--高减'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=N/30+4,DD+KJ/2.5,'【关注】--低买'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=N/30+4,DD+KJ/12,'【休整】--蓄锐'),COLORFFFFFF;
公式编辑器5.0版本适用
[url=http://www.70822.com/soft/sort013/sort05/down-54828.html]谷峰主图[/url]