大智慧飞龙在天未加密选股指标公式源码

大智慧飞龙在天未加密选股指标公式源码

源码正文：

input:LONG(26,20,100),SHORT(12,5,40),M(9,2,60){XG51};
a1:=1{XG51};
a2:=DYNAINFO(14){XG51};
a3:=(FINANCE2(37)){XG51};
a4:=(FINANCE2(3)){XG51};
a5:=DYNAINFO(17){XG51};
a6:=(ma(CLOSE,0)) * a1{XG51};
a7:=(MA(a6,0)) * a1{XG51};
a8:=a6 - a7{XG51};
stICKLINE((a6 > a7),a6,a7,0.8,501),linethick1,colorRed{XG51};
STICKLINE((a7 > a6),a6,a7,0.8,1),linethick1{XG51};
DRAWICON(((crOSS(a7,a6)) AND (TIME > 93200)),a6,8),colorGreen{XG51};
DRAWICON(((CROSS(a6,a7)) AND (TIME > 93200)),a6,7),colorYellow{XG51};
a9:=(CLOSE = ((HHV(CLOSE,0)) * a1)) AND (vol >= 1000){XG51};
a10:=VOL = (HHV(VOL,0)){XG51};
a11:=(STRFIND(STKNAME,'ST',1)) > 0{XG51};
a12:=(STRFIND(STKNAME,'S',1)) > 0{XG51};
a13:=NOT(a11) AND NOT(a12){XG51};
a14:=SUM((((((a13 AND a9) AND a10) AND (CLOSE > (MA(CLOSE,0)))) AND (TIME > 93500)) AND (TIME < 145500)),0){XG51};
a15:=((ALLBIDVOL / (ALLBIDVOL + ALLASKVOL)) * 100) * a1{XG51};
a16:=(HIGH + LOW) / 2{XG51};
a17:=(a14){XG51};
a18:=(a15){XG51};
a19:=(MA((MA(CLOSE,0)),0)) * a1{XG51};
DRAWTEXT(((((a13 AND a9) AND a10) AND (TIME > 93500)) AND (TIME < 144500)),CLOSE,'涨'),colorRed{XG51};
DRAWTEXTAbs(25,282,' '),colorCyan{XG51};
DRAWTEXTABS(25,302,' '),colorCyan{XG51};
DRAWTEXT((FILTER((((a5 > 1) AND (a14 >= 2)) AND (a8 > 0)),15)),a6,'追涨'),linethick3,coloryellow{XG51};
a3:=(FINANCE2(37)){XG51};
DRAWTEXTABS(100,282,' 流通股 '+a3),colorGreen{XG51};
a4:=(FINANCE2(3)){XG51};
DRAWTEXTABS(280,282,' 收益 '+a4),colorWhite{XG51};
DRAWTEXTABS(290,282,' 量对比 '+a5),colorGreen{XG51};
DRAWTEXTABS(25,262,'敢死队'),colorCyan{XG51};
DRAWTEXTABS(25,242,'操盘最高境界就是敢于找死'),colorCyan{XG51};
DRAWTEXTABS(25,222,'涨停板敢死队，勇敢者的游戏。飞龙在天！'),linethick1,COLOR00EEff{XG51};
a20:=(ema(CLOSE,SHORT)) - (EMA(CLOSE,LONG)){XG51};
a21:=EMA(a20,M){XG51};
a22:=2 * (a20 - a21){XG51};
DRAWTEXT((FILTER(((a20 * a1) > 0.2),30)),CLOSE,'警报'),linethick2,colorGreen{XG51};
DRAWTEXT((((FILTER(((a20 * a1) < -0.03),30)) AND (TIME > 113500)) AND (a2 > -0.02)),CLOSE,'涨'),linethick3,colorRed{X=G*5*1=C=N={};

大智慧超级经典主图未加密选股指标公式源码

源码正文：

N:=20{XG51};
DRAWGBKLAst(DATE>900101,STRIP(RGB(75,75,75),RGB(0,0,0),0)){XG51};
DRAWTEXTAbs(10,10,STKLABEL+' '+STKNAME+' '+BKNAME),COLOR00FFFF{XG51};
STICKLINE(C>=O,C,O,8,0),COLOR000055{XG51};
STICKLINE(C>=O,C,O,6.5,0),COLOR000075{XG51};
STICKLINE(C>=O,C,O,5,0),COLOR000095{XG51};
STICKLINE(C>=O,C,O,3.5,0),COLOR0000B5{XG51};
STICKLINE(C>=O,C,O,2,0),COLOR0000D5{XG51};
STICKLINE(C>=O,H,L,0.5,0),COLOR0000F5{XG51};
STICKLINE(C<O,C,O,8,0),COLOR303000{XG51};
STICKLINE(C<O,C,O,6.5,0),COLOR404000{XG51};
STICKLINE(C<O,C,O,5,0),COLOR505000{XG51};
STICKLINE(C<O,C,O,3.5,0),COLOR606000{XG51};
STICKLINE(C<O,C,O,2,0),COLOR707000{XG51};
STICKLINE(C<O,H,L,0.5,0),COLOR808000{XG51};
总股本（亿）:FINANCE2(35)/10000,COLORBLUE,LINETHICK0{XG51};
流通（亿）:FINANCE2(37)/10000,COLORFFFFFF,LINETHICK0{XG51};
均价:=(3*C+H+L+O)/6{XG51};
VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36{XG51};
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3{XG51};
FILLRGN(VAR1,VAR2,VAR1>VAR2,(RGB(100,0,100))){XG51};
短趋:VAR1,ColorFFFFFF{XG51};
中趋:VAR2,COLORBLUE{XG51};
PARTLINE(中趋,中趋<REF(中趋,1)),COLORCYAN{XG51};
SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1{XG51};
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1{XG51};
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1{XG51};
SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE<VAR1{XG51};
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);{XG51};
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2{XG51};
XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2){XG51};
XD2:=VAR1=VAR2 AND CLOSE>VAR1{XG51};
SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N)){XG51};
量能饱和度:=IF(SAT>1,1,SAT)*100{XG51};
IF BARSTATUS=2 AND SZ1 THEN BEGIN
DRAWTEXTABS(320,25,'调整结束短线介入'),COLORWHITE{XG51};
END
ELSE
IF BARSTATUS=2 AND SZ2 THEN BEGIN
DRAWTEXTABS(320,25,'上升通道走势良好'),COLORWHITE{XG51};
END
ELSE
IF BARSTATUS=2 AND SZ3 THEN BEGIN
DRAWTEXTABS(320,25,'股价偏离注意调整'),COLORWHITE{XG51};
END
ELSE
IF BARSTATUS=2 AND SZ4 THEN BEGIN
DRAWTEXTABS(320,25,'上升通道调整洗盘'),COLORCYAN{XG51};
END
ELSE
IF BARSTATUS=2 AND SZ5 THEN BEGIN
DRAWTEXTABS(320,25,'转向特征注意离场'),COLORCYAN{XG51};
END
ELSE
IF BARSTATUS=2 AND SZ6 THEN BEGIN
DRAWTEXTABS(320,25,'通道改变坚决离场'),COLORCYAN{XG51};
END
ELSE
IF BARSTATUS=2 AND XD1 THEN BEGIN
DRAWTEXTABS(320,25,'下跌通道只宜观望'),COLORCYAN{XG51};
END
ELSE
IF BARSTATUS=2 AND XD2 THEN BEGIN
DRAWTEXTABS(320,25,'短期底部准备进入'),COLORBLUE{XG51};
END{XG51};
AB1:=COST(0.33){XG51};
AB2:=COST(5){XG51};
AB3:=COST(15){XG51};
AB4:=COST(55){XG51};
AB5:=COST(97){XG51};
AA1:=COST(90){XG51};
AA2:=COST(70){XG51};
AA3:=COST(30){XG51};
AA4:=COST(10){XG51};
获利:=WINNER(CLOSE)*100{XG51};
套牢:=100-WINNER(CLOSE)*100{XG51};
DRAWTEXTABS(15,25,'量能饱和度:'+NUMTOSTRN(量能饱和度,2)+'%'),COLOR00FFFF{XG51};
DRAWTEXTABS(15,40,'90成本:'+NUMTOSTRN(AA1,2)),COLOR00FFFF{XG51};
DRAWTEXTABS(15,55,'70成本:'+NUMTOSTRN(AA2,2)),COLOR00FFFF{XG51};
DRAWTEXTABS(15,70,'30成本:'+NUMTOSTRN(AA3,2)),COLOR00FFFF{XG51};
DRAWTEXTABS(15,85,'10成本:'+NUMTOSTRN(AA4,2)),COLOR00FFFF{XG51};
DRAWTEXTABS(15,100,'底出击:'+NUMTOSTRN(AB1,2)),COLOR00FFFF{XG51};
DRAWTEXTABS(520,25,'建仓:'+NUMTOSTRN(AB2,2)),COLOR00FFFF{XG51};
DRAWTEXTABS(600,25,'快刀:'+NUMTOSTRN(AB3,2)),COLOR00FFFF{XG51};
DRAWTEXTABS(675,25,'升浪:'+NUMTOSTRN(AB4,2)),COLOR00FFFF{XG51};
DRAWTEXTABS(520,40,'获利:'+NUMTOSTRN(获利,2)+'%'),COLOR00FFFF{XG51};
DRAWTEXTABS(600,40,'套牢:'+NUMTOSTRN(套牢,2)+'%'),COLOR00FFFF{XG51};
DRAWTEXTABS(675,40,'预测:'+NUMTOSTRN(AB5,2)),COLOR00FFFF{XG51};
TJ1:=vol=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1{XG51};
立桩量:=FILTER(TJ1,5){XG51};
TJ2:=IF(BArslAST(立桩量)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(HIGH,3),1,0))){XG51};
突破:=TJ2=1{XG51};
STICKLINE(CLOSE,REF(HIGH,BARSLAST(立桩量)),REF(HIGH,BARSLAST(立桩量)),6,0),COLORGREEN{XG51};
STICKLINE(CLOSE,REF(LOW,BARSLAST(立桩量)),REF(LOW,BARSLAST(立桩量)),6,0),COLORBLUE{XG51};
TJ3:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(LOW,3),1,0))){XG51};
三天法则:=TJ3=1{XG51};
成立:=三天法则 AND 突破{XG51};
条件成立:=FILTER(成立,3){XG51};
DRAWTEXT(条件成立,L*0.99,'成立'),COLORBLUE{XG51};
DRAwrECTREL(0,85,15,380,RGB(30,30,30)),COLORRED{XG51};
AAA:=量能饱和度<=10{XG51};
BBB:=量能饱和度>10 AND 量能饱和度<=20{XG51};
CCC:=量能饱和度>20 AND 量能饱和度<=30{XG51};
DDD:=量能饱和度>30 AND 量能饱和度<=50{XG51};
EEE:=量能饱和度>50 AND 量能饱和度<=70{XG51};
FFF:=量能饱和度>70 AND 量能饱和度<=80{XG51};
GGG:=量能饱和度>80 AND 量能饱和度<=90{XG51};
HHH:=量能饱和度>90{XG51};
IF BARSTATUS=2 AND AAA THEN BEGIN DRAWRECTREL(0,350,15,380,RGB(255,0,0)){XG51};
END
ELSE
IF BARSTATUS=2 AND BBB THEN BEGIN DRAWRECTREL(0,320,15,380,RGB(255,0,0)){XG51};
END
ELSE
IF BARSTATUS=2 AND CCC THEN BEGIN DRAWRECTREL(0,290,15,380,RGB(255,0,0)){XG51};
END
ELSE
IF BARSTATUS=2 AND DDD THEN BEGIN DRAWRECTREL(0,230,15,380,RGB(255,0,0)){XG51};
END
ELSE
IF BARSTATUS=2 AND EEE THEN BEGIN DRAWRECTREL(0,170,15,380,RGB(255,0,0)){XG51};
END
ELSE
IF BARSTATUS=2 AND FFF THEN BEGIN DRAWRECTREL(0,140,15,380,RGB(255,0,0)){XG51};
END
ELSE
IF BARSTATUS=2 AND GGG THEN BEGIN DRAWRECTREL(0,110,15,380,RGB(255,0,0)){XG51};
END
ELSE
IF BARSTATUS=2 AND HHH THEN BEGIN DRAWRECTREL(0,85,15,380,RGB(255,0,0)){XG51};
END{X~G=5=1~C~N~{};