我的操盘主图 （附图加源码）

我的操盘主图  很准，很适用。特别对散户判断大盘顶底，压力和支撑，很是有用。公式没有未来。希望大家喜欢！

DRAWTEXTEX(1,0,10,3,'☆红K持仓,禄K清仓.'),COLORWHITE;
a:=SMA(SMA((CLOSE-LLV(LOW,243))/(HHV(HIGH,243)-LLV(LOW,243))*100,7,1),5,1);
b:=SMA((CLOSE-LLV(LOW,243))/(HHV(HIGH,243)-LLV(LOW,243))*100,7,1)*16.18-a*12;
d:=cross(b,a);
DRAWICON(d,LOW,4);
DRAWTEXT(d,LOw,'←大盘见底了! ')coloryellow;
{input: N(10,1,100);
A1:=ref(h,N)=hhv(h,2*N+1);
B1:=filter(A1,N);
C1:=backset(B1,N+1);
D1:=filter(C1,n);{高点}
A2:=ref(l,N)=llv(l,2*N+1);
B2:=filter(A2,N);
C2:=backset(B2,N+1);
D2:=filter(C2,N);{低点}
E1:=(ref(llv(l,2*N),1)+ref(hhv(h,2*N),1))/2; E2:=(h+l)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND not(D2 AND E1>=E2)) OR barstatus=2 OR barscount(c)=1;
L1:=(D2 AND not(D1 AND E1<E2));  H2:=D1 AND not(D2 AND E1>=E2);
X1:=ref(barslast(H1),1)+1; F1:=backset(H1 AND count(L1,X1)>0,llvbars
(if(L1,l,10000),X1));
G1:=F1>ref(F1,1); I1:=backset(G1,2); LD:=I1>ref(I1,1);{过滤后低点}
L2:=LD OR barstatus=2 OR barscount(c)=1;
X2:=ref(barslast(L2),1)+1; F2:=backset(L2 AND count(H2,X2)>0,hhvbars
(if(H2,h,0),X2));
G2:=F2>ref(F2,1); I2:=backset(G2,2); HD:=I2>ref(I2,1);{过滤后高点}
R1:=backset(barstatus=2,barslast(HD)+1); S1:=R1>ref(R1,1); {前一高}
T1:=backset(barstatus=2,barslast(LD)+1); U1:=T1>ref(T1,1); {前一低}
R2:=backset(S1,ref(barslast(HD),1)+2); S2:=R2>ref(R2,1); {前二高}
T2:=backset(U1,ref(barslast(LD),1)+2); U2:=T2>ref(T2,1); {前二低}
T3:=backset(U2,ref(barslast(LD),1)+2); U3:=T3>ref(T3,1); {前三低}
T4:=backset(U3,ref(barslast(LD),1)+2); U4:=T4>ref(T4,1); {前四低}
R3:=backset(S2,ref(barslast(HD),1)+2); S3:=R3>ref(R3,1); {前三高}
R4:=backset(S3,ref(barslast(HD),1)+2); S4:=R4>ref(R4,1); {前四高}
短期压力:drawline(S2,h,S1,h,1),Colorred,linedot;
短期支撑:drawline(U2,l,U1,l,1),Colorblue,linedot;
中期压力:drawline(S3,h,S2,h,1),Coloryellow,linedot;
中期支撑:drawline(U3,l,U2,l,0),Colormagenta,linedot;  
长期压力:drawline(S4,h,S3,h,1),COLORwhite,linedot;
长期支撑:drawline(U4,l,U3,l,0),Colorgreen,linedot;
DRAWICON(S1,H*1.01,5);
DRAWICON(S2,H*1.01,5);
DRAWICON(S3,H*1.01,5);
DRAWICON(S4,H*1.01,5);
DRAWICON(U1,L*0.99,4);
DRAWICON(U2,L*0.99,4);
DRAWICON(U3,L*0.99,4);
DRAWICON(U4,L*0.99,4);}
OBV:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)/25000,1);
obve:=ema(obv,3);
DIFF := EMA(obve,12) - EMA(obve,26);
bbDIFF:=DIFF-ref(DIFF,1);
DEA  := EMA(DIFF,9);
bbDEA:=DEA-ref(DEA,1);
{MACD : 2*(DIFF-DEA), COLORSTICK;}
{DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);}
MA18:=MA(CLOSE,18),colorFFFFFF;
MA30:=MA(CLOSE,30),colorFFFF;
多头:STICKLINE(DIFF>DEA,CLOSE,OPEN,3,0),colorFF;
STICKLINE(DIFF>DEA,HIGH,LOW,0,0),colorFF;
空头:STICKLINE(DIFF<=DEA,CLOSE,OPEN,3,0),colorFFFF00;
STICKLINE(DIFF<=DEA,HIGH,LOW,0,0),colorFFFF00;
DRAWTEXT(CROSS(bbDIFF,bbDEA),LOW-0.2,'。买入'),colorFF;
DRAWTEXT(CROSS(bbDEA,bbDIFF),HIGH*1.03,'卖\n↓'),colorFF00,align;
VERTLINE(CROSS(bbDIFF,bbDEA)),LINEDOT,COLORred;
VERTLINE(CROSS(bbDEA,bbDIFF)),LINEDOT,COLORgreen;
VAR6:=REF(C,1);
VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;
DRAWTEXT(CROSS(82,VAR7),H*1.08,'逃\n顶\n▼'),COLORGREEN,align;
VERTLINE(CROSS(82,VAR7)),LINEDOT,COLORblue;
{AS:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24)+MA(CLOSE,48))/5;
AA:=SMA(CLOSE,3,1);}
STICKLINE(bbDIFF>bbDEA AND CLOSE>=OPEN,HIGH,LOW,0.1,1),colorFF;
STICKLINE(bbDIFF>bbDEA AND CLOSE>=OPEN,CLOSE,OPEN,8,1),colorFF;
STICKLINE(bbDIFF>bbDEA AND CLOSE<OPEN,HIGH,LOW,0.1,0),colorFF;
STICKLINE(bbDIFF>bbDEA AND CLOSE<OPEN,CLOSE,OPEN,8,0),colorFF;
STICKLINE(bbDIFF<=bbDEA AND CLOSE>=OPEN,HIGH,LOW,0.1,1),colorFF00;
STICKLINE(bbDIFF<=bbDEA AND CLOSE>=OPEN,CLOSE,OPEN,8,1),colorFF00;
STICKLINE(bbDIFF<=bbDEA AND CLOSE<OPEN,HIGH,LOW,0.1,0),colorFF00;
STICKLINE(bbDIFF<=bbDEA AND CLOSE<OPEN,CLOSE,OPEN,8,0),colorFF00;
黄:=SYSPARAM(3);
金:=((黄 - SYSPARAM(2)) + 1);
分:=HHV(HIGH,金);
割:=LLV(LOW,金);
最高:分[黄],LINETHICK2,colorFF;
最低:割[黄],LINETHICK2,colorFF00;
分一:(((最高 - 最低) * 0.191) + 最低),LINEDOT,colorFF00FF;
分二:(((最高 - 最低) * 0.382) + 最低),LINEDOT,colorFF00FF;
中:(((最高 - 最低) * 0.5) + 最低),LINEDASHDOT,colorFFFF;
分四:(((最高 - 最低) * 0.618) + 最低),LINEDOT,colorFF00FF;
分五:(((最高 - 最低) * 0.809) + 最低),LINEDOT,colorFF00FF;
DIFF:=(0 - LOG(MINDIFF));
DRAWTEXT((BARPOS = SYSPARAM(2)),最高,('最高' + NUMTOSTR(最高,DIFF))),colorFF00;
DRAWTEXT((BARPOS = SYSPARAM(2)),最低,('最低' + NUMTOSTR(最低,DIFF))),colorFF00;
DRAWTEXT((BARPOS = SYSPARAM(2)),分一,('分一(0.191)' + NUMTOSTR(分一,DIFF))),colorFF00;
DRAWTEXT((BARPOS = SYSPARAM(2)),分二,('分二(0.382)' + NUMTOSTR(分二,DIFF))),colorFF00;
DRAWTEXT((BARPOS = SYSPARAM(2)),中,('中(0.5)' + NUMTOSTR(中,DIFF))),colorFF00;
DRAWTEXT((BARPOS = SYSPARAM(2)),分四,('分四(0.608)' + NUMTOSTR(分四,DIFF))),colorFF00;
DRAWTEXT((BARPOS = SYSPARAM(2)),分五,('分五(0.809)' + NUMTOSTR(分五,DIFF))),colorFF00;