通达信机构散户资金分时主图指标主图源码-通达信公式-公式网

通达信机构散户资金分时主图指标主图源码
相关简介：DRAWGBK(1,RGB(0,0,0),RGB(1,1,1),1,0,0); VR1:=1270915;VR2:=1270920; VR3:=IF(DATEVR1,IF(CLOSE80,1,0),0); VR4:=IF(DATEVR2,1,VR3); P2:=IF(VR3=1,0,240); TC1:=IF(H=HHV(H,P2),C,DRAWNULL); TC2:=CONST(BARSLAST(TC1=H))+1; UPPER:=CONST(IF(TC2=1,C,REF(C,TC2-1)))
文章来源：公式网发布时间：2023-10-07浏览次数：下载次数：1,305

DRAWGBK(1,RGB(0,0,0),RGB(1,1,1),1,0,0);

VR1:=1270915;VR2:=1270920;

VR3:=IF(DATE>VR1,IF(CLOSE<80,1,0),0);

VR4:=IF(DATE>VR2,1,VR3);

P2:=IF(VR3=1,0,240);

TC1:=IF(H=HHV(H,P2),C,DRAWNULL);

TC2:=CONST(BARSLAST(TC1=H))+1;

UPPER:=CONST(IF(TC2=1,C,REF(C,TC2-1)));

BC1:=IF(L=LLV(L,P2),C,DRAWNULL);

BC2:=CONST(BARSLAST(BC1=L))+1;

LOWER:=CONST(IF(BC2=1,C,REF(C,BC2-1)));

NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));{用时}

LR1:=FORCAST(C,NOD+1);

NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC2),CONST(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1))),DRAWNULL),POINTDOT,COLORLIGRAY;{近点}

LR2:=SLOPE(C,NOD+1);

LR3:=CONST(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)));

FP:=NP-LR3*(NOD),POINTDOT,COLORGRAY;{远点}

EQU:=(NP+FP)/2,POINTDOT,COLOR0000FF;

AD:=ABS(NP-FP);{高差};

DBL:=BARSLAST(BC1!=DRAWNULL)+1;

DBH:=BARSLAST(TC1!=DRAWNULL)+1;

BSP:=IF(BC2>TC2,DBL,DBH)-1;

LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);

AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);

AT2:=HHV(AT1-LRL,MAX(BC2,TC2));

AT3:=CONST(BARSLAST(AT1-LRL=AT2));

AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));

AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));

ATL:=LRL+AT5;

UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L

UT2:=HHV(LRL-UT1,MAX(BC2,TC2));

UT3:=CONST(BARSLAST(LRL-UT1=UT2));

UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));

UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));

UTL:=LRL-UT5;

RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,CONST(REF(ATL,MIN(BC2,TC2)-11)));{限制高}

RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,CONST(REF(UTL,MIN(BC2,TC2)-11)));{限制低}

中轨2:=IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLORBLUE,,DOTLINE;

上轨2:=IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLORMAGENTA,,DOTLINE;

下轨2:=IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLOR00EE00,,DOTLINE;

T30:=IF(BARSSINCE(C>0)>=30,1,0);

{画线}

{IF(T30 AND 上轨2>REF(上轨2,2),上轨2,DRAWNULL),COLOR660066;

IF(T30 AND 中轨2>REF(中轨2,2),中轨2,DRAWNULL),COLOR660066;

IF(T30 AND 下轨2>REF(下轨2,2),下轨2,DRAWNULL),COLOR660066;

IF(T30 AND 上轨2<=REF(上轨2,2),上轨2,DRAWNULL),COLOR999900;

IF(T30 AND 中轨2<=REF(中轨2,2),中轨2,DRAWNULL),COLOR999900;

IF(T30 AND 下轨2<=REF(下轨2,2),下轨2,DRAWNULL),COLOR999900;}

X_1:=SUM(VOL*CLOSE,0)/SUM(VOL,0);

X_2:=EMA(X_1,50)/0.97;

X_3:=(X_1+X_2)/2;

DRAWBAND(X_2,RGB(100,30,0),X_3,0);{上轨填充色}

DRAWBAND(X_3,RGB(0,100,50),X_1,0);

上轨:X_2,COLORGREEN,LINETHICK2;

上轨变色:IF(X_2>REF(X_2,1),X_2,DRAWNULL),COLORRED,LINETHICK2;

中轨:X_3,COLORYELLOW;

下轨:X_1,COLORBLUE;

现价:CLOSE,COLORWHITE,LINETHICK2;

X_4:=CONST(REF(CLOSE,480));

X_5:=CONST(HHV(HIGH,480));

X_6:=CONST(LLV(LOW,480));

X_7:=EMA(CLOSE,30);

X_8:=EMA(CLOSE,900);

X_9:=MAX(X_4,X_5);

X_10:=MIN(X_4,X_6);

X_11:=X_9-X_10;

X_12:=X_10+X_11*7/8;

X_13:=X_10+X_11*0.5/8;

漂移点1:=DRAWICON(LONGCROSS(X_13,CLOSE,2),CLOSE*0.995,7);

漂移点2:=DRAWICON(LONGCROSS(CLOSE,X_12,2),CLOSE*1.005,8);

X_14:=BARSCOUNT(CLOSE);

X_15:=CROSS(CLOSE,REF(HHV(HIGH,X_14),1)) AND CLOSE/X_1<1.09 AND X_14>=1 AND X_14<240;

DRAWICON(FILTER(X_15,1),X_1,32);{分时轨道小图标}

FSX_1:=CONST(REF(CLOSE,480));

FSX_2:=CONST(HHV(HIGH,480));

FSX_3:=CONST(LLV(LOW,480));

FSX_4:=MAX(FSX_1,FSX_2);

FSX_5:=MIN(FSX_1,FSX_3);

FSX_6:=FSX_4-FSX_5;

FSX_9:=SUM(CLOSE*VOL,BARSSINCE(VOL>0)+1)/SUM(VOL,BARSSINCE(VOL>0)+1)+(BARSSINCE(VOL>0)+1)*0;

FSX_12:EMA(EXPMA(CLOSE,20),13)COLORMAGENTA;

均价:=FSX_9,COLORYELLOW,LINETHICK2;

阻力FS:=FSX_5+FSX_6*7/8;

支撑FS:=FSX_5+FSX_6*1/8;

{FS顶:=STICKLINE(C>阻力FS,C,阻力FS,1,0),COLORGREEN;}

FS底:=STICKLINE(C<支撑FS,C,支撑FS*1.005,1,0),COLORRED;

攻击量:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN;

攻击量A:=SUM(IF(C>REF(C,1),攻击量*V,0),FROMOPEN);

攻击量B:=-SUM(IF(C

攻击流量:=攻击量A+攻击量B;

攻击比:=攻击流量/SUM(V,FROMOPEN)*100;

资金攻击度:=IF(攻击比>=0,(攻击比+50),100-ABS((攻击比-50)));

资金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN);

资金流出:=-SUM(IF(C

资金出入:=资金流入+资金流出;

资金比:=资金出入/SUM(V,FROMOPEN)*100;

资金流量比:=IF(资金比>=0,(资金比+100)/2,100-ABS((资金比-100)/2));

DRAWTEXT_FIX(1,0.2,1,1,STRCAT(STRCAT('【资金流量比】',CON2STR(资金流量比,2)),'％买'));

DRAWTEXT_FIX(1,0.2,0.93,1, STRCAT(STRCAT('【资金攻击度】',CON2STR(资金攻击度,2)),'％买'));

XGBB:=HHV(H,480);

去除5:=STICKLINE(FILTER(CROSS(C,REF(XGBB,1)),10) AND C>REF(XGBB,1),C*0.99,C,8,0);

去除6:=DRAWTEXT(FILTER(CROSS(C,REF(XGBB,1)),10) AND C>REF(XGBB,1),C*0.99,'突破');

RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;

JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;

MA1:=REF(C,JY);

MA2:=REF(MA1,JY);

MA3:=REF(MA2,JY);

MA4:=REF(MA3,JY);

MA5:=REF(MA4,JY);

MA6:=REF(MA5,JY);

MA7:=REF(MA6,JY);

MA8:=REF(MA7,JY);

MA9:=REF(MA8,JY);

CK:=REFDATE((C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9)/10,DATE);

去除8:=DRAWTEXT(ISLASTBAR,CK,' 参考线');

DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26))+DYNAINFO(3);

DEA:=EMA(DIF,9);

MACD1:=10*(DIF-DEA);

MACD2:=EMA(MACD1,2);

源码过长,未粘贴完.......请下载附件源码...

下载资源链接：( 说明：公式资源如需解压密码的请输入本站域名：www.gszx.com.cn 请仔细输入！）

下载（免费下载）

上一篇：通达信量价识马选股有用法说明指标副图源码下一篇：通达信细分MACD指标副图源码

☞公式网提供公式解密、改选股服务联系点击查看详情（有偿服务,非诚勿扰）...

☞公式网公式指标安装帮助说明，新手必读，好好学习天天向上！...

☞公式网注册、登录、下载问题说明，如遇问题请查阅。...

　☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

上传会员:

公式网

文件大小:

Bytes

上传时间:

2023-10-07

下载积分:

下载地址: 点击下载

免责声明:

请仔细阅读并同意后才能下载

本附件为用户分享上传，公式网没有对文件进行验证，不能保证下载资源的准确性、安全性和完整性，也不保证下载资源能正常安装和使用，且下载后扣除的积分无法退还，除非您充分理解并完全接受本声明，否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利，其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用，不得用于商业或者非法用途，如有侵犯您的版权，请参看《公式网侵权处理流程》《公式网免责声明条款》。
点击下载无反应时，更换主流浏览器重新登录操作，如360浏览器、Edge浏览器、谷歌浏览器，个别浏览器有不兼容现象。

勾选以下表示您已经阅读并同意以上声明才能下载本文件，扣除积分无法退还！

√ 我已阅读所有条款规定， 请点我同意 所有条款内容！我自愿下载！ ←

提示：如下载失败，请点关闭刷新此页面或提交问题反馈给管理员→

关闭