一、灵感来源
还是老书的文字发人深省：用日k线制造假象，是中国股市常有的事。所以级别不妨提高到周线或者月线。因此我根据目前论坛上对支撑线和压力线的猜测方式，结合月线理论，写了这样一个新指标。用当月，上个月和上上个月的最高价来勾勒股价的趋势。
{异动定义}
FUT:=0;
KC:=IF(CODELIKE('68'),1,0);
CY:=IF(CODELIKE('30'),1,0)*IF(DATETODAY(DATE)-DATETODAY(1200824)>=0,1,0);
BJ:=IF(CODELIKE('83'),1,0)+IF(CODELIKE('87'),1,0)+IF(CODELIKE('43'),1,0)+IF(CODELIKE('9'),1,0);
ZTNN:=IF(BJ=1,1.30,IF(KC+CY=1,1.20,1.10));
GPC:=IF(INTPART(FINANCE(37))>0 AND FRACPART(FINANCE(37))=0,1,0);
ZTB:=IF(C<=H AND BETWEEN(H/REF(C,1),ZTNN*0.99,ZTNN*1.01),1,0);
DPX:=IF(HHV(H/REF(C,1)-1,5)>IF(ZTNN>1.15,0.06,0.05),1,0);
{背景输出}
LGB:=IF(GPC=1,LLV(L,60),DRAWNULL);
HGB:=IF(GPC=1,HHV(H,60),DRAWNULL);
DRAWGBK(H>=L,RGB(0,10,20),RGB(0,10,20),0,0,0);
DRAWBAND(MAX(LGB*1.50,HGB),RGB(0,10,20),IF(GPC=1,LGB*0.9,DRAWNULL),RGB(0,10,20));
{月线前高输出}
MR:=IF(MONTH!=REF(MONTH,1),1,0);
MRH0:=H#MONTH;
MRH1:=VALUEWHEN(MR=1,REF(MRH0,1));
MRH2:=VALUEWHEN(MR=1,REF(MRH1,1));
STICKLINE(FUT>=0,MRH2,REF(MRH2,1),2,0),COLOR300030;
STICKLINE(FUT>=0,MRH2,MRH2,2,0),COLOR600060;
STICKLINE(FUT>=0,MRH1,REF(MRH1,1),2,0),COLOR600060;
STICKLINE(FUT>=0,MRH1,MRH1,2,0),COLORC000C0;
STICKLINE(FUT=1,MRH0,REF(MRH0,1),2,0),COLORC000C0;
STICKLINE(FUT=1,MRH0,MRH0,2,0),COLORFF60FF;
{K线输出}
KXN:=IF(C>O OR (C=O AND C>=REF(C,1)),1,0);
STICKLINE(KXN=0,H,L,0,0),COLOR606040;
STICKLINE(KXN=1,H,L,0,0),COLOR806080;
STICKLINE(KXN=0,C,O,2,0),COLOR606040;
STICKLINE(KXN=1,C,O,2,1),COLOR806080;
STICKLINE(KXN=0 AND (GPC=0 OR (GPC=1 AND DPX=1)),H,L,0,0),COLORC0C060;
STICKLINE(KXN=1 AND (GPC=0 OR (GPC=1 AND DPX=1)),H,L,0,1),COLORFF80FF;
STICKLINE(KXN=0 AND (GPC=0 OR (GPC=1 AND DPX=1)),C,O,2,0),COLORC0C060;
STICKLINE(KXN=1 AND (GPC=0 OR (GPC=1 AND DPX=1)),C,O,2,1),COLORFF80FF;
STICKLINE(GPC=1 AND ZTB=1,H,L,0,0),COLOR60FFFF;
STICKLINE(KXN=0 AND GPC=1 AND ZTB=1,C,O,2,0),COLOR60FFFF;
STICKLINE(KXN=1 AND GPC=1 AND ZTB=1,C,O,2,1),COLOR60FFFF;
