通达信多空预测量副图源码

[复制链接]
查看111 | 回复0 | 2021-8-19 14:41:51 | 显示全部楼层 |阅读模式

以下是通达信多空预测量副图源码(无源码的请下载附件导入)

{多空预测量}
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
NN:=120;
比:=TT;
JRH:=HHV(C,2);
JRL:=LLV(C,2);
MA3:=MA(CLOSE,3);
YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6;
R1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
R2:=(REF(R1,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R3:=(REF(R2,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
R4:=(REF(R3,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R5:=(REF(R4,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
R6:=(REF(R5,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R7:=(REF(R6,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
R8:=(REF(R7,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R9:=(REF(R8,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
RA:=(REF(R9,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
RB:=(REF(RA,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
RC:=(REF(RB,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
RD:=(CLOSE < REF(CLOSE,1) AND CLOSE < REF(CLOSE,2));
RE:=(REF(RD,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
RF:=(REF(RE,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R10:=(REF(RF,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
R11:=(REF(R10,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R12:=(REF(R11,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
R13:=(REF(R12,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R14:=(REF(R13,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
R15:=(REF(R14,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R16:=(REF(R15,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
R17:=(REF(R16,1) AND CLOSE <= REF(CLOSE,1) AND CLOSE >= REF(CLOSE,2));
R18:=(REF(R17,1) AND CLOSE >= REF(CLOSE,1) AND CLOSE <= REF(CLOSE,2));
R19:=REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1) AND R1;
R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD);
VAR3:=IF(C<200 ,MA(COST(80),3),2500),NODRAW;
VAR4:=(((HIGH + LOW) + CLOSE) / 3);
VAR55:=EMA(((((OPEN + HIGH) + LOW) + CLOSE) / 4),2330);
VAR66:=(VAR55 + ((VAR55 * 6) / 100));
短买春:=R19,NODRAW,COLOR00DD00;
秋离场:=R1A,NODRAW,COLOR2288EE;
红持股:=R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,NODRAW,COLOR0000FF;
急速超跌关注:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100 < -14,COLORBBBBBB,NODRAW;
Q1:=CONST(IF(短买春,0,IF(秋离场,150,IF(红持股,150,IF(急速超跌关注,150,100))))),NODRAW;
Q2:=CONST(IF(短买春,80,IF(秋离场,100,IF(红持股,0,IF(急速超跌关注,150,100))))),NODRAW;
Q3:=CONST(IF(短买春,0,IF(秋离场,20,IF(红持股,70,IF(急速超跌关注,150,100))))),NODRAW;
量:V,NODRAW;
预测量:V*比,NODRAW;
换:IF(CAPITAL > 0,V/CAPITAL*100,V),NODRAW;
收:=FINANCE(33),NODRAW;
流:FINANCE(7)/100000000,NODRAW;
HH:=HHV(V*1,NN);
LL:=LLV(V,NN);
最高:=CONST(HH);
最低:=CONST(LL);
RCC:=最高*0.9-(最高-最低)*0.5;
RHL:=RCC;
HLMAX:=最高;
HLMIN:=最低;
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=HLMAX-HLMIN;
HLMN3:=(100-0)/2*1.3;
HLMN4:=(100-0)/1*1.3;
P:=最高/120;

 
{顶底摸块}
神:=2*SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1)-(3*HHV(SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1),2)-2*SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1));
奇:=(2*神+EMA((2*(C+L)/2+(H+C)/2+L+O)/5,2)+2*((EMA((C*2+H+L+O)/5,5)+MA((C*2+H+L+O)/5,13)+MA((C*2+H+L+O)/5,21))/3)+((EMA
   ((C*2+H+L+O)/5,13)+MA((C*2+H+L+O)/5,21)+MA((C*2+H+L+O)/5,34))/3)+((EMA((C*2+H+L+O)/5,21)+MA((C*2+H+L+O)/5,34)+MA((C*2+H+L+O)/5,55))/3))/7; 
分清:=(FORCAST(HHV((C+L)/2,1),21)+(EMA(((C+L)/2+L+(H+C)/2)/3,55)-(C-EMA(((C+L)/2+L+(H+C)/2)/3,55))))/2;
放心买入:=(((C+L)/2+(H+C)/2+L)/3+(3*(C+H+L+(O+C+L)/3)/4-2*(C+L)/2))/2;
强:=(EMA((分清+3*((EMA(放心买入,5)*5+分清)/6+((EMA(奇,5)+EMA(奇,8)+EMA(奇,13))/3))/2)/4,3)/3),POINTDOT,COLOR00FFFF;
验证:=((((C+L)/2-LLV(L,24))/(HHV((H+C)/2,24)-LLV(L,24))*1.1*(C+L)/2));  
续持验证:=EMA((2*(5*((EMA((2*C+L)/3,2)-EMA((2*C+H)/3,5))
-EMA((EMA((2*C+L)/3,2)-EMA((2*C+H)/3,5)),21)))
+(((C*2+H)/3+(C*2+H)/3)/2)+EMA(验证,2))/4,2),COLOR555555;
AR:=(2*(C+L)/2+REF((C+L)/2,1))/3;
BR:=(7*(C+L)/2+6*REF((C+L)/2,1)+5*REF((C+L)/2,2)
+4*REF((C+L)/2,3)+3*REF((C+L)/2,4)
+2*REF((C+L)/2,5)+REF((C+L)/2,6))/28;
VARA2:=LLV(MA(LOW,3),3);
VARA3:=HHV(MA(HIGH,3),3);

 
昨V:=REF(V,1);
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘1:=DYNAINFO(23)*比;
卖盘1:=DYNAINFO(22)*比;
买盘2:=IF(ISLASTBAR AND C > 300,(V9+V8)*TT,(V9+V8));
卖盘2:=IF(ISLASTBAR AND C > 300,(V6+V7)*TT,(V6+V7));
买盘:=IF(ISLASTBAR AND PERIOD=5 AND C < 300,买盘1,买盘2);
卖盘:=IF(ISLASTBAR AND PERIOD=5 AND C < 300,卖盘1,卖盘2);
DRAWGBK(C > 0, RGB(Q1,Q2,Q3),RGB(0,108,108),0,'11',0);
买卖差:=买盘-卖盘;
STICKLINE(C >= O,0,买盘+卖盘,2.8,1),COLORRED;
STICKLINE(C
STICKLINE(买卖差 >= 0,0,买盘,2.5,0),COLORRED;
STICKLINE(买卖差 >= 0 AND C >= MA(C,30),0,买盘,3.0,0),COLORRED;
STICKLINE(买卖差 >= 0,0,卖盘,1.1,0),COLOR998800;
STICKLINE(买卖差 >= 0 AND C >= MA(C,30),0,卖盘,1.5,0),COLORDDCC00;
STICKLINE(买卖差 < 0,0,买盘,2.5,0),COLORRED;
STICKLINE(买卖差 < 0 AND C >= MA(C,30),0,买盘,3.0,0),COLORRED;
STICKLINE(买卖差<0,0,卖盘,1.1,0),COLOR998800;
STICKLINE(买卖差<0 AND C >= MA(C,30),0,卖盘,1.5,0),COLORDDCC00;
A1:=REF(CLOSE,1);
B1:=(买盘+卖盘) < MA(V,60)/3 ;
{B1:=V < MA(V,60)/3 ;}
B2:=MA(V,5)/2 > V AND V > B1;
STICKLINE(B1,0,卖盘,2,0),COLORYELLOW;
((80-HLMN3)*HLMN2/HLMN4+HLMN1),COLORCCCCCC,LINETHICK1,DOTLINE;
((50-HLMN3)*HLMN2/HLMN4+HLMN1),COLORCCCCCC,LINETHICK1,DOTLINE;
((20-HLMN3)*HLMN2/HLMN4+HLMN1),COLORCCCCCC,LINETHICK1,DOTLINE;
KA:=(EMA((CLOSE-VARA2)/(VARA3-VARA2)*100,4)-50)*0.5+50;
DB:=EMA(0.667*REF(KA,1)+0.333*KA,2);
JJ:=3*KA-2*DB;
((KA-HLMN3)*HLMN2/HLMN4+HLMN1),COLORFFF111,LINETHICK1;
((DB-HLMN3)*HLMN2/HLMN4+HLMN1),COLOR00FF00,LINETHICK1;
((JJ-HLMN3)*HLMN2/HLMN4+HLMN1),COLORFF00FF,LINETHICK1;
IF(续持验证 < 强,-5*P,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK1;
IF(续持验证 >= 强,-5*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;
IF(续持验证 >=  REF(续持验证,1),-15*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;
IF(续持验证 < REF(续持验证,1),-15*P,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK1;

732455441.jpg

732455441.jpg

回复

使用道具 举报

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

本版积分规则