//#@Fname=S点建仓
//#@comment=图形中，S点卖出，B点买入；根据控制风险的需要，系统会自动提示卖出信号
//#@control=
//#@style=S点建仓:Line2,a一般价格(灰),1,0,1,0,30065;
//#@availperiod=2147430400
//#@param=
//#@Fdesc=可在主图叠加
//#@defaultperiod=16384
//#@coord=M
//#@ordinate=0,0.000000;0,0.000000;0,0.000000;0,0.000000;0,0.000000;0;0,0.000000
//#@@FUNCSPEC@=source
M1:=3;M2:=5;M3:=7;M4:=13;M5:=15;M6:=21;
VAR1:=LLV(HIGH,240);
VAR2:=100*(CLOSE-VAR1)/VAR1;
VAR3:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR4:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR5:=0;
VAR6:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/
SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR7:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/
SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VARA:=BARSCOUNT(CLOSE);
VARB:=VAR6<20 AND VAR7<23 AND VARA>35;
VARC:=VARB AND COUNT(VARB,1)=1;
VARD:=EMA(CLOSE,21)-EMA(CLOSE,8);
VARE:=EMA(VARD,5);
VARF:=TROUGHBARS(3,6,1)<4 AND CROSS(VARD,VARE);
VAR8:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR9:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND
REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR10:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND
REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR11:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2)
AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR12:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2)
AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR13:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2)
AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR14:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2)
AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR15:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2)
AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR16:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2)
AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR17:=EMA(CLOSE,2)-EMA(CLOSE,150);
VAR1A:=EMA(VAR17,100);
VAR1B:=2*(VAR17-VAR1A);
VAR1C:=POW(VAR1B,3)*0.1+POW(VAR1B,1);
VAR1D:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));
VAR1E:=EMA(VAR1D*0.97,3);
VAR1F:=(HIGH+LOW+CLOSE)/3;
VAR18:=(VAR1F-MA(VAR1F,14))/(0.015*AVEDEV(VAR1F,14));
VAR19:=CROSS(VAR1E,LOW);
选股买点:= VAR8,colorred;
组合买:=(VAR9+VAR11+VAR13+VAR15);
组合卖:=(VAR10+VAR12+VAR14+VAR16);
黑马线:=IF(YEAR<2098 AND VAR1B>0.1,VAR1C,0);
VAR20:=选股买点 AND VARF AND VARC AND VAR19 AND VAR2<0 AND VAR3=0
AND VAR4=0 AND VAR18<(-110);
DRAWTEXT(VAR11,LOW-LOW*0.02,'●进'),colormagenta , LINETHICK4;
STICKLINE(组合买,CLOSE,OPEN,3,0),colorblue;
DRAWTEXT(组合买,LOW-LOW*0.02,'B'),colorgreen;
STICKLINE(组合卖,CLOSE,OPEN,3,0),colorgreen;
DRAWTEXT(组合卖,HIGH*1.04,'S'),coloryellow;
STICKLINE(选股买点,CLOSE,OPEN,3,0),colorblue;
DRAWTEXT(选股买点>0,LOW-LOW*0.02,'B'),colormagenta;
DRAWTEXT(VAR14,HIGH*1.1,'空仓'), LINETHICK3, colorcyan;
DRAWTEXT(VAR18<-110 AND 选股买点>0,LOW-LOW*0.06,'买'),colorred ,LINETHICK3 ;
VAA1:=(ZIG(3,10) < REF(ZIG(3,10),1)) AND (REF(ZIG(3,10),1) > REF(ZIG(3,10),2));
VAA2:=(ZIG(3,10) > REF(ZIG(3,10),1)) AND (REF(ZIG(3,10),1) < REF(ZIG(3,10),2));
DRAWTEXT(VAA1,HIGH*1.02,'卖'),coloryellow;
DRAWTEXT(VAA2 AND (DATE < 1070804),LOW-LOW*0.02,'买'),coloryellow;
STICKLINE(VAA1 AND (DATE < 1070804),CLOSE,OPEN,1.5,0),coloryellow;
STICKLINE(VAA1 AND (DATE < 1070804),HIGH,LOW,1.5,0),coloryellow;
STICKLINE(VAA2 AND (DATE < 1070804),CLOSE,OPEN,1.5,0),COLORFF00FF;
STICKLINE(VAA2 AND (DATE < 1070804),HIGH,LOW,1.5,0),COLORFF00FF;
VarG:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VarH:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var21:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var22:=VarH<REF(Var21,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(Var22 AND COUNT(Var22,30)=1,HIGH*1.02,'●大资金'),linethick1,COLORff00ff;
Var23:=(HIGH+LOW+CLOSE)/3;
Var24:=(Var23-MA(Var23,14))/(0.015*AVEDEV(Var23,14));
Var25:=(Var23-MA(Var23,70))/(0.015*AVEDEV(Var23,70));
Var26:=IF(Var24>=150 AND Var24<200 AND Var25>=150 AND Var25<200,10,0);
Var27:=IF(Var24<=-150 AND Var24>-200 AND Var25<=-150 AND Var25>-200,-10,Var26);
Var28:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
Var29:=100-ABS(Var28);
Var30:=IF(Var29<90,Var29,100);
Var1G:=IF(VarG>0, VarG,0);
Var1H:=IF(Var25>=200 AND Var24>=150,15,IF(Var25<=-200 AND Var24<=-150,-15,Var27))+60;
Var1I:=Var1G>48 AND Var1H>60 AND Var30<100;
DRAWTEXT(Var1I AND COUNT(Var1I,30)=1,HIGH*1.06,'●大笔出货'),linethick1,COLORffcc66;
DRAWTEXT(CROSS(ZIG(3,14),REF(ZIG(3,14),1)),LOW*1.001,'★底'),colorgreen;
DRAWTEXT(CROSS(REF(ZIG(3,13),1),ZIG(3,13)),HIGH*1,'★逃顶'), colorred;
