查看完整版本: 海龟交易图的扩展

海龟交易图的扩展

[img]http://bbs.macd.cn/attachment.php?aid=898878&noupdate=yes[/img]
[url]http://bbs.macd.cn/viewthread.php?tid=971470&extra=page%3D1[/url]

希望能将此图引入.

variable:DM[BKs]='';
//,vcp1[BKs]=0,vcp2[BKs]=0,vcp3[BKs]=0
//,vci1[BKs]=0,vci2[BKs]=0,vci3[BKs]=0
字:='';
字2:='';
字3:='';
字a:='';
字b:='';
Js:=0;
for k=1 to BKs do  begin
   BKm:=STKFROMBLK(BK,k);//取代码
   Dm[k]:=BKm;//代码赋值
   TMPD:=STKINDI(BKm,'排.Rd',0,6);//引用指标DD

   TMP:=STKINDI(BKm,XX,0,6);//引用指标XX
   TMP2:=STKINDI(BKm,XX2,0,6);//引用指标XX
   TMP3:=STKINDI(BKm,XX3,0,6);//引用指标XX
   vci[k]:=IF(TMPD[P]=D0,TMP[P],-1000);//去除当天停牌股
   vci2[k]:=IF(TMPD[P]=D0,TMP2[P],-1000);//去除当天停牌股
   vci3[k]:=IF(TMPD[P]=D0,TMP3[P],-1000);//去除当天停牌股
   vcp[k]:=TMP[P];//指标XX赋值
   vcp2[k]:=TMP2[P];//指标XX赋值
   vcp3[k]:=TMP3[P];//指标XX赋值
Js:=Js+1-(vci[k]=-1000);//当日交易股票数

end;
PX1:=SORTPOS(vci,1,1,BKs);//
PX2:=SORTPOS(vci2,1,1,BKs);//
PX3:=SORTPOS(vci3,1,1,BKs);//
for i=1 to Js do begin
Mc:=STKNAMEEX(Dm[vci[i]]);//证券名称
Dmi:=STRRIGHT(Dm[vci[i]],6);//证券代码
Zfi:=numtostr(vcp[vci[i]],2);//涨幅
Zfc:=STRLEN(Zfi);
Zfk:=if(Zfc=4,'   ',if(Zfc=5,'  ',' '));//涨幅调节空
Hsi:=numtostr(vcp2[vci[i]],2);//换手
Hsc:=STRLEN(Hsi);
Hsk:=if(Hsc=4,'  ',' ');//换手调节空
Lbi:=numtostr(vcp3[vci[i]],2);//量比
//Lbc:=STRLEN(Lbi);
//Lbk:=if(Lbc=3,'',if(Lbc=4,' ','  '));//量比调节空
Zxi:=numtostr(i,0);//排序
Dxi:=numtostr(Js-i+1,0);//倒序
Zt:=if(i<10 or i>Js-9,' ','');//序号调节空格
ZFF:='.'+Mc+' '+Zfi+Zfk+Hsi+Hsk+Lbi+'\n';
if i<N then 字a:=字a+Zt+Zxi+ZFF;
if i>Js-N+1 then 字b:=Zt+Dxi+ZFF+字b;
EXPLAIN(1,'   名 称 '+'  涨幅'+'%  换手'+'%  量比');
EXPLAIN(1,字a+'\n \n'+字b);

Zf:=Mc+'('+Dmi+')　涨幅＝'+Zfi+Zfk;//字符(名称、代码、涨幅)
Zf2:='换手率＝'+Hsi+Hsk;//字符(换手)
Zf3:='量比＝'+Lbi;//字符(量比)
Zk:=if(i=1,' 行业：'+Bk+'\n','\n');//转折、定位板块名
if i<N then 字:=字+Zt+Zxi+'.'+Zf+'% '+Zf2+'% '+Zf3+Zk;
if i>Js-N+1 then 字2:=Zt+Dxi+'.'+Zf+'% '+Zf2+'% '+Zf3+Zk+字2;
end;
DRAWTEXT(SYSPARAM(2)=BARPOS-5,8,字+'\n \n'+字2),COLORMAGENTA;
板块含证券量:BKs,LINETHICK,COLORYELLOW;
今日停牌数:BKs-Js,LINETHICK,COLORYELLOW;

直接引入飞狐是没有任何显示的,为何?

转换成海龟的相关参数显示就好了,公式原理正在研究中.

ok,谢谢

祝:节日快乐 2007年财运不断

[[i] 本帖最后由 右升道 于 2006-12-23 20:50 编辑 [/i]]

谢谢分享，3q

交易大师