茶舍资金流系统-大智慧飞狐通达信适用 - 股票指标 - 股票之声

连连涨 发表于 2010-6-10 22:34

一段时间以来各种软件都有一套所谓的资金流指标，这让很多人流连忘返、甚至与痴迷。 但这些数据都是收费的或者说你必须通过相应的渠道才能获得的。我们可不可以用软件现有提供给我们的日线数据而达到或接近这个收费指标系统的效果？ 回答是肯定的。 可以！ 而且也很接近。 现在把源码给大家，你可以根据你自己的需要来调整计算原则，它会满足你的好奇心，也会满足你的更高层次的需求，只要你肯动脑。 指标思路来源于其它软件自带的同类系统，数据源来源于日线上的变通，即K线四分法模拟分类。
贴图示范 http://www.88gs.com/soft/UploadPic/2010-5/20105116504441726.gif
http://www.88gs.com/soft/UploadPic/2010-5/20105116505428999.gif
一、飞狐指标 1、茶舍资金流 jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); TD1:=qj0*(MIN(OPEN,CLOSE)-LOW); XD1:=qj0*(jj-MIN(CLOSE,OPEN)); XD2:=qj0*(HIGH-MAX(OPEN,CLOSE)); TD2:=qj0*(MAX(CLOSE,OPEN)-jj); 日净额:((TD1+XD1)-(TD2+XD2))/10000,PRECISION2,linethick; 周净额:sum(日净额,5),PRECISION2,linethick; 月净额:sum(日净额,22),PRECISION2,linethick; FILLRGN(周净额>0,0,周净额),COLOR000066; FILLRGN(周净额<0,0,周净额),COLOR003300; stickline(日净额>0,0,日净额,6,0),color0000aa; stickline(日净额>0,0,日净额,3,0),color0000cc; stickline(日净额>0,0,日净额,1,0),color0000ff; stickline(日净额<0,日净额,0,6,0),color00aa00; stickline(日净额<0,日净额,0,3,0),color00cc00; stickline(日净额<0,日净额,0,1,0),color00ff00; DRAWTEXTEx(c,1,0,0,'茶舍资金流(万元)'),COLORYELLOW; DRAWTEXTEX(CLOSE,1,0,150,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00; 2、茶舍主力持仓线 jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); 买1:=qj0*(MIN(OPEN,CLOSE)-LOW); 买2:=qj0*(jj-MIN(CLOSE,OPEN)); 卖1:=qj0*(MAX(CLOSE,OPEN)-jj); 卖2:=qj0*(HIGH-MAX(OPEN,CLOSE)); DT:=((买1+买2)-(卖1+卖2))/10000; 主力持仓线:sum(DT,66),COLOR888888,linethick2; STICKLINE(DT>0,主力持仓线,主力持仓线+DT,2,0),COLOR0000FF; STICKLine(DT<0,主力持仓线+DT,主力持仓线,2,0),COLOR00FF00; DRAWTEXTEX(DT>0,0,150,0,'主力增:'+NUMTOSTR(DT,2)+' 万元'),COLOR00FFFF; dRAWTEXTEX(DT<0,0,150,0,'主力减:'+NUMTOSTR(DT,2)+' 万元'),COLOR00FF00; DRAWTEXT(ISLASTBAR,主力持仓线,'主\n力\n线 '); DRAWTEXTEX(c,1,0,0,'茶舍主力持仓线 '),COLORYELLOW; DRAWTEXTEX(CLOSE,1,0,150,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00; 3、茶舍散户持仓线 jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); TD1:=qj0*(MIN(OPEN,CLOSE)-LOW);DD1:=qj0*(jj-MIN(CLOSE,OPEN)); DD2:=qj0*(HIGH-MAX(OPEN,CLOSE));TD2:=qj0*(MAX(CLOSE,OPEN)-jj); td:=TD1-TD2;da:=DD1-DD2;xd1:=1-(TD1+DD1);xd2:=1-(TD2+DD2); tz:=v/sum(v,60)*100;DT:=((xd1-xd2)/10000)/tz; 散户持仓线:sum(DT,22),COLOR888888,LINETHICK2; STICKLINE(DT>0,散户持仓线,散户持仓线+DT,2,0),COLORFF00FF; STICKLine(DT<0,散户持仓线+DT,散户持仓线,2,0),COLORFF8800; DRAWTEXT(ISLASTBAR,散户持仓线,'散\n户\n线 '); DRAWTEXTEX(DT>0,0,150,0,'散户增:'+NUMTOSTR(DT,2)+' 万元'),COLOR00FFFF; dRAWTEXTEX(DT<0,0,150,0,'散户减:'+NUMTOSTR(DT,2)+' 万元'),COLOR00FF00; DRAWTEXTEx(c,1,0,0,'茶舍散户持仓线'),COLORYELLOW; DRAWTEXTEX(CLOSE,1,0,150,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00;
二、大智慧新一代指标 1、茶舍资金流 jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); TD1:=qj0*(MIN(OPEN,CLOSE)-LOW); XD1:=qj0*(jj-MIN(CLOSE,OPEN)); XD2:=qj0*(HIGH-MAX(OPEN,CLOSE)); TD2:=qj0*(MAX(CLOSE,OPEN)-jj); 日净额:((TD1+XD1)-(TD2+XD2))/10000,PRECIS2,linethick0; 周净额:sum(日净额,5),PRECIS2,linethick0; 月净额:sum(日净额,22),PRECIS2,linethick0; FILLRGN(周净额,0,周净额>0,RGB(80,0,0),周净额<0,RGB(0,50,0)); stickline(日净额>0,0,日净额,6,0),color0000aa; stickline(日净额>0,0,日净额,3,0),color0000cc; stickline(日净额>0,0,日净额,1,0),color0000ff; stickline(日净额<0,日净额,0,6,0),color00aa00; stickline(日净额<0,日净额,0,3,0),color00cc00; stickline(日净额<0,日净额,0,1,0),color00ff00; DRAWTEXTREL(0,0,'茶舍资金流(万元)'),COLORYELLOW; DRAWTEXTREL(0,80,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00; 2、茶舍主力持仓线 jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); 买1:=qj0*(MIN(OPEN,CLOSE)-LOW); 买2:=qj0*(jj-MIN(CLOSE,OPEN)); 卖1:=qj0*(MAX(CLOSE,OPEN)-jj); 卖2:=qj0*(HIGH-MAX(OPEN,CLOSE)); DT:=((买1+买2)-(卖1+卖2))/10000; 主力持仓线:sum(DT,66),COLOR888888,linethick2; STICKLINE(DT>0,主力持仓线,主力持仓线+DT,2,0),COLOR0000FF; STICKLine(DT<0,主力持仓线+DT,主力持仓线,2,0),COLOR00FF00; DRAWTEXT(DISPSTATUS=2,主力持仓线,'主力线 '); DRAWTEXTREL(0,0,'茶舍主力持仓线 '),COLORYELLOW; DRAWTEXTREL(0,80,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00; 3、茶舍散户持仓线 jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); TD1:=qj0*(MIN(OPEN,CLOSE)-LOW);DD1:=qj0*(jj-MIN(CLOSE,OPEN)); DD2:=qj0*(HIGH-MAX(OPEN,CLOSE));TD2:=qj0*(MAX(CLOSE,OPEN)-jj); td:=TD1-TD2;da:=DD1-DD2;xd1:=1-(TD1+DD1);xd2:=1-(TD2+DD2); tz:=v/sum(v,60)*100;DT:=((xd1-xd2)/10000)/tz; 散户持仓线:sum(DT,22),COLOR888888,LINETHICK2; STICKLINE(DT>0,散户持仓线,散户持仓线+DT,2,0),COLORFF00FF; STICKLine(DT<0,散户持仓线+DT,散户持仓线,2,0),COLORFF8800; DRAWTEXT(DISPSTATUS=2,散户持仓线,'散户线 '); DRAWTEXTREL(0,0,'茶舍散户持仓线'),COLORYELLOW; DRAWTEXTREL(0,80,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00;
三、通达信指标 1、茶舍资金流 JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); TD1:=QJ0*(MIN(OPEN,CLOSE)-LOW); XD1:=QJ0*(JJ-MIN(CLOSE,OPEN)); XD2:=QJ0*(HIGH-MAX(OPEN,CLOSE)); TD2:=QJ0*(MAX(CLOSE,OPEN)-JJ); 日净额:((TD1+XD1)-(TD2+XD2))/10000,NODRAW; 周净额:SUM(日净额,5),NODRAW; 月净额:SUM(日净额,22),NODRAW; DRAWBAND(周净额,RGB(80,0,0),0,RGB(0,50,0)); STICKLINE(日净额>0,0,日净额,3,0),COLOR0000AA; STICKLINE(日净额>0,0,日净额,2,0),COLOR0000CC; STICKLINE(日净额>0,0,日净额,1,0),COLOR0000FF; STICKLINE(日净额<0,日净额,0,3,0),COLOR00AA00; STICKLINE(日净额<0,日净额,0,2,0),COLOR00CC00; STICKLINE(日净额<0,日净额,0,1,0),COLOR00FF00; 2、茶舍主力持仓线 JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); 买1:=QJ0*(MIN(OPEN,CLOSE)-LOW); 买2:=QJ0*(JJ-MIN(CLOSE,OPEN)); 卖1:=QJ0*(MAX(CLOSE,OPEN)-JJ); 卖2:=QJ0*(HIGH-MAX(OPEN,CLOSE)); DT:=((买1+买2)-(卖1+卖2))/10000; 主力持仓线:SUM(DT,66),COLOR888888,LINETHICK2; STICKLINE(DT>0,主力持仓线,主力持仓线+DT,2,0),COLOR0000FF; STICKLINE(DT<0,主力持仓线+DT,主力持仓线,2,0),COLOR00FF00; DRAWTEXT(ISLASTBAR,主力持仓线,'主力线 '); 3、茶舍散户持仓线 JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); TD1:=QJ0*(MIN(OPEN,CLOSE)-LOW);DD1:=QJ0*(JJ-MIN(CLOSE,OPEN)); DD2:=QJ0*(HIGH-MAX(OPEN,CLOSE));TD2:=QJ0*(MAX(CLOSE,OPEN)-JJ); TD:=TD1-TD2;DA:=DD1-DD2;XD1:=1-(TD1+DD1);XD2:=1-(TD2+DD2); TZ:=V/SUM(V,60)*100;DT:=((XD1-XD2)/10000)/TZ; 散户持仓线:SUM(DT,22),COLOR888888,LINETHICK2; STICKLINE(DT>0,散户持仓线,散户持仓线+DT,2,0),COLORFF00FF; STICKLINE(DT<0,散户持仓线+DT,散户持仓线,2,0),COLORFF8800; DRAWTEXT(ISLASTBAR,散户持仓线,'散户线 ');

问道青城山 发表于 2010-6-19 11:35

怎么有两套指标啊。而且还做不上去啊

阳光好友 发表于 2010-6-19 21:41

不知用那个好呀，为什么呢？

宋大夫 发表于 2010-6-30 09:02

通达信指标:
将两个持仓合二为一：
JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW); 买1:=QJ0*(MIN(OPEN,CLOSE)-LOW); 买2:=QJ0*(JJ-MIN(CLOSE,OPEN)); 卖1:=QJ0*(MAX(CLOSE,OPEN)-JJ); 卖2:=QJ0*(HIGH-MAX(OPEN,CLOSE)); DT:=((买1+买2)-(卖1+卖2))/10000; 主力持仓线:SUM(DT,66),COLOR888888,LINETHICK2; STICKLINE(DT>0,主力持仓线,主力持仓线+DT,2,0),COLOR0000FF; STICKLINE(DT<0,主力持仓线+DT,主力持仓线,2,0),COLOR00FF00; DRAWTEXT(ISLASTBAR,主力持仓线,'主力线 ');
TD1:=QJ0*(MIN(OPEN,CLOSE)-LOW);DD1:=QJ0*(JJ-MIN(CLOSE,OPEN)); DD2:=QJ0*(HIGH-MAX(OPEN,CLOSE));TD2:=QJ0*(MAX(CLOSE,OPEN)-JJ); TD:=TD1-TD2;DA:=DD1-DD2;XD1:=1-(TD1+DD1);XD2:=1-(TD2+DD2); TZ:=V/SUM(V,60)*100; 散户持仓线:SUM(DT,22),COLOR888888,LINETHICK2; STICKLINE(DT>0,散户持仓线,散户持仓线+DT,2,0),COLORFF00FF; STICKLINE(DT<0,散户持仓线+DT,散户持仓线,2,0),COLORFF8800; DRAWTEXT(ISLASTBAR,散户持仓线,'散户线 ');
试试看行不！

页: [1]

股票之声's Archiver