//IF(PERIODNAME<>"日线")
日期:=DATE;
IF 日期<20230209THEN BEGIN
//暴涨模块
//MA5:MA(C,5);
//MA10 :MA(CLOSE,10);
//MA60 : MA(CLOSE,60);
VAR5:=LLV(LOW,120);
VAR6:=HHV(HIGH,120);
VAR7:=(VAR6-VAR5)/100;
VAR8:=SMA((CLOSE-VAR5)/VAR7,20,1);
VARA:=3*VAR8-2*SMA(VAR8,10,1);
主力仓位: (100-VARA),coloryellow,LINETHICK1;
V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5); V4:=2*(V2-V3)*5.5;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2;
V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
V12:=(EMA(V11,3)-REF(EMA(V11,3),1))/REF(EMA(V11,3),1)*100;
AA:=(EMA(V11,3)<=13) AND FILTER((EMA(V11,3)<=13),15);
买入股票:= STICKLINE(EMA(V11,3)<=13 AND V12>13,0,30,5,0),colorlimagenta;
BB:= (EMA(V11,3)<=13 AND V12>13) AND FILTER((EMA(V11,3)<=13 AND V12>13),10) ;
DRAWTEXT (BB,35,'主力进'),coloryellow;
CC:=(EMA(V11,3)>=90 AND V12) AND FILTER((EMA(V11,3)>=90 AND V12),10);
DD:=(EMA(V11,3)>=120 AND V12) AND FILTER((EMA(V11,3)>=120 AND V12),10);
STICKLINE(IF(VB>=0,VB,0) AND EMA(V11,3)<13,0,20,10,0),coloryellow;
STICKLINE(IF(VB<=0,VB,0) AND EMA(V11,3)>90,0,20,10,0),colorgreen;
STICKLINE( IF(V4>=0,V4,1) AND EMA(V11,3)<13,0,20,10,0),coloryellow;
STICKLINE(IF(V4<=0,V4,1) AND EMA(V11,3)>90,0,20,10,0),colorliblue;
DRAWTEXT (CC,33,'拉升减仓'),colorliblue;
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VARF:=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);
VAR10:=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);
VAR11:=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);
VAR12:=VAR10<REF(VAR11,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(VAR12 AND COUNT(VAR12,30)=1,70,'-资金进场'),LINETHICK1,colorlimagenta;
STICKLINE(VAR12 AND COUNT(VAR12,30)=1,1,60,5,0),colorred,LINETHICK7;
T2:=VAR12;
T3:=VAR12 AND COUNT(VAR12,30)=1,1,60,5,0;
资金进场:IF(T3>REF(T2,1),60,0),colorred,LINETHICK1;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
//卖点:CROSS(85,RSI1)*70,colorwhite,POINTDOT;
//DRAWTEXT(CROSS(85,RSI1),80,'卖点'),colorgreen;
//STICKLINE(卖点,66,70,3,0),colorwhite;
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
买点:IF(CROSS(RSI,11),70,0),colorwhite,POINTDOT;
DRAWTEXT(CROSS(RSI,11),80,'买点'),colorred;
STICKLINE(买点,66,70,3,0),colorwhite;
Var2:=REF(LOW,1);Var3:=SMA(ABS(LOW-Var2),3,1)/SMA(MAX(LOW-Var2,0),3,1)*100;
Var4:=EMA(IF(CLOSE*1.3,Var3*10,Var3/10),3);
Var5:=LLV(LOW,30);
Var6:=HHV(Var4,30);
Var7:=IF(MA(CLOSE,58),1,0);
Var8:=EMA(IF(LOW<=Var5,(Var4+Var6*2)/2,0),3)/618*Var7;
Var9:=IF(Var8>100,100,Var8);
底部吸筹指标: =(CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100, color00ff00;
STICKLINE(CROSS(底部吸筹指标,-24),90,100,0,6,0), LINETHICK4,colorffffff;
DRAWTEXT(CROSS(底部吸筹指标,-24),100,'-准备拉升'),colorffffff;
准备拉升: IF(CROSS(底部吸筹指标,-24),100,0), POINTDOT,colorffffff;
GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
baijin1:=BARSLAST(CROSS(30,GJTJ1))<2 AND BARSLAST(CROSS(GJTJ1,50))<2;
baijin2:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
baijin3:=GJTJ1>60 AND GJTJ4>70;
DRAWTEXT(baijin1 AND baijin2 AND baijin3,70,'-关注');
huangjin1:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;
huangjin2:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
DRAWTEXT(huangjin1 AND huangjin2,55,'-波段');
T1=huangjin1;
T2=huangjin2;
T3=baijin1;
T4=baijin2;
T5=baijin3;
STICKLINE(t3 AND t4 AND t5,77,66,3,0),colorwhite;
波段: IF(t1 AND t2,50,0),colorgreen,POINTDOT;
关注: IF(t3 AND t4 AND T5,50,0),colorblue,POINTDOT;
//清仓:IF(T2>REF(T1,1),50,0),colorgreen,LINETHICK3;
//黄:=huangjin1 AND huangjin2,50,60,colorgreen,LINETHICK3;
//黄:IF(CROSS(huangjin1 AND huangjin2,0),70,0),colorwhite;
STICKLINE(t2 AND t1,66,55,3,0),colorwhite;
XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;
DRAWTEXT(COUNT(XG,3)=1 AND XG AND C>MA(C,20),40,'-启动'),colorred;
启动:IF(COUNT(XG,3)=1 AND XG AND C>MA(C,20),50,0),coloryellow,POINTDOT;
//下标线:40,colorred;
//上标线:80,colorred;
指标线:40,POINTDOT,colorred;
RETURN;
END
