gspt01:=EMA(C,2);
gspt02:=EMA(SLOPE(C,21)*20+C,42);
STICKLINE(gspt01>=gspt02,-50+REFDATE(HHV(H,0),DATE)/5,-50+REFDATE(LLV(L,0),DATE)/5,6,0),COLORLIMAGENTA;
STICKLINE(gspt01< gspt02,-50+REFDATE(HHV(H,0),DATE)/5,-50+REFDATE(LLV(L,0),DATE)/5,6,0),COLORLIBLUE;
gspt03:=(((HHV(H,10)-C)/(HHV(H,10)-LLV(L,10)))*200)-125;
散参:=SMA(gspt03,5,1)+15;
gspt04:=(((C-LLV(LOW,10))/(HHV(H,10)-LLV(L,10)))*200)-105;
主参:SMA(gspt04,5,1)+15,COLORLIRED,LINETHICK1;
进持:IF(主参>REF(主参,1),主参,DRAWNULL),COLORMAGENTA,LINETHICK3;{主力向上持仓段}
币持:IF(主参< REF(主参,1),主参,DRAWNULL),COLORGREEN,LINETHICK3;{主力向下持币段}
gspt08:=INTPART(SUM(V,0)/CAPITAL);{累计换手率取整}
gspt09:=gspt08>REF(gspt08,1) OR BARSSINCE(C)=0;
gspt10:=BARSLAST(gspt09)+1;
gspt11:=gspt10< REF(gspt10,1);
gspt12:=IF(gspt11,REF(gspt10,1)+1,gspt10);
gspt13:=SUM(gspt11,0);{切换总次数统计}
周K:="KD.K#WEEK"(9,3,3);
周D:="KD.D#WEEK"(9,3,3);
gspt16:="MACD.DIF#WEEK"(12,26,9);
gspt17:="MACD.DEA#WEEK"(12,26,9);
换比:=V/CAPITAL*100;{当日换手率}
公式平台网:=FILTER(CROSS(周K,周D) AND REF(周D,1)< 30,13),NODRAW;
取周:=BARSLAST(公式平台网);{距离周金叉周期数}
筹区:=IF(取周>0 AND 取周< 61,取周,0);
P22:=筹区;
U23:=筹区+1;
Q24:=换比/5;{换手率折算系数}
筹占:IF(P22>0,SUM((Q24),筹区+1),0),NODRAW;
建天:P22,NODRAW;{建仓持续天数}
T27:=SUM(AMOUNT/10000,gspt12)*100;
R28:=SUM(V,gspt12)*100,NODRAW;
本阶:(T27/(R28/100)),NODRAW;
STICKLINE(换比< 3,-80,(换比+5-40)*2,0.0,0),COLORCYAN;
(换比<3,-80,(换比-6)*4,0.0,0),COLORCYAN;
STICKLINE(换比>=3 AND 换比< 7,-80,(换比+5-40)*2,0.0,0),COLORYELLOW;
(换比>=3 AND 换比< 7,-80,(换比-6)*4,0.0,0),COLORYELLOW;
STICKLINE(换比>=7,-80,(换比+5-40)*2,0.5,0),COLORRED;
(换比>=7,-80,(换比-6)*4,0.5,0),COLORRED;
STICKLINE(公式平台网,(0-6)*4,6*6,0.5,0),COLORGREEN;
DRAWTEXT(建天,40,'建仓'),COLORGREEN;
P34:=REF(C,1);{前一日收盘价}
U35:=SMA(MAX(C-P34,0),6,1)/SMA(ABS(C-P34),6,1)*100;
逃点:IF(CROSS(80,U35),90,100),COLORCYAN;
DRAWTEXT(CROSS(80,U35),U35,'卖 '),COLORWHITE;
DRAWTEXT(CROSS(主参,散参),0,'买 '),COLORRED;
Q39:=(WINNER((C+((C*15)/100)))*100);{高位获利盘}
T40:=(WINNER((C+((C*0)/100)))*100);{现价获利盘}
R41:=(Q39-T40);
P42:=((WINNER((C-((C*0.1)/100)))-WINNER((C-((C*15)/100))))*100);{低位筹码区间}
U43:=(((R41< 3) AND (P42< 0.5)) AND (OPEN>LOW));
Q44:=DYNAINFO(6);
T45:=IF((LOW>Q44),0,IF((H<Q44),1,(((Q44-LOW)+0.01)/((H-LOW)+0.01))));
R46:=(VOL/WINNER(LOW));
P47:=REF(HHV(C,120),1);
U48:=REF(LLV(C,120),1);
Q49:=((100*(C-U48))/(P47-U48));
T50:=((T45>0) OR (T45=1));{价格击穿标}
R51:=((T50 AND ((R46/REF(R46,3))>=3)) AND (Q49< 80));
P52:=(((REF(R51,1) OR REF(R51,2)) OR REF(R51,3)) OR REF(R51,4));
U53:=(R51 AND P52);{共振}
Q54:=IF(FILTER(R51,3),5,0);{进场信号}
T55:=IF((FILTER(U53,3) OR U43),10,0);
STICKLINE(Q54,-48,-33,2.5,0),COLORFF7700;
STICKLINE(T55,-48,-20,2.5,0),COLORFF00FF;
STICKLINE(Q54,-48,-33,2.2,0),COLORFF7700;
STICKLINE(Q54,-48,-33,1.7,0),COLORFFDD00;
STICKLINE(Q54,-48,-33,0.7,0),COLORFFEE00;
STICKLINE(T55,-48,-20,2.2,0),COLOR102066;
STICKLINE(T55,-48,-20,1.7,0),COLOR1020AA;
STICKLINE(T55,-48,-20,0.7,0),COLOR1020FF ;
DRAWTEXT(Q54=5,-33,'进场'),COLORFFFF00;
DRAWTEXT(T55=10,-20,'加仓'),COLORFFFFFF;
R62:=REF(LOW,1);
P63:=SMA(ABS(LOW-R62),3,1)/SMA(MAX(LOW-R62,0),3,1)*110;
U64:=EMA(IF(C*1.3,P63*10,P63/10),3);
Q65:=LLV(LOW,13);
T66:=HHV(U64,13);
R67:=IF(MA(C,34),1,0);
P68:=EMA(IF(LOW<=Q65,(U64+T66*2)/2,0),3)/618*R67;
U69:=IF(P68>110,110,P68);
STICKLINE(U69< REF(U69,1),48,48+U69,0.5,0),COLORYELLOW;
Q71:=(C-LLV(LOW,9))/(HHV(H,9)-LLV(LOW,9))*100;
短K:=SMA(Q71,2,1);
短D:=SMA(短K,2,1);
短J:=3*短K-2*短D;
反J:=REVERSE(短J);
T76:=REF(MA(C,1),10)>REF(MA(C,60),10);
吸买点:CROSS(短J,反J) AND T76,NODRAW;
STICKLINE(吸买点,0,30,5,0),COLOR0000FF;
STICKLINE(吸买点,30,55,3,0),COLORWHITE;
STICKLINE(吸买点,55,80,1,0),COLORYELLOW;
DRAWTEXT(吸买点,40,'--大力吸筹'),COLORYELLOW;
短线买:IF(CROSS(短K,短D)AND T76,10,0),COLORLIMAGENTA;
