相關標簽:

?

飛狐看長做短第13版副圖指標源碼

?

原理解析：
輸出流通:流通股本(股)/10000,線寬為0 TS賦值:收盤價的有效數據周期數 J0賦值:(最高價+最低價)/2 QJ賦值:J0的3日指數移動平均 J1賦值:如果收盤價>QJ,返回成交量(手),否則返回0 J2賦值:如果CLOSESE賦值:J1-J2的5日累和,返回?,否則返回? SZ賦值:J1-J2的10日累和 輸出長資金:如果當前流通股本(手)<1,返回600*SZ的55日指數移動平均,否則返回50*SZ的5日簡單移動平均,COLOR0000FF,線寬為0 輸出長趨勢:如果當前流通股本(手)<1,返回長資金的360日加權移動平均,否則返回長資金的14日加權移動平均,COLOR00CC00,線寬為0 FILLRGN(長資金>長趨勢,長資金,長趨勢),COLOR0000CC FILLRGN(長資金<長趨勢,長資金,長趨勢),COLOR008800 輸出資金:如果當前流通股本(手)<1,返回1000,否則返回100*SE的3日[1日權重]移動平均,COLORFFFFFF 輸出趨勢:資金的3日[1日權重]移動平均,COLOR00FFFF 輸出短選股:資金上穿趨勢的5日過濾 AND "平滑異同平均的DEA"<0,線寬為0 輸出長選股:短選股 AND 長資金>長趨勢,線寬為0 BB賦值:趨勢上穿資金的5日過濾 AND "KDJ的D">60 當滿足條件短選股時,在1日前的趨勢位置畫4號圖標 當滿足條件BB時,在1日前的資金位置畫5號圖標 當滿足條件短選股AND長資金>長趨勢時,在1日前的趨勢位置畫10號圖標 當滿足條件BBAND長資金<長趨勢時,在1日前的趨勢位置畫12號圖標 當滿足條件長資金上穿長趨勢時,在長資金位置畫1號圖標 當滿足條件長趨勢上穿長資金AND長資金>0時,在長資金位置畫2號圖標 輸出VARIABLE:WDAY[7]='星期六' 賦值:'星期日' 賦值:'星期一' 賦值:'星期二' 賦值:'星期三' 賦值:'星期四' 賦值:'星期五' FY賦值:年份 FM賦值:月份 FD賦值:日 WD賦值:星期 P賦值:SYSPARAM(1) STR1賦值:''+'今日： '+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1] DRAWTEXTEX(收盤價,1,240,10,STR1),COLOR00DDFF DRAWTEXTEX(收盤價,1,10,10,STKLABEL+' '+品種名稱+''),COLOR00DDFF DRAWTEXTEX(長資金>長趨勢 AND 長資金>1日前的長資金,1,600,10,'長資金趨勢一直向上'),COLOR00DDFF DRAWTEXTEX(長資金>長趨勢 AND 長資金<=1日前的長資金,1,600,10,'長資金趨勢一直向上、有走平向下的趨勢'),COLOR00DDFF DRAWTEXTEX(長資金<長趨勢 AND 長資金>=1日前的長資金,1,600,10,'長資金趨勢一直向下、有走平向上的趨勢'),COLOR00DDFF DRAWTEXTEX(如果TS>18,返回0,否則返回長資金>=1日前的長資金,1,600,10,'長資金趨勢一直不明、有走平向上的趨勢'),COLOR00DDFF

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

流通:FINANCE(7)/10000,LINETHICK;
TS:=BARSCOUNT(CLOSE);J0:=(HIGH+LOW)/2;QJ:=EMA(J0,3);
J1:=IF(CLOSE>QJ,VOL,0);J2:=IF(CLOSE
SE:=SUM(J1-J2,5);
SZ:=SUM(J1-J2,10);
長資金:IF(CAPITAL<1,600*EMA(SZ,55),50*MA(SZ,5)),COLOR0000FF,LINETHICK;
長趨勢:IF(CAPITAL<1,WMA(長資金,360),WMA(長資金,14)),COLOR00CC00,LINETHICK;
FILLRGN(長資金>長趨勢,長資金,長趨勢),Color0000CC;
FILLRGN(長資金<長趨勢,長資金,長趨勢),COLOR008800;
資金:IF(CAPITAL<1,1000,100)*SMA(SE,3,1),COLORFFFFFF;趨勢:SMA(資金,3,1),COLOR00FFFF;
短選股:FILTER(CROSS(資金,趨勢),5) and "macd.dea"<0,LINETHICK;
長選股:短選股 and 長資金>長趨勢,LINETHICK;
BB:=FILTER(CROSS(趨勢,資金),5) and "kdj.d">60;
DRAWICON(短選股,REF(趨勢,1),4);DRAWICON(BB,REF(資金,1),5);
DRAWICON(短選股 and 長資金>長趨勢,REF(趨勢,1),10);
DRAWICON(BB and 長資金<長趨勢,REF(趨勢,1),12);
DRAWICON(CROSS(長資金,長趨勢),長資金,1);
DRAWICON(CROSS(長趨勢,長資金) and 長資金>0,長資金,2);
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,240,10,str1),Color00DDFF;
DRAWTEXTEX(CLOSE,1,10,10,STKLABEL+' '+STKNAME+''),Color00DDFF;
DRAWTEXTEX(長資金>長趨勢 and 長資金>REF(長資金,1),1,600,10,'長資金趨勢一直向上'),Color00DDFF;
DRAWTEXTEX(長資金>長趨勢 and 長資金<=REF(長資金,1),1,600,10,'長資金趨勢一直向上、有走平向下的趨勢'),Color00DDFF;
DRAWTEXTEX(長資金<長趨勢 and 長資金>=REF(長資金,1),1,600,10,'長資金趨勢一直向下、有走平向上的趨勢'),Color00DDFF;
DRAWTEXTEX(IF(TS>18,0,長資金>=REF(長資金,1)),1,600,10,'長資金趨勢一直不明、有走平向上的趨勢'),Color00DDFF;
{程序化交易 www.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?