2008年最佳原创指标之五：天龙地虎公式 大智慧指标原创

指标公式详细说明

好公式网提示：本指标比较复杂，需要设置扩展数据，并且指标对电脑要求较高，在老电脑上可能运行有迟滞现象，非常不流畅，甚至不能运行，请斟酌后安装。另外,需要从指标源码中发现，需要盛唐参考y来支持才能完整，但是作者并没有提供这个公式。遗憾！

渡过平安夜将迎接新一年【元旦献礼】《天龙地虎》☆ 作者：唐仁政

新一年！新气象！理想更理想！！！

平安！平安！朋友们都平平安安！！！

一，龙会飞。天龙部分四天大单对比图用横向放大作图，收盘前当天

用预测量作图，因此有时会就拄图飞出画面。这将突出大单、大量

效果。四天在历史量的位置最好用配套的股海看量。除作图外，表

中均是接收数据算出。

二，地虎数据均用分笔数据算出。分级大单量用金额在表头指标拦显示。

地虎对比图也用金额作图。为统一对比起见，个股表中数据均用成交

量数据。

三，公式需要设立扩展数据，不会设置的，请参考大智慧新一代软件的扩展数据设置说明，这这是软件的基本操作知识，〈扩展数据11〉和〈扩展数据12〉必备。除有关引用公式外，另增

加下面两个引用公式。

{ 天龙地虎dzh2 }

开盘分:="盛唐参考e.开盘分#tick";
五万以下:"盛唐参考e.五万以下j#tick",linethick0,precis0,colorffffff;
五至二十万:"盛唐参考e.五至二十万j#tick",linethick0,precis0,color0000ff;
二十至五十:"盛唐参考e.二十至五十j#tick",linethick0,precis0,colorffffff;
五十至百万:"盛唐参考e.五十至百万j#tick",linethick0,precis0,color0000ff;
百万以上:"盛唐参考e.百万以上j#tick",linethick0,precis0,layer0,colorffffff;
总资金:"盛唐参考e.总资金j#tick",colorred,linethick0,precis0,layer0;
fillrgn(-550,1500,1),color880088;
二十万以下:="盛唐参考e.二十万以下#tick";
二十下换:="盛唐参考e.二十下换#tick";
二十万以上:="盛唐参考e.二十万以上#tick";
二十上换:="盛唐参考e.二十上换#tick";
五十万以上:="盛唐参考e.五十万以上#tick";;
五十上换:="盛唐参考e.五十上换#tick";
百万上:="盛唐参考e.百万以上#tick";
百万上换:="盛唐参考e.百万上换#tick";
人气:="分时引1.人气#day";
drawtextrel(200,700,'开盘分:'+开盘分),colorffffff,precis0;
drawtextrel(480,700,'人气:'+人气),colorffffff,precis0;
drawtextrel(300,20,'二十万以下:'+二十万以下),color00ffff,precis0,layer0;
drawtextrel(490,20,'％:'+二十下换),color00ffff,precis0,layer0;
drawtextrel(300,170,'二十万以上:'+二十万以上),color00ffff,precis0,layer0;
drawtextrel(490,170,'％:'+二十上换),color00ffff,precis0,layer0;
drawtextrel(300,320,'五十万以上:'+五十万以上),colorffffff,precis0,layer0;
drawtextrel(490,320,'％:'+五十上换),colorffffff,precis0,layer0;
drawtextrel(300,470,'百万以上:'+百万上),colorffffff,precis0,layer0;
drawtextrel(490,470,'％:'+百万上换),colorffffff,precis0,layer0;
mmm0:="盛唐参考e.mmm0#tick";
mmm01:="盛唐参考e.mmm01#tick";
mmm02:="盛唐参考e.mmm02#tick";
mmm1:="盛唐参考e.mmm1#tick";
mmm11:="盛唐参考e.mmm11#tick";
mmm12:="盛唐参考e.mmm12#tick";
mmm2:="盛唐参考e.mmm2#tick" ;
mmm21:="盛唐参考e.mmm21#tick" ;
mmm22:="盛唐参考e.mmm22#tick" ;
mmm3:="盛唐参考e.mmm3#tick" ;
mmm31:="盛唐参考e.mmm31#tick";
mmm32:="盛唐参考e.mmm32#tick";
mmm4:="盛唐参考e.mmm4#tick";
mmm41:="盛唐参考e.mmm41#tick";
mmm42:="盛唐参考e.mmm42#tick";
drawrectrel(0+600,900-mmm0,5+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(0+600,900-mmm01,5+600,900 ,rgb(200,0,0)),colorffffff,layer1;
drawrectrel(5+600,900-mmm02,10+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawtextrel(0+600,900,'5'),colorffffff;
drawrectrel(15+600,900-mmm1,20+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(15+600,900-mmm11,20+600,900 ,rgb(200,0,0)),colorffffff,layer1;
drawrectrel(20+600,900-mmm12,25+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawtextrel(13+600,900,'20'),colorff00ff;
drawrectrel(30+600,900-mmm2,35+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(30+600,900-mmm21,35+600,900 ,rgb(200,0,0)),colorffffff,layer1;
drawrectrel(35+600,900-mmm22,40+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawtextrel(30+600,900,'25'),colorffffff;
drawrectrel(45+600,900-mmm3,50+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(45+600,900-mmm31,50+600,900 ,rgb(200,0,0)),colorffffff,layer1;
drawrectrel(50+600,900-mmm32,55+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawtextrel(45+600,900,'50'),colorff00ff;
drawrectrel(60+600,900-mmm4,65+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(60+600,900-mmm41,65+600,900 ,rgb(200,0,0)),colorffffff,layer1;
drawrectrel(65+600,900-mmm42,70+600,900 ,rgb(0,200,200)),colorffffff,layer1;
drawtextrel(60+600,900,'100'),colorffffff;

drawtextrel(20,800,'天龙地虎'),linethick6,coloryellow;
drawtextrel(200,800,stklabel+' '+stkname),linethick6,colorffff80;
drawtextrel(465,850,'(龙虎看盘)'),linethick3,coloryellow;
咋大诤:="分时引1.咋大诤#day";
前大诤:="分时引1.前大诤#day";
三日大诤:="分时引1.三日大诤#day";
五日大诤:="分时引1.五日大诤#day";
九日大诤:="分时引1.九日大诤#day";
咋换:="分时引1.咋换#day";
前换:="分时引1.前换#day";
总净换3:="分时引1.总净换3#day";
总净换5:="分时引1.总净换5#day";
总净换9:="分时引1.总净换9#day";
drawtextrel(680,20,'咋天(20上)总净:'+咋大诤),color00ffff,precis0,layer0;
drawtextrel(900,20,'％:'+咋换),color00ffff,precis0,layer0;
drawtextrel(680,170,'前天(20上)总净:'+前大诤),color00ffff,precis0,layer0;
drawtextrel(900,170,'％:'+前换),color00ffff,precis0,layer0;
drawtextrel(680,320,'三天(20上)总净:'+三日大诤),colorffffff,precis0,layer0;
drawtextrel(900,320,'％:'+总净换3),colorffffff,precis0,layer0;
drawtextrel(680,470,'五天(20上)总净:'+五日大诤),colorffffff,precis0,layer0;
drawtextrel(900,470,'％:'+总净换5),colorffffff,precis0,layer0;
drawtextrel(680,620,'九天(20上)总净:'+九日大诤),colorffffff,precis0,layer0;
drawtextrel(900,620,'％:'+总净换9),colorffffff,precis0,layer0;

mm0:="分时引1.mm0#day";
mm01:="分时引1.mm01#day";
mm02:="分时引1.mm02#day";
mm1:="分时引1.mm1#day";
mm11:="分时引1.mm11#day";
mm12:="分时引1.mm12#day";
mm2:="分时引1.mm2#day";
mm21:="分时引1.mm21#day";
mm22:="分时引1.mm22#day";
mm3:="分时引1.mm3#day";
mm31:="分时引1.mm31#day";
mm32:="分时引1.mm32#day";
drawrectrel(0,20,mm3,60,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(0,20,mm31,60,rgb(200,0,20)),colorffffff,layer1;
drawrectrel(0,60,mm32,100,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(0,130,mm2,170,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(0,130,mm21,170,rgb(200,0,20)),colorffffff,layer1;
drawrectrel(0,170,mm22,210,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(0,240,mm1,280,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(0,240,mm11,280,rgb(200,0,20)),colorffffff,layer1;
drawrectrel(0,280,mm12,320,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(0,350,mm0,390,rgb(0,200,200)),colorffffff,layer1;
drawrectrel(0,350,mm01,390,rgb(200,0,20)),colorffffff,layer1;
drawrectrel(0,390,mm02,430,rgb(0,200,200)),colorffffff,layer1;

dif:=ema(close,20)-ema(close,5);
dea:=ema(dif,10);
macd:=300*(dif-dea)*2/ema(c,30);
vara:=ema(ref(close,1),4);
青山:=(sma(max(close-vara,0),6,1)/sma(abs(close-vara),6,1)*100);
绿水:=青山<3.5;
火红的:=filter(macd<0 and macd>ref(macd,1) and 青山<20,5);
太阳:=cross(青山,90);
dd:=if(macd>=0,macd,0)*1.5;
stickline(dd and dd>ref(dd,1),0,dd*8,10,0),color0000ff;
stickline(dd and dd<ref(dd,1),0,dd*8,8,1),color0000ff;
fillrgn((青山-25)*15,0,(青山-25)*1.5>0),color008800,layer3;
fillrgn(0,-500,c>0),color880088,layer3;
drawtext(绿水,-100,'︼'),align0,color688ec1;
drawtext(cross( 0,macd)and 青山>75 or 太阳,980,'ヲ'),colordbdbdb,layer0;
ar1:=llv(low,10);
ar2:=hhv(h,25);
ar3:=ema((c-ar1)/(ar2-ar1)*4,4);
stickline(cross(ar3,0.3),-500,-300,3,0),colorred,linethick2,layer2;
stickline(cross(3.5,ar3),1200,1400,2,0), color00ffff,linethick2;
aa3:=(hhv(high,21)-close)/(hhv(high,21)-llv(low,21))*100-10;
aa4:=(close-llv(low,21))/(hhv(high,21)-llv(low,21))*100;
aa5:=sma(aa4,13,8);
aa55:=ceiling(sma(aa5,13,8));
aa6:=sma(aa3,21,8);
stickline(aa55-aa6>85,1450,1500,20,1),colorffffff,layer2;

红红的天:=3*sma((close-llv(low,27))/(hhv(high,27)-llv(low,27))*100,5,1)
-2*sma(sma((close-llv(low,27))/(hhv(high,27)
-llv(low,27))*100,5,1),3,1);
百年好和:if(cross(红红的天,2),700,-500),color0000ff,layer2;
partline(-500,红红的天<=10,rgb(255,0,0),红红的天>10,rgb(0,255,0)),pointdot,linethick5,layer2;
partline(-500,红红的天<=10,rgb(220,50,50),红红的天>10,rgb(50,220,50)),pointdot,linethick3,layer2;
partline(-500,红红的天<=10,rgb(200,200,200),红红的天>10,rgb(200,200,200)),pointdot,linethick1,layer2;
l1:=(close-llv(low,11))/(hhv(high,11)-llv(low,11))*200-60;
龙ｋ:sma(l1,3,1)*10,colorbbffbb,layer0;
凤ｄ:sma(龙ｋ,3,1),colorbbffbb,layer0;
有心就有好运！:0,pointdot;
partline(700,cross(红红的天,2)),crossdot,linethick6,colorff66ff,layer2;
partline(700,cross(红红的天,2)),pointdot,linethick4,color00ccff,layer2;
==============================================================

{盛唐参考e引用公式}
c1:=close;
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));
正v:=if(tt=1 or (tt=0 and tt1>tt2),amount*1000,0)/10000000;
负v:=if(tt=-1 or (tt=0 and tt1<tt2),amount*1000,0)/10000000;
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));
ci:=if(category=0,1,c);
var5:=if(category=0,正v,"盛唐参考y.买入");
var6:=if(category=0,负v,"盛唐参考y.卖出");
xb5:=sum(if(amount<=50000,var5,0),0);
xs5:=sum(if(amount<=50000,var6,0),0);
hm5:=(xb5+xs5);
五万以下:=(xb5-xs5);
xb20:=sum(if(amount<=200000 and amount>50000,var5,0),0);
xs20:=sum(if(amount<=200000 and amount>50000,var6,0),0);
hm20:=(xb20+xs20);
五至二十万:=(xb20-xs20);
xb50:=sum(if(amount<=500000 and amount>200000,var5,0),0);
xs50:=sum(if(amount<=500000 and amount>200000,var6,0),0);
hm50:=(xb50+xs50);
二十至五十:=(xb50-xs50);
sxb5:=sum(if(amount<=1000000 and amount>500000,var5,0),0);
sxs5:=sum(if(amount<=1000000 and amount>500000,var6,0),0);
shm5:=(sxb5+sxs5);
五十至百万:=(sxb5-sxs5);
xb100:=sum(if(amount>1000000,var5,0),0);
xs100:=sum(if(amount>1000000,var6,0),0);
hm100:=(xb100+xs100);
百万以上:(xb100-xs100);
总资金:=五万以下+五至二十万+二十至五十+ 五十至百万+百万以上;


cj:=if(category=0,1,c);
jxb5:=sum(if(amount<=50000,var5*cj,0),0)/100;
jxs5:=sum(if(amount<=50000,var6*cj,0),0)/100;
jhm5:=(jxb5+jxs5);
五万以下j:(jxb5-jxs5);
jxb20:=sum(if(amount<=200000 and amount>50000,var5*cj,0),0)/100;
jxs20:=sum(if(amount<=200000 and amount>50000,var6*cj,0),0)/100;
jhm20:=(jxb20+jxs20);
五至二十万j:(jxb20-jxs20);
jxb50:=sum(if(amount<=500000 and amount>200000,var5*cj,0),0)/100;
jxs50:=sum(if(amount<=500000 and amount>200000,var6*cj,0),0)/100;
jhm50:=(jxb50+jxs50);
二十至五十j:(jxb50-jxs50);
jsxb5:=sum(if(amount<=1000000 and amount>500000,var5*cj,0),0)/100;
jsxs5:=sum(if(amount<=1000000 and amount>500000,var6*cj,0),0)/100;
jshm5:=(jsxb5+jsxs5);
五十至百万j:(jsxb5-jsxs5);
jxb100:=sum(if(amount>1000000,var5*cj,0),0)/100;
jxs100:=sum(if(amount>1000000,var6*cj,0),0)/100;
jhm100:=(jxb100+jxs100);
百万以上j:(jxb100-jxs100);
jhm5+jhm20+jhm50+jshm5+jhm100;
总资金j:五万以下j+五至二十万j+二十至五十j+ 五十至百万j+百万以上j;
涨速:(五十至百万j+百万以上j-ref(五十至百万j+百万以上j,1))/abs(五十至百万j+百万以上j)*100;
人气:if(总资金>=0,人气1,-人气1);
二十万以下:五万以下+五至二十万;
二十下换:if(category=0,二十万以下/sum(amount,0)*1000000,二十万以下/capital*100);
二十万以上:二十至五十+ 五十至百万+百万以上;
二十上换:if(category=0,二十万以上/sum(amount,0)*1000000,二十万以上/capital*100);
五十万以上:五十至百万+百万以上;
五十上换:if(category=0,五十万以上/sum(amount,0)*1000000,五十万以上/capital*100);
百万上换:if(category=0,百万以上/sum(amount,0)*1000000,百万以上/capital*100);
人气:="分时引1.人气#day";
vvh:=max(jhm5,jhm20,jhm50,jshm5,jhm100);
mm:=800/vvh;
mmm0:mm*jhm5,linethick0 ;
mmm01:mm*jxb5,linethick0 ;
mmm02:mm*jxs5,linethick0;
mmm1:mm*jhm20,linethick0 ;
mmm11:mm*jxb20,linethick0 ;
mmm12:mm*jxs20,linethick0;
mmm2:mm*jhm50,linethick0 ;
mmm21:mm*jxb50,linethick0 ;
mmm22:mm*jxs50,linethick0;
mmm3:mm*jshm5,linethick0 ;
mmm31:mm*jsxb5,linethick0 ;
mmm32:mm*jsxs5,linethick0;
mmm4:mm*jhm100,linethick0 ;
mmm41:mm*jxb100,linethick0 ;
mmm42:mm*jxs100,linethick0;
===================================================

{分时引1引用公式}
实际ｖ:= vol ;
var1:=dynainfo(17)*ref(ma(vol,5),1);
var2:=dynainfo(7)=close and dynainfo(10)=amount;
var3:=dynainfo(7)=close and dynainfo(10)=amount;
预测ｖ1:=if(dynainfo(7)=close and dynainfo(10)=amount,var1,var2);
预测ｖ:=if(实际ｖ>=预测ｖ1,实际ｖ,预测ｖ1);
预比昨:预测ｖ/ref(实际ｖ,1),linethick0;
比1:=预测ｖ/实际ｖ;
比比:=between(比1,0.8,1.2);

比:=if(比比,1,比1);
人气:extdata(11),linethick0;
总:if(category=0,amount,v),linethick0;
大单买:extdata(12),linethick0;
三日总量:=sum(总,3);
五日总量:=sum(总,5);
九日总量:=sum(总,9);
总量21:=sum(总,21);
{用大单计算}
日大诤:if(category=0,人气*总/100,fracpart(人气)*总);
三日大诤:sum(日大诤,3);
五日大诤:sum(日大诤,5);
九日大诤:sum(日大诤,9);
大诤21:sum(日大诤,21);
大单卖:大单买-日大诤,linethick0;
日买入:=(总-日大诤)/2+日大诤;
日卖出:=(总-日大诤)/2;

咋大诤:ref(日大诤,1);
前大诤:ref(日大诤,2);
大前诤:ref(日大诤,3);
日净换:if(category=0,人气,日大诤/capital*100);
咋换:ref(日净换,1);
前换:ref(日净换,2);
大前换:ref(日净换,3);
三天总人气:=三日大诤/三日总量*100;
五天总人气:=五日大诤/五日总量*100;

九天总人气:九日大诤/九日总量*100;
人气21:大诤21/总量21*100;
总净换3:if(category=0,三天总人气,三日大诤/capital*100);
总净换5:if(category=0,五天总人气,五日大诤/capital*100);
咋换5:ref(总净换5,1);
总净换9:if(category=0,九天总人气,九日大诤/capital*100);
总净换21:if(category=0,人气21,大诤21/capital*100);
咋换21:ref(总净换21,1);
vvh:=max(ref(总,1),ref(总,2),ref(总,3));
mm:=300/vvh;
mm0:mm*总*比,linethick0;
mm01:mm*日买入*比,linethick0 ;
mm02:mm*日卖出*比,linethick0 ;
mm1:mm*ref(总,1),linethick0 ;
mm11:mm*ref(日买入,1),linethick0 ;
mm12:mm*ref(日卖出,1),linethick0 ;
mm2:mm*ref(总,2) ,linethick0;
mm21:mm*ref(日买入,2),linethick0 ;
mm22:mm*ref(日卖出,2),linethick0 ;
mm3:mm*ref(总,3),linethick0 ;
mm31:mm*ref(日买入,3),linethick0 ;
mm32:mm*ref(日卖出,3) ,linethick0;

公式转载：理想论坛

指标公式下载地址

上一指标公式：金牌逃顶公式 大智慧金牌

下一指标公式：股市神兵全套指标公式 大智慧全套股市

相关大智慧公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文2008年最佳原创指标之五：天龙地虎公式 大智慧指标原创仅供学习研究。