同花顺炒股神器源码

以下是同花顺炒股神器源码

MA1:MA (CLOSE,3),color00ff00;

MA2:MA(C,5),color0000ff;

MA3:MA(C,7),color0000ff;

MA4:MA(C,9),color0000ff;

LC:=REF(CLOSE,7);

RSI:=((SMA(MAX(CLOSE – LC,0),4.1,1))/(SMA(ABS(CLOSE – LC),4.1,1)))*(100);

蛮准:(CROSS(RSI,11))*(80),colorred;

DRAWTEXT(蛮准,79,’准’),Culor66FFCC;

Var1:=(CLOSE-LLV(LOW,31))/(HHV(HIGH,31)-LLV(LOW,31))*100;

Var2:=SMA(Var1,3,1);

Var3:=SMA(Var2,3,1);

Var4:=SMA(Var3,3,1);

波: Var3;

段: Var4;

AA:=LLV(LOW,31);

BB:=HHV(HIGH,30);

DD:=(EMA(((CLOSE-AA)/(BB-AA))*(4),4))*(25);

股神:DD,color3399ff,linethick2;

股海:=(((DD-LLV(DD,21))/(HHV(DD,21)-LLV(DD,21)))*(4))*(25);

STICKLINE(股神<波,波,股神,1,0);

XC:=IF (股神<=段,股神,波);

XD:=IF (股神<=段,段,波);

XA:=IF (股神>=段,股神,波);

XB:=IF (股神>=段,段,波);

STICKLINE(股神>0 AND 股神-波>=0,79,80,8,0),colorff00ff,linethick2;

STICKLINE(股神>0 AND 股神-波<0,79,80,8,0),colorblue,linethick2;

STICKLINE(股神>0 AND 股神-波>=0,09,10,8,0),colorff00ff,linethick2;

STICKLINE(股神>0 AND 股神-波<0,09,10,8,0),colorblue,linethick2;

头部:=IF((股神>(90)),10,0);

s:=50;

XAn:IF (股神>=段,股神,波),color3399ff,linethick2;

XBn:IF (股神>=段,段,波),colorred,linethick2;

XCn:IF (股神<=段,股神,波),Culor3399ff,linethick2;

XDn:IF (股神<=段,段,波),Culor00ff00,linethick2;

XXn:波;

VAR1:=EMA(EMA(CLOSE,9),9);

控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;

STICKLINE(控盘<0,控盘,0,2,0),colorwhite;

A10:=CROSS(控盘,0);

无庄控盘:IF(控盘<0,控盘,0),colorwhite,NODRAW;

开始控盘:IF(A10,5,0),LINETHICK1,coloryellow;

STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,2,0),colorred;

有庄控盘:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),colorred,NODRAW;

VAR2:=100*WINNER(CLOSE*0.95);

STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,2,0),COLORFF00FF;

高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,NODRAW;

STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,2,0),COLOR00FF00;

主力出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,NODRAW;

VAR3:=AMOUNT/VOL/7;VAR4:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;

VAR7:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);

VAR8:=SMA(ABS(LOW-VAR7),13,1)/SMA(MAX(LOW-VAR7,0),10,1);

VAR9:=EMA(VAR8,10);

VAR10:=LLV(LOW,33);

VAR11:=EMA(IF(LOW<=VAR10,VAR9,0),3);

进场:IF(VAR11>REF(VAR11,1),VAR11,0),colorred,NODRAW;

STICKLINE(VAR11>REF(VAR11,1),0,VAR11,2,0 ),colorred;

洗盘:IF(VAR11<REF(VAR11,1),VAR11,0),COLORFFFF00,NODRAW;

STICKLINE(VAR11<REF(VAR11,1),0,VAR11,2,0),COLORFFFF00;