[通达信指标]AI解盘系列5 智慧组合解盘主图公式源码

MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;

NIUXIAN:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14

*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8

*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)

+2*REF(MID,18)+REF(MID,20))/210,COLORRED;

MAXIAN:MA(NIUXIAN,6),COLORGREEN;

VAR0:=SMA(MAX(CLOSE-REF(C,1),0),12,1)/SMA(ABS(CLOSE-REF(C,1)),15,1)*100;

DRAWTEXT(CROSS(82,VAR0),H*1.04,’快卖’),COLORWHITE;

S:=C-REF(C,1);

DX:=100*EMA(EMA(S,6),6)/EMA(EMA(ABS(S),6),6);

QHQ1:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);

DA:=(EMA(C,1)+EMA(C,2)+EMA(C,3)+EMA(C,4))/4;

DB:=(EMA(C,10)+EMA(C,20)+EMA(C,40)+EMA(C,80))/4;

DRAWICON(CROSS(DA-DB,0),L*0.98,7);

JH:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100;

DRAWICON(CROSS(84,JH),H*1.04,8);

QHQ2:=STRCAT(STRCAT(STRCAT(STRCAT(‘名称: ‘,STKNAME),’ 代码: ‘),CODE),’ ‘ );

QHQ3:=STRCAT(‘概念板块: ‘,GNBLOCK);

DRAWTEXT_FIX(ISLASTBAR,0.2,0,0,STRCAT(QHQ2,QHQ3)),COLORYELLOW;

YC:=REF(CLOSE,1);

QHQ4:=(YC*1.0035*97+0.2)/99.65;

DRAWTEXT_FIX(C!=0,0.02,0.05,0,’★ ==================’),COLORRED;

DRAWTEXT_FIX(C!=0,0.02,0.1,0,’A ‘),COLORRED;

DRAWTEXT_FIX(C!=0,0.02,0.15,0,’I ‘),COLORRED;

DRAWTEXT_FIX(C!=0,0.02,0.2,0,’解 ‘),COLORRED; 

DRAWTEXT_FIX(C!=0,0.02,0.25,0,’盘 ‘),COLORRED;

DRAWTEXT_FIX(C!=0,0.02,0.3,0,’★ ==================’),COLORRED;

DRAWTEXT_FIX(C!=0,0.04,0.1,0,’买入条件 E13 CCI’),COLORYELLOW;

DRAWTEXT_FIX(C!=0,0.04,0.15,0,’买入条件 2:30以后’),COLORYELLOW;

DRAWTEXT_FIX(C!=0,0.04,0.2,0,STRCAT(‘QHQ4 ‘,STRCAT(CON2STR(QHQ4,2),’ 元’))),COLORYELLOW;

DRAWTEXT_FIX(C!=0,0.04,0.25,0,’线上:工作 线下:休息’),COLORYELLOW;

E:=(HIGH+LOW+OPEN+2*CLOSE)/5;

QHQ5:=2*E-LOW;

QHQ6:=2*E-HIGH;

QHQ7:=E+(HIGH-LOW);

QHQ8:=E-(HIGH-LOW);

QHQ9:=REF(QHQ5 , 1);

QHQ10:=REF(QHQ6 , 1);

DRAWTEXT_FIX(C!=0,0.2,0.05,0,STRCAT(‘今日阻力：’,STRCAT(CON2STR(QHQ9,2),’ 元’))),COLORFFFF00;

DRAWTEXT_FIX(C!=0,0.2,0.1,0,STRCAT(‘今日支撑：’,STRCAT(CON2STR(QHQ10,2),’ 元’))),COLORRED;

DRAWTEXT_FIX(C!=0,0.2,0.15,0,STRCAT(‘明日突破：’,STRCAT(CON2STR(QHQ7,2),’ 元’))),COLORFF00FF;

DRAWTEXT_FIX(C!=0,0.2,0.2,0,STRCAT(‘明日阻力：’,STRCAT(CON2STR(QHQ5,2),’ 元’))),COLORFFFF00;

DRAWTEXT_FIX(C!=0,0.2,0.25,0,STRCAT(‘明日支撑：’,STRCAT(CON2STR(QHQ6,2),’ 元’))),COLORRED;

DRAWTEXT_FIX(C!=0,0.2,0.3,0,STRCAT(‘明日反转：’,STRCAT(CON2STR(QHQ8,2),’ 元’))),COLORYELLOW;

A:=HHV(HIGH,13)=HIGH AND HIGH>REF(HIGH,1);

A1:=FILTER(A,12);

B:=LLV(LOW,13)=LOW AND LOW<REF(LOW,1);

B1:=FILTER(B,12);

TS1:=BARSLAST(A1);

QHQ11:REF(HIGH,TS1),COLORFF00FF,NODRAW;

STICKLINE(1,QHQ11,QHQ11,1.5,0),COLORFF00FF;

TS2:=BARSLAST(B1);

QHQ12:REF(LOW,TS2),COLORFFBB80,NODRAW;

STICKLINE(1,QHQ12,QHQ12,1.5,0),COLORFFBB80;

QHQ13:100*(QHQ11-QHQ12)/QHQ12,NODRAW;

QHQ14:=(3*C+H+L+O)/6;

VAR1:=(8*QHQ14+7*REF(QHQ14,1)+6*REF(QHQ14,2)+5*REF(QHQ14,3)+

4*REF(QHQ14,4)+3*REF(QHQ14,5)+2*REF(QHQ14,6)+REF(QHQ14,8))/36;

VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;

SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;

SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) 

AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;

SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;

SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) 

AND CLOSE>VAR2 AND CLOSE<VAR1;

SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) 

AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) 

AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);

SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;

XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1)

AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);

XD2:=VAR1=VAR2 AND CLOSE>VAR1;

SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));

QHQ15:=IF(SAT>1,1,SAT)*100;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ1,0.8,0.05,0,'[AI解盘]调整结束短线介入’),COLORRED;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ2,0.8,0.05,0,'[AI解盘]上升通道走势良好’),COLORRED;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ3,0.8,0.05,0,'[AI解盘]股价偏离注意调整’),COLORRED;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ4,0.8,0.05,0,'[AI解盘]上升通道调整洗盘’),COLORGREEN;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ5,0.8,0.05,0,'[AI解盘]转向特征注意离场’),COLORGREEN;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ6,0.8,0.05,0,'[AI解盘]通道改变坚决离场’),COLORGREEN;

DRAWTEXT_FIX(BARSTATUS=2 AND XD1,0.8,0.05,0,'[AI解盘]下跌通道只宜观望’),COLORGREEN;

DRAWTEXT_FIX(BARSTATUS=2 AND XD2,0.8,0.05,0,'[AI解盘]短期底部准备进入’),COLORYELLOW;