再发一个自制的“对应大盘”,用于“股性评价”

[复制链接]
查看95 | 回复0 | 2022-6-27 21:05:34 | 显示全部楼层 |阅读模式

{对应大盘}

 {通达信 对应大盘 用于股性评价}

STICKLINE(INDEXC>=INDEXO,INDEXO,INDEXC,3,0),COLORRED;
STICKLINE(INDEXC>=INDEXO,INDEXH,INDEXL,0.1,0),COLORRED;
STICKLINE(INDEXC<INDEXO,INDEXO,INDEXC,3,0),COLORGREEN;
STICKLINE(INDEXC<INDEXO,INDEXH,INDEXL,0.1,0),COLORGREEN;
大盘收:INDEXC,NODRAW;
大盘开:INDEXO,NODRAW;
大盘高:INDEXH,NODRAW;
大盘低:INDEXL,NODRAW;
{分析家公式网www.70822.com}
个股涨幅:(CLOSE-REF(C,1))/REF(C,1)*100,NODRAW;
大盘涨幅:(INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100,NODRAW,COLORYELLOW;{对应}
个股振幅:(H-L)/L*100,NODRAW;{今日}
大盘振幅:(INDEXH-INDEXL)/INDEXL*100,NODRAW;{对应}
A:=REF(HY_INDEXC,1);{对应行业}
{分析家公式网www.70822.com}
行业涨幅:IF(A>0,(HY_INDEXC-A)*100/A,0),NODRAW,COLORMAGENTA;
对应上涨家数:=INDEXADV{,LINETHICK0};
对应下跌家数:=INDEXDEC{,LINETHICK0};
DRAWTEXT_FIX(1,0.070,0.000,0,STRCAT(STRCAT('大盘总上涨家数: ',CON2STR(DYNAINFO(60),0)),' 家')),COLORRED;
DRAWTEXT_FIX(1,0.210,0.000,0,STRCAT(STRCAT('大盘总下跌家数: ',CON2STR(DYNAINFO(61),0)),' 家')),COLORGREEN;
DRAWTEXT_FIX(1,0.350,0.000,0,STRCAT(STRCAT('对应上涨家数: ',CON2STR(INDEXADV,0)),' 家')),COLORRED;
DRAWTEXT_FIX(1,0.490,0.000,0,STRCAT(STRCAT('对应下跌家数: ',CON2STR(INDEXDEC,0)),' 家')),COLORGREEN;

2019121125316038.png

2019121125316038.png

p2019121123063135.jpg

p2019121123063135.jpg

2019121124243825.rar

2.29 KB, 下载次数: 0

售价: 1 金钱  [记录]  [购买]

2019121124243825.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

图文推荐
热门排行