通达信底部地量反转主图指标 源码 贴图
VAR1:=OPEN>CLOSE;
VAR2:=LAST(VAR1,4,3);
VAR3:=REF(CLOSE<OPEN,1);
VAR4:=REF(CLOSE,1)<CLOSE;
VAR5:=REF(OPEN/CLOSE,1)<1.06;
VAR6:=(HIGH+LOW+CLOSE)/3;
VAR7:=(VAR6-MA(VAR6,14))/(0.013*AVEDEV(VAR6,14));
VAR8:=VAR7>(-232);
VAR9:=VAR7>REF(VAR7,1)*1.06;
VAR10:=CLOSE/REF(CLOSE,1)>1.005;
VAR11:=VOL<LLV(VOL,18)*3.5;
VAR12:=CLOSE>REF(OPEN,1)*0.998;
VAR13:=REF(OPEN/CLOSE,1)<1.065;
VAR14:=REF(VOL,1)<REF(VOL,2)*2.5;
VAR15:=REF(LOW,2)>REF(LOW,3)*0.99;
VAR16:=HIGH<REF(HIGH,8)*0.995;
VAR17:=MA(CLOSE,60)/CLOSE>1.035;
VAR18:=LOW>REF(LOW,2)*0.995;
VAR19:=OPEN/CLOSE>1.07;
VAR20:=COUNT(VAR19,4)=0;
VAR21:=OPEN>REF(CLOSE,3)*0.998;
VAR22:=HIGH/LOW<1.07;
VAR23:=REF(HIGH,1)>REF(LOW,2);
VAR24:=OPEN>REF(CLOSE,1);
VAR25:=COUNT(VAR24,8)>=1;
VAR26:=REF(VOL<=EMA(VOL,110)*0.7,1);
VAR27:=HIGH/REF(CLOSE,1)>1.015 AND CLOSE>REF(HIGH,1);
VAR28:=CODELIKE('60')||CODELIKE('00')||CODELIKE('30');
XG:=VAR2 AND VAR3 AND VAR4 AND VAR5 AND VAR8 AND VAR10 AND VAR11 AND VAR12 AND VAR12 AND VAR14 AND VAR15 AND VAR16 AND VAR9 AND VAR17 AND VAR18 AND VAR20 AND VAR21 AND VAR22 AND VAR23 AND VAR25 AND VAR26 AND VAR27 AND VAR28;
STICKLINE(XG,O,C,1,0),COLORYELLOW;DRAWTEXT(XG,L*0.97,'反转'),COLORYELLOW; DRAWSL(XG,L,0,10,0),COLORGREEN;
昨天涨幅:=(REF(C,1)-REF(C,2))/REF(C,2)*100;
DRAWTEXT_FIX(1,0.01,0.10,0,STRCAT(STRCAT('昨天涨幅：',CON2STR(昨天涨幅,2)),' ％')),COLORGREEN;
{风险系数Z}{公式之家 BBS.GSZB.TOP}
XX1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
XX2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替}
XX3:=FINANCE(23)/FINANCE(10)*3.3;
XX4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
XX5:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=XX1+XX2+XX3+XX4+XX5;
DRAWTEXT_FIX(1,0.07,0.94,1,'财务预警：'),COLORYELLOW;
DRAWTEXT_FIX(Z值<1.2,0.1,0.94,1,' ●重 警●'),COLORRED;
DRAWTEXT_FIX( BETWEEN(Z值,1.2,2.6),0.1,0.94,1,' ○轻 警○'),COLOR0099FF;
DRAWTEXT_FIX(Z值>2.6,0.1,0.94,1,' ◎无 警◎'),COLORLIGREEN;
{阻力与支撑、评分显示Z}
E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
阻力:=2*E-LOW;支撑:=2*E-HIGH;
DRAWTEXT_FIX(C!=0,0.90,0.90,0,STRCAT('参考阻力：',STRCAT(CON2STR(阻力,2),' '))),COLORFFFF00;
DRAWTEXT_FIX(C!=0,0.90,0.96,0,STRCAT('参考支撑：',STRCAT(CON2STR(支撑,2),' '))),COLORGREEN;
X1:=IF(MA(C,5)>MA(C,10),20,0);X2:=IF(MA(C,20)>MA(C,60),10,0);
X3:=IF(KDJ.J>KDJ.K,10,0);X4:=IF(MACD.DIF>MACD.DEA,10,0);
X5:=IF(MACD.MACD>0,10,0);X6:=IF(V>MA(V,60),10,0);
X7:=IF(WINNER(C)>0.5,10,0);X8:=IF(C/REF(C,1)>1.03,10,0);
XX:=X1+X2+X3+X4+X5+X6+X7+X8;
DRAWTEXT_FIX(V>O,0.90,0.84,0,STRCAT('量化评分：',STRCAT(CON2STR(XX,2),' '))),COLORYELLOW; |
|
