股龙有心(主图源码) - 分析家公式网

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：股龙有心(主图源码)

软件名称：[B]股龙有心(主图源码)[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：21.0 KB
官方主页：Home Page
更新时间：2011-06-16 01:34:33
软件简介:

股龙有心
{股龙有心-(超赢多日主图)}
INPUT: N(1,1,30);
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
Ddmr:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2)),(bigorder(1,2)-bigorder(2,2)))*vol/capital*100;
Ddmrs:=sum(Ddmr,0);

小单买:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)));
小单卖:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)));
中单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)));
中单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)));
大单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)));
大单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)));
特单买:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3));
特单卖:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3));
主单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)),BIGORDER(1,2));
主单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)),BIGORDER(2,2));

主净:(主单买-主单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
主增:=(VOL/CAPITAL)*100*(主单买-主单卖);
超净:(特单买-特单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
超增:=(VOL/CAPITAL)*100*(特单买-特单卖);
大净:(大单买-大单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
大增:=(VOL/CAPITAL)*100*(大单买-大单卖);
中净:(中单买-中单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
中增:=(VOL/CAPITAL)*100*(中单买-中单卖);
散净:(小单买-小单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
散增:=(VOL/CAPITAL)*100*(小单买-小单卖);

DRAWTEXTABS(0,5,'理想超赢今日各单动态'),COLOR1199FF;
DRAWTEXTABS(0,20,'主净:'+ NUMTOSTRN(主净,2)+'('+NUMTOSTRN(主增,2)+'%)'),COLOR00FFFF;
DRAWTEXTABS(0,35,'超净:'+ NUMTOSTRN(超净,2)+'('+NUMTOSTRN(超增,2)+'%)'),COLORFF00FF;
DRAWTEXTABS(0,50,'大净:'+ NUMTOSTRN(大净,2)+'('+NUMTOSTRN(大增,2)+'%)'),COLOR00FF00;
DRAWTEXTABS(0,65,'中净:'+ NUMTOSTRN(中净,2)+'('+NUMTOSTRN(中增,2)+'%)'),COLORB5B5B5;
DRAWTEXTABS(0,80,'散净:'+ NUMTOSTRN(散净,2)+'('+NUMTOSTRN(散增,2)+'%)'),COLORFF9911;

最大值:=50/(MAX(散净,中净,大净,超净,主净));
散户净买:=140+ABS(散净*最大值);
中户净买:=140+ABS(中净*最大值);
大户净买:=140+ABS(大净*最大值);
超大净买:=140+ABS(超净*最大值);
主力净买:=140+ABS(主净*最大值);

DRAWRECTABS(140,20,ABS(主力净买),35,(IF((主净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;
DRAWRECTABS(140,35,ABS(超大净买),50,(IF((超净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;
DRAWRECTABS(140,50,ABS(大户净买),65,(IF((大净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;
DRAWRECTABS(140,65,ABS(中户净买),80,(IF((中净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;
DRAWRECTABS(140,80,ABS(散户净买),95,(IF((散净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;

前主净:=REF(主净,N);
前主增:=REF(主增,N);
前超净:=REF(超净,N);
前超增:=REF(超增,N);
前大净:=REF(大净,N);
前大增:=REF(大增,N);
前中净:=REF(中净,N);
前中增:=REF(中增,N);
前散净:=REF(散净,N);
前散增:=REF(散增,N);

前值:=50/(MAX(前散净,前中净,前大净,前超净,前主净));
散户前净:=140+ABS(前散净*前值);
中户前净:=140+ABS(前中净*前值);
大户前净:=140+ABS(前大净*前值);
超大前净:=140+ABS(前超净*前值);
主力前净:=140+ABS(前主净*前值);

DRAWTEXTABS(0,95,'理想超赢前期各单动态'),COLOR1199FF;
DRAWTEXTABS(0,110,'前主:'+ NUMTOSTRN(前主净,2)+'('+NUMTOSTRN(前主增,2)+'%)'),COLOR00FFFF;
DRAWTEXTABS(0,125,'前超:'+ NUMTOSTRN(前超净,2)+'('+NUMTOSTRN(前超增,2)+'%)'),COLORFF00FF;
DRAWTEXTABS(0,140,'前大:'+ NUMTOSTRN(前大净,2)+'('+NUMTOSTRN(前大增,2)+'%)'),COLOR00FF00;
DRAWTEXTABS(0,155,'前中:'+ NUMTOSTRN(前中净,2)+'('+NUMTOSTRN(前中增,2)+'%)'),COLORB5B5B5;
DRAWTEXTABS(0,170,'前散:'+ NUMTOSTRN(前散净,2)+'('+NUMTOSTRN(前散增,2)+'%)'),COLORFF9911;

DRAWRECTABS(140,110,ABS(主力前净),125,(IF((前主净 >= 0),RGB(200,0,200),RGB(0,255,200)))),COLOR000000,LAYER0;
DRAWRECTABS(140,125,ABS(超大前净),140,(IF((前超净 >= 0),RGB(200,0,200),RGB(0,255,200)))),COLOR000000,LAYER0;
DRAWRECTABS(140,140,ABS(大户前净),155,(IF((前大净 >= 0),RGB(200,0,200),RGB(0,255,200)))),COLOR000000,LAYER0;
DRAWRECTABS(140,155,ABS(中户前净),170,(IF((前中净 >= 0),RGB(200,0,200),RGB(0,255,200)))),COLOR000000,LAYER0;
DRAWRECTABS(140,170,ABS(散户前净),185,(IF((前散净 >= 0),RGB(200,0,200),RGB(0,255,200)))),COLOR000000,LAYER0;
{股龙有心}
V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
V2:=(1-7/100)*(DMA(CLOSE,V1));
V3:=(1+7/100)*(DMA(CLOSE,V1));
V5:=MA((LOW+HIGH+CLOSE)/3,5);
支撑:REF(V2,DATE),POINTDOT,LINETHICK3,COLORCC66FF;
阻力:REF(V3,DATE),POINTDOT,LINETHICK3,COLORGREEN;
MA1:=EMA(CLOSE,5);
MA2:=ATAN((MA1/REF(MA1,1)-1)*100)*180/3.1416;
MA3:=IF(MA2>0,MA2,MA2);
MA5:MA(CLOSE,5),COLORFFFFFF;
MA13:MA(CLOSE,13),COLORFF9900,LINETHICK2;
VAR1:=CLOSE=HHV(C,4) AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3)) OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND C>=REF(C,1) AND C>=REF(C,2);
VAR2:=CLOSE=HHV(C,4) AND REF(C,1)=LLV(C,4);
VAR3:=CLOSE=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2);
VAR4:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);
VAR5:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND REF(C,2)>=REF(C,4) AND C<REF(C,1);
VAR6:=V5>REF(V5,1) AND REF(V5,1)<REF(V5,2);
VAR7:=LOW<HHV(V5,13) AND HIGH>HHV(V5,13) AND CLOSE>REF(C,1) AND CLOSE>OPEN;
VAR8:=VAR7 AND COUNT(VAR6,2);
VAR9:=100*EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6);
VAR10:=EMA(MA(C,13),13);
VAR11:=FILTER((LLV(VAR9,2)=LLV(VAR9,7) AND COUNT(VAR9<0,2) AND CROSS(VAR9,MA(VAR9,2)))=1,5);
VAR12:=FILTER((HHV(VAR9,2)=HHV(VAR9,7) AND COUNT(VAR9>50,2) AND CROSS(MA(VAR9,2),VAR9))=1,1);
VAR13:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;
VAR14:=FILTER(((CROSS(VAR13,0) OR CROSS(C,VAR10)) AND VAR11)=1,3);
VAR15:=MA(C,18)>=REF(MA(C,18),3) AND CROSS(C,MA(C,18));
VAR16:=VAR8 AND NOT(REF(VAR8,1));
PARTLINE(MA1
[url=http://www.70822.com/soft/sort013/sort03/down-35052.html]股龙有心(主图源码)[/url]