【巧设扩展数据】飞狐版有两年没用飞狐了,今天装了一下效果还可以。有两点要说明: 一,涨跌停主买和主卖的性属改成与分折家一致,这样达到排序的效果。 二,设扩展数据股票和指数范围时全打钩。 {盛唐参考Y 引用公式} input:n(20,0,300); V1:=TIME; a1:=COUNT(BARSCOUNT(C)=1 and time<102000 ,0 ); 开盘分:=if(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)), (FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000))); aa:=BARSCOUNT(C); 人气1:=if(a1>0,aa/开盘分,aa/(开盘分-60)); D1:=(ASKVOL(1)+ASKVOL(2)+ASKVOL(3))=0 AND REF((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),1 )=0 and REF(BIDVOL(1),1)>0; E1:=(BIDVOL(1)+BIDVOL(2)+BIDVOL(3))=0 AND REF((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),1 )=0 and REF(ASKVOL(1),1)>0; 买入:IF(E1,SELLVOL,IF(D1=0,BUYVOL,0)); 卖出:IF(D1,BUYVOL,IF(E1=0,SELLVOL,0)); 总买:sum(买入,0); 总卖:sum(卖出,0); XS:=10000*n/c/100; 大单买入:=if(买入>=xs ,买入,0); 大单卖出:=if(卖出>=xs ,卖出,0); 总大买:=sum(大单买入,0); 总大卖:=sum(大单卖出,0); 大单买:总大买,LINETHICK0; 大单卖:总大卖,LINETHICK0; 人气:if(大单买>大单卖,FLOOR(人气1)+ABS((大单买-大单卖))/DYNAINFO( 8), 0-(FLOOR(人气1)+ABS((大单买-大单卖))/DYNAINFO( 8))); =========================================================== {辅助001 引用公式} input:n(100,0,1000); C1:=CLOSE; 大额线:=N*10000; mm22:=SUM(AMOUNT,0); T00:=IF(C1>REF(c1,1),0.9,-0.9); T01:=IF(C1<REF(c1,1),-0.9,0.9); T02:=T00+T01; TT1:=BARSLAST(CROSS(T02,0)); TT2:=BARSLAST(CROSS(0,T02)); TT:=IF(T02=1.8,1,IF(T02=-1.8,-1,0)); 正V1:=IF(TT=1 OR (TT=0 AND TT1>TT2),AMOUNT,0); 负V1:=IF(TT=-1 OR (TT=0 AND TT1<TT2),AMOUNT,0); 正V:=IF(正V1>大额线,正V1,0); 负V:=IF(负V1>大额线,负V1,0); 正总:=SUM(正V,0); 负总:=SUM(负V,0); 人气:IF(CATEGORY=0 OR CATEGORY=13 OR CATEGORY=12,(正总-负总)/mm22*100,"盛唐参考Y.人气"(20)),LINETHICK0; 大单买:IF(CATEGORY=0,正总,"盛唐参考Y.大单买"(20)),LINETHICK0; 总买:IF(CATEGORY=0,SUM(正V1,0),"盛唐参考Y.总买"(20)),LINETHICK0; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ {人气 } 人气:EXTDATA(1),LINETHICK0; {大单} 人气:=EXTDATA(1); 总:=V; 大单:FRACPART(人气)*总/FINANCE( 7); [ 本帖最后由 唐仁政 于 2008-11-30 15:50 编辑 ]股票论坛 www. |
|