分析家公式网提示：本指标比较复杂，需要设置扩展数据，并且指标对电脑要求较高，在老电脑上可能运行有迟滞现象，非常不流畅，甚至不能运行，请斟酌后安装。另外,需要从指标源码中发现，需要盛唐参考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;
公式转载：理想论坛 |
