文华主图黄金分割

A:=REF(HHV(H,89),2);
B:=REF(LLV(L,89),2);
H191:A-(A-B)*0.191,COLORRED;
H382:A-(A-B)*0.382,COLORGREEN;
H50:A-(A-B)*0.5,COLORBLUE;
H618:A-(A-B)*0.618,COLORYELLOW;
H809:A-(A-B)*0.809,COLORCYAN;
DRAWTEXT(ISLASTBAR>0,H191,'0.191');
DRAWTEXT(ISLASTBAR>0,H382,'0.382');
DRAWTEXT(ISLASTBAR>0,H50,'0.5');
DRAWTEXT(ISLASTBAR>0,H618,'0.618');
DRAWTEXT(ISLASTBAR>0,H809,'0.809');
TMP:=OPEN-CLOSE;
DRAWLINE(TMP>0.00001,HIGH,TMP>0.00001,OPEN,COLORCYAN);
DRAWLINE(TMP>0.00001,LOW,TMP>0.00001,CLOSE,COLORCYAN);
DRAWLINE(TMP<-0.00001,HIGH,TMP<-0.00001,CLOSE,COLORRED);
DRAWLINE(TMP<-0.00001,LOW,TMP<-0.00001,OPEN,COLORRED);
DRAWLINE(ABS(TMP)<0.00001,LOW,ABS(TMP)<0.00001,OPEN,COLORWHITE);
DRAWLINE(ABS(TMP)<0.00001,HIGH,ABS(TMP)<0.00001,OPEN,COLORWHITE);
STICKLINE(TMP>0,OPEN,CLOSE,COLORCYAN,0);
STICKLINE(TMP<=0,OPEN,CLOSE,COLORRED,1);