通达信长阴短柱主图选股指标公式源码

通达信长阴短柱主图选股指标公式源码

源码正文：

VAR1:=CLOSE<REF(CLOSE,1) AND CLOSE<OPEN AND vol<REF(VOL,1)*0.7{XG51};
VAR2:=BArslAst(VAR1){XG51};
当前高量顶价:DRAWLINE(VAR2=0 AND VAR2<=10,MIN(CLOSE,OPEN),REF(VAR2=0,1),REF(MIN(CLOSE,OPEN),1),1),DOTLINE,COLORmaGENTA{XG51};
VAR3:=CONST(HHV(REF(HIGH,1),240)){XG51};
VAR4:=CONST(LLV(REF(LOW,1),240)){XG51};
VAR5:=VAR3-VAR4{XG51};
VAR6:=LOW-VAR5*0.03{XG51};
VAR7:=HIGH+VAR5*0.03{XG51};
VAR8:=CLOSE>500{XG51};
VAR9:=MAX(CLOSE,OPEN){XG51};
VAR10:=MIN(CLOSE,OPEN){XG51};
VAR11:=0{XG51};
VAR12:=1{XG51};
VAR13:=IF(VAR8,HIGH,VAR9){XG51};
VAR14:=IF(VAR8,LOW,VAR10){XG51};
VAR15:=IF(CLOSE>OPEN,IF(VAR12=0,LOW,VAR14),IF(VAR12=0,HIGH,VAR13)){XG51};
VAR16:=2/1000{XG51};
VAR17:=CURRBARSCOUNT{XG51};
VAR18:=120{XG51};
VAR19:=VAR17<=VAR18{XG51};
VAR20:=LOW{XG51};
VAR21:=IF(VAR11=0,VAR20,REF(VAR11,VAR11)){XG51};
基准价:IF(VAR19,CONST(VAR21),DRAWNULL),DOTLINE,COLORWHITE{XG51};
VAR22:=基准价{XG51};
VAR23:=VAR22*VAR16{XG51};
VAR24:=Abs(LOW-VAR22)<=VAR23{XG51};
VAR25:=ABS(OPEN-VAR22)<=VAR23{XG51};
VAR26:=ABS(CLOSE-VAR22)<=VAR23{XG51};
VAR27:=ABS(HIGH-VAR22)<=VAR23{XG51};
VAR28:=VAR24 OR VAR25 OR VAR26 OR VAR27 AND VAR19 AND VAR17!=1{XG51};
VAR29:=COUNT(VAR28,VAR18){XG51};
精准点个数:IF(VAR29>0,VAR29+1,0),NODRAW,COLORWHITE{XG51};
VAR30:=AMOUNT/VOL/100{XG51};
VAR31:=CLOSE>OPEN AND REF(CLOSE,1)>VAR30 AND CLOSE>VAR30 AND CLOSE<300{XG51};
STICKLINE(VAR31,OPEN,CLOSE,1,0),COLORLIRED{XG51};
VAR32:=OPEN>CLOSE AND CLOSE<VAR30 AND VAR30>REF(CLOSE,1){XG51};
STICKLINE(VAR32,OPEN,CLOSE,1,0),COLORWHITE{XG51};
VAR33:=VOL>REF(VOL,1)*0.95 AND VOL<REF(VOL,1)*1.05{XG51};
VAR34:=WINNER(CLOSE)-WINNER(OPEN)>=0.2 AND VAR33{XG51};
STICKLINE(VAR34,OPEN,CLOSE,1,0),COLORYELLOW{XG51};
VAR35:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100{XG51};
VAR36:=NAMELIKE(1) OR NAMELIKE(2) OR NAMELIKE(3) AND VAR35>=4.945{XG51};
VAR37:=NAMELIKE(1) OR NAMELIKE(2) OR NAMELIKE(3) AND VAR35<=(-4.945){XG51};
涨停价:IF(VAR36,REF(CLOSE,1)*1.05,REF(CLOSE,1)*1.1),NODRAW,COLORWHITE{XG51};
跌停价:IF(VAR37,REF(CLOSE,1)*0.95,REF(CLOSE,1)*0.9),NODRAW,COLORCYAN{XG51};
VAR38:=REF(CLOSE,1){XG51};
VAR39:=CLOSE=ZTPRICE(REF(CLOSE,1),0.1){XG51};
STICKLINE(VAR39,OPEN,CLOSE,2,0),COLORLIMAGENTA{XG51};
STICKLINE(VAR39,OPEN,CLOSE,1,0),COLORLIMAGENTA{XG51};
VAR40:=CLOSE=DTPRICE(REF(CLOSE,1),0.1){XG51};
STICKLINE(VAR40,OPEN,CLOSE,2,0),COLORCYAN{XG51};
STICKLINE(VAR40,HIGH,LOW,0,1),COLORCYAN{XG51};
流通市值:FINANCE(40)/100000000,NODRAW{XG51};
MA5角度:ATAN((MA(CLOSE,5)/REF(MA(CLOSE,5),1)-1)*100)*180/3.142,NODRAW,COLORWHITE{XG51};
循环年位置:(CLOSE-LLV(CLOSE,225))/(HHV(CLOSE,225)-LLV(CLOSE,225))*100,NODRAW,COLORCYAN{XG51};
VAR41:=HHV(VOL,10){XG51};
VAR42:=BARSLAST(VAR41=VOL){XG51};
VAR43:=crOSS(REF(MAX(CLOSE,OPEN),VAR42),CLOSE){XG51};
STICKLINE(VAR43,MAX(CLOSE,OPEN)*1.02,MIN(CLOSE,OPEN)*0.98,0,1),COLORWHITE{XG51};
STICKLINE(VAR43,(OPEN+CLOSE)/2,(OPEN+CLOSE)/2,10,0),COLORWHITE{XG51};
DRAWICON(OPEN>REF(MAX(CLOSE,OPEN),1) AND CLOSE>OPEN AND CLOSE>REF(CLOSE,1) AND CLOSE>MA(CLOSE,5),LOW*0.97,11){XG51};
DRAWICON(OPEN>REF(MAX(CLOSE,OPEN),1) AND CLOSE>OPEN AND CLOSE>REF(CLOSE,1) AND CLOSE>MA(CLOSE,5),LOW*0.97,11){XG51};
VAR44:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5){XG51};
VAR45:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2) AND REFX(CLOSE,7)<REFX(CLOSE,3) AND REFX(CLOSE,8)<REFX(CLOSE,4){XG51};
VAR46:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6){XG51};
VAR47:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2) AND REFX(CLOSE,7)<REFX(CLOSE,3){XG51};
VAR48:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7){XG51};
VAR49:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2){XG51};
VAR50:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8){XG51};
VAR51:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1){XG51};
VAR52:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9){XG51};
VAR53:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE{XG51};
VAR54:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10){XG51};
VAR55:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1){XG51};
VAR56:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11){XG51};
VAR57:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2){XG51};
VAR58:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11) AND REF(CLOSE,8)>REF(CLOSE,12){XG51};
VAR59:=REFX(CLOSE,1)<REF(CLOSE,3){XG51};
VAR60:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11) AND REF(CLOSE,8)<REF(CLOSE,12) AND REF(CLOSE,9)>REF(CLOSE,13){XG51};
VAR61:=IF(PERIOD<4,LOW*(1-(PERIOD+1)/10*0.01),LOW*0.98){XG51};
VAR62:=IF(PERIOD<4,HIGH*(1+(PERIOD+1)/10*0.01),HIGH*1.05){XG51};
VAR63:=CURRBARSCOUNT-1{XG51};
DRAWNUMBER(VAR44 AND (VAR45 OR VAR63=0 OR (VAR63=1 AND VAR59) OR (VAR63=2 AND VAR57) OR (VAR63=3 AND VAR55) OR (VAR63=4 AND VAR53) OR (VAR63=5 AND VAR51) OR (VAR63=6 AND VAR49) OR (VAR63=7 AND VAR47)),VAR61,1),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR46 AND (VAR47 OR VAR63=0 OR (VAR63=1 AND VAR59) OR (VAR63=2 AND VAR57) OR (VAR63=3 AND VAR55) OR (VAR63=4 AND VAR53) OR (VAR63=5 AND VAR51) OR (VAR63=6 AND VAR49)),VAR61,2),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR48 AND (VAR49 OR VAR63=0 OR (VAR63=1 AND VAR59) OR (VAR63=2 AND VAR57) OR (VAR63=3 AND VAR55) OR (VAR63=4 AND VAR53) OR (VAR63=5 AND VAR51)),VAR61,3),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR50 AND (VAR51 OR VAR63=0 OR (VAR63=1 AND VAR59) OR (VAR63=2 AND VAR57) OR (VAR63=3 AND VAR55) OR (VAR63=4 AND VAR53)),VAR61,4),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR52 AND (VAR53 OR VAR63=0 OR (VAR63=1 AND VAR59) OR (VAR63=2 AND VAR57) OR (VAR63=3 AND VAR55)),VAR61,5),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR54 AND (VAR55 OR VAR63=0 OR (VAR63=1 AND VAR59) OR (VAR63=2 AND VAR57)),VAR61,6),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR56 AND (VAR57 OR VAR63=0 OR (VAR63=1 AND VAR59)),VAR61,7),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR58 AND (VAR59 OR VAR63<1),VAR61,8),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR60,VAR61,9),COLORCYAN{XG51};
VAR64:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5){XG51};
VAR65:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2) AND REFX(CLOSE,7)>REFX(CLOSE,3) AND REFX(CLOSE,8)>REFX(CLOSE,4){XG51};
VAR66:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6){XG51};
VAR67:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2) AND REFX(CLOSE,7)>REFX(CLOSE,3){XG51};
VAR68:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7){XG51};
VAR69:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2){XG51};
VAR70:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8){XG51};
VAR71:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1){XG51};
VAR72:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9){XG51};
VAR73:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE{XG51};
VAR74:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10){XG51};
VAR75:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1){XG51};
VAR76:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11){XG51};
VAR77:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2){XG51};
VAR78:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11) AND REF(CLOSE,8)<REF(CLOSE,12){XG51};
VAR79:=REFX(CLOSE,1)>REF(CLOSE,3){XG51};
VAR80:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11) AND REF(CLOSE,8)>REF(CLOSE,12) AND REF(CLOSE,9)<REF(CLOSE,13){XG51};
DRAWNUMBER(VAR64 AND (VAR65 OR VAR63=0 OR (VAR63=1 AND VAR79) OR (VAR63=2 AND VAR77) OR (VAR63=3 AND VAR75) OR (VAR63=4 AND VAR73) OR (VAR63=5 AND VAR71) OR (VAR63=6 AND VAR69) OR (VAR63=7 AND VAR67)),VAR62,1),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR66 AND (VAR67 OR VAR63=0 OR (VAR63=1 AND VAR79) OR (VAR63=2 AND VAR77) OR (VAR63=3 AND VAR75) OR (VAR63=4 AND VAR73) OR (VAR63=5 AND VAR71) OR (VAR63=6 AND VAR69)),VAR62,2),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR68 AND (VAR69 OR VAR63=0 OR (VAR63=1 AND VAR79) OR (VAR63=2 AND VAR77) OR (VAR63=3 AND VAR75) OR (VAR63=4 AND VAR73) OR (VAR63=5 AND VAR71)),VAR62,3),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR70 AND (VAR71 OR VAR63=0 OR (VAR63=1 AND VAR79) OR (VAR63=2 AND VAR77) OR (VAR63=3 AND VAR75) OR (VAR63=4 AND VAR73)),VAR62,4),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR72 AND (VAR73 OR VAR63=0 OR (VAR63=1 AND VAR79) OR (VAR63=2 AND VAR77) OR (VAR63=3 AND VAR75)),VAR62,5),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR74 AND (VAR75 OR VAR63=0 OR (VAR63=1 AND VAR79) OR (VAR63=2 AND VAR77)),VAR62,6),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR76 AND (VAR77 OR VAR63=0 OR (VAR63=1 AND VAR79)),VAR62,7),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR78 AND (VAR79 OR VAR63<1),VAR62,8),COLORLIMAGENTA{XG51};
DRAWNUMBER(VAR80,VAR62,9),COLORCYAN{X_G?5!1_C_N_{};