半月线
-
相关简介:C/C++ www.zegu.cn 择股网提供 Code 复制内容到剪贴板 DRAWGBK(1,COLORRGB(20,20,110),COLORRGB(0,0,50),1); TBS:=POW(10,ABS(LOG(MINDIFF))); //半月线 YB:=MOD(DAY,15)REF(MOD(DAY,15),1)ORDATETOD1970(DATE)-REF(DATETOD1970(DATE),1)14ORBARPOS=1; w:BARSLAST(YB),LINETHI
-
文章来源:择股网作者:股海网发布时间:2010-03-12浏览次数:
C/C++ www.zegu.cn 择股网提供 Code复制内容到剪贴板
- DRAWGBK(1,COLORRGB(20,20,110),COLORRGB(0,0,50),1);
- TBS:=POW(10,ABS(LOG(MINDIFF)));
- //半月线
- YB:=MOD(DAY,15)<REF(MOD(DAY,15),1)OR DATETOD1970(DATE)-REF(DATETOD1970(DATE),1)>14 OR BARPOS=1;
- w:BARSLAST(YB),LINETHICK;
- dg:=w=0 or ISLASTBAR;
- wx:=0*C;
- for P=datacount-1 downto lbound(dg) do
- if dg[P] then
- wx[P]:=0;
- else
- wx[P]:=wx[P+1]+1;
- r:=BACKSET(ISLASTBAR,w+1)-ISLASTBAR;
- wx:=refx(wx,1)+r,LINETHICK;
- oo:=ref(o,w);
- hh:=hhv(h,w+1);
- LL:=LLv(L,w+1);
- 半月开:ROUND(OO*TBS)/TBS,LINETHICK;
- 半月高:ROUND(refx(hh,wx)*TBS)/TBS,LINETHICK;
- 半月低:ROUND(refx(LL,wx)*TBS)/TBS,LINETHICK;
- 半月收:ROUND(refx(c,wx)*TBS)/TBS,LINETHICK;
- 上半月收:=REF(半月收,W+1),LINETHICK;
- 半月涨幅:半月收/上半月收*100-100,LINETHICK,COLORFFFFFF;
- f:=半月收>半月开 or (半月收=半月开 and 半月收>ref(半月收,W));
- j:=cross(w,wx);
- STICKLINE(w>=0 and f AND NOT(YB OR REFX(YB,1)),半月低,半月高,20,0),COLORMAGENTA;
- STICKLINE(w>=0 and not(f) AND NOT(YB OR REFX(YB,1)),半月低,半月高,20,0)COLORFFDD00;{}
- P:=BARPOS;
- DRAWTEXT(w>0 and j AND DAY<15,半月高*1.01,'月上半月'),COLOR00CCFF,ALIGN1;
- DRAWTEXT(w>0 and j AND DAY>15,半月高*1.01,'月下半月'),COLOR00CCFF,ALIGN1;
- DRAWNUMBER(w>0 and j,半月高*1.01,MONTH,0),COLOR00CCFF,ALIGN2;
- //日线
- TJ:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
- STICKLINE(TJ,LOW,HIGH,1,0),ColorE9;
- STICKLINE(TJ,LOW,CLOSE,8,0),Color80;
- STICKLINE(TJ,LOW,CLOSE,6,0),ColorA5;
- STICKLINE(TJ,LOW,CLOSE,4,0),ColorC0;
- STICKLINE(TJ,LOW,CLOSE,2,0),ColorE6;
- STICKLINE(NOT(TJ),HIGH,LOW,1,0),ColorAA00;
- STICKLINE(NOT(TJ),CLOSE,OPEN,8,0),Color5000;
- STICKLINE(NOT(TJ),CLOSE,OPEN,6,0),Color6600;
- STICKLINE(NOT(TJ),CLOSE,OPEN,4,0),Color8000;
- STICKLINE(NOT(TJ),CLOSE,OPEN,2,0),ColorA000;
上一篇:短线选股 -- 5天3%
下一篇:财神到了主图