抛砖引玉【主图指标：斜趋势线】--请高手优化

wqm

{主图指标：斜趋势线}
{MM:=120;}
MM:=BARSLAST(DISPSTATUS=1);{可视区域内K线数仅作看图用。不能用于选股}
z:zig(4,10),LineDot;{该函数只作比较用，请删除}
AN:=CONST(HHVBARS(H,MM));
BN:=IF(AN>0 AND AN<60,1,IF(AN>=60 AND AN<120,2,IF(AN>=120 AND AN<180,3,
IF(AN>=180 AND AN<240,4,IF(AN>=240 AND AN<300,5,0)))));
HBN:=HHVBARS(H,MM);
HCC:=BACKSET(BARSTATUS=2,HBN+1);
HCDN:=BARSLAST(HCC>REF(HCC,1));
HCD:=REF(H,HCDN);
JA:=HOD(HHV(H,BN),HCDN);
JB:=SUM(LAST(JA>REF(JA,1))=1,HCDN);
J2:=(REF(H,(BARSLAST(JB=2)+BN))-hcd)/(HCDN-(BARSLAST(JB=2)+BN));
J3:=(REF(H,(BARSLAST(JB=3)+BN))-hcd)/(HCDN-(BARSLAST(JB=3)+BN));
J4:=(REF(H,(BARSLAST(JB=4)+BN))-hcd)/(HCDN-(BARSLAST(JB=4)+BN));
J5:=(REF(H,(BARSLAST(JB=5)+BN))-hcd)/(HCDN-(BARSLAST(JB=5)+BN));
J6:=(REF(H,(BARSLAST(JB=6)+BN))-hcd)/(HCDN-(BARSLAST(JB=6)+BN));
J7:=(REF(H,(BARSLAST(JB=7)+BN))-hcd)/(HCDN-(BARSLAST(JB=7)+BN));
J8:=(REF(H,(BARSLAST(JB=8)+BN))-hcd)/(HCDN-(BARSLAST(JB=8)+BN));
J9:=(REF(H,(BARSLAST(JB=9)+BN))-hcd)/(HCDN-(BARSLAST(JB=9)+BN));
J10:=(REF(H,(BARSLAST(JB=10)+BN))-hcd)/(HCDN-(BARSLAST(JB=10)+BN));  
J11:=(REF(H,(BARSLAST(JB=11)+BN))-hcd)/(HCDN-(BARSLAST(JB=11)+BN));   
J12:=(REF(H,(BARSLAST(JB=12)+BN))-hcd)/(HCDN-(BARSLAST(JB=12)+BN));
J13:=(REF(H,(BARSLAST(JB=13)+BN))-hcd)/(HCDN-(BARSLAST(JB=13)+BN));
J14:=(REF(H,(BARSLAST(JB=14)+BN))-hcd)/(HCDN-(BARSLAST(JB=14)+BN));
J15:=(REF(H,(BARSLAST(JB=15)+BN))-hcd)/(HCDN-(BARSLAST(JB=15)+BN));
J16:=(REF(H,(BARSLAST(JB=16)+BN))-hcd)/(HCDN-(BARSLAST(JB=16)+BN));
J17:=(REF(H,(BARSLAST(JB=17)+BN))-hcd)/(HCDN-(BARSLAST(JB=17)+BN));
J18:=(REF(H,(BARSLAST(JB=18)+BN))-hcd)/(HCDN-(BARSLAST(JB=18)+BN));
J19:=(REF(H,(BARSLAST(JB=19)+BN))-hcd)/(HCDN-(BARSLAST(JB=19)+BN));
J20:=(REF(H,(BARSLAST(JB=20)+BN))-hcd)/(HCDN-(BARSLAST(JB=20)+BN));  
J21:=(REF(H,(BARSLAST(JB=21)+BN))-hcd)/(HCDN-(BARSLAST(JB=21)+BN));   
JC:=MAX(J2,J3,J4,J5,J6,J7,J8,J9,J10,J11,J12,J13,J14,J15,J16,J17,J18,J19,J20,J21);
JD:=HHVBARS(JC,HCDN)+BN;
JE:=MAX(BACKSET(BARSTATUS=2,JD+1),0);
JN:=BARSLAST(JE>REF(JE,1));
JH:=HCD-(HCD-REF(H,JN))/(HCDN-JN)*HCDN;
斜压线:JH;
DrawLine(HCC>REF(HCC,1),H,JE>REF(JE,1),H,0),colorred;
选股:C>=JH,NoDraw;

易恒

选股用了JH，JH用了JN，JN用了JE，JE用了JD，JD用了JC和BN，JC用了J2……J21，J2……J21用了BN，BN用了AN，AN用了MM，最后MM说不能用于选股。

wqm

如果需要选股请将MM的值该成120。MM值最大可设为300。