股票指标> 通达信 > 通达信四色买主图色谱指数平源码分享(2024/10/25 7:55:00)

通达信四色买主图色谱指数平源码分享

DRAWGBK(C>0, RGB(00,00,00),RGB(54,0,0),0,'11',0);

Z1:=STRCAT(HYBLOCK,'----');

Z2:=STRCAT(Z1,FGBLOCK);

Z3:=STRCAT(Z2,DYBLOCK);

Z4:=STRCAT(Z3,'----');

DRAWTEXT_FIX(1,0.00,0.06,0,CLOSE)COLORCYAN;

MA1:=EMA(C,8);

MA2:=EMA(C,48);

MA3:=EMA(C,34);

MA4:=EMA(C,7);

MA5:=EMA(C,20);

MA6:=EMA(C,10);

DIFF:=EMA(CLOSE,5)-EMA(CLOSE,13);

DEA:=EMA(DIFF,9);

{生命线}

N1:=BARSLAST(crOSS(DIFF,DEA))+1;{最近一次满足条件DIFF上穿DEA的k线到当前的距离}

N2:=BARSLAST(CROSS(DEA,DIFF))+1;{最近一次满足条件DIFF下穿DEA的K线到当前的距离}

{当前是DIFF>DEA的状态，连结最近两个DIFF>DEA区间（不包含当前区间）内最高点的趋势线}

A1:=BACKSET(ISLASTBAR && N1<N2,REF(REF(HHVBARS(H,N1)+1,N2),N2)+REF(N2,N2)+N2);

B1:=BACKSET(ISLASTBAR && N1<N2,REF(HHVBARS(H,N1),N2)+N2+1);

{当前是DIFF>DEA的状态，连结最近两个DIFF<DEA区间内最低点的趋势线}

A2:=BACKSET(ISLASTBAR && N1<N2,REF(REF(LLVBARS(L,N2)+1,N1),N2)+REF(N1,N2)+N2);

B2:=BACKSET(ISLASTBAR && N1<N2,REF(LLVBARS(L,N2)+1,N1)+N1);

{当前是DIFF<DEA的状态，连结最近两个DIFF<DEA区间（不包含当前区间）内最低点的趋势线}

A3:=BACKSET(ISLASTBAR && N1>N2,REF(REF(LLVBARS(L,N2)+1,N1),N1)+REF(N1,N1)+N1);

B3:=BACKSET(ISLASTBAR && N1>N2,REF(LLVBARS(L,N2),N1)+N1+1);

{当前是DIFF<DEA的状态，连结最近两个DIFF>DEA区间内最高点的趋势线}

A4:=BACKSET(ISLASTBAR && N1>N2,REF(REF(HHVBARS(H,N1)+1,N2),N1)+REF(N2,N1)+N1);

B4:=BACKSET(ISLASTBAR && N1>N2,REF(HHVBARS(H,N1)+1,N2)+N2);

力:(ATAN((EMA(C,4)/REF(EMA(C,47),1)-1)*100)*180/3.1415926),NODRAW,COLORWHITE;

命:(ATAN((EMA(C,47)/REF(EMA(C,47),1)-1)*100)*180/3.1415926),NODRAW,,COLOR0080FF;

DRAWTEXT(命>1.5,LOW,'☆'),COLOR0080FF;

{生命线结束}

{估值开始}

JZCSYL:=FINANCE(33)/ FINANCE(34)*100;

ZCbs:=IF(JZCSYL>50,8,IF(50>JZCSYL>=14,2.2+(JZCSYL-14)*0.16, 2.2+(JZCSYL-14)* 0.15));

LTP:=CAPITAL;

LTPBS:=IF(LTP<1000000,(1000000-LTP)/1000000,0);

股价估值: FINANCE(34)*(ZCBS+LTPBS)*4,COLORRED,NODRAW;

{估值结束}

{盈利}

盈利:FINANCE(30)/100000000,NODRAW;

上市天数:FINANCE(42),COLORYELLOW,NODRAW;

同比增加:FINANCE(43),COLORRED,NODRAW;

收盘价:CLOSE,NODRAW;

{盈利结束}

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,H ,L-0.01 ,0 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,2,0 )COLORRED;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1.5 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORRED;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,2.0 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1.5 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORYELLOW;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORYELLOW;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1.5 ,0 ),COLORYELLOW;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORYELLOW;

STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORYELLOW;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1.5 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORRED;

STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1.5 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORGREEN;

STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORYELLOW;

STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORYELLOW;

STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1.5 ,0 ),COLORYELLOW;

STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORYELLOW;

STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORYELLOW;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1.5 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORRED;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORMAGENTA;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORMAGENTA;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1.5 ,0 ),COLORMAGENTA;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORMAGENTA;

STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORMAGENTA;

volUME:=MA(VOL,1)/VOL;

MID:=100*(HIGH+LOW-REF(HIGH+LOW,1))/(HIGH+LOW);

EMV:=MA(MID*VOLUME*(HIGH-LOW)/MA(HIGH-LOW,9),9);

EMVA:=MA(EMV,14);

BB:=EMV-EMVA;

bias :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;

BIASMA :=MA(BIAS,6);

CC:=BIAS-BIASMA;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3*K-2*D;

DD:=(K+D+J)/3;

KK:=J-DD;

DIFF2:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA2:=EMA(DIFF2,9);

SS:=DIFF2-DEA2;

AA:=MA(BB+CC+KK+SS,1)*0.01;

DRAWTEXT(CROSS(AA,0),L*0.95,'B'),LINETHICK4,COLORWHITE,NODRAW;

DRAWTEXT(CROSS(0,AA),H*1.06,'S'),LINETHICK4,COLORGREEN,NODRAW;

NOTEXT4:EMA(C,4),COLORWHITE;

NOTEXT8:EMA(C,8),COLORYELLOW;

NOTEXT20:EMA(C,12),COLOR8000FF,NODRAW;

NOTEXT47:EMA(C,47),COLOR0080FF,LINETHICK2;

DRAWICON(CROSS(NOTEXT4,NOTEXT8),LOW,34);

DRAWICON(CROSS(NOTEXT8,NOTEXT4),HIGH,35);

DRAWICON(CROSS(NOTEXT4,NOTEXT47),LOW,9);

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);

HA:=(HIGH - REF(HIGH,1));

LA:=(REF(LOW,1) - LOW);

DMP:=SUM(IF(((HA > 0) AND (HA > LA)),HA,0),10);

DMM:=SUM(IF(((LA > 0) AND (LA > HA)),LA,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);

卖:=(AV - NEWVOL);

MA10:=MA(CLOSE,3);

MA20:=MA(CLOSE,5);

X:=BARSLAST(CROSS(MA10,MA20));

未来函数检测结果如下：
该公式包含未来函数:BACKSET
该公式包含未来函数:CAPITAL
该公式包含未来函数:FINANCE

解密、编写股票、期货策略请联系QQ或微信同号：88652583

相关股票指标公式

原理解析：
DRAWGBK(C>0, RGB(00,00,00),RGB(54,0,0),0,'11',0)
Z1赋值:STRCAT(HYBLOCK,'----')
Z2赋值:STRCAT(Z1,FGBLOCK)
Z3赋值:STRCAT(Z2,DYBLOCK)
Z4赋值:STRCAT(Z3,'----')
当满足条件1时,在横轴0.00纵轴0.06位置书写文字
MA1赋值:C的8日指数移动平均
MA2赋值:C的48日指数移动平均
MA3赋值:C的34日指数移动平均
MA4赋值:C的7日指数移动平均
MA5赋值:C的20日指数移动平均
MA6赋值:C的10日指数移动平均
DIFF赋值:收盘价的5日指数移动平均-收盘价的13日指数移动平均
DEA赋值:DIFF的9日指数移动平均
{生命线}N1赋值:上次DIFF上穿DEA距今天数+1
{最近一次满足条件DIFF上穿DEA的K线到当前的距离}N2:=上次DEA上穿DIFF距今天数+1
{最近一次满足条件DIFF下穿DEA的K线到当前的距离}{当前是DIFF>DEA的状态，连结最近两个DIFF>DEA区间（不包含当前区间）内最高点的趋势线}A1:=BACKSET(ISLASTBAR && N1B1赋值:BACKSET(ISLASTBAR && N1{当前是DIFF>DEA的状态，连结最近两个DIFFB2赋值:BACKSET(ISLASTBAR && N1{当前是DIFFN2,REF(REF(LLVBARS(L,N2)+1,N1),N1)+REF(N1,N1)+N1)
B3赋值:BACKSET(ISLASTBAR && N1>N2,REF(LLVBARS(L,N2),N1)+N1+1)
{当前是DIFFDEA区间内最高点的趋势线}A4:=BACKSET(ISLASTBAR && N1>N2,REF(REF(HHVBARS(H,N1)+1,N2),N1)+REF(N2,N1)+N1)
B4赋值:BACKSET(ISLASTBAR && N1>N2,REF(HHVBARS(H,N1)+1,N2)+N2)
输出力:(ATAN((C的4日指数移动平均/1日前的C的47日指数移动平均-1)*100)*180/3.1415926),NODRAW,画白色
输出命:(ATAN((C的47日指数移动平均/1日前的C的47日指数移动平均-1)*100)*180/3.1415926),NODRAW,,COLOR0080FF
当满足条件命>1.5时,在最低价和'☆'位置书写文字
{生命线结束}{估值开始}JZCSYL:=FINANCE(33)/ FINANCE(34)*100
ZCBS赋值:IF(JZCSYL>50,8,IF(50>JZCSYL>=14,2.2+(JZCSYL-14)*0.16, 2.2+(JZCSYL-14)* 0.15))
LTP赋值:当前流通股本
LTPBS:=IF(LTP<1000000,(1000000-LTP)/1000000,0)
输出股价估值: FINANCE(34)*(ZCBS+LTPBS)*4,COLORRED,NODRAW
输出{估值结束}{盈利}盈利:FINANCE(30)/100000000,NODRAW
输出上市天数:FINANCE(42),画黄色,NODRAW
输出同比增加:FINANCE(43),COLORRED,NODRAW
输出收盘价:收盘价,NODRAW
当满足条件C>=MA1 AND C>=MA2 AND DIFF>=DEA 时,在H 和L-0.01 之间画柱状线
当满足条件C>=MA1 AND C>=MA2 AND DIFF>=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C>=MA2 AND DIFF>=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C>=MA2 AND DIFF>=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C>=MA2 AND DIFF>=DEA 时,在O 和C 之间画柱状线
当满足条件C=MA2 AND DIFF当满足条件C=MA2 AND DIFF当满足条件C=MA2 AND DIFF当满足条件C=MA2 AND DIFF当满足条件C=MA2 AND DIFF当满足条件C=MA2 AND DIFF>=DEA 时,在H 和L-0.008 之间画柱状线
当满足条件C=MA2 AND DIFF>=DEA 时,在O 和C 之间画柱状线
当满足条件C=MA2 AND DIFF>=DEA 时,在O 和C 之间画柱状线
当满足条件C=MA2 AND DIFF>=DEA 时,在O 和C 之间画柱状线
当满足条件C=MA2 AND DIFF>=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C>=MA2 AND DIFF当满足条件C>=MA1 AND C>=MA2 AND DIFF当满足条件C>=MA1 AND C>=MA2 AND DIFF当满足条件C>=MA1 AND C>=MA2 AND DIFF当满足条件C>=MA1 AND C>=MA2 AND DIFF当满足条件C当满足条件C当满足条件C当满足条件C当满足条件C当满足条件C当满足条件C=DEA 时,在H 和L-0.008 之间画柱状线
当满足条件C=DEA 时,在O 和C 之间画柱状线
当满足条件C=DEA 时,在O 和C 之间画柱状线
当满足条件C=DEA 时,在O 和C 之间画柱状线
当满足条件C=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C=DEA 时,在H 和L-0.008 之间画柱状线
当满足条件C>=MA1 AND C=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C=DEA 时,在O 和C 之间画柱状线
当满足条件C>=MA1 AND C当满足条件C>=MA1 AND C当满足条件C>=MA1 AND C当满足条件C>=MA1 AND C当满足条件C>=MA1 AND CVOLUME赋值:成交量的1日简单移动平均/成交量
MID赋值:100*(最高价+最低价-1日前的最高价+最低价)/(最高价+最低价)
EMV赋值:MA(MID*VOLUME*(最高价-最低价)/MA(最高价-最低价,9),9)
EMVA:=EMV的14日简单移动平均
BB赋值:EMV-EMVA
BIAS :=(收盘价-收盘价的6日简单移动平均)/收盘价的6日简单移动平均*100
BIASMA :=BIAS的6日简单移动平均
CC赋值:BIAS-BIASMA
RSV赋值:(收盘价-9日内最低价最低值)/(9日内最高价最高值-9日内最低价最低值)*100
RSV的3日[1日权重]移动平均
K的3日[1日权重]移动平均
J赋值:3*K-2*D
DD赋值:(K+D+J)/3
KK赋值:J-DD
DIFF2:=收盘价的12日指数移动平均-收盘价的26日指数移动平均
DEA2:=DIFF2的9日指数移动平均
SS赋值:DIFF2-DEA2
AA赋值:BB+CC+KK+SS的1日简单移动平均*0.01
DRAWTEXT(AA上穿0,L*0.95,'B'),LINETHICK4,画白色,NODRAW
DRAWTEXT(0上穿AA,H*1.06,'S'),LINETHICK4,画绿色,NODRAW
输出NOTEXT4:C的4日指数移动平均,画白色
输出NOTEXT8:C的8日指数移动平均,画黄色
输出NOTEXT20:C的12日指数移动平均,COLOR8000FF,NODRAW
NOTEXT47:C的47日指数移动平均,COLOR0080FF,LINETHICK2
DRAWICON(NOTEXT4上穿NOTEXT8,最低价,34)
DRAWICON(NOTEXT8上穿NOTEXT4,最高价,35)
DRAWICON(NOTEXT4上穿NOTEXT47,最低价,9)
LC赋值:1日前的收盘价
RSI5赋值:((SMA(MAX((收盘价 - LC),0),5,1) / SMA((收盘价 - LC的绝对值),5,1)) * 100)
TR1赋值:SUM(MAX(MAX((最高价 - 最低价),(最高价 - 1日前的收盘价的绝对值)),ABS((最低价 - 1日前的收盘价))),10)
HA赋值:(最高价 - 1日前的最高价)
LA赋值:(1日前的最低价 - 最低价)
DMP:=SUM(IF(((HA > 0) AND (HA > LA)),HA,0),10)
DMM:=SUM(IF(((LA > 0) AND (LA > HA)),LA,0),10)
PDI:=((DMP * 100) / TR1)
MDI:=((DMM * 100) / TR1)
ADX赋值:MA((((MDI - PDI的绝对值) / (MDI + PDI)) * 100),5)
AV赋值:(RSI5 + ADX)
DXR:=(((ADX + 5日前的ADX) / 2) + RSI5)
WR10赋值:((100 * (10日内最高价最高值 - 收盘价)) / (10日内最高价最高值 - 10日内最低价最低值))
NEWVOL赋值:(RSI5 - WR10)
买赋值:(AV + NEWVOL)
卖赋值:(AV - NEWVOL)
MA10:=收盘价的3日简单移动平均
MA20:=收盘价的5日简单移动平均
X赋值:上次MA10上穿MA20距今天数

定制、找人做指标公式联系我们

QQ：88652583
邮箱：88652583@qq.com
工作时间：8:30-23:00
微信：88652583或扫描如下二维码

本月指标公式排行

@2005-2023 浙ICP备2024071487号-2 指标公式网别名指标网仅为互联网文章，所有指标公式及文章仅供学习研究,并不构成投资建议，请勿以此为依据进行股票交易，由此引起的投资亏损与本站无关。指标公式网均来源互联网收集整理，如不慎侵犯了你的权益，请联系我们告知，我们将做删除处理

QQ：88652583 微信 88652583