 | |  |  |
[指南针] 指南针源码公式：
家数:=STKCOUNT('A股板块');
EE0:=SUM(IF(INDEXA>REF(INDEXA,1) and INDEXC>MA(INDEXC,5) and INDEXC>INDEXO,INDEXV,0),10);
EE1:=SUM(IF(INDEXA<REF(INDEXA,1) and INDEXC>MA(INDEXC,5) and INDEXC<REF(INDEXC,1),INDEXV,0),10);
EP:=SUM(IF(INDEXC<MA(INDEXC,5),INDEXV,0),10);
EEA:=SUM(IF(AMOUNT>REF(AMOUNT,1) and CLOSE>MA(CLOSE,5),VOL,0),10);
EE2:=SUM(IF(AMOUNT<REF(AMOUNT,1) and CLOSE<MA(CLOSE,5),VOL,0),10);
EG:=SUM(IF(CLOSE<MA(CLOSE,5),VOL,0),10);
EE:=EE0-(EE1+EP);
EEE:=EEA-(EE2+EG);
大盘:EE/(家数*30000),ColorFF00FF,LINETHICK2;
个股:EEE/FINANCE(7),Color00EE00;
强弱线:(大盘+个股)/2;
DRAWTEXTEX(CLOSE,1,50,10,STKLABEL+' '+STKNAME+''),Color00DDFF;
{时间}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
wd:=WEEKDAY;
p:=SYSPARAM(1);
str1:=''+'今日： '+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(CLOSE,1,320,10,str1),Color00DDFF;
DRAWICON(IF(CAPITAL<1,CROSS(大盘,强弱线),CROSS(个股,大盘) and CROSS(个股,强弱线) and 强弱线>REF(强弱线,3)),个股,1);
DRAWICON(IF(CAPITAL<1,CROSS(强弱线,大盘),0),个股,2); |
| |  | |  |
|
