通达信机械交易主图指标

源码

VAR1:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14,1);
VAR2:=HIGH-REF(HIGH,1);
VAR3:=REF(LOW,1)-LOW;
VAR4:=SMA(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),12,1);
VAR5:=SMA(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),12,1);
VAR6:=VAR4*100/VAR1;
VAR7:=VAR5*100/VAR1;
VAR8:=SMA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,12,1);
VAR9:=(VAR8+REF(VAR8,5))/2;
VARA:=SUM(HIGH-OPEN,12)/SUM(OPEN-LOW,12)*100;
VARB:=SUM(MAX(0,HIGH-REF(CLOSE,1)),12)/SUM(MAX(0,REF(CLOSE,1)-LOW),12)*100;
VARC:=AMOUNT/VOL/100;
VARD:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VARE:=SUM(AMOUNT,5)/VARC/100;
VARF:=SUM(AMOUNT,13)/VARC/100;
VAR10:=SUM(AMOUNT,34)/VARC/100;
VAR11:=SUM(AMOUNT,209)/VARC/100;
VAR12:=REF(VOL,1)+REF(VOL,2)+REF(VOL,3)+REF(VOL,4);
VAR13:=VAR12/CAPITAL;
VAR14:=VOL/CAPITAL*VARD+VAR13*REF(VARC,1);
CYC5: IF(DATE<1500501,DMA(VARD,VOL/VARE),0);
CYC13: IF(DATE<1500501,DMA(VARD,VOL/VARF),0);
CYC34: IF(DATE<1500501,DMA(VARD,VOL/VAR10),0);
CYC∞: IF(DATE<1500501,DMA(VARD,VOL/CAPITAL),0);
VAR15:=100*(CLOSE-CYC5)/CYC5;
VAR16:=100*(CLOSE-CYC13)/CYC13;
VAR17:=100*(CLOSE-CYC34)/CYC34;
VAR18:=100*(CLOSE-CYC∞)/CYC∞;
VAR19:=MA(CLOSE,13);
VAR1A:=100*(VAR19-REF(VAR19,1))/REF(VAR19,1);
VAR1B:=CLOSE-LOW;
VAR1C:=HIGH-LOW;
VAR1D:=CLOSE-HIGH;
VAR1E:=IF(CLOSE>=0,(VAR1B/VAR1C+VAR1D/VAR1C)*VOL,(VAR1D/VAR1C+VAR1B/VAR1C)*VOL);
VAR1F:=SUM(VAR1E,10)/10000;
VAR20:=100*(CYC13-REF(CYC13,1))/REF(CYC13,1);
VAR21:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR22:=SMA(VAR21,3,1);
VAR23:=SMA(VAR22,3,1);
VAR24:=3*VAR22-2*VAR23;
VAR25:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
VAR26:=SMA(VAR25,5,1);
VAR27:=SMA(VAR26,10,1);
VAR28:=CROSS(VAR27,VAR26);
VAR29:=VAR27>80 OR VAR26>80;
VAR2A:=VAR28 AND VAR29;
VAR2B:=VAR1A>0 AND VAR20>0 AND VAR1F>0;
VAR2C:=VAR1A<0 OR VAR20<0 OR VAR1F<0 OR VAR16<0;
VAR2D:=CLOSE;
VAR2E:=OPEN;
VAR2F:=HIGH;
VAR30:=LOW;
买入: STICKLINE(VAR2B,VAR2D,VAR2E,8,0), COLORRED;
持股2: STICKLINE(VAR2B,VAR2F,MAX(VAR2D,VAR2E),0,1),COLORRED;
持股3: STICKLINE(VAR2B,MIN(VAR2D,VAR2E),VAR30,0,1),COLORRED;
沽空: STICKLINE(VAR2C,VAR2D,VAR2E,8,0),COLORBLUE;
持币2: STICKLINE(VAR2C,VAR2F,MAX(VAR2D,VAR2E),0,1),COLORBLUE;
持币3: STICKLINE(VAR2C,MIN(VAR2D,VAR2E),VAR30,0,1),COLORBLUE;
大顶: STICKLINE(VAR2A,VAR2F,VAR30,8,0),COLORYELLOW;
VAR31:=1.1*CLOSE;
VAR32:=0.9*CLOSE;
VAR33:=100*(WINNER(VAR31)-WINNER(VAR32));
VAR34:=VOL/CAPITAL*100<3;
VAR35:=100*WINNER(CLOSE)>90;
VAR36:=VAR34 AND VAR35;
VAR37:=SUM(VOL,34)/CAPITAL;
VAR38:=100-100/(1+VAR37)>0;
VAR39:=100-100/(1+VAR37)<34;
VAR3A:=VAR38 AND VAR39;
VAR3B:=100*VOL/CAPITAL;
VAR3C:=100*(WINNER(CLOSE)-REF(WINNER(CLOSE),1));
VAR3D:=4;
VAR3E:=VAR3C/VAR3B;
VAR3F:=VAR3C/VAR3B>10;
VAR40:=100*(WINNER(CLOSE)-REF(WINNER(CLOSE),VAR3D))/5*MA(VAR3B,5);
VAR41:=LLV(LOW,240);
VAR42:=100*(CLOSE-VAR41)/VAR41>15;
VAR43:=100*(CLOSE-VAR41)/VAR41<45;
VAR44:=100*(CLOSE-VAR41)/VAR41;
VAR45:=VAR42 AND VAR43;
VAR46:=100*(WINNER(CLOSE)-WINNER(OPEN))>18;
VAR47:=100*(WINNER(CLOSE)-WINNER(OPEN))<100;
VAR48:=VAR46 AND VAR47;
VAR49:=VAR48 AND VAR45 AND VAR3F AND VAR3A;
DRAWTEXT(VAR49,HIGH,'狐'),COLORMAGENTA;
VAR4A:=100*(CLOSE-COST(0))/(COST(100)-COST(0));
VAR4B:=100*(CYC∞-COST(0))/(COST(100)-COST(0));
VAR4C:=VAR4A<25 AND VAR4B>50;
VAR4D:=VAR33<10 AND VAR16<-16;
DRAWTEXT(VAR4D AND VAR4C,LOW,'米老鼠'),COLORMAGENTA;
VAR4E:=100*WINNER(CLOSE);
VAR4F:=VAR16<-16 AND VAR4E>=40;
VAR50:=WINNER(CLOSE)/(VOL/CAPITAL);
DRAWTEXT(VAR2A,HIGH,'逃顶'),COLORYELLOW;
VAR51:=(VAR16-LLV(VAR16,60))/(HHV(VAR16,60)-LLV(VAR16,60))*100;
VAR52:=LLV(LOW,240);
VAR53:=100*(CLOSE-VAR52)/VAR52;
VAR54:=WINNER(CLOSE)/SMA(VOL/CAPITAL,13,1);
VAR55:=(CLOSE-LLV(LOW,240))/(HHV(HIGH,240)-LLV(LOW,240))*100;
VAR56:=(CLOSE-LLV(LOW,480))/(HHV(HIGH,480)-LLV(LOW,480))*100;
VAR57:=100*(1-WINNER(CLOSE));
VAR58:=VAR44<1 AND VAR50<0.3 AND VAR54<0.3 AND VAR3E<0 AND VAR55<0.5 AND VAR56<0.5 AND VAR33<1.5 AND VAR4A<1 AND VAR51=0;
DRAWTEXT(VAR58,LOW,'抄底'),COLORYELLOW;
VAR59:=100*(WINNER(CLOSE)-WINNER(0.7*CLOSE));
VAR5A:=100*(CYC5-REF(CYC5,1))/REF(CYC5,1);
VAR5B:=VAR59>70 AND VAR5A>1 AND VAR45;
DRAWTEXT(VAR5B,LOW,'密上'),COLORYELLOW;