gspt1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
gspt2:=gspt1+HIGH-LOW;
gspt3:=2*gspt1-LOW;
gspt4:=gspt1-HIGH+LOW;
gspt5:=2*gspt1-HIGH;
gspt6:=HIGH< REF(LOW,1) OR LOW>REF(HIGH,1);
gspt7:=CLOSE=HHV(CLOSE,13);
gspt8:=BARSLAST(FILTER(CROSS(0.8,gspt7),2))+1;
gspt9:=REF(CLOSE,gspt8);
gspt10:=CROSS(CLOSE,REF(gspt9,1));
gspt11:=(HIGH+LOW+3*CLOSE+OPEN)/6;
gspt12:=MA(gspt11,7);
gspt13:=MA(gspt11,14);
gspt14:=MA(gspt11,21);
gspt15:=MA(gspt11,28);
gspt16:=MA(gspt11,35);
gspt17:=MA(gspt11,42);
gspt18:=MA(gspt11,49);
gspt19:=MA(gspt11,56);
gspt20:=(7*gspt12+14*gspt13+21*gspt14+28*gspt15+35*gspt16+42*gspt17+49*gspt18+56*gspt19)/252;
gspt21:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
gspt22:=REF(gspt21,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
gspt23:=REF(gspt22,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
gspt24:=REF(gspt23,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
gspt25:=REF(gspt24,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
gspt26:=REF(gspt25,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
gspt27:=REF(gspt26,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
gspt28:=REF(gspt27,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
gspt29:=REF(gspt28,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
gspt30:=REF(gspt29,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
gspt31:=REF(gspt30,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
gspt32:=REF(gspt31,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
gspt33:=CLOSE< REF(CLOSE,1) AND CLOSE< REF(CLOSE,2);
gspt34:=REF(gspt21 OR gspt22 OR gspt23 OR gspt24 OR gspt25 OR gspt26 OR gspt27 OR gspt28 OR gspt29 OR gspt30 OR gspt31 OR gspt32,1) AND gspt33;
DRAWTEXT_FIX(C>O,0,0.07,0,'公式平台 公式源码 http://www.gspt.com'),COLOR333333;
gspt35:=0.01*EXPMA(AMOUNT,13)/EXPMA(VOL,13);
gspt36:=(gspt35/REF(gspt35,1)-1)*10;
gspt37:=MA(gspt36,5)/10;
gspt66:=MA(C,18);
gspt68:=(gspt66>REF(gspt66,1));
明日心理价:(gspt1+gspt2+gspt3+gspt5+gspt4)/5,NODRAW,COLORWHITE;
DRAWTEXT(gspt6,LOW,'缺'),COLOR00FFFF;
STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORYELLOW;
STICKLINE(gspt8<=6,gspt9,gspt9,3,0),COLORFF00FF;
DRAWTEXT(gspt10,LOW,'T'),COLOR00FFFF;
沧海斩妖线:EMA(CLOSE,3),COLORWHITE,LINETHICK1;
沧海斩妖线2:MA(CLOSE,5)COLORYELLOW,LINETHICK1;
沧海斩妖线3:MA(CLOSE,8),COLORRED,LINETHICK1;
沧海行安全线:MA(CLOSE,25),COLORGRAY,LINESTICK,LINETHICK1;
DRAWICON(CROSS(沧海斩妖线,gspt20),L*0.98,1);
STICKLINE(C/REF(C,1)>1.095,C,O,1,0),COLORYELLOW;
IF(沧海斩妖线3<=REF(沧海斩妖线3,1),沧海斩妖线3,DRAWNULL),COLORBLUE,LINETHICK2;
IF(沧海斩妖线3>REF(沧海斩妖线3,1),沧海斩妖线3,DRAWNULL),COLORFF00FF,LINETHICK2;
DRAWICON(FILTER(gspt34=1,5),HIGH*1.03,12);
生变:IF(gspt37< gspt36,gspt20,DRAWNULL),COLORYELLOW,CIRCLEDOT,LINETHICK2;
空仓:IF(gspt36< gspt37,gspt20,DRAWNULL),COLORGREEN,CIRCLEDOT,LINETHICK2;
持仓:IF(gspt36>gspt37 AND gspt68,gspt20,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK2;
IF(gspt20<=REF(gspt20,1),gspt20,DRAWNULL),COLORGREEN,CIRCLEDOT,LINETHICK2;