通达信黄金分割率坐标系主图指标 源码

周期:=30; {是可见的周期数,设为参数N(30,480,240),自己调}
高1:=CONST(HHV(H,周期)); 低1:=CONST(LLV(L,周期));
H_L:=高1-低1; HH:=H+H_L*0.1; LL:=L-H_L*0.1;
 {操盘线}
MA6: MA(C,6),COLORGREEN;{178448_WEN98编写}
MA6_: IF(MA6>=REF(MA6,1),MA6,DRAWNULL),COLORMAGENTA;
 {---------------------------------};
 H0:高1,COLORRED,POINTDOT;
 H0809:IF(低1<高1*(0.809), 高1*(0.809),DRAWNULL),COLORLIMAGENTA,POINTDOT;
 H0618:IF(低1<高1*(0.618), 高1*(0.618),DRAWNULL),COLORLIMAGENTA,POINTDOT;
 H0500:IF(低1<高1*(0.500), 高1*(0.500),DRAWNULL),COLORLIMAGENTA,POINTDOT;
 H0382:IF(低1<高1*(0.382), 高1*(0.382),DRAWNULL),COLORLIMAGENTA,POINTDOT;
 H0191:IF(低1<高1*(0.191), 高1*(0.191),DRAWNULL),COLORLIMAGENTA,POINTDOT;
 L2618:IF(高1>低1*(2.618), 低1*(2.618),DRAWNULL),COLORGREEN,POINTDOT;
 L2383:IF(高1>低1*(2.382), 低1*(2.382),DRAWNULL),COLORGREEN,POINTDOT;
 L2000:IF(高1>低1*(2.000), 低1*(2.000),DRAWNULL),COLORGREEN,POINTDOT;
 L1809:IF(高1>低1*(1.809), 低1*(1.809),DRAWNULL),COLORGREEN,POINTDOT;
 L1618:IF(高1>低1*(1.618), 低1*(1.618),DRAWNULL),COLORGREEN,POINTDOT;
 L1500:IF(高1>低1*(1.500), 低1*(1.500),DRAWNULL),COLORGREEN,POINTDOT;
 L1382:IF(高1>低1*(1.382), 低1*(1.382),DRAWNULL),COLORGREEN,POINTDOT;
 L1191:IF(高1>低1*(1.191), 低1*(1.191),DRAWNULL),COLORGREEN,POINTDOT;
 L0:低1,COLORGREEN,POINTDOT;