二十四节气量
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;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
