高点划线(通达信公式 主图 源码 测试图)
{参数KN 3 30 4 请自行输入}ZG:=ZIG(1,KN); {高点转向 };ZD:=ZIG(2,KN); {低点转向 };GAO:=H=PEAK(1,KN,1); {判断高点 };DI:=L=TROUGH(2,KN,1); {判断低点 };HH:=BARSLAST(GAO); {高点距离 };LL:=BARSLAST(DI); {低点距离 };RH:=REF(ZG,HH); {高点值 };RL:=REF(ZD,LL); {低点值 };DRAWLINE(GAO,ZG,DI,ZD,0);{画下降线 };DRAWLINE(DI,ZD,GAO,ZG,0);{画上涨线 };DRAWLINE(GAO,ZG,DI,RH,1),COLORRED;{画高点线 };DRAWLINE(DI,ZD,GAO,RL,1),COLORGREEN;{画低点线 };DRAWNUMBER(GAO,ZG*1.03,ZG),COLORRED;{显示高点值};
DRAWNUMBER(DI,ZD*0.99,ZG),COLORGREEN;{显示低点值};