当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：潜龙主图（通达信指标 主图+选股 源码 测试图）
软件名称：[B]潜龙主图（通达信指标 主图+选股 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2023-06-12 00:15:25
软件简介:
潜龙主图
MA5:MA(C,5),COLORWHITE;
MA11:MA(C,11),COLORYELLOW;
MA21:MA(C,21),COLORMAGENTA;
MA31:MA(C,41),COLORGREEN;
MA60:MA(C,61),COLORBLUE;
LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR1);
MDI:=((DMM * 100) / TR1);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);
WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWVOL:=(RSI5 - WR10);
龙:=(AV + NEWVOL);
AA:=MA(C,40)>REF(MA(C,40),1) AND REF(MA(C,40),1)>REF(MA(C,40),2);
BB:=MA(C,60)>REF(MA(C,60),1) AND REF(MA(C,60),1)>REF(MA(C,60),2);
CC:=MA(C,20)>REF(MA(C,20),1) AND REF(MA(C,20),1)>REF(MA(C,20),2);
EE:=(AA OR BB OR CC);
DRAWTEXT(CROSS(龙,0) AND EE,L*0.98,'潜'),COLORRED;
V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);
HY1:=REF(EMA(V1,3),1);
上收:=C;
箱顶:MA(REF(HHV(上收,30),1),2),COLORBLUE,LINETHICK1;
箱底:MA(REF(LLV(上收,30),1),2),COLORBLACK,LINETHICK1;
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IF(VAR13>=150 AND VAR13< 200 AND VAR14>=150 AND VAR14< 200,10,0);
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IF(VAR18< 90,VAR18,100);
VAR1A:=IF(VARE>0,VARE,0);
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19< 100;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,HIGH*1.05,'大笔出'),LINETHICK1,COLORFFCC66;
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4);
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2);
DRAWTEXT(CROSS(散户,庄家) AND 散户< 30,L*0.92,'吸'),COLORRED;
DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H*1.02,'抛'),COLORGREEN;
VVAR3:=REF(CLOSE,1);
VVAR4:=SMA(MAX(CLOSE-VVAR3,0),6,1)/SMA(ABS(CLOSE-VVAR3),6,1)*100;
DRAWTEXT(CROSS(84,VVAR4),H*1.05,'逃'),COLORYELLOW ;
VVAR5:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VVAR6:=SMA(ABS(LOW-VVAR5),13,1)/SMA(MAX(LOW-VVAR5,0),10,1);
VVAR7:=EMA(VVAR6,10);
VVAR8:=LLV(LOW,33);
VVAR9:=EMA(IF(LOW<=VVAR8,VVAR7,0),5);
主力:=FILTER(VVAR9>REF(VVAR9,1),5);
DRAWTEXT(主力,L*0.9,'入'),COLORRED;
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.96),'建'),COLORYELLOW;
“吸”的选股公式如下：
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4);
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2);
XG:CROSS(散户,庄家) AND 散户< 30;
[url=http://www.70822.com/soft/sort013/sort05/down-167957.html]潜龙主图（通达信指标 主图+选股 源码 测试图）[/url]