紫色柱子指标改成选股公式

编写要求：

通达信指标，要求当出现第一支紫色柱子的时候预警，但求信号精准一点，无限感谢，我没币。码源最好。N:=74; M:=3; PC:(C+REF(C,1)+O)/3; 高:=REF(HHV(H,N),M); 低:=REF(LLV(L,N),M); H19:=高-(高-低)*0.191; H38:=高-(高-低)*0.382; H中:=高-(高-低)*0.5; H61:=高-(高-低)*0.618; H80:=高-(高-低)*0.809; 顶点:REFDATE(高,DATE),COLORWHITE; %19.8:REFDATE(H19,DATE),COLORYELLOW; %38.2:REFDATE(H38,DATE),COLORMAGENTA; %50:REFDATE(H中,DATE),COLORRED; %61.8:REFDATE(H61,DATE),COLORMAGENTA; %80.9:REFDATE(H80,DATE),COLORYELLOW; 低点:REFDATE(低,DATE),COLORWHITE; DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORWHITE; DRAWTEXT(ISLASTBAR,%19.8,'％19.8安全'),COLORYELLOW; DRAWTEXT(ISLASTBAR,%38.2,'％38.2'),COLORMAGENTA; DRAWTEXT(ISLASTBAR,%50,'％50'),COLORRED; DRAWTEXT(ISLASTBAR,%61.8,'％61.8'),COLORMAGENTA; DRAWTEXT(ISLASTBAR,%80.9,'％80.9'),COLORYELLOW; DRAWTEXT(ISLASTBAR,低点,'低点'),COLORWHITE; AAA:=(3*C+H+L+O)/6; VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36; VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3; VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3; VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3; VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3; VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3; STICKLINE(VAR1>VAR6,VAR1,VAR6,0.5,0),COLORFF00FF; STICKLINE(C>=O,C,O,3,0),COLOR000045; STICKLINE(C>=O,C,O,2,0),COLOR000085; STICKLINE(C>=O,C,O,1,0),COLOR0000E5; STICKLINE(C>=O,H,L,0,0),COLOR0000F5; STICKLINE(C

解答：

?AAA:=(3*C+H+L+O)/6;

VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;