二十四节K线 二十四节气量
-
相关简介:C/C++ Code 复制内容到剪贴板 //二十四节K线 TBS:=POW(10,ABS(LOG(MINDIFF))); jqd:=LSOLARTERMday(date); fd:=date; tj:=(jqd-ref(jqd,1)DATEDIFF(ref(fd,1),fd))*((month)*2-(jqdday)-(day=16)); Jw:BARSLAST(tj),LINETHICK; Jdg:=Jw=0orISLASTBAR; Jwx:=0*C; fo
-
文章来源:择股网作者:股海网发布时间:2009-11-23浏览次数:
C/C++ Code复制内容到剪贴板
- //二十四节K线
- TBS:=POW(10,ABS(LOG(MINDIFF)));
- jqd:=LSOLARTERMday(date);
- fd:=date;
- tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
- Jw:BARSLAST(tj),LINETHICK;
- Jdg:=Jw=0 or ISLASTBAR;
- Jwx:=0*C;
- for JQ=datacount-1 downto lbound(Jdg) do
- if Jdg[JQ] then
- Jwx[JQ]:=0;
- else
- Jwx[JQ]:=Jwx[JQ+1]+1;
- Jr:=BACKSET(ISLASTBAR,Jw+1)-ISLASTBAR;
- Jwx:=refx(Jwx,1)+Jr,LINETHICK;
- Joo:=ref(o,Jw);
- Jhh:=hhv(h,Jw+1);
- JLL:=LLv(L,Jw+1);
- Jzq1:=BARSLAST(ref(Jwx,1)=0 or BARPOS=1)+1;//N天数
- Jyt1:=if(Jzq1=1 and refx(Jzq1,2)=1,13,if(refx(Jzq1,1)=1 or Jzq1=1,7,14));
- 节开:ROUND(JOO*TBS)/TBS,LINETHICK,COLOReeee00;
- 节高:ROUND(refx(Jhh,Jwx)*TBS)/TBS,LINETHICK,COLOReeaaFF;
- 节低:ROUND(refx(JLL,Jwx)*TBS)/TBS,LINETHICK,COLOR00ee00;
- 节收:ROUND(refx(c,Jwx)*TBS)/TBS,LINETHICK,COLOR00eeee;
- Jf:=节收>节开 or (节收=节开 and 节收>ref(节收,JW));
- Jj:=cross(Jw,Jwx);
- STICKLINE(Jw>0 and JF and Jj ,节低,节高,10,0),Color5055B1;
- STICKLINE(节开<节收 ,节开,节收,JYT1,0),Color5055B1;
- STICKLINE(Jw>0 and not(JF) and Jj ,节低,节高,10,0),Color5A7234;
- STICKLINE(节开>节收 ,节开,节收,JYT1,0),Color5A7234;
- STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
- STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
- STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
- STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
- STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
- STICKLINE(C<=O,C,O,8,0),Color7B7b00;
- STICKLINE(C<=O,C,O,6,0),Color909000;
- STICKLINE(C<=O,C,O,4,0),ColorA8a800;
- STICKLINE(C<=O,C,O,2,0),COLORcece00;
- STICKLINE(C<=O,H,L,0,0),COLORffff00;
- drawtext(tj=1 ,l,'小寒'),COLORYELLOW,align0,PXDN5;
- drawtext(tj=2 ,L,'大寒'),COLORYELLOW,align0,PXDN5;
- drawtext(tj=3 ,L,'立春'),COLORGREEN,align0,PXDN5;
- drawtext(tj=4 ,L,'雨水'),COLORGREEN,align0,PXDN5;
- drawtext(tj=5 ,L,'惊蛰'),COLORGREEN,align0,PXDN5;
- drawtext(tj=6 ,L,'春分'),COLORGREEN,align0,PXDN5;
- drawtext(tj=7 ,L,'清明'),COLORYELLOW,align0,PXDN5;
- drawtext(tj=8 ,L,'谷雨'),COLORYELLOW,align0,PXDN5;
- drawtext(tj=9 ,L,'立夏'),COLORRED,align0,PXDN5;
- drawtext(tj=10,L,'小满'),COLORRED,align0,PXDN5;
- drawtext(tj=11,L,'芒种'),COLORRED,align0,PXDN5;
- drawtext(tj=12,L,'夏至'),COLORRED,align0,PXDN5;
- drawtext(tj=13,L,'小暑'),COLORYELLOW,align0,PXDN5;
- drawtext(tj=14,L,'大暑'),COLORYELLOW,align0,PXDN5;
- drawtext(tj=15,L,'立秋'),COLORBBBBBB,align0,PXDN5;
- drawtext(tj=16,L,'处暑'),COLORBBBBBB,align0,PXDN5;
- drawtext(tj=17,L,'白露'),COLORBBBBBB,align0,PXDN5;
- drawtext(tj=18,L,'秋分'),COLORBBBBBB,align0,PXDN5;
- drawtext(tj=19,L,'寒露'),COLORYELLOW,align0,PXDN5;
- drawtext(tj=20,L,'霜降'),COLORYELLOW,align0,PXDN5;
- drawtext(tj=21,L,'立冬'),COLORFF9900,align0,PXDN5;
- drawtext(tj=22,L,'小雪'),COLORFF9900,align0,PXDN5;
- drawtext(tj=23,L,'大雪'),COLORFF9900,align0,PXDN5;
- drawtext(tj=24,L,'冬至'),COLORFF9900,align0,PXDN5;
- drawtext(tj=1 ,H,'丑月'),COLORYELLOW,align0,PXUP19;
- drawtext(tj=3 ,H,'寅月'),COLORGREEN,align0,PXUP19;
- drawtext(tj=5 ,H,'卯月'),COLORGREEN,align0,PXUP19;
- drawtext(tj=7 ,H,'辰月'),COLORYELLOW,align0,PXUP19;
- drawtext(tj=9 ,H,'巳月'),COLORRED,align0,PXUP19;
- drawtext(tj=11,H,'午月'),COLORRED,align0,PXUP19;
- drawtext(tj=13,H,'未月'),COLORYELLOW,align0,PXUP19;
- drawtext(tj=15,H,'申月'),COLORBBBBBB,align0,PXUP19;
- drawtext(tj=17,H,'酉月'),COLORBBBBBB,align0,PXUP19;
- drawtext(tj=19,H,'戌月'),COLORYELLOW,align0,PXUP19;
- drawtext(tj=21,H,'亥月'),COLORFF9900,align0,PXUP19;
- drawtext(tj=23,H,'子月'),COLORFF9900,align0,PXUP19;
- //二十四节气量
- TBS:=POW(10,ABS(LOG(MINDIFF)));
- jqd:=LSOLARTERMday(date);
- fd:=date;
- tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
- Jw:BARSLAST(tj),LINETHICK;
- Jdg:=Jw=0 or ISLASTBAR;
- Jwx:=0*C;
- for JQ=datacount-1 downto lbound(Jdg) do
- if Jdg[JQ] then
- Jwx[JQ]:=0;
- else
- Jwx[JQ]:=Jwx[JQ+1]+1;
- Jr:=BACKSET(ISLASTBAR,Jw+1)-ISLASTBAR;
- Jwx:=refx(Jwx,1)+Jr,LINETHICK;
- Joo:=ref(o,Jw);
- Jzq1:=BARSLAST(ref(Jwx,1)=0 or BARPOS=1)+1;
- Jyt1:=if(Jzq1=1 and refx(Jzq1,2)=1,13,if(refx(Jzq1,1)=1 or Jzq1=1,7,14));
- 节开:=ROUND(JOO*TBS)/TBS;
- 节收:=ROUND(refx(c,Jwx)*TBS)/TBS;
- Jf:=节收>节开 or (节收=节开 and 节收>ref(节收,JW));
- 节量:SUM(V,Jzq1),ColorFFff00,LINETHICK0;
- 节换手率:SUM(vol/CAPITAL*100,Jzq1),linethick0,PRECISion2,colorffff00;
- STICKLINE(节开<节收 ,节量*0.30,0,JYT1,0),Color5055B1;
- STICKLINE(节开>节收 ,节量*0.30,0,JYT1,0),Color5A7234;
- 日量:VOL,VOLSTICK,ColorFFff00;
- 日换手率:vol/CAPITAL*100,ColorFFff00,LINETHICK0;
- TT2:=ISLASTBAR=1;
- DRAWTEXTEX(TT2,0,4,1,'【节期周期:
- '+NUMTOSTR(Jzq1[SYSPARAM(1)],0)+''+'天 】'+''),Color00FFFF;
- DRAWTEXTEX(TT2,0,4,16,'【节期量:
- '+NUMTOSTR(节量[SYSPARAM(1)],0)+''+'】'+''),Color00FFFF;
- MA3:MA(日量,5),COLORFFffff,linethick1;
- MAd:MA(日量,13),COLOR00ffff,linethick1;
- MA90:MA(日量,90),color00ff00;
- DRAWTEXT(ISLASTBAR=1 AND MAd>REF(MAd,1),MAd,' '+' ↑'),COLOR00ffff,align0;
- DRAWTEXT(ISLASTBAR=1 AND MAd<REF(MAd,1),MAd,' '+' ↑'),Color00ffff,align0;
- DRAWTEXT(BARSTATUS=2 AND MA3>REF(MA3,1),MA3,' '+' ↑'),COLORFFffff,align1;
- DRAWTEXT(BARSTATUS=2 AND MA3<REF(MA3,1),MA3,'
- '+' ↓'),ColorFFffff,align1;
上一篇:飞天格格3.0原码+飞天格格(正版解密)
下一篇:好公式,适合中长线使用