43 12
发新话题
打印

[公式] 实现以大盘为条件的背景图

实现以大盘为条件的背景图

复制内容到剪贴板
代码:
{取大盘判断条件}
xma1:=MA(INDEXC,5);xma2:=MA(INDEXC,10);
xtj1:=CROSS(xma1,xma2) or xma1>xma2;
xtj2:=CROSS(xma2,xma1) or xma1<xma2;
{画符合条件的背景}
FILLRGN(xtj1,SYSPARAM(5),SYSPARAM(4)),ColorDB3FCA;
FILLRGN(xtj2,SYSPARAM(5),SYSPARAM(4)),Color528608;
{画个股 K 线图}
ktj:=(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1));
STICKLINE(ktj,HIGH,LOW,0.1,1),colorred;
STICKLINE(ktj,CLOSE,OPEN,7,1),colorred;
STICKLINE(NOT(ktj),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(ktj),CLOSE,OPEN,7,0),colorcyan;
{画个股均线}
ma5:MA(CLOSE,5);
ma10:MA(CLOSE,10);
ma20:MA(CLOSE,20);
ma30:MA(CLOSE,30);
----------------------------------------------------------
别名: 画区间彩带
所属类别: 绘图函数  参数数量: 3

绘制指标区间彩带。
用法:
FILLRGN(COND,PRICE1,PRICE2),当COND条件满足时,以COLOR填充PRICE1和PRICE2的区间
例如:FILLRGN(MA1>MA2, MA1,MA2),colorred 表示MA1>MA2时以红色填充MA1和MA2之间的区域。
----------------------------------------------------------
SYSPARAM(4)
系统参数:主图可见K线最高价
注意:该函数仅K线图形分析且打开十字光标时有效,否则返回值不确定

SYSPARAM(5)
系统参数:主图可见K线最低价
注意:该函数仅K线图形分析且打开十字光标时有效,否则返回值不确定
附件: 您所在的用户组无法下载或查看附件

TOP

在这个例子中,是以大盘的 MA 指标来判断,具体条件可自己加入

附公式
附件: 您所在的用户组无法下载或查看附件

TOP

用 ZIG 函数判断大盘趋势来看个股

主图叠加
复制内容到剪贴板
代码:
{取大盘判断条件}
xtj:=ZIG(MA(INDEXC,5),10);
{画符合条件的背景}
FILLRGN(xtj>=ref(xtj,1),SYSPARAM(5),SYSPARAM(4)),ColorDB3FCA;
FILLRGN(xtj<ref(xtj,1),SYSPARAM(5),SYSPARAM(4)),Color528608;
{画个股 K 线图}
ktj:=(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1));
STICKLINE(ktj,HIGH,LOW,0.1,1),colorred;
STICKLINE(ktj,CLOSE,OPEN,7,1),colorred;
STICKLINE(NOT(ktj),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(ktj),CLOSE,OPEN,7,0),colorcyan;
{画个股均线}
ma5:MA(CLOSE,5);
ma10:MA(CLOSE,10);
ma20:MA(CLOSE,20);
ma30:MA(CLOSE,30);
附件: 您所在的用户组无法下载或查看附件

TOP

多谢大师指教!!
将SYSPARAM(4),SYSPARAM(5)替换为0,10000效果更好,不用激活光标.

TOP

因为考虑指数,个股因为在一个屏幕的价格悬殊,所以使用了 SYSPARAM(4),SYSPARAM(5)
具体可自己微调

TOP

xiexie

TOP

多谢。

TOP

条件可以自己补充
大家可以对颜色 进行 自己调换
真好
谢谢

TOP

第11楼

OOK

TOP

xiele!

TOP

好用!

TOP

xiexie

TOP

有益

TOP

ding

TOP

有益

TOP

xiexie

TOP

dddddddddddddddddddddddddddddddddd

TOP

xiexie

TOP

谢谢!谢谢!

TOP

TOP

thamks

TOP

谢谢hx817版主!

TOP

谢谢

TOP

3q

TOP

 43 12
发新话题