软件名称：[B]周线标注主图[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2012-09-16 06:18:46
软件简介:

{-------------------------------------------------------------------------------------------------------------------------------------------基础判定 中间定义赋值}
BASE:=PERIOD;
BASEW:=IF(BASE=6,1,0);
BASED:=IF(BASE=5,1,0);
BASEH:=IF(BASE=4,1,0);
BASEH&D:=IF(BASEH=1 OR BASED=1,1,0);
WEDA:=WEEKDAY;{当前周期所在星期数值};
WEDIF:=WEDA-REF(WEDA,4);
WS:=IF( WEDIF<1 AND REF(WEDIF,1)=1  ,1,0) NODRAW; {周始输出1}
R:=BARSLAST(WS=1) NODRAW; {上个WS=1 到当前的周期数}
WE:=IF(REFX(R,1)<R,1,0) NODRAW; {周末输出1 跨1周期未来函数}
CE:=IF(WE=1,1*CLOSE,DRAWNULL) POINTDOT; {周末输出本周收盘数值 其余无输出}
CS:=IF(WS=1,1*OPEN,DRAWNULL) POINTDOT COLORBLUE; {周始输出本周开数值 其余无输出}
M13:=IF(BASEH=1,MA(CLOSE,52),DRAWNULL) COLORWHITE;{小时级别13日线}
M20:=IF(BASEH=1,MA(CLOSE,80),DRAWNULL) COLORCYAN;{小时级别20日线}
{-------------------------------------------------------------------周实体折线输出}
SL:=IF( CE>0 AND CE<REF(OPEN,R),1,0); {CE存在且CE<CS BARSLAST(CS=OPEN)     C1>BARSSINCEN(CS=OPEN,19)     SL:=IF( CE>0 AND CE<REF(OPEN,R) AND COUNT(CS=OPEN,20)=1 ,1,0);}
TT:IF(CE>0,CS-REF(OPEN,R),DRAWNULL) NODRAW; {测试 只有在周一 CS=REF(OPEN,R)}
SPLAS:=IF(CS=OPEN,DAY,DRAWNULL);
SPLAE:=IF(CE=CLOSE,DAY,DRAWNULL);
SR:=BARSLAST(SPLAS>0);
R2:=IF(CE=CLOSE,SPLAE-SPLAS,DRAWNULL);

DRAWLINE(CS=OPEN,CS,CE=CLOSE AND SL=0,CE,A) COLORLIMAGENTA LINETHICK1 DOTLINE; {输出实体线段-阳}
DRAWLINE(WS=1 ,CS,WE=1 AND SL=1,CE,B) COLORWHITE LINETHICK1 DOTLINE; {输出实体线段-阴}
{-------------------------------------------------------------------------------------------------------------------------------------------周起始小时标注}
IO:=IF( CLOSE>OPEN ,1,0); {IO:=IF( CLOSE>REF(CLOSE,1) , 0.998*CLOSE,1.002*OPEN);} {DRAWTEXT(WS=1,IO,'O');}
STICKLINE(WS=1 AND CLOSE>OPEN,OPEN,CLOSE,1,IO) COLORRED ;{阳线-输出周起始实体}
STICKLINE(WS=1 AND CLOSE>OPEN,LOW,HIGH,0.01,IO) COLORRED ;{阳线-输出周开第一小时上下影}

STICKLINE(WS=1 AND CLOSE<OPEN,OPEN,CLOSE,1,IO) COLORCYAN;{阴线-输出周起始实体}
STICKLINE(WS=1 AND CLOSE<OPEN,LOW,HIGH,0.01,IO) COLORCYAN;{阴线-输出周起始上下影}
{-------------------------------------------------------------------------------------------------------------------------------------------周起振幅柱状线标示 未完成 效果不佳 建议注销掉}
{WH:=IF( CS=OPEN,HHV(HIGH,R),DRAWNULL );{S-E}
{WL:=IF( CS=OPEN,LLV(HIGH,R),DRAWNULL );{S-E}
WH:=IF( CE=CLOSE,HHV(HIGH,R),DRAWNULL );{E-S}
WL:=IF( CE=CLOSE,LLV(HIGH,R),DRAWNULL );{E-S}
{DRAWLINE(WL=LOW,WL,WH=HIGH,WH,A) COLORLIGREEN; }{输出振幅线段};
RR:=BARSNEXT(WE=1);
RRE:=REFX(CLOSE,RR);
STICKLINE(WS=1 AND CS>0 AND RRE>CS,OPEN,RRE,RR,-1) COLORLIMAGENTA;
STICKLINE(WS=1 AND CS>0 AND RRE<CS,OPEN,RRE,RR,-1) COLORBLUE;
DRAWLINE(WS=1 ,RRE,WE=1 AND CE<REF(OPEN,R),CE,B) COLORBLUE DOTLINE;
DRAWLINE(WS=1 ,RRE,WE=1 AND CE>REF(OPEN,R),CE,B) COLORLIMAGENTA DOTLINE;

[url=http://www.70822.com/soft/sort013/sort05/down-52809.html]周线标注主图[/url]